Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Propuesta De Crear Un Super Simple Componente Llamado Animal [Resuelto]
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Propuesta De Crear Un Super Simple Componente Llamado Animal [Resuelto] 
 
buenas aquí ando con nuevas ideas    

La propuesta es la siguiente como dice el titulo, crear un componente llamado animal, que al poner   animal.gato   saque un mensaje que diga "miau miau", y si ponemos animal.perro el mensaje saque el mensaje  "guau guau". Me estoy riendo mientras escribo este mensaje, me hace gracia el planteo, pero...  la idea es comprender como se programa un componente aun nosotros los novatos.

la ideas es ir poniendo en este hilo los pasos a seguir, y cada uno va agregando código o propuestas de como hacer el código. y los avanzados o expertos deben dar el primer paso de como hacerlo.
hecho todo esto debe quedar un post o mini manual de como hacer un componente que en este caso es un comando llamado animal.

dejo el planteo.


saludos.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Lunes, 17 Noviembre 2014, 14:45; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propuesta De Crear Un Super Simple Componente Llamado Animal 
 
Hola compañero v3ctor.

Tu post me trae a la mente un ejemplo de Fabian donde explicaba la herencia.
El código es para Gambas2, funciona en Gambas3 y es muy sencillo de modificar.

Tenemos la clase padre Animal:

Private $nombre As String

Public Sub _new(nombre As String)
  $nombre = nombre
End

Public Sub getNombre() As String
  Return $nombre
End

Public Sub habla()
  
  
End
 


Las clases hija Gato y Perro.

Clase Gato:


Inherits Animal

Public Sub Habla()
  Print Me.getNombre() & ": Miau"
End

 


Clase Perro:

Inherits Animal

Public Sub Habla()
  Print Me.getNombre() & ": Guau"
End
 


Y en el modulo principal o formulario:

Private animales As New Object[]

Public Sub _new()

End

Public Sub Form_Open()
Dim unAnimal, fido, pluto, tom, silvestre As Animal

fido = New Perro("Fido")
pluto = New Perro("Pluto")
tom = New Gato("Tom")
silvestre = New Gato("Silvestre")

animales.Add(fido)
animales.Add(pluto)
animales.Add(tom)
animales.Add(silvestre)

For Each unAnimal In animales
    unAnimal.habla()
Next

End
 


Saludos

GatoyPerro.tar.gz
Descripción:  
Descargar
Nombre del archivo: GatoyPerro.tar.gz
Tamaño: 6.26 KB
Descargado: 19 veces
GatoyPerro.tar.gz
Descripción:  
Descargar
Nombre del archivo: GatoyPerro.tar.gz
Tamaño: 6.26 KB
Descargado: 19 veces
GatoyPerro.tar.gz
Descripción:  
Descargar
Nombre del archivo: GatoyPerro.tar.gz
Tamaño: 6.26 KB
Descargado: 19 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Martes, 26 Agosto 2014, 21:54; editado 2 veces 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propuesta De Crear Un Super Simple Componente Llamado Animal 
 
El primer paso seria abrir gambas3 y poner nuevo proyecto y tildar en "Programacion de un componente"

y gambas crea estos archivos:

 animal1

 animal2  

animal3

como sigue la historia ahora ?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propuesta De Crear Un Super Simple Componente Llamado Animal 
 
V3ctor:

Citar:
como sigue la historia ahora ?

Creo que estas empezando la casa por el tejado, me explico: si no sabes que es una clase, un objeto, un método, una propiedad, que es la herencia o el polimorfismo, no te puedes plantearte "seriamente" hacer un componente ni entender como funciona.


Citar:
crear un componente llamado animal, que al poner animal.gato saque un mensaje que diga "miau miau", y si ponemos animal.perro el mensaje saque el mensaje "guau guau".

Lo que pides es una clase que tenga esos métodos. (más o menos). Shell te ha puesto un claro ejemplo de herencia y uso de métodos.

Creo que merece la pena que leas este libro (más bien son unos apuntes, de 28 páginas.).
http://www.lulu.com/shop/julio-sanc...t-21688399.html
(Es gratuito)

Ademas en el curso de gambas, tambien tengo dedicada varias entradas a este tema:
http://cursogambas.blogspot.com.es/2014/03/clase.html
http://cursogambas.blogspot.com.es/...ropiedades.html
http://cursogambas.blogspot.com.es/...do-metodos.html
etc..

Es un consejo.

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propuesta De Crear Un Super Simple Componente Llamado Animal 
 
Lo que pedía exactamente era esto:

Mi primer componente llamado animales

código clase:

' gambas class file

Export

Property Read perro As String ''declaramos una propiedad que es de solo lectura al poner Read
Property Read gato As String

Private sPerro As String = "Guau! Guau!"
Private sGato As String = "Miau! Miau!"


Private Function gato_Read() As String
  Return sGato
End

Private Function perro_Read() As String
  Return sPerro
End



código para el formulario de prueba:

' gambas class file

Public Sub Form_Open()
  Dim PerroGato As New Animales
  
  Print PerroGato.perro
  Print PerroGato.gato

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Lunes, 17 Noviembre 2014, 18:16; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Crear Un Componente En Gambas3 jsbsan General 7 Lunes, 26 Agosto 2013, 00:53 Ver último mensaje
sebikul
No hay nuevos mensajes Ejemplo Super Simple De Gb.report2 v3ctor Controles/Librerías/Componentes 8 Viernes, 18 Septiembre 2015, 21:01 Ver último mensaje
v3ctor
No hay nuevos mensajes Componente No Encontrado Gb.qt5?[Resuelto] v3ctor General 22 Sabado, 29 Abril 2017, 14:47 Ver último mensaje
tincho
No hay nuevos mensajes Propuesta De Formato De Archivo Para Crear... tincho Bases de Datos 1 Domingo, 09 Julio 2017, 17:19 Ver último mensaje
tincho
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron