ATNEL tech-forum

Re: Wyjście z pętli do Loop

2013-07-29T07:56:49+01:00

moze to bedzie rozwiazanie utworzyc zmienna i po nacisnieciu klawisza zwiekszyc zmienna tzn pomnozyc przez wage czyli 10 i dodac wartosc przycisnietego klawisza
[syntax=basic4gl]Wcisnietajedynka:
A = A * 10
A = A + 1
Print A
Return[/syntax]
dla zmiennej typu long mozna wprowadic 9 znakow (dla 9)

Statystyki: Napisane przez ejrene — 29 lip 2013, o 07:56

Re: Wyjście z pętli do Loop

2013-07-27T20:26:38+01:00

jeżeli napiszę coś takiego to działa Freq_key = "2100000"
Freq = Val(freq_key)

ale nie ma pojęcia jak złożyć tą wartość w " " klikając na poszczególne klawisze

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 20:26

Re: Wyjście z pętli do Loop

2013-07-27T19:52:49+01:00

Tu musisz sobie sam poradzić bo nie bawiłem się jeszcze z DDS i nawet nie wiem jak to ugryźć.

Statystyki: Napisane przez matrix — 27 lip 2013, o 19:52

Re: Wyjście z pętli do Loop

2013-07-27T18:18:35+01:00

no dobra ale jak przypiszę do tego zmienną i właściwie jakiego typu ?

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 18:18

Re: Wyjście z pętli do Loop

2013-07-27T18:15:30+01:00

Zrób to na select case.

Statystyki: Napisane przez matrix — 27 lip 2013, o 18:15

Re: Wyjście z pętli do Loop

2013-07-27T16:42:04+01:00

mam coś takiego[syntax=basic4gl]Waitms 500
Incr Licz_key

If Licz_key = 1 Then
Locate 3 , 5 : Lcd Lcd_key
Elseif Licz_key = 2 Then
Locate 3 , 6 : Lcd Lcd_key
Elseif Licz_key = 3 Then
Locate 3 , 8 : Lcd Lcd_key
Elseif Licz_key = 4 Then
Locate 3 , 9 : Lcd Lcd_key
Elseif Licz_key = 5 Then
Locate 3 , 10 : Lcd Lcd_key
Elseif Licz_key = 6 Then
Locate 3 , 12 : Lcd Lcd_key
Elseif Licz_key = 7 Then
Locate 3 , 13 : Lcd Lcd_key
End If : End If

Debounce Pind.3 , 0 , Key_0 , Sub
Debounce Pind.4 , 0 , Key_1 , Sub
Debounce Pind.5 , 0 , Key_2 , Sub
Debounce Pind.6 , 0 , Key_3 , Sub
Debounce Pind.7 , 0 , Key_4 , Sub
Debounce Pind.2 , 0 , Key_5 , Sub
Debounce Pind.0 , 0 , Key_6 , Sub
Debounce Pind.1 , 0 , Key_7 , Sub
Debounce Pinb.6 , 0 , Key_8 , Sub
Debounce Pinb.3 , 0 , Key_9 , Sub
Debounce Pinc.7 , 0 , Gene , Sub
If Pinc.2 = 0 Then
Licz_key = 0 '
Exit Do
End If :
Loop : : Cls : Gosub Freq_update : Gosub Wyswietlacz
Return

Key_0:
Lcd_key = 0
Return
Key_1:
Lcd_key = 1
Return
Key_2:
Lcd_key = 2
Return
Key_3:
Lcd_key = 3
Return
Key_4:
Lcd_key = 4
Return
Key_5:
Lcd_key = 5
Return
Key_6:
Lcd_key = 6
Return
Key_7:
Lcd_key = 7
Return
Key_8:
Lcd_key = 8
Return
Key_9:
Lcd_key = 9
Return
Gene:
Locate 4 , Licz_key : Lcd "."
Return[/syntax] powiedzmy,że działa samo wyświetlanie a teraz jak to przypisać do zmiennej freq ?

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 16:42

Re: Wyjście z pętli do Loop

2013-07-27T15:34:46+01:00

To znaczy że działa nie tak jak trzeba.

Statystyki: Napisane przez matrix — 27 lip 2013, o 15:34

Re: Wyjście z pętli do Loop

2013-07-27T16:28:52+01:00

Teoretycznie ze zliczanie kliknięć to działa , dodałem opóźnienie ale nie zawsze wyświetlane liczby odpowiadają liczbie naciśniętego klawisza, zwiększyłem Waitms 500 tak by nie zliczał dodatkowych kliknięć nie wiem jak to całkowicie wyeliminować

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 15:19

Re: Wyjście z pętli do Loop

2013-07-27T13:31:58+01:00

dds wszystko działa , tylko dodatki tworzę

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 13:31

Re: Wyjście z pętli do Loop

2013-07-27T13:21:08+01:00

No to nie wiem czy nie rzuciłeś się z motyką na słońce.
Jeśli Tobie problem sprawia wyjście z pętli to jak Ty chcesz zamienić zmienną na wartość napięcia dla warikapa?
Bo zgaduję że synteza oparta jest o strojenie napięciowe?

Statystyki: Napisane przez matrix — 27 lip 2013, o 13:21

Re: Wyjście z pętli do Loop

2013-07-27T13:10:07+01:00

robię syntezę do radia i chcę wpisywać ręcznie zmienną freq w postaci takiej 88.100.17

mam taki podprogram [syntax=basic4gl]req_update:
Locate 2 , 5
If Konfig_bit = 0 Then
Freqtolcd = Str(freq)
Else
Freqtolcd = Str(posrednia)
End If
If Len(freqtolcd) <= 6 Then
Freqtolcd = " " + Freqtolcd
End If

Lcd Left(freqtolcd , 2)
Lcd "."
Lcd Mid(freqtolcd , 3 , 3)
Lcd "."
Lcd Right(freqtolcd , 2)
Call Wyslij_f_do_dds 'po kazdej zmianie czestotliwosci wysylamy komende do DDS'a
Return[/syntax] i jest to tutaj tak rozwiązane

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 13:10

Re: Wyjście z pętli do Loop

2013-07-27T12:53:17+01:00

To powiedz co robisz a może będzie łatwiej. Jeżeli wprowadzasz kolejno ileś cyfr to musisz wprowadzić zmienną która będzie zwiększana co naciśnięcie przycisku. Wtedy dajesz tak:

[syntax=basic4gl]zmienna_po_nacisnieciu = 0
do
if przycisk1 = 0 or przycisk2 = 0 or przyciskX = 0 then 'dajesz tyle razy or ile masz przycisków do obsługi
locate 1,zmienna_po_nacisnieciu 'znajdujesz kolejne miejsce na lcd
lcd wpisana_cyfra 'wyświetlasz naciśniętą cyfrę
incr zmienna_po_nacisnieciu 'zwiększasz wartość zmiennej bo nacisnąłeś jakiś przycisk
end if
if pinc.6 = 0 then 'jeśli naciśniesz przycisk na pinc.6 to wychodzisz z pętli
bitwait pinc.6, set
exit do
end if
loop[/syntax]

Statystyki: Napisane przez matrix — 27 lip 2013, o 12:53

Re: Wyjście z pętli do Loop

2013-07-27T12:27:44+01:00

nie trafiony

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 12:27

Re: Wyjście z pętli do Loop

2013-07-27T12:14:04+01:00

Zgaduję że robisz zamek szyfrowy?

Statystyki: Napisane przez matrix — 27 lip 2013, o 12:14

Re: Wyjście z pętli do Loop

2013-07-27T11:55:56+01:00

mam jeszcze inne pytanie jak można wyświetlić ciąg cyfr w jednej linii coś takiego 5546897 zmienna jest typu long , którą wprowadzam z klawiatury dziesiętnej , jak zastosuje normalnie locate , lcd to wyświetlają mi się normalnie jedna po drugiej w tym samym miejscu ?

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 11:55

Re: Wyjście z pętli do Loop

2013-07-27T11:44:36+01:00

[syntax=basic4gl]If Pinc.6 = 0 then 'naciskasz pinc.6 wchodzisz do pętli
Do
If Pinc.6 = 0 then 'jeśli nacisniesz ponownie pinc.6
Bitwait pinc.6 , set 'czekasz chwilę na puszczenie przycisku
exit do 'wychodzisz z pętli
end if 'koniec warunku
loop 'koniec pętli
End if[/syntax]

Statystyki: Napisane przez matrix — 27 lip 2013, o 11:44

Re: Wyjście z pętli do Loop

2013-07-27T11:28:50+01:00

nie źle to opisałem chcę uzyskać taki efekt by klikając raz załączyć pętlę a klikając drugi raz z niej wyjść i tyle

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 11:28

Re: Wyjście z pętli do Loop

2013-07-27T11:09:40+01:00

Ale tego przycisku trzymać nie musisz. Najzwyczajniej program tylko poczeka aż go puścisz.

Statystyki: Napisane przez matrix — 27 lip 2013, o 11:09

Re: Wyjście z pętli do Loop

2013-07-27T10:45:22+01:00

o a mnie jest potrzebne tak aby nie trzymać przycisku wiesz załączam nim jedną pętle wprowadzam dane do zmiennej innymi przyciskami i zatwierdzam jednocześnie wychodząc tym sam klawiszem pinc.6

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 10:45

Re: Wyjście z pętli do Loop

2013-07-27T10:27:13+01:00

W ogóle to po co skaczesz do podprogramu by wyjść z pętli?

Napisz tak:
[syntax=basic4gl]If Pinc.6 = 0 then
Bitwait pinc.6 , set
exit do
End if[/syntax]

Tylko powyższa procedura zatrzyma Ci działanie programu na czas trzymania przycisku na pinc.6. Pamiętaj też o deklaracji tegoż pinu jako wejście.

Statystyki: Napisane przez matrix — 27 lip 2013, o 10:27

Re: Wyjście z pętli do Loop

2013-07-27T10:12:39+01:00

procek atmela 644p

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 10:12

Re: Wyjście z pętli do Loop

2013-07-27T09:35:19+01:00

Jaki procesor i co znaczy If pinc.6 ?

Statystyki: Napisane przez matrix — 27 lip 2013, o 09:35

Wyjście z pętli do Loop

2013-07-27T10:11:41+01:00

Mam mały problem z kawałkiem kodu a raczej nie chcę używać więcej klawiszy bo wyjdzie mi klawiatura do PC

[syntax=basic4gl]Do
Debounce Pinc.6 , 0 , F_inp , Sub
loop

F_inp: podprogram

do
if pinc.6=0 then 'jeżeli tu zmienię na inny pin to działa jak trzeba
Exit Do
End If
Loop :' tutaj chcę wyjść z pętli za pomocą tego samego klawisza jest to możliwe ?[/syntax] a w podanej wyżej konfiguracji nawet nie odpalę tego podprogramu

Statystyki: Napisane przez slawek3000 — 27 lip 2013, o 09:15