No morjensta näin pikapikaa.
Nyt iski semmoinen asia mieleen (perusjuttuja tietysti), että jos jokukuka muistaisi äkkiväkkiseltään ulkoa, että miten sai 3 lukua laskettua yhteen LASKE napin avulla ja näyttämään tuloksen labelissa? Joku tässä nyt fibaa ja pahasti, mutten muista ulkoa.
Private Sub cmdlaske_Click()
lbltulos = summa
End Sub
Private Sub CommandButton1_Click()
'tämä tyhjentää luvut
luku1 = ""
luku2 = ""
luku3 = ""
End Sub
Private Sub lbltulos_Click()
lbltulos = summa
End Sub
Private Sub UserForm_Click()
'dimmattuina luvut ja summa
Dim luku1 As Integer
Dim luku2 As Integer
Dim luku3 As Integer
Dim summa As Integer
'toimiiko tämä summa?
summa = arvo1 arvo2 arvo3
luku1 = arvo1
luku2 = arvo2
luku3 = arvo3
End Sub
Nyt iski semmoinen asia mieleen (perusjuttuja tietysti), että jos jokukuka muistaisi äkkiväkkiseltään ulkoa, että miten sai 3 lukua laskettua yhteen LASKE napin avulla ja näyttämään tuloksen labelissa? Joku tässä nyt fibaa ja pahasti, mutten muista ulkoa.
Private Sub cmdlaske_Click()
lbltulos = summa
End Sub
Private Sub CommandButton1_Click()
'tämä tyhjentää luvut
luku1 = ""
luku2 = ""
luku3 = ""
End Sub
Private Sub lbltulos_Click()
lbltulos = summa
End Sub
Private Sub UserForm_Click()
'dimmattuina luvut ja summa
Dim luku1 As Integer
Dim luku2 As Integer
Dim luku3 As Integer
Dim summa As Integer
'toimiiko tämä summa?
summa = arvo1 arvo2 arvo3
luku1 = arvo1
luku2 = arvo2
luku3 = arvo3
End Sub
Vastaukset 4
Vanhimmat
Mistä luvut tulevat? koodissasi ei haeta lukuja mistään. (jos ymmärsin oikein)
'esim
Private Sub CommandButton1_Click()
luku1 = text1.text 'tee nämä boxit formiin
luku2 = text2.text
luku3 = text3.text
label1.caption = luku1 luku2 luku3
Äh, tottahan toki unohdin vielä senkin perusjutun kertoa. Tarkoituksen mukaisena olisi saada aikaan (jaksamatta pitkästyttää varsinaisella merkityksettömällä tarinalla) sellainen "hilavitukutin" joka laskee annetut luvut yhteen.
Vanhaksi kun tulee, niin alkaa muisti pätkiä. Parasta mitä olen tältä istumalta saanut on " 4 t = 4t".
Voi ärripurri.
Eli pitää ensin muuttaa textboxien sisältö liuku luvuksi. muuten vb vain yhdistää kaksi stringiä.
'esim.
luku1 = cdbl(text1.text)
luku2 = cdbl(text2.text)
summa = luku1 luku2
No niinpäs tietenkin. Noo, jospa se tästä nyt lähtee, kun kesäaikaankin on totuttautunut. Kiitos suuri avusta ja minä kumarran ja niiaan. =)