nog een Visual Basic vraagje

[Stevie]

ik moet een programma ontwerpen die de inhoud berekend van een kubus of een bol. eerst moet je het getal r invoeren (straal vd bol of lengte van een ribbe vd kubus) en dan moet je selecteren of je de inhoud van een bol of een kubus wilt. die moet als je dat hebt gedaan in één keer in het vakje ernaast verschijnen. ook moet je een apart vak hebben voor de foutmelding.

ik heb nu dit. ik ben echt een n00b wat betreft VB, dus lach me niet uit.

Private Sub lstFiguur_Click()

'declaraties
Dim r As Double
Dim pi As Double
Dim I As Double
Dim strR As String
Dim strVorm As String
Dim strI As String
Dim strMededeling As String

'inlezen van r
strR = txtR.Text

'controle
If IsNumeric(strR) Then r = Val(strR)

'berekening
pi = 3.1415927
    If lstVorm.Text = "bol" Then I = (4 / 3) * pi * r ^ 3
    If lstVorm.Text = "kubus" Then I = r ^ 3
txtI.Text = Str(I)
Else
     txtMededeling.Text = "Verkeerde invoer."
     Exit Sub
     
End If

End Sub

ik weet niet eens of VB wel op die manier kan rekenen fuck wat ben ik hier slecht in

ten eerste start je al twee keer een if en sluit je maar 1 keer af met end if.. dat zal ie al niet pikken denk ik..

verder weet ik ook niet of hij het woordje pi wel kent

[Bazzemans]

Oorspronkelijk geplaatst door MarvinV


verder weet ik ook niet of hij het woordje pi wel kent

Hij heeft pi toch gedefinieerd als Double?

[Nightwolf]

nee moet je t hele getal voor invullen (wat was t, 50 decimalen? )

[Bazzemans]

Oorspronkelijk geplaatst door Nightwolf
nee moet je t hele getal voor invullen (wat was t, 50 decimalen? )

Hehe.. flauw..

[Nightwolf]

ik merk t nu trouwens op maar wat is Dim? wat doet t?

oh ik zie trouwens deze regel al: "pi = 3.1415927"

maar volgens mij stel je die dan fout in of ligt dat aan mij?

[Bazzemans]

'declaraties
Dim pi As Double

Kijk nog eens goed.. Er staat duidelijk boven dat hier de verschillende variabelen gedefineerd worden . Daar is Dim dan ook voor..

[Stevie]

waarom zegt ie:

Compileerfout:

Else zonder If

slaat nergens op, erboven staat toch if :S

[Sedes]

en werkt dat ding in vb

en idd mag niet meerdere keren if achter elkaar, moet dan ElseIf zijn

Basisregeltje:

If voorwaarde Then
Instructies wanneer de voorwaarde True is
ElseIf voorwaarde Then
Instructies wanneer voorgaande voorwaarden false zijn en deze voorwaarde true is.
…
Else
Instructies wanneer alle voorgaande voorwaarden false zijn en die worden doorlopen in alle andere gevallen dan voorgaande voorwaarden
End if

En wrom dim ... as double? integer neemt minder ruimte in

Oorspronkelijk geplaatst door Sedes
en werkt dat ding in vb

en idd mag niet meerdere keren if achter elkaar, moet dan ElseIf zijn

Basisregeltje:

En wrom dim ... as double? integer neemt minder ruimte in

Niet als je komma getallen wil he Met int's heb je dan loss of precision.

Oorspronkelijk geplaatst door Nightwolf
ik merk t nu trouwens op maar wat is Dim? wat doet t?

oh ik zie trouwens deze regel al: "pi = 3.1415927"

maar volgens mij stel je die dan fout in of ligt dat aan mij?

Dim is je declaratie Stond voor dimension alsk et goed heb. Heb ik et vast wel

Oorspronkelijk geplaatst door Nightwolf
nee moet je t hele getal voor invullen (wat was t, 50 decimalen? )

50? Ga es goed je Pi uit de kop leren Dat zijn er veeeeeeeeeeeeeeeeeeel te weinig

[Stevie]

Private Sub lstFiguur_Click()
'berekent de inhoud van de geselecteerde figuur

    'declaraties
    Dim r As Double
    Dim I As Double
    Dim pi As Double
    Dim strR As String

    'berekening
    txtBoodschap.Text = "Vul waarde voor r in en selecteer een figuur"
    strR = txtR.Text
    If IsNumeric(strR) Then
        r = Val(strR)
        pi = 3.1415927
        If lstFiguur.Text = "bol" Then I = (4 / 3) * pi * r ^ 3
        If lstFiguur.Text = "kubus" Then I = r ^ 3
        txtInhoud.Text = Str(I)
    Else
        txtBoodschap.Text = "Verkeerde invoer."
        Exit Sub
    End If
End Sub

zo zou hij t moeten doen. hoop ik.

Oorspronkelijk geplaatst door MarvinV
ten eerste start je al twee keer een if en sluit je maar 1 keer af met end if.. dat zal ie al niet pikken denk ik..

verder weet ik ook niet of hij het woordje pi wel kent

als je geen nieuwe regel start hoef je if niet af te sluiten... iig zo werkt t ook met c++ (dacht ik... is al lang geleden )

[Nightwolf]

Oorspronkelijk geplaatst door not-known
50? Ga es goed je Pi uit de kop leren Dat zijn er veeeeeeeeeeeeeeeeeeel te weinig

hoeveel getallen zijn t dan tegenwoordig?

[Stevie]

Oorspronkelijk geplaatst door Nightwolf
hoeveel getallen zijn t dan tegenwoordig?

oneindig..

Oorspronkelijk geplaatst door Nightwolf
hoeveel getallen zijn t dan tegenwoordig?

Daar zijn ze nog lang niet uit. Iig kan je er stapels papier mee vullen