Er zijn 5 reacties in dit onderwerp

[houthalen]

dag
ik heb een array van textbox (text(0), text(1)...
een picture
elke textbox kan een getal bevatten 1-9
dan wordt in de picture het aantal gelijk getallen dmv sterretjes
weergegeven.
waarde1 **
waarde2 *
waarde3 ****
....
waarde9 *

Ik heb 2 problemen
1- Niet altijd is aantal sterretjes juiste
2-  als 1 of meer textboxen  van de array leeg zijn dan krijg ik error
invalid procedure call or argument
Hier mijn code

Code:

Private Sub Command1_Click()   
Me.Picture1.Cls   
Dim getal(1 To 9)   
  For n = 1 To 12   
G = Asc(Text(n).Text) - 48   
getal(G) = getal(G) + 1   
Next n   
For n = 1 To 9   
  Picture1.Print "Waarde " & n & " : " & String(getal(n), "*")   
Next n   
End Sub  

dank u

[houthalen]

Ik heb zelf opgelost. Zo:

Code:

Private Sub Command1_Click()
Me.Picture1.Cls
Dim getal(1 To 9)
For n = 0 To 12' 
G = Val(Text(n).Text)
If G = 0 Then Exit Sub
getal(G) = getal(G) + 1
Next n
For n = 1 To 9
  Picture1.Print "Waarde " & n & " : " & String(getal(n), "*")
Next n
End Sub

Andere verbeterings- tips zijn uiteraard altijd welkom.
Toch bedankt
Houthalen

[houthalen]

Ik heb zelf opgelost. Zo:

Code:

Private Sub Command1_Click()
Me.Picture1.Cls
Dim getal(1 To 9)
For n = 0 To 12'
G = Val(Text(n).Text)
If G = 0 Then Exit Sub' als een textbox leeg is
getal(G) = getal(G) + 1
Next n
For n = 1 To 9
Picture1.Print "Waarde " & n & " : " & String(getal(n), "*")
Next n
End Sub

Andere verbeterings- tips zijn uiteraard altijd welkom.
Toch bedankt
Houthalen

[Damic]

Dus als 1 textbox leeg is dan stop je met wat je bezig was? Daar kun je rond werken zoals bvb 0 inladen.

Hoeveel textboxen zijn er eigenlijk? Want volgens mij is deze code heel "slecht" als je uitbreid.

[houthalen]

s

[houthalen]

Dag  Damic
Als 1 textbox leeg is (altijd na de vol textboxen)  gebeurd niks.
Ik kan verder met het programma.

Ik heb nu wel  opgemerkt da ook zonder


Code:

If G = 0 Then Exit Sub' als een textbox leeg is

de programma goed werkt. dat komt omdat ik heb
Code:

G = Asc(Text(n).Text) - 48

in
Code:

G = val(Text(n).Text) 

veranderd.
-------------
Ik heb nu 12 textboxen

Waarom zou slecht zijn bij het uitbreiden (met tekstboxen)?
Ik kan textboxen toevoegen als ik het aantal wijzig in