HI
das ist eigentlich relativ einfach zu machen. ich würde das über die Ascii Zeichen und Inkey() machen.
Ich hab mal ein Programm zum Morsen gemacht. Jeder Buchstabe der Tastatur wurde einem Ton zugeordnet.(Oder eben einer Servodrehung)
Danach schließt du einfach dein Board an die serielle Schnittstelle an und gehst ins Terminalprogramm.
Die Liste für die einzelnen Buchstaben oder Zahlen und Ascii Wert hab ich jetzt nicht mehr im Kopf wo die war.
Aber das sollte dir weiterhelfen:
Code:
$regfile = "m32def.dat"
Dim A As Byte
Do
A = Inkey()
If A > 0 Then
Select Case A
Case 97
'
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 200 , 750
Waitms 50
Case 98
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Case 99
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
Sound Portd.7 , 200 , 750
Waitms 50
Sound Portd.7 , 50 , 750
Waitms 50
........................................................
Lesezeichen