andreasrohe
26.11.2009, 21:44
Hallo, wer kann mir bei folgendem Problem helfen?
Programm aus BASCOM
Problem beim Rücksprung aus einer Sub
Klassischer Programmaufbau
$regfile '...für ATMEGA 8
'...Initialisierung diverser Merker, Vars ect.
'...
'unter anderem wird hier ein Motor ein eine Grundposition
'gefahren
while "motor nicht in grundposition"
motor_fahren = on
wend
motor_fahren = off
'Hauptprogrammschleife
-------------------------------------------------------------------
do
debounce taster, 0, sub1
loop
end
sub1
i2cstart 'start command für i2c
i2cwrite &h04 'ansteuerung
i2cwrite &h00 'ansteuerung
i2cwrite &h00 'ansteuerung
i2cstop 'stop für i2c bus
waitms 100 'wartezeit min 32 für beendigung der i2c-kommunikation
call sub2
end sub 1
sub2
'irgendwelche befehle
call sub3
end sub2
sub3
...z.b. i2c um eine gegenoeration vom sub1 durchzuführen
end sub3
----------------------------------------------------------------
Alle einzelnen Subs funktionieren, nur in der Kombination habe ich das Problem, dass der MS nicht zurückspringt, es scheint fasst so als würde er von ganz von vorne anfangen.
Ich könnte fluchen da ich schon Tage mit diesem Problem verbracht habe.
Ich möchte eigentlich vermeiden alles in eine Routine zu packen, da es ja eigentlich für solche Zwecke Subs schreibt.
Benötige also dringend Hilfe.
VD
Programm aus BASCOM
Problem beim Rücksprung aus einer Sub
Klassischer Programmaufbau
$regfile '...für ATMEGA 8
'...Initialisierung diverser Merker, Vars ect.
'...
'unter anderem wird hier ein Motor ein eine Grundposition
'gefahren
while "motor nicht in grundposition"
motor_fahren = on
wend
motor_fahren = off
'Hauptprogrammschleife
-------------------------------------------------------------------
do
debounce taster, 0, sub1
loop
end
sub1
i2cstart 'start command für i2c
i2cwrite &h04 'ansteuerung
i2cwrite &h00 'ansteuerung
i2cwrite &h00 'ansteuerung
i2cstop 'stop für i2c bus
waitms 100 'wartezeit min 32 für beendigung der i2c-kommunikation
call sub2
end sub 1
sub2
'irgendwelche befehle
call sub3
end sub2
sub3
...z.b. i2c um eine gegenoeration vom sub1 durchzuführen
end sub3
----------------------------------------------------------------
Alle einzelnen Subs funktionieren, nur in der Kombination habe ich das Problem, dass der MS nicht zurückspringt, es scheint fasst so als würde er von ganz von vorne anfangen.
Ich könnte fluchen da ich schon Tage mit diesem Problem verbracht habe.
Ich möchte eigentlich vermeiden alles in eine Routine zu packen, da es ja eigentlich für solche Zwecke Subs schreibt.
Benötige also dringend Hilfe.
VD