Código fuente del programa de lotería de idiomas fácil

.Especificación de biblioteca de soporte

.Subroutine_Button1_Clicked

.ID ganadora de variable local, entero

.ID aleatoria de variable local, entero

Cuadro de lista 2.empty()

Cuadro de lista 1.selección actual = -1

Número de celular dinámico = todos los números de celular

Asignaciones continuas (verdadero, botón 1. deshabilitar, cuadro de lista 2. deshabilitar, cuadro de lista 1. deshabilitar)

El primer bucle de conteo (5,)

. Contar bucle primero (obtener número aleatorio (20, 100),)

ID aleatorio = obtener número aleatorio (1, obtener membresía de matriz (número de teléfono celular dinámico))

EditBox1.Content = Obtener texto a la izquierda (Número de teléfono celular dinámico [ID aleatorio], 3) Obtener texto repetido (4, "*") Obtener texto a la derecha (Número de teléfono dinámico [ID aleatorio], 4)

' Si desea Para mostrar el número de teléfono completo, puede utilizar la siguiente oración

' Cuadro de edición 1.Contenido = Número de teléfono dinámico [ID aleatorio]

Retraso (20)

.Counting loop tail()

Cuadro de edición 1.Contenido = número de teléfono dinámico [ID aleatorio]

Cuadro de mensaje (cuadro de edición 1.Contenido, 64, "Felicitaciones por ganando el premio")

Cuadro de lista 2. Agregar elemento (cuadro de edición 1. Contenido,)

Eliminar miembro (número de teléfono dinámico, ID aleatorio, 1)

Eliminar miembro (número de teléfono dinámico, ID aleatorio, 1)

.ID aleatorio, 1)

.Count Loop Tail ()

Asignaciones consecutivas ( Falso, Button1.Disable, Listbox2.Disable, Listbox1.Disable)

Este es el código central de una de mis rutinas. Puedes usarlo después de modificarlo.