Gast
#60242
Hallo, ich habe mit nachfolgendem "Programm" ein Problem, deshalb wende ich mich an das Forum und hoffe auf ein paar Tips. Grundgedanke ist: Mit entprelltem Taster (Pind.0) soll bis 3 gezählt und in die entsprechende Sub-Routine verzweigt werden. Ist der A-Wert größer als 3 geschieht ein Neuanfang, da ich A=0 setze. (System Ringzähler). Bis hierher funktioniert das Programm wunschgemäß! In den Sub's soll allerdings jeweils eine weitere Aktivität ausgelöst werden. Ich habe es als Beispiel unter den Sub's als Kommentar eingetragen. Das funktioniert nicht! Mit Tastendruck D.0 Sub aufrufen und mit Taster D.1 soll die Unterroutine Strt ausgelöst werden. und mit D.1 "bestätigen". Mit anderen Worten, nur wenn die entsprechende Sub aufgerufen UND zur Bestätigung Taster D.1 gedrückt wird wird aktiviert. Danke und Gruß Holger. $regfile = "2313def.dat" $crystal = 4000000 Dim A As Byte Dim B As Byte Config Portb = Output Config Pind.0 = Input Config Pind.1 = Input Config Pind.5 = Output Pind.0 = 1 Pind.1 = 1 Afg: A = 0 Do Debounce Pind.0 , 0 , Cnt , Sub Debounce Pind.1 , 0 , Strt , Sub Loop Cnt: A = A + 1 If A = 1 Then Gosub Sub1 If A = 2 Then Gosub Sub2 If A = 3 Then Gosub Sub3 If A = 3 Then Goto Afg Return Sub1: Portb = &B00000001 'IF Pind.1 = 0 then gosub Strt ' Ist Taste D.1 gedrückt, dann springe zu "Strt" Return Sub2: Portb = &B00000010 'IF Pind.1 = 0 then gosub Strt1 ' Ist Taste D.1 gedrückt, dann springe zu "Strt1" Return Sub3: Portb = &B00000100 'IF Pind.1 = 0 then gosub Strt2 ' Ist Taste D.1 gedrückt, dann springe zu "Strt2" Return Strt: Sound Portd.5 , 500 , 400 Return