Código VB para crear un programa de lotería
Público?j?As?Integer
Dim?A()?As?String
Dim?tem?As?String
Privado?Sub?CMD1_Click()?Tenga en cuenta que si no se sale del Sub aquí, aparecerá un mensaje de culpa "captio". De hecho, ha cambiado
If?CMD1.Caption?= ?" ¿"Iniciar"?Entonces
CMD1.Caption?=?"Detener"
Timer1.Enabled=? "True"
Salir?Sub p>
¿Fin?Si
Si?CMD1.Caption?=? "Detener"?Detener" Entonces
CMD1.Caption?Iniciar"
Temporizador1. ¿Habilitado?=?Falso
Si?tem?lt;gt;?"" Entonces
Texto1.Texto?=?tem
Fin?Si p>
¿Fin?Si
Fin?Sub
Privado?Sub?CMD2_Click()
Marco1.Visible?=?True
p>Texto2.Visible?=?True
CMD3.Visible?=?True
CMD4.Visible?
Texto2.Visible?=? Falso
CMD3.Visible?=?False
CMD4.Visible?=?False
tem?=?Text2.Text
¿Fin?Sub
Privado?Sub?CMD4_Click()
Texto2.Text?=?"
Texto2.Visible?=?Falso
CMD3.Visible?=?False
CMD4.Visible?
Marco1.Visible?=?False
Texto2.Visible?=?False p>
CMD3.Visible?=?False
CMD4.Visible?=?False
Temporizador1.Interval?=?300
¿Abrir?" C:\Documentos?y?Configuración\Administrador\Escritorio\Nuevo?TextDocument.txt"?
¿Hasta?EOF(1)ReDim?Preserve?A(0?To?I)Entrada?#1,?A(I)I?=?I?1LoopClose?#1 p> p>
Fin?Sub
Privado?Sub?Timer1_Timer()
Texto1.Text?=?A(j)
j? =? j? ?1
Si?j?=?UBound(A)?Entonces
j?=?0
Fin?Si
¿Fin?