Red de conocimiento informático - Aprendizaje de programación - El archivo cambia el código fuente

El archivo cambia el código fuente

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? ?¿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