Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 17:39x



Odpowiedz w temacie  [ Posty: 9 ] 
Problem z enterem 
Autor Wiadomość
Awatar użytkownika

Rejestracja: 2014-03-26, 09:55
Posty: 79
Pomógł: 2
Post 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
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Problem z enterem
Nie rozumiem.
Masz jakiś przykładowy kawałek kodu?

Piszesz o okienku w AMBasic za pomocą polecenia FORM?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2014-04-15, 12:24
Wyświetl profil
Awatar użytkownika

Rejestracja: 2014-03-26, 09:55
Posty: 79
Pomógł: 2
Post 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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Problem z enterem
A masz coś co da się uruchomić?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2014-04-15, 13:37
Wyświetl profil
Awatar użytkownika

Rejestracja: 2014-03-26, 09:55
Posty: 79
Pomógł: 2
Post 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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Problem z enterem
Chciałbym pomóc ale gubię się w tym kodzie.

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2014-04-15, 14:49
Wyświetl profil
Awatar użytkownika

Rejestracja: 2014-03-26, 09:55
Posty: 79
Pomógł: 2
Post 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
Wyświetl profil
Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Problem z enterem
Ta wiadomość była pomocna.(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
Kod:
string zmienna


i jako parametr funkcji
Kod:
int sub wyswietl(string zmienna)


wiesz kiedy co jest używane?

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2014-04-15, 15:40
Wyświetl profil
Awatar użytkownika

Rejestracja: 2014-03-26, 09:55
Posty: 79
Pomógł: 2
Post 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
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 9 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. problem

w Programy Handlowe

smoq

5

3994

2010-07-29, 13:35

krzysiek Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Problem z FK

w Techniczne

djbred

9

6838

2009-11-04, 12:31

Terrorist Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Problem z ul.

w Programy Handlowe

tizen

0

3001

2011-01-10, 09:10

tizen Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Problem z Z-3

w Programy Kadrowo Płacowe

tkski

0

2656

2011-05-04, 11:56

tkski Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 16 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

Szukaj:
Przejdź do:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant