Red de conocimiento informático - Material del sitio web - Construcción del código fuente de Daxian BC

Construcción del código fuente de Daxian BC

Este es un programa fuente de reloj para usted.

¿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

¿Privado?Text1_KeyPress(KeyAscii?as?Integer)

¿Si?

¿Texto? =?"

¿Fin?

¿Privado? Text2_KeyPress(? Integer)

¿Si? KeyAscii? =?13?

SetFocus

¿Texto? Text3_KeyPress(KeyAscii? as ? Integer)

Luego

Comando 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

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