mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik Schieberegister mit Bascom


Autor: Gast (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo, ich habe folgendes Programm auf einem M8 laufen. Es soll 6 Zahlen 
von 1-6 auf einem Display ausgeben. Das Display besteht aus 6 mal 
7-Segm.Anzeigen, die über Schieberegister gesteuert werden. Mein Problem 
ist, das auf dem Display nichts erscheint. Wenn ich das Unterprogramm 
_schiftout in die schleife setze, so erscheinen wenigstens die Zahlen 
von 1 bis 5. Woran könnte das liegen ??????

$regfile "m8def.dat"
$crystal = 8000000

Config Portd = Output

Dim Z(6) As Word
Dim X As Byte , Wert As Single , Y As Byte , Wert_string As String * 6
Dim Zahl(10) As Byte
Dim H As String * 1 , C As Byte

Z(1) = &B11111111
Z(2) = &B11111111
Z(3) = &B11111111
Z(4) = &B11111111
Z(5) = &B11111111
Z(6) = &B11111111
Gosub _shiftout

Restore Zahlen
For X = 0 To 9
   Read Zahl(x)
Next



For X = 1 To 6
   Z(x) = Zahl(x)
Next

Gosub _shiftout

Do
Loop





_shiftout:
Portd.2 = 1
Shiftout Portd.0 , Portd.1 , Z(1) , 2 , 8 , 10
Shiftout Portd.0 , Portd.1 , Z(2) , 2 , 8 , 10
Shiftout Portd.0 , Portd.1 , Z(3) , 2 , 8 , 10
Shiftout Portd.0 , Portd.1 , Z(4) , 2 , 8 , 10
Shiftout Portd.0 , Portd.1 , Z(5) , 2 , 8 , 10
Shiftout Portd.0 , Portd.1 , Z(6) , 2 , 8 , 10
Portd.2 = 0
Return

Zahlen:
Data &B00000011 , &B10011111 , &B00100101 , &B00001101 , &B10011001
Data &B01001001 , &B01000001 , &B00011111 , &B00000001 , &B00001001

Autor: Otto (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo Gast,

ohne Schaltung kann man wenig dazu sagen.
Denkbar wäre, dass die Information in den
Schieberegistern mit "Portd.2 = 0" gelöscht
wird. Somit erhältst Du "in der Schleife"
eine zyklische Ansteuerung, die die Information
auf den Displays sichtbar macht.

Gruss Otto

Autor: Gast (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo, so war es auch. Habe die impulsfolge auf 0-1 geändert, jetzt geht 
es.

Danke !!!

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.