Autor
Por que la Variable Global no almacenaba el Nombre?
Bueno pues por que la habia declarado como integer en la variable Global que se encuentra en el Module...
VARIABLES:
Una variable contiene un valor que puede modificarse a lo largo de la ejecucion de la aplicacion. Cada Variable tiene atributos propios como:
NOMBRE: es la que utilizamos pra referirnos a la variable en la aplicacion.
TIPO: El tipo determina que clase de valores puede almacenar la variable ( aqui fue mi problema en el programa)
AMBITO: El ambito de una variable especifica en que parte de la aplicacion la variable es conocida por lo tanto puede utilizarse.
El Nombre de una variable tiene qu comenzar por una letra y puede tener hasta 40 caracteres de longitud.
Los caracteres pueden ser letras, digitos, el caracter de subrayado y los caracteres de declaracion del tipo de la variable (%, &, !, #, @, $). El nombre de una variable no puede ser una palabra reservada de Visual Basic.
TIPOS de DATOS:
------------------------------------------------------------------------
Tipo: Descripcion: Caracter:
------------------------------------------------------------------------
Integer Entero %
------------------------------------------------------------------------
Long Entero Largo &
------------------------------------------------------------------------
Single Real Simple Precision !
------------------------------------------------------------------------
Double Real Doble Precision #
------------------------------------------------------------------------
Currency Numero con punto decimal fijo @
------------------------------------------------------------------------
String Cadena de Caracteres $
------------------------------------------------------------------------
Variant Numeros enteros, reales (ninguno)
(Por defecto) o caracteres
------------------------------------------------------------------------
Bueno aqui es un Resumen de las Variables por lo tanto tuve que declarar en variables globales (en el modulo) la variable Nom como Variant, el problema fue que la habia declarado como String por eso me marcaba error, por eso creo que es muy importante revizar como declaramos nuestras variables
, asi que la declare de la siguiente manera:Código:
Global Nom as Variant
Como lo que queria era almacenar un Nombre (Roberto) entonces la tenia que declarar como Variant que es para Numeros enteros reales o caracteres...
------------------------------------------------------------------------
EL PROBLEMA:
Hola, bueno yo andoe studiando apenas programacion no se mucho apenas ando en lo basico y tengo un problema y quiero pedirles un poco de ayuda para presentar mi examen.. es algo muy sencillo pero no se como hacerlo jhaja
miren:el programa es un examen echo con varios formularios es decir aparece un formulario contestas la pregunta y pasas al segundo formulario al final te suma la calificacion y te dice si estas aprobado o reprobado... pero mi problema es el siguiente:
al ejecutar el examen aparece un formulario donde te pide tu Nombre.. lo tecleas le das enter ( es un textbox )y ya empieza tu examen.. el codigo de ese formulario es este:
Código:
Private Sub Nombre_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Nombre.Text = Nom
If Nombre.Text = "" Then
MsgBox "introduzca su nombre..."
Else
Unload Me
FrmPreg1.Show
End If
End If
End Sub
lo que quieria era almacenar el nombre dle usuario en donde dice:
Código:
Nombre.Text = Nom
Código:
Global Nom As Integer
No se si estuve mal pero asi lo hice...
el caso es que una vez tecleando el nombre contestas el examen y al final lo que quiero hacer es que aparezca el Nombre que se dio en el Texbox es decir si puse de Nombre roberto quiero que aparezca en un label que diga lo siguiente: Roberto Husted Aprobo o Reprobo... solo quiero colocar el Nombre que teclee al principio... es lo unico que no puedo hacer.... aqui pongo el codigo que puse yo al final supuestamente para que apareciera el nombre pero no aparece:
Código:
Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label3.Caption = Nom & " Usted fue :"
Label2.Caption = "APROBADO"
End If
End Sub
En línea
...
