Midi Signal mit Atmega8 erzeugen

[Fabian F. (fabiii9)]

Hallo zusammen,
ich habe mich jetzt etwas schlau gemacht und habe einige Informationen 
zusammen getragen.

Ich möchte hier eine kleine Testschaltung aufbauen, wenn diese 
funktioniert will ich sie etwas erweitern (Schieberegister) aber dazu 
später mehr.

Ich habe einen Schaltplan angehängt.
Funktioniert dieser Schaltplan so?

Ich will, dass wenn ich den Taster drücke ein Midisignal mit dem Atmega8 
erzeugt wird und ich in Hauptwerk oder GrandOrgue diesen Befehl empfange 
und verwenden kann.

Ich habe hier einen Code.
Wenn dies ausgeführt wird müsste doch eigentlich ein Midisignal erzeugt 
werden mit dem Ton 440 Herz (A).

Wird dieser Code funktionieren?

$RegFile = "m8def.dat"     ' ATMEGA8
$Crystal = 1000000         ' 1 MHz
$Baud    = 31250           ' MIDI-Baudrate (31,25kBit)

Taster   Alias PinD.2

Dim KeyDown     As Byte    ' Tasten-Merker

Init:
  DDRD.1 = 1     ' Sendeleitung auf Output
  PortD.2 = 1    ' internen Pull-Up aktivieren für Taster

Main:
  Do
    If Taster = 0 Then
      If KeyDown = 1 Then 
        GoSub SendMidiNoteOn
        KeyDown = 0
      End If          
    Else
      If KeyDown = 0 Then 
        GoSub SendMidiNoteOff
        KeyDown = 1
      End If
    End If
    WaitMs 20
  Loop
  End 

SendMidiNoteOn:
  Print Chr(&b10010000);    ' NOTE-ON-Command
  Print Chr(69);            ' Tasten-Nummer 69 (A4)
  Print Chr(100);           ' Key-Down-Velocity 100
Return

SendMidiNoteOff:
  Print Chr(&b10000000);    ' NOTE-OFF-Command
  Print Chr(69);            ' Tasten-Nummer 69 (A4)
  Print Chr(0);             ' Release-Velocity 0 (Default)
Return

Vielen Dank
Gruß
Fabi

[Karl H. (kbuchegg)]

Ich rate dir ganz dringend, deine ersten Versuche mit der UART NICHT 
mit Midi zu machen, sondern indem du ganz einfach Buchstaben oder Text 
über die UART ausgibst und in einem Terminal nachsiehst, ob das 
gesendete auch wirklich an der Gegenstelle genau so ankommt, wie du es 
wegschickst!

Denn so vermeidest du 'stochern im Nebel'. Du gibst (zumindest denkst du 
das) etwas über die UART aus und die Gegenstelle reagiert einfach nicht. 
UNd dann ist die Frage gross: Wo liegt der Fehler?
Teil des Problems besteht darin, dass dir die Gegenstelle nicht 
mitteilt, warum sie nichts tut. Bei einerm Terminal ist das anders. Dort 
siehst du in Textform, was das Terminal verstanden hat. Und aus dem, 
bzw. aus den Abweichungen zu dem was gesendet wurde, kann man 
Rückschlüsse ziehen, was das Problem sein könnte.

[Route_66 (Gast)]

Hallo!
Das hier:
> $RegFile = "m8def.dat"     ' ATMEGA8
> $Crystal = 1000000         ' 1 MHz
> $Baud    = 31250           ' MIDI-Baudrate (31,25kBit)
sieht verdächtig nach internem RC-Oszillator aus, und wird deshalb 
praktisch nicht zuverlässig oder gar nicht funktionieren!

[Falk B. (falk)]

HTERM ist für solche Sachen optimal!

[Stefanus (Gast)]

HTERM nutzt aber nichts bei der Bitrate von Midi, das kann der PC nicht 
empfangen.

Parallel zur Midi Buchse empfehle ich einen 220nF Kondensator. Er 
entschärtf die steilen Flanken des digitalen Signals und reduziert so 
die Abstrahlung von HF deutlich.

[Stefanus (Gast)]

Sorry, ich meinte 220pF.