Witam odrazy mówię ze dopiero zaczynam programować i juz mam problem. Musze (chce) napisać program który będzie narzazie sterował pinami z 4 przycisków a ma to wyglądać ta
Pierwszy przycisk (porty b pin 4 akcja za pomocą dawania stanu niskiego 0 ) służył będzie do wybierania pinu jakim chcemy sterować (piny b0 i b1)
Przycisk 2; 3 i czwarty (pin b7 b6 i b5) będą służyły do wywoływania rożnych stanów na porcie wybranym wcześniej czyli będzie ustawiał stany wysokie i niskie zmieniające się z rożna częstotliwością zależnie od tego jak jaki przycisk został "zaprogramowany"
no i tu mam problem bo jakoś nie mogę tego zrobi narazie mam to
a i nie proszę o napisanie tego lecz o (no napisać tez możecie) ale tarze wyjasnienie jak to zrobić
Test napisałem i działa jak należy
i to co próbowałem napisać
Mam nadzieje ze po tych moich "programach" zakapujecie o co chodzi.to
to jest tak specjalnie żeby na razie skompilować dla testów (dodane jest (') przed wiersz jak by ktoś nie zauważył ) >>
'Declare Sub Serwo2
'If Pinb.4 = 1 Then Serwo2
Proszę poprawić treść wiadomości - regulamin p.15
[zumek]
Pierwszy przycisk (porty b pin 4 akcja za pomocą dawania stanu niskiego 0 ) służył będzie do wybierania pinu jakim chcemy sterować (piny b0 i b1)
Przycisk 2; 3 i czwarty (pin b7 b6 i b5) będą służyły do wywoływania rożnych stanów na porcie wybranym wcześniej czyli będzie ustawiał stany wysokie i niskie zmieniające się z rożna częstotliwością zależnie od tego jak jaki przycisk został "zaprogramowany"
no i tu mam problem bo jakoś nie mogę tego zrobi narazie mam to
a i nie proszę o napisanie tego lecz o (no napisać tez możecie) ale tarze wyjasnienie jak to zrobić
Test napisałem i działa jak należy
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = &B00001111
Portb = &B11110000
Declare Sub X1
Declare Sub X2
Declare Sub X3
Do
Portb = &B11110000
If Pinb.7 = 0 Then X1
If Pinb.6 = 0 Then X2
If Pinb.5 = 0 Then X3
Loop
End
Sub X1
Portb = &B00000011
Waitms 0.40
Portb = &B00000000
Waitms 20
End Sub
Sub X2
Portb = &B00000011
Waitms 1
Portb = &B00000000
Waitms 20
End Sub
Sub X3
Portb = &B00000011
Waitms 2
Portb = &B00000000
Waitms 20
End Sub i to co próbowałem napisać
$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = &B00001111
Portb = &B11110000
Declare Sub Z1
'Declare Sub Z2
Declare Sub X1
Declare Sub X2
Declare Sub X3
Do
Portb = &B11110000
If Pinb.4 = 0 Then Z1
'If Pinb.4 = 1 Then Z2
Loop
Do
Sub Z1
Portb = &B11110000
If Pinb.7 = 0 Then X1
If Pinb.6 = 0 Then X2
If Pinb.5 = 0 Then X3
Loop Until Pinb.5 = 0
End Sub
Sub X1
Portb = &B00000010
Waitms 0.40
Portb = &B00000000
Waitms 20
Portb = &B11110000
End Sub
Sub X2
Portb = &B00000010
Waitms 1
Portb = &B00000000
Waitms 20
End Sub
Sub X3
Portb = &B00000010
Waitms 2
Portb = &B00000000
Waitms 20
End Sub
Mam nadzieje ze po tych moich "programach" zakapujecie o co chodzi.to
to jest tak specjalnie żeby na razie skompilować dla testów (dodane jest (') przed wiersz jak by ktoś nie zauważył ) >>
'Declare Sub Serwo2
'If Pinb.4 = 1 Then Serwo2
Proszę poprawić treść wiadomości - regulamin p.15
[zumek]