Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: problem z dodawaniem
danoneq




Typ: neutral
Postów: 2
Zarejestrowany: May 2003
problem z dodawaniem

Witam panowie.
Dopiero raczkuje w VB ale spójrzcie na to:
Dim X, Y
X = Text1.Text
Y = Text3.Text

  If Text2.Text = "+" Then Text5.Text = X + Y
  If Text2.Text = "-" Then Text5.Text = X - Y
  If Text2.Text = "*" Then Text5.Text = X * Y
  If Text2.Text = "/" Then Text5.Text = X / Y
Wynik ma mi sie pojawić w Text5.text tylko jak dodaje 1 +1 to wynik pojawia się 11!!!!!!
Niepotrzebnie program mi robi łańcuchy. Do łańcuchów wcześniej użyłem "&" ale + też mi tworzy łańcuchy czego akurat nie potrzebuję.
Mam nadzieję, że wy jako bardziej wtajmniczeni jakoś mi pomożecie

23-05-2003 11:32
Pokaż profil danoneq  Wyślij email do danoneq   Odwiedź stronę danoneq       3554507
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

musisz przekonwertować stringa na liczbę a konkretnie wystarczy zmienić 3 pierwsze linie

Dim X, Y as Long
X = val(Text1.Text )
Y = val(Text3.Text )


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

23-05-2003 20:37
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


musisz przekonwertować stringa na liczbę a konkretnie wystarczy zmienić 3 pierwsze linie

Dim X, Y as Long
X = val(Text1.Text )
Y = val(Text3.Text )


A ja bym dokonywał konwersji na konkretny, zadeklarowany typ danych, czyli:

X = CLng(Text1.Text )
Y = CLng(Text3.Text )




_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

24-05-2003 07:00
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
danoneq




Typ: neutral
Postów: 2
Zarejestrowany: May 2003
dzięki

Dziękuję panowie - wszystko gra

24-05-2003 11:15
Pokaż profil danoneq  Wyślij email do danoneq   Odwiedź stronę danoneq       3554507
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1