Gambas - Problema clases en Gambas

   
Vista:

Problema clases en Gambas

Publicado por Angel (1 intervenci√≥n) el 28/07/2013 02:53:04
Saludos a esta comunidad.
Empecé a estudiar Gambas con Gambas 3.1.1 en XUbuntu 13.04
Estoy haciendo los ejemplos del libro de Campos y Redrejo en su páginas 72 y vto que crea clases con un proyecto llamado Ser Vivo - Hombre.
He intentado de todo lo poquito que sé desde VB-6 y de lo mucho que ignoro en Gambas
El caso es que me dice;

Identificador desconocido Integer en SerVivo.Class:3

mientras resalta en rojo donde dice "Private patas As Integer" en Clase SerVivo

Si comento esta línea ('), hace lo mismo en la siguiente variable "Private nacimiento As Integer"

Les pongo el código y agradezco por anticipado la ayuda que alguien me pudiera prestar

Main
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Gambas module file

Public Sub Main()
Dim Mono As SerVivo
Dim tipejo As Hombre

Mono = New SerVivo
Mono.nacido(CDate("2/2/1992"))
Mono.PonePatas(3)
Print Mono.edad()
Print Mono.dicePatas()

tipejo = New Hombre
tipejo.nacido(CDate("2/18/1969"))
tipejo.PoneNombre("Vicente")
tipejo.poneapellido("Pérez")
Print tipejo.edad()
Print tipejo.NombreCompleto()
End


Clase Ser Vivo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Gambas class file

Private patas As Inteqer
Private nacimiento As Inteqer
Public Sub nacido(fecha As Date)
  nacimiento = Year(fecha)
End

Public Sub PonePatas(numero As Inteqer)
  patas = numero
End

Public Function edad() As Inteqer
Return Year(Now) - nacimiento
End

Public Function dicePatas() As Inteqer
Return patas
End


Clase Hombre
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' Gambas class file

Inherits SerVivo
Private Nombre As String
Private Apellido As String

Public Sub PoneNombre(cadena As String)
  Nombre = cadena
End

Private Sub PoneApellido(cadena As String)
  Apellido = cadena
End

Public Function NombreCompleto() As String
  Return Nombre & "" & Apellido
End


Saludos desde Venezuela
Valora esta pregunta
Me gusta: Est√° pregunta es √ļtil y esta claraNo me gusta: Est√° pregunta no esta clara o no es √ļtil
0
Responder
información
Otras secciones de LWP con contenido de Gambas
- Código fuente de Gambas
- Cursos de Gambas
- Chat de Gambas
información
Códigos de Gambas
- Ejemplo de gr√°fico
- Lector de archivos PDF
- Navegador web