Midi Signale erzeugen

[Fabian F. (fabiii9)]

Hallo zusammen,
habe mich jetzt lange mit Midi beschäftigt.
Und mache jetzt so die ersten gehversuche.

Ich habe hier einen Code in Bascom.
Allerdings funktioniert nur PORTD.2.
PORTD.3 geht nicht.

Was ist an meinem Code falsch?
wäre sehr dankbar, wenn ihr mir helfen könntet!!!

Vielen Dank
Gruß
Fabi

$regfile = "m8def.dat"                                      ' ATMEGA8
$crystal = 1000000                                          ' 1 MHz
$baud = 31250                                               ' MIDI-Baudrate (31,25kBit)

Taster Alias Pind.2
Taster1 Alias Pind.3

Dim Keydown As Byte
Dim Keydown1 As Byte                                        ' Tasten-Merker

Init:
  Ddrd.1 = 1                                                ' Sendeleitung auf Output
  Portd.2 = 1
  Portd.3 = 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
  Loop
  Do
    If Taster1 = 0 Then
      If Keydown1 = 1 Then
        Gosub 1sendmidinoteon
        Keydown1 = 0
      End If
    Else
      If Keydown1 = 0 Then
        Gosub 1sendmidinoteoff
        Keydown1 = 1
      End If
    End If
  Loop
  End

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

Sendmidinoteoff:
  Print Chr(&B10000001);                                    ' NOTE-OFF-Command
  Print Chr(65);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(0);                                             ' Release-Velocity 0 (Default)
Return
1sendmidinoteon:
  Print Chr(&B10010000);                                    ' NOTE-ON-Command
  Print Chr(69);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(100);                                           ' Key-Down-Velocity 100
Return

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

[holger (Gast)]

>PORTD.3 geht nicht.

Was geht nicht?

[OAmp (Gast)]

Pullup,,,Seemann über Bord. Aber das Boot ist lang schon weg.

Mal ehrlich wie soll das jemand verstehen?

[Vorn N. (eprofi)]

Du kommst aus der oberen Loop nicht heraus, die untere Loop wird nie 
aufgerufen. Du brauchst eine Loop über alles --> mittleres Loop + Do 
löschen.

[Fabian F. (fabiii9)]

Hallo,
vielen Dank!
Das war das Problem.

Code:

$regfile = "m8def.dat"                                      ' ATMEGA8
$crystal = 1000000                                          ' 1 MHz
$baud = 31250                                               ' MIDI-Baudrate (31,25kBit)

Taster Alias Pind.2
Taster1 Alias Pind.3
Taster2 Alias Pind.4
Taster3 Alias Pind.5

Dim Keydown As Byte
Dim Keydown1 As Byte
Dim Keydown2 As Byte
Dim Keydown3 As Byte                                        ' Tasten-Merker

Init:
  Ddrd.1 = 1                                                ' Sendeleitung auf Output
  Portd.2 = 1
  Portd.3 = 1
  Portd.4 = 1
  Portd.5 = 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

    If Taster1 = 0 Then
      If Keydown1 = 1 Then
        Gosub 1sendmidinoteon
        Keydown1 = 0
      End If
    Else
      If Keydown1 = 0 Then
        Gosub 1sendmidinoteoff
        Keydown1 = 1
      End If
    End If

    If Taster2 = 0 Then
      If Keydown2 = 1 Then
        Gosub 2sendmidinoteon
        Keydown2 = 0
      End If
    Else
      If Keydown2 = 0 Then
        Gosub 2sendmidinoteoff
        Keydown2 = 1
      End If
    End If

    If Taster3 = 0 Then
      If Keydown3 = 1 Then
        Gosub 3sendmidinoteon
        Keydown3 = 0
      End If
    Else
      If Keydown3 = 0 Then
        Gosub 3sendmidinoteoff
        Keydown3 = 1
      End If
    End If

  Loop
  End

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

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

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

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

2sendmidinoteon:
  Print Chr(&B10010000);                                    ' NOTE-ON-Command
  Print Chr(72);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(100);                                           ' Key-Down-Velocity 100
Return

2sendmidinoteoff:
  Print Chr(&B10000000);                                    ' NOTE-OFF-Command
  Print Chr(72);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(0);                                             ' Release-Velocity 0 (Default)
Return

3sendmidinoteon:
  Print Chr(&B10010000);                                    ' NOTE-ON-Command
  Print Chr(77);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(100);                                           ' Key-Down-Velocity 100
Return

3sendmidinoteoff:
  Print Chr(&B10000000);                                    ' NOTE-OFF-Command
  Print Chr(77);                                            ' Tasten-Nummer 69 (A4)
  Print Chr(0);                                             ' Release-Velocity 0 (Default)
Return

Vielen, vielen Dank !!!!

Gruß
Fabi