visual basic problemen (if)
 

het is echt onmogelijk maar goed. Is er iemand die er een beetje verstand van heeft en wie ik mijn opdracht even kan toemailen of die hier ff naar de code kan kijken want er gaat iets fout in de uitvoer ofzo... Dus als iemand er wat vanaf weet dan plak ik hier wel ff mijn programmatje

Dit kan misschien beter naar Software & Multimedia komen.

Post het niet zelf nog een keer, een FB zal het verplaatsen.

ah ja wat valt dan nog wel onder informatica? naja het zal wel... niemand die en beetje overweg kan met visual basic?

Hier zijn genoeg mensen die je willen helpen.

Post gewoon hier je code en wij zullen het bekijken.

het gaat ook om de kans dat je een goed antwoord krijgt. en die is hier groter :)

snap ik ;) lief hoor van ja :D

ben nu ook bezig met visual basic voor informatica. heb er morgen een tentamen over

wie weet wat ik fout heb gedaan bij de volgende code. Het is voor een programmatje waar je een getal invoert en dan geeft ie de tafel van dat getal totdat hij bij 100 is. 101 mag hij dus niet meer weergeven. bij mij doet ie dat wel :confused:

als ik tafel van 13 invoer geeft ie ook nog 8 X 13 = 104 weer en dat moet dus niet. dit is de code:



Private Sub cmdToon_Click()

Dim teller As Integer
Dim getal As Integer
Dim getalS As String
Dim antwoord As Integer
Dim regelS As String

lstTafel.Clear
getalS = txtGetal.Text
getal = CInt(getalS)
antwoord = getal
teller = 0


While antwoord < 100

teller = teller + 1
antwoord = teller * getal
regelS = Str(teller) & " * " & Str(getal) & " = " & Str(antwoord)
lstTafel.AddItem (regelS)
Wend


txtGetal.Text = ""


End Sub

Het is toch vrij logisch dat die de laatste boven de honderd weergeeft? Zodra 'antwoord' boven de honderd zit, kapt je while loop er niet gelijk mee? Pas bij de wend controlleert die weer of antwoord boven de honderd zit. Je kan verschillende manieren doen om dit op te lossen.

lstTafel.AddItem (regelS)

in

if antwoord<100 then lstTafel.AddItem (regelS)

een andere oplossing:

While antwoord < 100

in

While (teller+1) * getal < 100

en zo zijn er nog wel een dozijn oplossingen.

Je fout zit hem in de controle vooraf.
Wanneer je teller op 12 staat, is het antwoord (8 * 12 =) 96.
En zolang het antwoord kleiner is dan 100:
(ik ken verder geen VB; ik dacht dat de ' commentaar betekende)