UART schon wieder Defekt.

[Heiko J. (hyco-j)]

Hi, ich dabei mir einen Midi Mixer mit 1-3 AtMega8 zu bauen.

Zu erst habe ich einfach dieses Beispiel benutzt:

http://www.wiesolator.de/index.php?area=Musik&topic=MIDI-Einstieg&stopic=MIDI%20und%20AVR

Das hat auch Funktioniert :-)

Dann habe ich das Progamm erweitert:

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


Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Taster Alias Pind
Taster1 Alias Pinb


  Ddrd = &B00000010                                         ' Output auf TXD (PD1) pin3

  Portd = &B11111101                                        ' Pull-Up für Taster
  Portb = &B11111111



  Dim Note As Byte
  Dim Velocity As Byte
  Dim Befehl As Byte
  Dim Wert As Word
  Dim Noteon As Byte
  Dim Noteoff As Byte
  Dim Controlchange As Byte
  Dim Keydown(8)as Byte                                       ' Tasten-Merker
  Dim Keydown1(8)as Byte
  Dim Fader(8) As Byte
  Dim Count As Byte                                         ' ADC Werte (Fader)


  Noteon = &H90                                             'channel 1
  Noteoff = &H80
  Controlchange = &HB0                                      'CC1


  Declare Sub Sendmidi(byval Befehl As Byte , Wert As Word)




  Do
    For Count = 0 To 7 Step 1


  'Tasterreihe Port D

    If Taster.count = 0 Then
      If Keydown(count + 1) = 1 Then

         Befehl = Noteon
         Velocity = &H7E                                    '0-7F
         Wert = Count + 1                                   'Note 1-8
         Shift Wert , Left , 8                              'Schieben  (Byte zu Word)
         Wert = Wert + Velocity

         If Count = 1 Then                                  'PD1 überspringen (UART)
         Else
            Call Sendmidi(befehl , Wert)
         End If

        Keydown(count + 1) = 0                              'Tasten merker

      End If
    Else
      If Keydown(count + 1) = 0 Then

         Befehl = Noteoff
         Velocity = &H00                                    '0-7F
         Wert = Count + 1                                   'Note 1-8
         Shift Wert , Left , 8                              'Schieben  (Byte zu Word)
         Wert = Wert + Velocity

         If Count = 1 Then                                  'PD1 überspringen (UART)
         Else
            Call Sendmidi(befehl , Wert)
         End If

        Keydown(count + 1) = 1                               'Tasten merker

      End If
    End If


    'Tasterreihe Port B

    If Taster1.count = 0 Then
      If Keydown1(count + 1) = 1 Then
         Befehl = Noteon
         Velocity = &H7E
         Wert = Count + 9                                   'Note 9-16
         Shift Wert , Left , 8
         Wert = Wert + Velocity
        Call Sendmidi(befehl , Wert)
        Keydown1(count + 1) = 0
      End If
    Else
      If Keydown1(count + 1) = 0 Then
          Befehl = Noteoff
         Velocity = &H00
         Wert = Count + 9
         Shift Wert , Left , 8
         Wert = Wert + Velocity
        Call Sendmidi(befehl , Wert)
        Keydown1(count + 1) = 1
      End If
    End If


    'Fader Port C

    If Fader(count + 1) <> Getadc(count) Then
         Befehl = Controlchange
         Velocity = Getadc(count)
         Shift Velocity , Right , 3
         Wert = Count + 8
         Shift Wert , Left , 8
         Wert = Wert + Velocity
         Call Sendmidi(befehl , Wert)
    End If

    Fader(count + 1) = Getadc(count)

    Next Count


  Loop
  End

Sub Sendmidi(byval Befehl As Byte , Wert As Word)

  Print Hex(befehl);
  Print Hex(wert);


  Waitms 20

End Sub

Nach dem ich es auf den Atmega geflasht habe bekomme ich keine Daten 
mehr aus dem uC auch nicht als ich das Beispiel wieder drauf geflasht 
hatte.

Natürlich habe ich auch die Fuses gebrannt.

Gut dachte ich da ist wohl was beim brennen was schief gelaufen, habe 
einen neuen Atmega genommen und wieder das Beispiel dauf geflasht dieses 
mal mit 8Mhz und die entsprechenden Fuses.

Und es lief wieder alles. :-)

Nun habe wieder mein Programm drauf geflasht und habe wieder das gleiche 
Problem ! :-(

Vieleicht kann mir einer von euch sagen was ich falsch mache.

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Heiko J. schrieb:
> Nun habe wieder mein Programm drauf geflasht und habe wieder das gleiche
> Problem ! :-(
Und was passiert, wenn du auf die "defekten" uCs wieder das lauffähige 
Beispiel draufmachst?

[Heiko J. (hyco-j)]

Nix ... es kommt kein signal aus dem UART !

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Heiko J. schrieb:
> Nix ... es kommt kein signal aus dem UART !
Wie stellst du das fest?

[Heiko J. (hyco-j)]

Na am Oszi ... bekomme nur +5 Volt raus !... Ich gehe davon aus das 
etwas im Programm nicht stimmt ob wohl es komisch ist dass, ein Programm 
das UARD zerstören kann.
Muss auch das zu sagen das es mein erstes AVR Projekt ist.

In der Simulation passt alles !

[Glaskugel (Gast)]

Heiko J. schrieb:
> Natürlich habe ich auch die Fuses gebrannt.

Dann ist dabei vielleicht etwas falsch gelaufen?

[Heiko J. (hyco-j)]

Gebrannt habe ich die Fuses auf :

Low Fuse (0xCE)
1 1 0 0 1 1 1 0
High Fuse (0x99)
1 0 0 1 1 0 0 1
Lockbits (0xFF)
1 1 1 1 1 1 1 1

Bei beiden !

Auslesen klappt auch.

Das Brennprogramm zeigt auch keinen Fehler an ! Ich nutze das 
MyAVRworkpad.

[Werner B. (werner-b)]

Da würde ich aber am Pegelwandler (zB MAX232) einen Fehler suchen.

[Heiko J. (hyco-j)]

Es ist kein Pegelwandler vorgesehen.

UART (Atmega TX)-----[240R]---[220R]----[6n167]----[240R]---- +5V
                                      |_[Diode]_|




Nun habe ich nach löschen des uC wieder Daten, allerdings werden nur die 
ersten 3 Bytes ausgegeben.

auch wenn ich das Programm verkleiner:


$regfile = "m8def.dat"                                      ' ATMEGA8
$crystal = 8000000                                          ' 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
      Print Chr(&B10010000);
      Print Chr(69);
      Print Chr(100);
^^bis hier hin wird alles gesendet, die Pause macht er aber nicht !
      Waitms 200

      Print Chr(&B10000000);
      Print Chr(69);
      Print Chr(0);

  Loop
End