ATNEL tech-forum

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-11T17:40:01+01:00

gosub freq_update
[syntax=basic4gl]Freq_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
Return[/syntax]

Key_memory

[syntax=basic4gl]Key_memory:
Freq = Freq_memory(idx) : Modulacja = Modulacja_memory(idx) : Krok = Krok_memory(idx) :
Vfo = Vfo_memory(idx) :
: Gosub Freq_update : Gosub Wyswietlacz
Return[/syntax]

Statystyki: Napisane przez slawek3000 — 11 lis 2013, o 17:40

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-11T17:12:22+01:00

Teraz znowu nie rozumie czy informujesz nas gdzie jest problem czy chcesz żeby ci pomóc znaleźć problem ? Jeśli to drugie to powinieneś wrzucić kody tych procedur Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz

Statystyki: Napisane przez matekogon — 11 lis 2013, o 17:12

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-11T16:38:17+01:00

[syntax=basic4gl]do
Key_readmemory = Bank_memory + 1

If Key1 = 0 Then
Mkey = 1
Elseif Key2 = 0 Then
: Mkey = 2
Elseif Key3 = 0 Then
Mkey = 3
Elseif Key4 = 0 Then
Mkey = 4
Elseif Key5 = 0 Then
Mkey = 5
Elseif Key6 = 0 Then
Mkey = 6
Elseif Key7 = 0 Then
Mkey = 7
Elseif Key8 = 0 Then
Mkey = 8
Elseif Key9 = 0 Then
Mkey = 9
Elseif Key0 = 0 Then
: Mkey = 10
End If

If Mkey > Key_readmemory Then
Mkey = Mkey - 1
End If

If Mkey = 1 Then
Idx = 0
F_key = 1
Elseif Mkey = 2 Then
Idx = 1
F_key = 1
Elseif Mkey = 3 Then
Idx = 2
F_key = 1
Elseif Mkey = 4 Then
Idx = 3
F_key = 1

End If

If F_key = 1 Then
F_key = 0
Readmemory = 1 : Writememory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
End If
loop[/syntax]

co do zasady jest ok , problem jest po stronie Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz : , sprawdziłem za pomocą INCR i zmiennej przy sprawdzaniu przycisku incr zlicza zmienną tylko po kliknięciu a

Statystyki: Napisane przez slawek3000 — 11 lis 2013, o 16:38

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-11T15:32:13+01:00

Kolego może pokaż najpierw swój cały kod bo chyba źle mnie zrozumiałeś chciałem ci tylko pokazać jak można to by było zrobić. Ja ci nie podałem gotowego kodu

Statystyki: Napisane przez matekogon — 11 lis 2013, o 15:32

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-11T08:59:04+01:00

Hmm.. a jak mam odczytywać stan klawiszy ? napisałem powyższy kod i nie działa

Statystyki: Napisane przez slawek3000 — 11 lis 2013, o 08:59

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-10T12:34:56+01:00

[syntax=basic4gl]If Key1 = 0 Then
Idx = 0
flaga=1
Elseif Key2 = 0 Then
Idx = 1
flaga=1
Elseif Key3 = 0 Then
Idx = 2
flaga=1
Elseif Key4 = 0 Then
Idx = 3
flaga=1
Elseif Key5 = 0 Then
Idx = 4
flaga=1
Elseif Key6 = 0 Then
Idx = 5
flaga=1
Elseif Key7 = 0 Then
Idx = 6
flaga=1
Elseif Key8 = 0 Then
Idx = 7
Elseif Key9 = 0 Then
Idx = 8
flaga=1
Elseif Key0 = 0 Then
Idx = 9
flaga=1
End If

if flaga=1 then
flaga=0
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
end if[/syntax]

Lepiej tak wygląda kod. Jeśli chodzi chodzi o ilość klawiszy to nie lepiej tak

zapisujesz twoje zmienne pod klawisze i zliczasz pod iloma klawiszami jest zapisane
[syntax=basic4gl]if numer_klawisza>ilości zapisanych_klawiszy then
numer_klawisza=numer_klawisza-1
end if
select case numer_klawisza
case 1
Idx = 0
flaga=1
case 2
---------
case3
------
case4
-----------
case5
---------
case6
--------------
case7
case8
case9
case10
end select
if flaga=1 then
flaga=0
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
end if[/syntax]

Coś takiego powinno działać

Statystyki: Napisane przez matekogon — 10 lis 2013, o 12:34

Re: Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-10T10:22:26+01:00

Na razie nie bardzo wiem o co chodzi z Twoim kłopotem, ale mam pytanie. po co za każdym razem skaczesz do podprogramów Freq_update i Wyswietlacz ?
Wystarczy że zrobisz to raz po zakończeniu sprawdzania warunku.

Zapisane mniej niż 10 czego?

Statystyki: Napisane przez matrix — 10 lis 2013, o 10:22

Odczytywanie zmiennej za pomocą klawiatury 10 tnej

2013-11-10T09:30:02+01:00

Witam,

nie wiem jak mam napisać warunek lub jakiś inny sposób kod programu ... ma klawiaturę 10 gdzie każde naciśnięcie powoduje odczyt zmiennej i jej wyświetlenie , ale gdy mam zapisane mniej niż 10 a np.5 to naciskając klawisz od 6 do 10 na wyświetlaczu mam krzaki więc chce napisać warunek tak aby występowała zależność od ilości zapisanej zmiennej czyli od 0 do 9 a możliwością kliknięcia odczytu czyli jak mam zapisanych 6 zmiennych to mogę użyć tylko 6 klawiszy itd. Na razie wygląda to tak
[syntax=basic4gl]If Key1 = 0 Then
Idx = 0
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key2 = 0 Then
Idx = 1
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key3 = 0 Then
Idx = 2
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key4 = 0 Then
Idx = 3
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key5 = 0 Then
Idx = 4
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key6 = 0 Then
Idx = 5
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key7 = 0 Then
Idx = 6
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key8 = 0 Then
Idx = 7
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key9 = 0 Then
Idx = 8
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
Elseif Key0 = 0 Then
Idx = 9
Readmemory = 0
Gosub Key_memory : Gosub Freq_update : Gosub Wyswietlacz :
End If[/syntax]

Statystyki: Napisane przez slawek3000 — 10 lis 2013, o 09:30