🚀 go-pugleaf

Dnia Sat, 20 Feb 2010 20:03:31 +0100, byniom napisał(a):

> Jestem początkującym użytkownikiem VB 2005 i mam następujący problem.
> na formatce mam umieszczone 3 szt textbox i jeden label napisałem kod w 
> którym są zliczane dane w prowadzone do textxboxów i wyświetlane w label . 
> Problem polega na tym że aby mi to zadizałło to kod programu umieściłem w 
> buttonie i wynik jest widoczny po na ciśnięciu tego buttonu a ja bym chciał 
> żeby wynik pokazywał sie cały czas tak więc po każdej zmianie wprowadzonych 
> danych do textboxu następowało by odrazu zliczenie. Jak umieściłem ten kod 
> bezpośrednio w formatce to wyskakiwał mi jakiś bład.

Jakis blad, to podstawa...

Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości 
news:1rq6wr7c4qgwq.g891rf5npyny.dlg@40tude.net...
> Dnia Sat, 20 Feb 2010 20:03:31 +0100, byniom napisał(a):
>
>> Jestem początkującym użytkownikiem VB 2005 i mam następujący problem.
>> na formatce mam umieszczone 3 szt textbox i jeden label napisałem kod w
>> którym są zliczane dane w prowadzone do textxboxów i wyświetlane w label 
>> .
>> Problem polega na tym że aby mi to zadizałło to kod programu umieściłem w
>> buttonie i wynik jest widoczny po na ciśnięciu tego buttonu a ja bym 
>> chciał
>> żeby wynik pokazywał sie cały czas tak więc po każdej zmianie 
>> wprowadzonych
>> danych do textboxu następowało by odrazu zliczenie. Jak umieściłem ten 
>> kod
>> bezpośrednio w formatce to wyskakiwał mi jakiś bład.
>
> Jakis blad, to podstawa...

to jest kod programu zawarty w formatce :

Public Class Form1

Dim wynik As Single

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load

wynik = TextBox1.Text * TextBox2.Text * TextBox3.Text

Label1.Text = wynik

End Sub

End Class

A first chance exception of type 'System.InvalidCastException' occurred in 
Microsoft.VisualBasic.dll     ----     błąd jaki wyskakuje

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim wynik As Single
wynik = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)
Label1.Text = Str(wynik)
End Sub

Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości 
news:1q3nl3z21wmv9.xhhygioil9rv.dlg@40tude.net...
> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles MyBase.Load
> Dim wynik As Single
> wynik = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)
> Label1.Text = Str(wynik)
> End Sub

teraz jest lepiej bo błąd nie wyskakuje ale za to nie pokazuje wyniku w 
label1 

Użytkownik "byniom" <bynio.m@interia.pl> napisał w wiadomości 
news:hlqm52$12$1@atlantis.news.neostrada.pl...
>
> Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości 
> news:1q3nl3z21wmv9.xhhygioil9rv.dlg@40tude.net...
>> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles MyBase.Load
>> Dim wynik As Single
>> wynik = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)
>> Label1.Text = Str(wynik)
>> End Sub
>
> teraz jest lepiej bo błąd nie wyskakuje ale za to nie pokazuje wyniku w 
> label1
>
Już sobie poradziłęm bo wstawiłęm to w timer tylko jest jeszcze jeden mały 
problem bo jak wprowadzam dane to nie widzi przecinku tylko musze wstawiać 
kropkę .Gdzie mogę to zmienić ? 

>
> Już sobie poradziłęm bo wstawiłęm to w timer tylko jest jeszcze jeden mały
> problem bo jak wprowadzam dane to nie widzi przecinku tylko musze wstawiać
> kropkę .Gdzie mogę to zmienić ?

W to czy kropka czy przecinek - zależne jest od ustawień systemowych.
I nie wrzucaj do timer'a, zrób to w textbox_onchange -  czyli
wywoływanej procedurce przy każdej zmianie zawartości, przy
lost_focus.
Dobrze korzystać z funkcji isNumeric(textbox.text)=True, to znaczy się
że masz tam liczby.
Form1_Load - wykonuje się przed wyświetleniem formatki - więc nic
dziwnego, że nie pojawiło się nic.

Użytkownik "joker77" <tomek@phuola.com> napisał w wiadomości 
news:20bec4ee-fc94-4d2c-9f28-81f03a33f0d7@15g2000yqi.googlegroups.com...
>
> Już sobie poradziłęm bo wstawiłęm to w timer tylko jest jeszcze jeden mały
> problem bo jak wprowadzam dane to nie widzi przecinku tylko musze wstawiać
> kropkę .Gdzie mogę to zmienić ?

W to czy kropka czy przecinek - zależne jest od ustawień systemowych.
I nie wrzucaj do timer'a, zrób to w textbox_onchange -  czyli
wywoływanej procedurce przy każdej zmianie zawartości, przy
lost_focus.
Dobrze korzystać z funkcji isNumeric(textbox.text)=True, to znaczy się
że masz tam liczby.
Form1_Load - wykonuje się przed wyświetleniem formatki - więc nic
dziwnego, że nie pojawiło się nic.

 A mam jeszcze małe pytanko jak zrobić żeby wynik był wyświetlany dwie cyfry 
po przecinku ? bo w tej chcwili jest 6 miejsc 

Na Boga, przerób sobie jakiś choćby podstawowy kurs, bo bez trego będziesz pisał 
potworki a nie programy. Piszę bez złośliwości i całkowicie poważnie.
S.

Użytkownik "Skylla" <skylla1@niespamuj.op.pl> napisał w wiadomości 
news:hlreov$6om$1@news.onet.pl...
> Na Boga, przerób sobie jakiś choćby podstawowy kurs, bo bez trego będziesz 
> pisał potworki a nie programy. Piszę bez złośliwości i całkowicie 
> poważnie.
> S.
>
 Rozumię cię i się nie obrażam. Nie zajmuję się programowaniem tylko dawno 
kiedyś trochę w to wchodizłem w tym języku i chciałem sobie drobną pomoc do 
obliczeń zrobić i dlatego tak mącę :D 

>  Rozumię cię i się nie obrażam. Nie zajmuję się programowaniem tylko dawno 
> kiedyś trochę w to wchodizłem w tym języku i chciałem sobie drobną pomoc do 
> obliczeń zrobić i dlatego tak mącę :D 

nie mącisz tylko leniwy jestes ... :P
tak ciężko pomyśleć i skorzystać z googli -> "vb formatowanie liczby"

robin

Dnia Sun, 21 Feb 2010 17:46:12 +0000, InDesign Scripts napisał(a):

>>  Rozumię cię i się nie obrażam. Nie zajmuję się programowaniem tylko dawno 
>> kiedyś trochę w to wchodizłem w tym języku i chciałem sobie drobną pomoc do 
>> obliczeń zrobić i dlatego tak mącę :D 
> 
> nie mącisz tylko leniwy jestes ... :P
> tak ciężko pomyśleć i skorzystać z googli -> "vb formatowanie liczby"
> 
> robin

Wlasnie... W czasach, jak nie bylo Internetu, gdzie ksiazki bylo trudno
znalezc czlowiek jakos sobie radzil.
A teraz sa poradniki tekstowe, pokazy video jak programowac i tysiace
przykladow dostepne w kilka sekund.

Do bynia: jak masz problem, to zadaj sobie pytanie 'jak zapytac googla o
moj problem';)

Może nie tylo leniwy co z wrążeniea że coś zaczeło mi działać zapomniałem 
jak zadać pytanie :D
teraz już wiem że chodzi o formatowanie liczb :D

Użytkownik "Jacek" <ala@ola.pl> napisał w wiadomości 
news:1s1aqcjou3nd8$.h8pa4ji1dp03.dlg@40tude.net...
> Dnia Sun, 21 Feb 2010 17:46:12 +0000, InDesign Scripts napisał(a):
>
>>>  Rozumię cię i się nie obrażam. Nie zajmuję się programowaniem tylko 
>>> dawno
>>> kiedyś trochę w to wchodizłem w tym języku i chciałem sobie drobną pomoc 
>>> do
>>> obliczeń zrobić i dlatego tak mącę :D
>>
>> nie mącisz tylko leniwy jestes ... :P
>> tak ciężko pomyśleć i skorzystać z googli -> "vb formatowanie liczby"
>>
>> robin
>
> Wlasnie... W czasach, jak nie bylo Internetu, gdzie ksiazki bylo trudno
> znalezc czlowiek jakos sobie radzil.
> A teraz sa poradniki tekstowe, pokazy video jak programowac i tysiace
> przykladow dostepne w kilka sekund.
>
> Do bynia: jak masz problem, to zadaj sobie pytanie 'jak zapytac googla o
> moj problem';)