ne, das kann man auch auf variablenänderung machen, heißt irgendwie "ON var GOSUB soundso" musst mal inner bascom help nachschauen
Druckbare Version
ne, das kann man auch auf variablenänderung machen, heißt irgendwie "ON var GOSUB soundso" musst mal inner bascom help nachschauen
habe die Bascom-Hilfe mal durchsucht.
Du meinst wohl so...
On I2cdaten Gosub Motor1_2 , Motoren_aus
Silvio
oha, scheint doch schwerer zu sein, als ich gedacht hab... das geht doch gar nicht mit on... das on muss auch immer da sein, wo man auch abfragen muss, also bringts da nen if vermutlich weiter ^^
ich muss noch weiter überlegen... *seufz*
Martin
Hallo Martin,
habe nun mal einen Hardware-Pull-up an Int2 gezogen.
-> wenn Taste gedrückt ist, unterbricht er die Schleife und springt zur Int2_isr, macht eine Print-Ausgabe im Terminal mit dem entsprechenden Eingangsdaten und springt zurück zum Do Loop Schleife von wo er dann in das entsprechende Unterprogramm springt und dieses Abarbeitet. Aber nur solange wie die Taste gedrückt bleibt. Nach dem Auslassen der Taste befindet er sich dann wieder in der Do Loop.
soweit so gut. Aber keine Selbsthaltuung :-(
###############################################
Man müßte die Eingangsdaten sichern und mit der Do Loop Vergleichen und beim Drücken der Austaste den gesicherten Wert resetten.
Geht doch mit Registern oder so?
Also Taste "Ein" gedrückt ->Register mit Wert der Taste belegen.(Behält das Register den Wert?)
Mit der Taste "Aus" den Register erneut mit dem Wert der Taste "Aus" belegen. Den Wert in der Do Loop entsprechend vergleichen.
Was meinst du geht so was ???
Wenn ja, kannst du mich dahin gehend noch ein wenig helfen? 8-[
### Silvio ###
lol, ja du hastes ja schon, warum machstes dann nich, fauler hund ^^
wart ma, ich schreibs um, aber hatte ich irgendwie nich bedacht, dass dabei ja das rauskommen soll ^^
schick nochmal deine jetzige sauce (den sourcecode)
Martin
Hallo Martin,
hier der letzte Stand:
Wie ich deine Reaktion deute, ist es mit dem Speichern in Registern doch möglich und könnte funktionieren.Code:'******************************************************************************
$regfile = "m32def.dat"
$baud = 9600
$crystal = 8000000 'Quarzfrequenz
Config Scl = Portc.0 'Ports fuer I2C-Bus
Config Sda = Portc.1
Config Pind.6 = Output 'Schrittmotoren Ein/Aus
Config Pinc.5 = Output 'Schrittmotor Links Richtung
Config Pinc.3 = Output 'Schrittmotor Links Step
Config Pinc.4 = Output 'Schrittmotor Rechts Richtung
Config Pinc.2 = Output 'Schrittmotor Rechts Step
Config Pinb.2 = Input 'Interrupt Int2
Config Portb.2 = 0
Config Portd.3 = 1
Config Int2 = Falling
Enable Int2
Enable Interrupts
On Int2 Int2_isr
Const Writeeingabeport_adr = &H7E 'I2C Adr PCF 2
Const Readeingabeport_adr = &H7F 'I2C Adr PCF 2
Dim I2cdaten As Byte 'Datenbyte aus PCF8574
Dim Taste1 As Word
Dim Taste2 As Word
Dim I As Word
I2cinit
I2cstart
I2cwbyte &H74 'Schreibbefehl an PCF3 schicken
'Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv)
I2cwbyte &B00000010 'Datenbyte an PCF3
I2cstop
Portd.6 = 0 'Schrittmotoren erst mal ausschalten
I2cdaten = 0
Taste1 = 247 'Taste 1 (Eingangsport-Port3)
Taste2 = 251 'Taste 2 (Eingangsport-Port4)
I = 0
'******************** Hauptprogramm ********************************************
Do
If I2cdaten = Taste1 Then Gosub Motor1_2
If I2cdaten = Taste2 Then Gosub Motoren_aus
Loop
'********************* Unterprogramme ******************************************
Motor1_2:
Portc.5 = 0 'Richtung Motor 1
Portc.4 = 1 'Richtung Motor 2
Portd.6 = 1 'Motoren einschalten
Portc.2 = 0 'Step rechts
Portc.3 = 0 'Step links
Waitms 1
Portc.2 = 1 'Step rechts
Portc.3 = 1 'Step links
Waitms 1
Portd.6 = 0 'Motoren ausschalten
Return
Read_data:
Return
Motoren_aus:
Portd.6 = 0 'Motoren ausschalten
Return
Int2_isr:
I2cstart
I2cwbyte Readeingabeport_adr 'Lesebefehl an PCF schicken
I2crbyte I2cdaten , Nack 'Datenbyte von PCF lesen
I2cstop
Waitms 50
Print I ; " Eingangsport Wert " ; I2cdaten ; " war beim Int2"
Incr I
Return
Denkansatz demach richtig, aber mit der Umsetzung haberts halt... :-k
Wenn es dir nicht so viel Arbeit macht...?vielleicht kannst du deine Schritte mit ein paar Worten dokumentieren -> will ja was von Dir lernen 8-[
### Silvio ###
so, das berühmte flag iss jetz doch drinne, also das läuft jetzt so ab: wenn die erste taste gedrückt wurde, springter in int2_isr, und überprüft dort, welche taste gedrückt wurde, wenns taste 1 war, dann sollers flag auf 1 setzen, ansonsten auf 0.Code:'******************************************************************************
$regfile = "m32def.dat"
$baud = 9600
$crystal = 8000000 'Quarzfrequenz
Config Scl = Portc.0 'Ports fuer I2C-Bus
Config Sda = Portc.1
Config Pind.6 = Output 'Schrittmotoren Ein/Aus
Config Pinc.5 = Output 'Schrittmotor Links Richtung
Config Pinc.3 = Output 'Schrittmotor Links Step
Config Pinc.4 = Output 'Schrittmotor Rechts Richtung
Config Pinc.2 = Output 'Schrittmotor Rechts Step
Config Pinb.2 = Input 'Interrupt Int2
Config Portb.2 = 0
Config Portd.3 = 1
Config Int2 = Falling
Enable Int2
Enable Interrupts
On Int2 Int2_isr
Const Writeeingabeport_adr = &H7E 'I2C Adr PCF 2
Const Readeingabeport_adr = &H7F 'I2C Adr PCF 2
Dim I2cdaten As Byte 'Datenbyte aus PCF8574
Dim Taste1 As Word
Dim Taste2 As Word
Dim I As Word
Dim Flag As Bit
I2cinit
I2cstart
I2cwbyte &H74 'Schreibbefehl an PCF3 schicken
'Led´s ein ,Motorendstufen ein, Port-Peripherie ein, RBN-Bus Sleep Modus aus (also Peripherie aktiv)
I2cwbyte &B00000010 'Datenbyte an PCF3
I2cstop
Portd.6 = 0 'Schrittmotoren erst mal ausschalten
I2cdaten = 0
Flag = 0
Taste1 = 247 'Taste 1 (Eingangsport-Port3)
Taste2 = 251 'Taste 2 (Eingangsport-Port4)
I = 0
'******************** Hauptprogramm ********************************************
Do
If Flag = 1 Then Gosub Motor1_2
If Flag = 0 Then Gosub Motoren_aus
Loop
'********************* Unterprogramme ******************************************
Motor1_2:
Portc.5 = 0 'Richtung Motor 1
Portc.4 = 1 'Richtung Motor 2
Portd.6 = 1 'Motoren einschalten
Portc.2 = 0 'Step rechts
Portc.3 = 0 'Step links
Waitms 1
Portc.2 = 1 'Step rechts
Portc.3 = 1 'Step links
Waitms 1
Portd.6 = 0 'Motoren ausschalten
Return
Read_data:
Return
Motoren_aus:
Portd.6 = 0 'Motoren ausschalten
Return
Int2_isr:
I2cstart
I2cwbyte Readeingabeport_adr 'Lesebefehl an PCF schicken
I2crbyte I2cdaten , Nack 'Datenbyte von PCF lesen
I2cstop
Waitms 50
Print I ; " Eingangsport Wert " ; I2cdaten ; " war beim Int2"
Incr I
If I2cdaten = Taste1 Then Flag = 1
If I2cdaten = Taste2 Then Flag = 0
Return
dann springter ja wie gewöhnlich wieder ins hauptprogramm, und sieht: aha, flag ist = 1, also lassen wa mal die motoren einmal drehen... das widerholt er bei dieser verion aber ja so lange bis das flag wieder auf 0 iss, und das geschieht erst, wenn die andere taste, also taste 2 gedrückt wurde.
so solltes wundabar funzen... wie immer :-P
Martin
Hallo Martin,
so tut er es. SUPER IDEE mit dem Flag.
\:D/ DANKE für die Hilfe. \:D/
### Silvio ###
Ps. werde sicher auf noch viele neue Probleme stoßen und Fragen haben :-b
unter umständen kannste mich dann ja mal bei dir in icq hinzufügen, das iss nen ganzes stückln leichter, und ausserdem vergesse ich nicht, irgendwas zu ändern ^^
wie man sieht helfe ich ja immer gern weiter... manchmal leider...
Martin