Construcción del código fuente de Daxian BC
¿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? +?m? /?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? y amplificador? Texto 2. ¿Palabra? y amplificador? 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\mi? Documentos\Mi? Imagen \ ")
Dir1. Ruta?=?Suspended_object
kk?=?Dir1. Lista de recuento
Archivo 1. Patrón?=?"* . *"
Archivo1.Path?=?Dir1.Little Road
Dir1.Path?=?Dir1.List(j)
Fin?Submarino p>
¿Privado?Text1_KeyPress(KeyAscii?as?Integer)
¿Si?
¿Texto? =?"
¿Fin?
¿Privado? Text2_KeyPress(? Integer)
¿Si? KeyAscii? =?13?
SetFocus
¿Texto? Text3_KeyPress(KeyAscii? as ? Integer)
LuegoComando 3. SetFocus
Finalizar si
¿Privado ()
¿Caso? ¿Día laborable (fecha)? 1
¿Caso 2
¿Una semana? ="Lunes"
¿Una semana? "? Cuatro
¿Una semana =? "Miércoles"? ¿Cinco
¿Una semana?
Seis
¿Una semana? =?" Viernes"
¿Una semana? =?"Sábado"
>si?&?s?=?visible? =?Incorrecto
WindowsMediaPlayer1. ¿URL? = ?("C:\Documentos? Entonces. Configuración\Usuarios\Mis? Documentos\Mi? Música\11.mp3")
Si
Si entonces
Si? =?Falso?
¿Imagen? =?LoadPicture("C:\Documentos? Entonces qué. configuración\usuarios\mi? Documentos\Mi? Picture\Display\11.jpg ")
Otro
Forma 1. ¿Pintura? LoadPicture(aa),? 0,? 0,? Forma 1. Altura,? Forma 1. ancho
si
otro
if?=?false?entonces
imagen? LoadPicture("C:\Documentos? ¿Y entonces qué? . Configuración\Usuarios\Mis? Documentos\Mis? Imágenes\Display\11.jpg ")
Otro
¿Qué pasa si? =? ListCount? -?1? entonces? j. ? -?1? entonces? =?j? +?1
Ruta? =?Dir1.Path?
=?-1
Si p>
I?+?1
nombre de archivo1. p>
nombre de archivo?=?archivo1.
¿camino? y amplificador? "\"?& amplificador? Nombre de archivo 1
aa? =?filname
Formulario 1. ¿cuadro? LoadPicture(nombre de archivo),? 0,?0,?Forma1. altura,? Formulario 1. Ancho
¿Fin? Si
¿Finalizar? Si
¿CurrentX? =?1000
¿Actualmente? =?1760
¿Imprimir? Hora
¿ActualX? =?1100
¿Actualmente? =?1960
¿Imprimir? Zhou
¿ActualX? =?1000
¿Actualmente? =?2160
¿Imprimir? ¿Fechas? =?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? +?m? /?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)?+?1320
y? =?(-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? y amplificador? "\"?& amplificador? Nombre de archivo 1
aa? =?filname
Formulario 1. ¿cuadro? LoadPicture(nombre de archivo),? 0,?0,?Forma1. altura,? Formulario 1. Ancho
¿Fin? Submarino