Movie85
13.03.2010, 19:30
Hi Leute,
ich hab folgendes Problem:
Ich hab einen Atmega 8, mit dem ich gerne MIDI Daten aussenden will.
Hab alles angeschlossen(TX an 5, Vcc an 4, GND an 2), und das mit dem Keyboard verbunden.
Leider tut sich garnichts! Kabel ist in ordnung, mein Keyboard empfängt auch Daten vom PC, aber nicht vom atmega...
Hier mein Programm, Fuses stimmen:
$regfile "m8def.dat"
$crystal = 8000000
$baud = 31250
Dim Voice As Byte
Dim Cntrnr As Byte
Dim Vals As Byte
Config Portd.7 = Output
Voice = &H90
Cntrnr = &H3C
Vals = &H7F
Do
Toggle Portd.7
Print Chr(voice); 'senden der drei bytes
Print Chr(cntrnr);
Print Chr(vals);
Wait 1
Loop
End
entdeckt ihr was?
Gruß
Tom
ich hab folgendes Problem:
Ich hab einen Atmega 8, mit dem ich gerne MIDI Daten aussenden will.
Hab alles angeschlossen(TX an 5, Vcc an 4, GND an 2), und das mit dem Keyboard verbunden.
Leider tut sich garnichts! Kabel ist in ordnung, mein Keyboard empfängt auch Daten vom PC, aber nicht vom atmega...
Hier mein Programm, Fuses stimmen:
$regfile "m8def.dat"
$crystal = 8000000
$baud = 31250
Dim Voice As Byte
Dim Cntrnr As Byte
Dim Vals As Byte
Config Portd.7 = Output
Voice = &H90
Cntrnr = &H3C
Vals = &H7F
Do
Toggle Portd.7
Print Chr(voice); 'senden der drei bytes
Print Chr(cntrnr);
Print Chr(vals);
Wait 1
Loop
End
entdeckt ihr was?
Gruß
Tom