Springen naar inhoud


- - - - -
VB6

Aantal Getallen In Textboxen Weergeven Met Sterretjes



  • Log in a.u.b. om te beantwoorden
Er zijn 5 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 01 juli 2016 - 11:43

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

#2 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 02 juli 2016 - 08:16

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

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 02 juli 2016 - 08:16

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

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 639 berichten
    Laatst bezocht 17 sep 2018 17:33
  • LocatieMechelen (BE)

Geplaatst op 03 juli 2016 - 19:52

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.

#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 04 juli 2016 - 08:27

s

#6 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 04 juli 2016 - 08:29

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





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)