Dó Ré Mi Fá
O Programa abaixo toca a música Dó Ré Mi Fá
Rotina para que se execute o programa:
\ DÓ RÉ MI FÁ
Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Beep" com 330 e 300. \ MI
Processe "kernel32.dll" "Beep" com 349 e 500. \ FÁ
Processe "kernel32.dll" "Sleep" com 200. \ Pausa
\ FÁ FÁ
Processe "kernel32.dll" "Beep" com 349 e 300. \ FÁ
Processe "kernel32.dll" "Beep" com 349 e 250. \ FÁ
Processe "kernel32.dll" "Sleep" com 50. \ Pausa
\ DÓ RÉ DÓ RÉ
Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Sleep" com 500. \ Pausa
\ RÉ RÉ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Sleep" com 5. \ Pausa
\ DÓ SOL FA MI
Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
Processe "kernel32.dll" "Beep" com 392 e 300. \ SOL
Processe "kernel32.dll" "Beep" com 349 e 200. \ FÁ
Processe "kernel32.dll" "Beep" com 330 e 400. \ MI
Processe "kernel32.dll" "Sleep" com 200. \ Pausa
\ MI MI
Processe "kernel32.dll" "Beep" com 330 e 400. \ MI
Processe "kernel32.dll" "Beep" com 330 e 450. \ MI
Processe "kernel32.dll" "Sleep" com 50. \ Pausa
\ DÓ RÉ MI FÁ
Processe "kernel32.dll" "Beep" com 264 e 200. \ DÓ
Processe "kernel32.dll" "Beep" com 294 e 300. \ RÉ
Processe "kernel32.dll" "Beep" com 330 e 300. \ MI
Processe "kernel32.dll" "Beep" com 349 e 500. \ FÁ
Processe "kernel32.dll" "Sleep" com 200. \ Pausa
\ FÁ FÁ
Processe "kernel32.dll" "Beep" com 349 e 300. \ FÁ
Processe "kernel32.dll" "Beep" com 349 e 250. \ FÁ
Processe "kernel32.dll" "Sleep" com 50. \ Pausa
Processe "kernel32.dll" "Sleep" com 500. \ Pausa
Resultado:
Atualizado