 |
|
Strona 1 z 1
|
[ Posty: 9 ] |
|
| Autor |
Wiadomość |
|
Pedro
Rejestracja: 2014-03-26, 09:55 Posty: 79 Pomógł: 2
|
 Problem z enterem Czy da się ustawić żeby program ignorował wciśnięcie klawisza 'enter' albo żeby można było ustawić co on ma robić? Albo jak inaczej rozwiązać taką sytuację, że po wciśnięciu entera program zamiast wczytywać wartość zmiennej z okienka edit wczytuje nazwę buttona z wywołanego okna ?
|
| 2014-04-15, 12:18 |
|
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: Problem z enterem Nie rozumiem.
Masz jakiś przykładowy kawałek kodu?
Piszesz o okienku w AMBasic za pomocą polecenia FORM?
|
| 2014-04-15, 12:24 |
|
|
|
Pedro
Rejestracja: 2014-03-26, 09:55 Posty: 79 Pomógł: 2
|
Re: Problem z enterem Kod: int sub wyswietl(string ean)
int indeks = 1
int indeks1 = 1
Int Tab(5) = 50,200,100+0x2000,100+0x2000,100+0x2000
Int Tab1(5) = 50,200,100+0x2000,100+0x2000,100+0x2000
Form "", 625, 500
Text "", 20, 20, 200, 24
RecList "Lp|Nazwa|ilość|j.m|EAN", Tbl, Indeks, 20, 40, 580, 180, Tab
Text "Spakowane:", 20, 220, 200, 24
RecList "Lp|Nazwa|ilość|j.m|EAN", Tbl1, Indeks1, 20, 240, 580, 180, Tab1
Button "&Zakończ", 460, 430, 100, 24, wyjscie()
id2 = Edit "EAN", ean, 60, 430, 100, 24
Button "&Wykonaj", 320, 430, 100, 24, koniec1(ean)
ko1 = ExecForm OnCommand
endsub Po wciśnięciu klawisza enter wybiera pierwszego buttona od góry, ale zamiast ładować zmiennej "ean" wklepuje nazwę drugiego buttona z wywołanego okienka, który to jest zapisany jako "anuluj", a jeśli chce tę zmienną wywołać do sprawdzenia przykładowo w funkcji message pojawia się błąd "Brak definicji formatki" Jeszcze dodam że po wywołaniu buttona ręcznie wszystko działa jak należy.
|
| 2014-04-15, 13:30 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: Problem z enterem A masz coś co da się uruchomić?
|
| 2014-04-15, 13:37 |
|
|
|
Pedro
Rejestracja: 2014-03-26, 09:55 Posty: 79 Pomógł: 2
|
Re: Problem z enterem edit: Spróbuje wyciągnąć to co najważniejsze
Ostatnio zmieniony 2014-04-15, 14:58 przez Pedro, łącznie zmieniany 1 raz
|
| 2014-04-15, 14:07 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: Problem z enterem Chciałbym pomóc ale gubię się w tym kodzie.
|
| 2014-04-15, 14:49 |
|
|
|
Pedro
Rejestracja: 2014-03-26, 09:55 Posty: 79 Pomógł: 2
|
Re: Problem z enterem //a jakoś tak: Kod: int id2
string zmienna
Int Sub OnCommand(int id, int msg)
if id == id2 then Save
EndSub
int sub buttonwykonaj(string zmienna)
Form "zmienna z pola edit lub nowa", 300, 180
Edit "zmienna", zmienna, 60, 50, 100, 24
Button "OK", 44, 100, 100, 24, 3
Button "Anuluj 1", 164, 100, 100, 24, 4 // ten klawisz po wciśnięciu entera jest za pierwszym razem czytany zamiast zmiennej
ExecForm
buttonwykonaj = 1
endsub
form "buttony", 500,150
Button "&wczytaj", 280, 30, 100, 24, buttonwykonaj(zmienna) //działa wciśnięte kursorem lub po pierwszym wywołaniu
Button "&Zakończ", 280, 70, 100, 24,-1
id2 = Edit "zmienna do wczytania", zmienna, 160,30, 100, 24
ExecForm OnCommand
NoOutPut()
|
| 2014-04-15, 15:16 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 4000 Pomógł: 448
|
Re: Problem z enterem  (1) To może trochę naprawia sprawę Kod: int id2,ko1,ko2
string zmienna
Int Sub OnCommand(int id, int msg)
//if id == id2 then Save
EndSub
int sub buttonwykonaj(string zmienna)
zmienna = GetVal(id2)
Form "zmienna z pola edit lub nowa", 300, 180
Edit "zmienna", zmienna, 60, 50, 100, 24
Button "OK", 44, 100, 100, 24, 3
Button "Anuluj 1", 164, 100, 100, 24, 4 // ten klawisz po wciśnięciu entera jest za pierwszym razem czytany zamiast zmiennej
ko2 = ExecForm
buttonwykonaj = 1
endsub
int sub wyswietl(string zmienna)
form "buttony", 500,150
Button "&wczytaj", 280, 30, 100, 24, buttonwykonaj(zmienna) //działa wciśnięte kursorem lub po pierwszym wywołaniu
Button "&Zakończ", 280, 70, 100, 24,-1
id2 = Edit "zmienna do wczytania", zmienna, 160,30, 100, 24
ko1 = ExecForm OnCommand
endsub
while ko1!=-1
wyswietl(zmienna) //wykonanie programu
wend
NoOutPut() Ale i tak pisałbym ten kod od początku. zmienna - systępuje dwa razy pod tą samą nazwą globalnie i jako parametr funkcji Kod: int sub wyswietl(string zmienna) wiesz kiedy co jest używane?
|
| 2014-04-15, 15:40 |
|
|
|
Pedro
Rejestracja: 2014-03-26, 09:55 Posty: 79 Pomógł: 2
|
Re: Problem z enterem Jak zwykle jedna funkcja załatwia wszystko :p wystarczy tyle Kod: int id2
string zmienna
int sub buttonwykonaj()
zmienna = GetVal(id2) // :*
Form "zmienna z pola edit lub nowa", 300, 180
Edit "zmienna", zmienna, 60, 50, 100, 24
Button "OK", 44, 100, 100, 24, 3
Button "Anuluj 1", 164, 100, 100, 24, 4 // ten klawisz po wciśnięciu entera jest za pierwszym razem czytany zamiast zmiennej
ExecForm
buttonwykonaj = 1
endsub
form "buttony", 500,150
Button "&wczytaj", 280, 30, 100, 24, buttonwykonaj() //działa wciśnięte kursorem lub po pierwszym wywołaniu
Button "&Zakończ", 280, 70, 100, 24,-1
id2 = Edit "zmienna do wczytania", zmienna, 160,30, 100, 24
ExecForm
NoOutPut() Dzięki :)
|
| 2014-04-15, 15:59 |
|
|
|
|
Strona 1 z 1
|
[ Posty: 9 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 21 gości |
|
Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników
|
|
|
|
