Piszę program do obsługi silnika elektrycznego w bascom, lecz pomyślałem żeby to napisać w c. Problem polega na tym że chciałem to zrobić na instrukcji goto tak jak w bascomie lecz przeczytałem w bluebooku że jest to zła opcja. Wklejam poniżej program w bascomie i proszę o radę w jaki najlepszy sposób napisać to w c. Dodam że chcę jeszcze dodać obsługę ekondera na przerwaniu. Mój program jeszcze nie jest ukończony w 100% ale już teraz wolę przesiąść się na c.
Główny program:
[syntax=bash]$crystal = 8000000 'Deklaracja częstotliwości kwarcu
$regfile "m32def.dat"
''output
Config Portc.2 = Output ''gora
Config Portc.1 = Output ''dol
Config Portc.0 = Output
''Input
Config Porta.5 = Input ''dzwonek
Config Porta.6 = Input ''czujka
Config Portd.2 = Input ''ekonder
Config Portd.7 = Input ''gora czujka
Config Portd.6 = Input ''dol czujka
M1 Alias Portc.2 ''Silnik gora
M2 Alias Portc.1 ''silnik dol
G Alias Pind.7
D Alias Pind.6
C Alias Pina.6
S1 Alias Pina.5
Portd.7 = 1
Portd.6 = 1
Porta.6 = 1
Porta.5 = 1
Dim A As Integer
Dim W As Integer
Gosub Poczatek
Do
Gosub Poczatek
Loop
Poczatek:
Do
A = 0
W = 0
If S1 = 0 Then
Gosub Jedz
Elseif S1 = 1 Then
Portc.0 = 1
End If
Loop
Jedz:
Do
If D = 0 Then
M1 = 1
A = 0
Waitms 300
Gosub Gora
End If
If G = 0 Then
M2 = 1
Waitms 300
Gosub Dol
End If
Loop
Gora:
Do
If G = 0 Then
M2 = 0
Gosub Poczatek
End If
If C = 0 Then
M2 = 0
Gosub Poczatek
End If
If S1 = 0 Then
M2 = 0
A = 1
Waitms 200
End If
''If S1 = 0 And A = 1 Then
''A = 0
''M2 = 0
''Waitms 80
''Gosub Dol2
''End If
Loop
Dol:
Do
If D = 0 Then
Waitms 80
M1 = 0
Gosub Poczatek
End If
If C = 0 Then
M1 = 0
Waitms 80
Gosub Poczatek
End If
If S1 = 0 Then
M1 = 0
A = 1
Waitms 150
End If
If S1 = 0 And A = 1 Then
A = 0
Waitms 80
M1 = 0
Gosub Gora
End If
Loop
Dol2:
Do
M1 = 1
Waitms 300
M1 = 0
Waitms 300
M1 = 1
Waitms 300
M1 = 0
Waitms 300
Gosub Poczatek
Loop[/syntax]
Obsługa przerwania:
[syntax=basic4gl]$crystal = 1000000 'Deklaracja częstotliwości kwarcu
$regfile "m32def.dat" 'deklaracja modelu procesora
''output
Config Portc.2 = Output
Config Portc.1 = Output
Config Portc.0 = Output
''Input
Config Porta.6 = Input
Config Porta.5 = Input
Config Portd.7 = Input
Config Portd.6 = Input
Config Portd.2 = Input
Portd.2 = 1
Dim A As Word
Config Timer0 = Timer , Prescale = 256
Config Int0 = Falling
On Int0 Przerwanie_int0
Enable Int0
Enable Interrupts
Enable Timer0
Load Timer0 = 250
Cls
Loop
Przerwanie_int0:
A = A + 1
Waitms 300
Return[/syntax]Statystyki: Napisane przez henryxxl — 6 mar 2014, o 22:24
]]>
". Tym samym sam sobie ograniczasz ilość kol. gotowych do niesienia pomocy.