El archivo cambia el código fuente
¿Oscuro? ¿Pi? ¿Como? soltero,? ¿pag? ¿Como? Booleano,? ¿kk? ¿Como? Entero,? ¿Automóvil club británico? ¿Como? Línea
¿Oscura? ¿s? ¿Como? soltero,? h? ¿Como? soltero,? ¿metro? ¿Como? soltero,? ¿Búlder? ¿Como? Línea
¿Oscura? ¿I? ¿Como? Entero,? ¿calle? ¿Como? Booleano,? j? ¿Como? Entero,? ¿SS? ¿Como? Línea
¿Oscura? ¿Una semana? ¿Como? Línea
¿Privada? ¿Sub? Command1_Click(¿Índice? ¿como? Entero)
¿Dim? ¿Booleano? ¿Como? Sistema de álgebra booleana
¿Booleano? =?¿Elección
incorrecta? ¿caso? Índice
¿Caso? 0
p? =?¿No es así? (p)
¿Oscuro? ppp? ¿Como? Enteros
¿Para qué? ppp? =?3?¿Adónde ir? Siete
Comando1(ppp). ¿visible? =?p
Entonces
¿caso? 1
Fin
¿El caso? 2
Etiqueta1. ¿visible? =?real
Etiqueta 2. ¿visible? =?real
Etiqueta 3. ¿visible? =?Verdadero
Texto1. ¿visible? =?Verdadero
Texto 2. ¿visible? =?Real
SMS 3. ¿visible? =?real
Comando 3. ¿visible? =?real
Comando 4. ¿visible? =?Verdadero
Texto1. Establecer enfoque
Texto1. ¿Palabra? =?""
¿Caso? Tres
¿Y si? ¿I? =?0?Entonces
¿Y si? j? =?0?¿Y entonces qué? j? =?千开
j? =?j? -?1
Dir1. ¿camino? =?Materia en suspensión
Dir1. ¿camino? =?Dir1. Lista(j)
¿Yo? =?Archivo1. Recuento de listas
¿Fin? ¿Y si
yo? =?Yo? -?1
¿Booleano? =?Caso
real? ¿Cuarta
primera? =?¿No es así? (st)
¿Caso? Cinco
¿Y si? ¿I? =?Archivo1. ¿ListCount? -?1?Entonces
¿Y si? j? =?kk? -?1?¿Y entonces qué? j? =?-1
j? =?j? ?1
Dir1. ¿camino? =?Materia en suspensión
Dir1. ¿camino? =?Dir1. Lista(j)
¿Yo? =?-1
¿Fin? ¿Y si
yo? =?Yo? ?1
¿Booleano? =?Caso
real? Seis
¿Y si? j? =?0?¿Y entonces qué? j? =?千开
j? =?j? -?1
Dir1. ¿camino? =?Materia en suspensión
Dir1. ¿camino? =?Dir1. Lista(j)
¿Yo? =?0
¿Booleano? =?Caso
real? Siete
¿Y si? j? =?kk? -?1?¿Y entonces qué? j? =?-1
j? =?j? ?1
Dir1. ¿camino? =?Materia en suspensión
Dir1. ¿camino? =?Dir1.
Lista(j)
¿Yo? =?0
¿Booleano? =?Real
Fin? Elegir
¿Y si? ¿Booleano? Entonces
¿hacer una llamada telefónica? Mostrar(1)
¿Booleano? =?Fin incorrecto
? ¿Y si? =?Segundo(vez)
h? =?hora(tiempo)
m? =?Minutos(tiempo)
¿Ancho del sorteo? =?1
Formulario 1. ¿Cable? (1320,?1320)-(1100?*?sin(s?*?2?*?PI?/?60)??1320,?(-1)?*?1100?*?Porque (s?*? 2?*?Pi?/?60)??1320),?RGB(256,?0,?0)
¿Eh? =?metro? ?¿s? /?60
¿Ancho de dibujo? =?2
Formulario 1. ¿Cable? (1320,?1320)-(950?*?sin(mm?*?2?*?PI?/?60)??1320,?(-1)?*?950?*?Porque (¿eh?*? 2?*?Pi?/?60)??1320),?RGB(0,?256,?0)
hh? =?h? ?¿metro? /?60
¿Ancho de dibujo? =?三
Formulario 1. ¿Cable? (1320,?1320)-(720?*?Sin(hh?*?2?*?PI?/?12)? ?1320,?(-1)?*?720?*?Cos(hh?*? 2?*?Pi?/?12)??1320),?RGB(0,?0,?256)
CurrentX? =?1000
¿Actualmente? =?1760
¿Imprimir? Hora
¿ActualX? =?1100
¿Actualmente? =?1960
¿Imprimir? Zhou
¿ActualX? =?1000
¿Actualmente? =?2160
¿Imprimir? Fecha
¿Fin? Submarino
¿Privado? ¿Sub? Command2_Click()
WindowsMediaPlayer1. Cerrar
Comando 2. ¿visible? =?Fin incorrecto
? Submarino
¿Privado? ¿Sub? Command3_Click()
¿Búlder? =?Texto1. ¿Palabra? ¿amperio? Texto 2. ¿Palabra? ¿amperio? SMS 3. Texto
Etiqueta1. ¿visible? =?Incorrecto
Etiqueta 2. ¿visible? =?Incorrecto
Etiqueta 3. ¿visible? =?Incorrecto
Texto1. ¿visible? =?Incorrecto
Texto 2. ¿visible? =?Incorrecto
SMS 3. ¿visible? =?Mal
Comando 4. ¿visible? =?Mal
Comando 3. ¿visible? =?Fin incorrecto
? Submarino
¿Privado? ¿Sub? Command4_Click()
Comando 4. ¿visible? =?Mal
Comando 3. ¿valor? =?Búlder
real? =?"?"
¿Fin? Submarino
¿Privado? ¿Sub? Dir1_Change()
Archivo 1. ¿camino? =?Dir1.
¿El final del camino
? Submarino
¿Privado? ¿Sub? Form_DblClick()
¿Atenuado? k? ¿Como? Entero
¿Si? ¿pag? =?Falso? Entonces
k? =?2
Otros
k? =?Siete
¿El final? Si
¿Para qué? ¿índice? =?0?¿Adónde ir? k
Comando 1 (índice). ¿visible? =?¿No es así? (Comando 1(Índice). Visible)
Entonces
¿Finalizar? Submarino
¿Privado? ¿Sub? Form_Load()
Formulario 1. ¿izquierda? =?Pantalla. ¿ancho? -?2650
Formulario 1. ¿Arriba? =?0
Pi? =?3.1415926
st? =?Incorrecto
p? =?Real
Bashi? =?"?"
¿Yo? =?0
j? =?0
ss? =?("C:\Documentos? ¿Y luego qué? Configuración\Usuarios\Mis? Documentos\Mis? Imágenes\ ")
Dir1. ¿camino? =?Materia suspendida
kk? =?Dir1. Lista de recuento
Archivo 1. ¿patrón? =?"*.*"
Archivo 1. ¿camino? =?Dir1. Ruta
Dir1. ¿camino? =?Dir1. Lista(j)
¿Fin? Submarino
¿Privado? ¿Sub? Text1_KeyPress(KeyAscii?as?integer)
¿Si? ¿ClaveAscii? =?13?Entonces
Texto 2. Establecer enfoque
Texto2. ¿Palabra? =?""
¿Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Text2_KeyPress(KeyAscii?as?integer)
si? ¿ClaveAscii? =?13?Entonces
SMS 3. Establecer enfoque
SMS 3. ¿Palabra? =?""
¿Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Text3_KeyPress(KeyAscii?as?integer)
¿Si? ¿ClaveAscii? =?13?Entonces
Comando 3. Establecer enfoque
¿Fin? Si
¿Finalizar? Submarino
¿Privado? ¿Sub? Timer1_Timer()
¿Seleccionar? ¿caso? Días laborables (fecha)
¿Caso? 1
¿Una semana? =?"Domingo"
¿Caso? 2
¿Una semana? =?"Lunes"
¿Caso? ¿Tres
por semana? =?"Martes"
¿Caso? ¿Cuatro
por semana? =?"Miércoles"
¿Caso? ¿Cinco
a la semana? =?"Jueves"
¿Caso? ¿Seis
por semana? =?"Viernes"
¿Caso? Siete
¿A la semana? =?"Sábado"
¿Fin? Elegir
¿Y si? h? ¿amperio? ¿metro? ¿amperio? ¿s? =?Búlder? Luego
Comando 2. ¿visible? =?real
WindowsMediaPlayer1. ¿visible? =?Incorrecto
WindowsMediaPlayer1. URL? =?("C:\Documentos? ¿Y luego qué?
configuración\usuarios\mi? Documentos\Mi? music\11.mp3”)
Fin?if
if?st?=?true?then
if?p?=?false Entonces
¿Imagen? =?LoadPicture("C:\Documentos? Entonces. Configuración\Usuarios\Mis?Documentos\Mis?Pictures\Display\11.jpg")
p>Otro
Pintar ? 0, ? 0, ? Formulario 1.
Otro
¿Si? 11.jpg ")
Otro
Si?I?=?File1.ListCount?-?1 ?Entonces? j? =?1? entonces? =?1
Dir1.Path?=?Dir1.List(j)
Fin ?
i?1
filname1.
¿nombre de archivo? ?amp?"?nombre de archivo1
aa? =?nombre de archivo? LoadPicture(nombre de archivo),? . alto,?ancho
fin si
¿Actual?1760
Hora
ActualX? =?1100
Actual¿=?1960
Semana
ActualX? =?1000
ActualY? =?2160
Fecha
s? hora(hora)
m?=?minuto(hora)
DrawWidth?=?1
Forma 1. 1320,?1320)-(1100? *?sin(s?*?2?*?pi?/?60)??1320,?(-1)?*?1100?*?porque (s?*?2 ?*?Pi?/?60) ??1320),?RGB(256,? 0,?0)
¿Eh? =?metro? ?¿s? /?60
¿Ancho de dibujo? =?2
Formulario 1. ¿Cable? (1320,?1320)-(950?*?sin(mm?*?2?*?PI?/?60)??1320,?(-1)?*?950?*?Porque (¿eh?*? 2?*?Pi?/?60)??1320),?RGB(0,?256,?0)
hh? =?h? ?¿metro? /?60
¿Ancho de dibujo? =?三
Formulario 1.
¿Cable? (1320,?1320)-(720?*?Sin(hh?*?2?*?PI?/?12)? ?1320,?(-1)?*?720?*?Cos(hh?*? 2?*?Pi?/?12)??1320),?RGB(0,?0,?256)
¿Fin? Submarino
¿Privado? ¿Sub? Timer2_Timer()
¿Atenuado? ¿incógnita? ¿Como? soltero,? ¿y? ¿Como? soltero,? nn? ¿Como? Entero,? z? ¿Como? ¿Entero
z? =?12
¿Para qué? nn? =?0?¿Adónde ir? 354? ¿Un paso? ¿Seis
x? =?1100?*?Sin(nn?*?Pi?/?180)? =?(-1)?*?1100?*?Cos(nn?*?Pi?/?180)? ?1320
Si? nn? Mod? 5?=?0?Entonces
¿DibujarAncho? =?八
CurrentX? =?X
ActualY? =?Y
¿Y si? z? =?13?¿Y entonces qué? z? =?1
¿Imprimir? z
z? =?z? ?1
Otro
¿Ancho de dibujo? =?Cuatro
¿Fin? Si
Hacer irregular
¿Y si? ¿pag? =?Falso? Entonces
PSet? (X,?y),? RGB(256,?0,?0)
Otro
PSet? (X,?y),? RGB(Int(Rnd?*?256),?Int(Rnd?*?256),?Int(Rnd?*?256))
¿Fin? Si
¿DibujarAncho? =?八
PSet? (1320,?1320),?RGB(256,?256,?256)
Entonces
¿Fin? Submarino
¿Público? ¿Sub? display(dd?as?integer)
nombre de archivo1? =?Archivo1. Lista(dd)
nombre de archivo? =?Archivo1. ¿camino? ¿amperio? "\"?¿amperio? Nombre de archivo 1
aa? =?filname
Formulario 1. ¿cuadro? LoadPicture(nombre de archivo),? 0,?0,?Forma1. altura,? Formulario 1. Ancho
¿Fin? Submarino