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
Clase Ser Vivo
Clase Hombre
Saludos desde Venezuela
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()
EndClase 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
EndClase 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
EndSaludos desde Venezuela
Valora esta pregunta
0