visual basic probleempje

[Verwijderd]

ik ben bezig met een opdracht.
de opdrcaht is om een applicatie te maken waarin je 4 getallen schrijft en daaruit moet je de kleinste zien te bepalen.

ik heb het volgend al gemaakt en de daarbij behorende interface.
de code tot nu toe is:

Private Sub cmdKleinsteBepalen_Click()
'bepaalt het kleinste van vier getallen

'declaraties
Dim strGetal1 As String
Dim strGetal2 As String
Dim strGetal3 As String
Dim strGetal4 As String
Dim Getal(4) As Double
Dim Kleinste As Double
Dim AantalGetallen As Integer
Dim i As Integer

'aantal getallen vastleggen
AantalGetallen = 4

'getallen (strings)uitlezen uit de interface
strGetal1 = txtgetal1.Text
strGetal2 = txtgetal2.Text
strGetal3 = txtgetal3.Text
strGetal4 = txtgetal4.Text

'ingelezen getallen (strings) omzetten naar echt (double) getallen
Getal(1) = Val(strGetal1)
Getal(2) = Val(strGetal2)
Getal(3) = Val(strGetal3)
Getal(4) = Val(strGetal4)

'kleinste laten bepalen
Kleinste = KleinsteBepalen(Getal(), AantalGetallen)

'kleinste tonen in interface
txtKleinste = Str(Kleinste)

End Sub


nou heb ik nog enkele opdrachten en ik heb de uitwerking ook al op de cd staan ik snap echter niet hoe ze eraan komen wie helpt me om het in gewoonnederlands uit te leggen ipv het boektaaltje
hij moet uiteindelijk dus zo worden:


Private Sub cmdKleinsteBepalen_Click()
'bepaalt de kleinste van 4 getallen

'declaraties
Dim strGetal1 As String
Dim strGetal2 As String
Dim strGetal3 As String
Dim strGetal4 As String
Dim Getal(4) As Double
Dim Kleinste As Double
Dim AantalGetallen As Integer

'aantal getallen vastleggen
AantalGetallen = 4

'getallen (Strings) inlezen uit interface
strGetal1 = txtGetal1.Text
strGetal2 = txtGetal2.Text
strGetal3 = txtGetal3.Text
strGetal4 = txtGetal4.Text

'ingelezen getallen (Strings) omzetten naar echte (Double) getallen
Getal(1) = Val(strGetal1)
Getal(2) = Val(strGetal2)
Getal(3) = Val(strGetal3)
Getal(4) = Val(strGetal4)

'kleinste laten bepalen
Kleinste = KleinsteBepalen(Getal(), AantalGetallen)

'kleinste tonen in interface
txtKleinste = Str(Kleinste)

End Sub

Private Function KleinsteBepalen(pG() As Double, pA As Integer) As Double
'bepaalt de kleinste van array pG() met pA getallen

'declaraties
Dim i As Integer
Dim K As Double

'kleinste bepalen
K = pG(1)
For i = 1 To pA
If pG(i) < K Then K = pG(i)
Next i

'kleinste teruggeven
KleinsteBepalen = K

End Function
de opdrachten die ik nog moet uitvoeren volgens het boek zijn:
verander d ecode zo da deze voldoetaanhet onderstaande psd dat er zo uitziet:
herhaal voor i=2 tot aantal getallen
is getal (i)< kleinste? ( met een array dus zo een v keuze)
ja nee
kleinste=getal (I)

en tweede opdracht:
typ onder end sub de subrouteine cmdKleinsteBepalen_Click()
de kopregel van de functie kleinste bepalen
het bepalen van de kleinste waarde achter de kooregel toe. gebruik de variabelenamen van het in deze paragraaf besproken voorbeeld.
pas de subroutine cmsKleinsteBepalen_Click() aan en zorg dat op de juiste plaats de functie kleinste bepalen wordt aangeroepen.


het was een hele stuk test mar wie kan me helpen
DE OPDRACHT KOMT TROUWENS UIT HET BOEKJE VISUAL BASIC GESTRUCTUREERD PROGRAMEREN

[D2k]

wat werkt er niet?
bekijk ook de P&W quickstart ff en voeg ook [code] tags toe svp

[Verwijderd]

het werkt wel als ik dit dus zo overneem maar ik wil alleen even weten de uitleg waarom het er bij gezet moet worden dus de uitleg waarom nou dit
wat voor code wil je erbij hebben?

[Verwijderd]

'dus alles na de end sub wat daar staat wie kan me utileggen wat dat nou precies inhoud en waarom hhet er zo staat ik heb het boekje gelezen maar kom er niet uit

[mulder]

Lees even rustig je post door voor je op verstuur klikt: dan begrijpen wij beter wat je vraag is.

[Verwijderd]

het volgende heb ik nu gekregen wat ook zou kunnen:
'Kleinste bepalen
Kleinste = Getal(1)
If Getal(2) < Kleinste Then Kleinste = Getal(2)
If Getal(3) < Kleinste Then Kleinste = Getal(3)
If Getal(4) < Kleinste Then Kleinste = Getal(4)

alleen waar plaats ik dit

[Verwijderd]

Private Sub cmdKleinsteBepalen_Click()
'bepaalt het kleinste van vier getallen

'declaraties
Dim strGetal1 As String
Dim strGetal2 As String
Dim strGetal3 As String
Dim strGetal4 As String
Dim Getal(4) As Double
Dim Kleinste As Double
Dim AantalGetallen As Integer
Dim i As Integer

'aantal getallen vastleggen
AantalGetallen = 4

'getallen (strings)uitlezen uit de interface
strGetal1 = txtgetal1.Text
strGetal2 = txtgetal2.Text
strGetal3 = txtgetal3.Text
strGetal4 = txtgetal4.Text

'ingelezen getallen (strings) omzetten naar echt (double) getallen
Getal(1) = Val(strGetal1)
Getal(2) = Val(strGetal2)
Getal(3) = Val(strGetal3)
Getal(4) = Val(strGetal4)


'Kleinste bepalen
Kleinste = Getal(1)
If Getal(2) < Kleinste Then Kleinste = Getal(2)
If Getal(3) < Kleinste Then Kleinste = Getal(3)
If Getal(4) < Kleinste Then Kleinste = Getal(4)


'kleinste tonen in interface
txtKleinste = Str(Kleinste)

End Sub

[Verwijderd]

zo werkt ie nou ook maar waarom staat er in de uitwerking op de cd het volgende nog onder de end sub:
Private Function KleinsteBepalen(pG() As Double, pA As Integer) As Double
'bepaalt de kleinste van array pG() met pA getallen

'declaraties
Dim i As Integer
Dim K As Double

'kleinste bepalen
K = pG(1)
For i = 1 To pA
If pG(i) < K Then K = pG(i)
Next i

'kleinste teruggeven
KleinsteBepalen = K

[mulder]

Dan is een functie. Bij de basis beginnen, even wat theorie zou niet verkeerd zijn.

Lock it up.

[johnwoo]

D2k schreef op 21 oktober 2002 @ 20:59:
wat werkt er niet?
bekijk ook de P&W quickstart ff en voeg ook [code] tags toe svp

Vooral dat laatste, je code is op deze manier behoorlijk onleesbaar, en ik denk niet dat er veel mensen zin hebben om het te kopieren naar VB om het leesbaar te maken

[D2k]

begin met hello world en de P&W faq
hier is geen chocola van te maken