-         

Ergebnis 1 bis 2 von 2

Thema: Was mache ich Falsch Hilfe!!!!!!!

  1. #1

    Was mache ich Falsch Hilfe!!!!!!!

    Anzeige

    Habe einen Mega16 ,dort ist eine Tastaturmatrix an PB0 bis PB7
    angeschlossen und möchte über int0 eine interrupt auslösen.
    Bei der Simulation springt das Programm immer zu anfang zurück.
    Ich glaube es liegt an der keyboard anweisung wie kann ich das aber umgehen?

    $regfile = "m16def.dat"
    $crystal = 16000000
    Config Kbd = Portb
    Enable Interrupts
    Disable Int2
    On Int0 Stoptaste
    Dim A As Byte
    Dim B As Byte
    Los:
    A = A + 1
    B = Getkbd()
    Print A
    Goto Los
    Stoptaste:
    Print "hallo"
    Return

  2. #2
    Erfahrener Benutzer Robotik Einstein Avatar von Vitis
    Registriert seit
    06.01.2005
    Ort
    Südpfalz
    Alter
    43
    Beiträge
    2.240
    $regfile = "m16def.dat"
    $crystal = 16000000

    Config Kbd = Portb , Debounce = 30
    Enable Interrupts
    Disable Int2
    Enable Int0
    On Int0 Stoptaste
    Dim A As Byte
    Dim B As Byte

    Do
    Incr A
    B = Getkbd()
    Print A ; " " ; B
    Loop
    End


    Stoptaste:
    Print "hallo"
    Return
    Vor den Erfolg haben die Götter den Schweiß gesetzt

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •