BASCOM INT0 / 1 beide drücken Variable

Gast #1466598
Hab momeentan:
$regfile = "m8def.dat"                                      'ATmega8
$crystal = 4000000
 Config Int0 = Rising
 Config Int1 = Rising
 Enable Interrupts
 Enable Int0
 Enable Int1
 On Int0 Isr_von_int0
 On Int1 Isr_von_int1
                                              '4 MHz
Config Portc = Output
Config Portd.4 = Output
config portd.2 = Input
Config Portd.3 = Input
Portd.2 = 1
Portd.3 = 1

Dim An As Bit
Dim Vcc As Bit
Dim A As Bit
Do

If A = 0 Then
 Gosub Sub1
Else
Gosub Sub2
End If
Loop



 Isr_von_int0:
 Set A
 Return

  Isr_von_int1:
  Reset A
 Return

Sub1:

Portd.4 = 0
Portc.4 = 1
Portc.2 = 1
Portc.1 = 1
Wait 2
Portd.4 = 1
Portc.4 = 0
Portc.2 = 0
Portc.1 = 0
Wait 2

Return
Sub2:

Portd.4 = 0
Portc.0 = 1
Portc.3 = 1
Portc.5 = 1
Wait 2
Portd.4 = 1
Portc.5 = 0
Portc.3 = 0
Portc.0 = 0
Wait 2

Return


Nun die Frage:

Wie schreib ich es am besten das, wenn beide Taster gedrückt sind, er 
mir eine andere SUB aufruft?

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 17 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.