ATNEL tech-forum

Re: Error 31 w programie

2013-04-04T17:04:36+01:00

ok działa , napisałem coś takiego [syntax=basic4gl]Scan:
If Pinb.6 = 0 Then : Waitms 30
Locate 1 , 7 : Lcd "Scan" :
For Freq = Freq To Bandup Step Krok :
If Krok = 1 Then Waitms 50 '
If Krok = 10 Then Waitms 100 '
If Krok = 100 Then Waitms 150 '
If Krok = 1000 Then Waitms 200 '
Gosub Freq_update :
If Pinb.6 = 0 Then : Waitms 30
Scanstop = Freq :
If Freq = Scanstop Then
Exit For :
End If : End If : End If :
Next Freq :

Locate 1 , 7 : Lcd " "
Return[/syntax] teraz potrzebuje zatrzymać funkcję scan inną zmienną a dokładnie chce to zrobić za pomocą pomiaru napięcia podawanego na przetwornik AD w procesorze jeżeli przekroczy jakiś próg np. 3 V chcę zatrzymać funkcję scan

Statystyki: Napisane przez slawek3000 — 4 kwi 2013, o 17:04

Re: Error 31 w programie

2013-04-02T18:37:22+01:00

Step to liczba albo zmienna i tam nie możesz wrzucić warunku. Na przykład tak możesz to zrobić. Ponieważ pętlę for rozpoczyna słówko kluczowe For a kończy Next to właściwie w każdym z tych programów ten For nic ciekawego nie robi. Dodałem wcięcia dla łatwiejszej analizy.
[syntax=basic4gl]Scan:
If Pinb.6 = 0 Then
Locate 1 , 7 : Lcd "Scan"
For Freq = 700000 To 710000 Step Krok
If Krok = 10 Then Waitms 125
If Krok = 100 Then Waitms 1250
If Krok = 1000 Then Waitms 12500
Next Freq
Gosub Freq_update
End If
Return[/syntax]

Statystyki: Napisane przez Krauser — 2 kwi 2013, o 18:37

Error 31 w programie

2013-03-30T10:21:49+01:00

Witam,

nie umie sobie poradzić z składnią w Bascomie a mianowicie tutaj pracuje poprawnie i nie ma błędu
[syntax=basic4gl]
Scan:
If Pinb.6 = 0 Then
Locate 1 , 7 : Lcd "Scan"
For Freq = 700000 To 710000 Step Krok
Waitms 125 :
Next Freq :
Gosub Freq_update
End If
Return
[/syntax]
jeżeli będę chciał dodać warunek wyboru Krok 10,100,1000 wyrzuca mi błąd 31

[syntax=basic4gl]

Scan:
If Pinb.6 = 0 Then
Locate 1 , 7 : Lcd "Scan"
For Freq = 700000 To 710000 Step : If Krok = 10 Then
Waitms 125 :
Next Freq :'Tutaj wyrzuca Error 31
Gosub Freq_update
End If : End If
Return
[/syntax]

nie wiem jak ma napisać te warunki

KODY UMIESZCZAMY w znacznikach SYNTAX tym razem poprawiłem --- >>> SunRiver

Statystyki: Napisane przez slawek3000 — 30 mar 2013, o 10:21