Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB.NET: End Sub

Sivun loppuun

musse89 [12.01.2006 19:24:09]

#

missä mättää ku ei suostu testailee tota, ku tost ois tarkoitus tulla sillee, ett se ohjelma laskee vuodet ja sitt ilmottaa käyttäjälle ijän.

Private Sub cmdpaina_Click()

'määritetään muuttujat

Dim syntynmvuosi1 As Integer
Dim syntymävuosi2 As Integer

'lasketaan vuodet

vuosi = syntymävuosi1 - syntymävuosi2

'määritetään ikä

If ikä <= 18 Then
    MsgBox "olet alaikäinen"
If ikä >= 18 Then
    MsgBox "olet täysiikäinen"
If ikä >= 0 Then
    MsgBox "virhe ilmoitus"
If ikä >= 150 Then
    MsgBox "virhe ilmoitus"

End If
    End Sub

Metabolix [12.01.2006 19:26:20]

#

No kai se kertoo, mikä mättää. Näyttäisi kuitenkin, että ikä-muuttujaa ei ole määritelty, pitäisikö siinä ehkä olla vuosi?

hunajavohveli [12.01.2006 19:28:28]

#

Jokainen If-lause tarttee End If:n joka lopettaa sen, paitsi jos kirjoittaa koko lauseen yhdelle riville. Tässä ehto ja seuraus on eri riveillä. Toinen tapa on käyttää ElseIf:iä kaikkien muiden paitsi ensimmäisen If-rivin tilalla.

musse89 [12.01.2006 19:29:24]

#

siis niinku miten...:D

hunajavohveli [12.01.2006 19:31:11]

#

https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=vbo_3

Metabolix [12.01.2006 19:32:51]

#

Ennemmin laittaisin Elset kaikkiin.

musse89 [12.01.2006 19:38:24]

#

miull on nyt tämmöne koodi miks se ei kysy vuosia???
se tulostaa vaa ( olet alaikäinen ja virhe ilmoitus)

Private Sub cmdpaina_Click()

'määritetään muuttujat

Dim syntynmvuosi1 As Integer
Dim syntymävuosi2 As Integer

'lasketaan vuodet

vuosi = syntymävuosi1 - syntymävuosi2

'määritetään ikä

If ikä <= 18 Then
    MsgBox "olet alaikäinen"
End If
If ikä >= 18 Then
    MsgBox "olet täysiikäinen"
End If
If ikä >= 0 Then
    MsgBox "virhe ilmoitus"
End If
If ikä >= 150 Then
    MsgBox "virhe ilmoitus"
End If
    End Sub

Metabolix [12.01.2006 19:47:07]

#

Koska et kysy missään kohti. Ja ikä-muuttujaa et missään vaiheessa edelleenkään määrittele.

Mennäänpä takaisin sinne opasta lukemaan ja opetellaan perusasiat.

musse89 [12.01.2006 19:49:00]

#

no mättääks toss kohass kui pahast?

'määritetään muuttujat

Dim syntynmvuosi1 As Integer
Dim syntymävuosi2 As Integer

'lasketaan vuodet

vuosi = syntymävuosi1 - syntymävuosi2

hunajavohveli [12.01.2006 19:50:52]

#

No ainakin kirjoitusvirheitä näyttää olevan muuttujissa. Ja tietenkään se ei kysy noita arvoja, koska et oo pistänyt sitä kysymään niitä. Pistä vaikka InputBox siihen. Oppaista löytynee.

M2tias [13.01.2006 18:34:20]

#

toimiiko ääkköset VB:n muuttujissa?

rndprogy [13.01.2006 18:36:30]

#

Minun muistaakseni kyllä.

hunajavohveli [13.01.2006 18:49:51]

#

Kutosversiossa ainakin toimii.

Hannu [13.01.2006 21:37:01]

#

M2tias kirjoitti:

toimiiko ääkköset VB:n muuttujissa?

Toimii ainakin kutosessa, VB.netissä ja VB Expressissä.

Metabolix [14.01.2006 17:25:53]

#

VB Express on tietääkseni vain kehitystyökalu VB.NETille, ei mikään itsenäinen kieli.

NanoSoft [14.01.2006 20:18:36]

#

tarkoittaa ilmeisesti vb8:sia eli edelleen vb.nettiä, mutta teen sen koodin sulle vb.netillä...

Module Module1

    Sub Main()
        Dim x(2) As Integer
        System.Console.WriteLine("Mikä vuosi nyt on?")
        x(0) = System.Console.ReadLine()
        System.Console.WriteLine("Minä vuonna olet syntynyt")
        x(1) = System.Console.ReadLine()
        x(2) = x(0) - x(1)
        If x(2) <= 18 Then
            MsgBox("olet alaxikänen")
        ElseIf x(2) >= 18 Then
            MsgBox("olet täysi-ikänen")
        ElseIf x(2) >= 0 Then
            MsgBox("virhe ilmoitus")
        ElseIf x(2) >= 150 Then
            MsgBox("virhe ilmoitus")
        End If
    End Sub

End Module

korvaat tolla vaan koko koodis ja korjaat pikkasen ja se on siinä, en jaksanu korjata tota sun if virhettäs mut kikkailet vaan andin kanssa ni eiköhän se siitä...

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta