Keskustelu: Ohjelmointikysymykset: VB6: Jelppiä

Tossa on koodia

Dim luku1 As String
Dim luku2 As String
Dim luku3 As String

luku1 = Text1.Text
luku2 = Text2.Text
luku3 = (luku1 + luku2)

Text3.Text = luku3

Eli ongelma on tämä, esim. kun luku1=4 ja luku2=5, niin tulos on muka 45? onko koodissa jotain vikaa

Kun otat texti boxista jotain niin se on merkkijonona ja + -merkki yhdistää kaksi merkkijonoa ja jos haluat laskea ne yhteen pitää ne muuttaa luvuiksi, ja muuttujat pitää vissiin esitellä integeriksi:

luku1 = val(Text1.Text)
luku2 = val(Text2.Text)

nope, ei toiminu....

Tämä toimi ainakin minulla.

Private Sub Command1_Click()
Dim luku1 As Integer
Dim luku2 As Integer
Dim luku3 As Integer

luku1 = Text1.Text
luku2 = Text2.Text
luku3 = Val(luku1) + Val(luku2)

Text3.Text = luku3

End Sub

Toi summaus menee helpoiten näin:
Text3=Val(Text1)+Val(Text2)
Merkkijonot liitetään vain peräkkäin summauksella
Soseen mallissa ei tarvita noita Val-funktioita, koska luku1 ja luku2 ovat jo lukuja.