Springen naar inhoud


- - - - -
VB6

Aantal Karacters Koppelen Aan Waarde Getal



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

#1 houthalen

houthalen

    Senior Developer

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

Geplaatst op 08 juli 2016 - 15:51

dag
Ik ben lang bezig met een toch simpel formule maar ik komt niet uit.
Ik heb 2 textboxen

txtGetal
in Getal komt een getal met xxxx.. , willekeurige  cijfers
bv 31232
hier dus 5 cijfers maar kunnen ook meer zijn

txtNaam
In Naam heb ik een naam met hetzelfde aantal karacters van de cijfers in Getal
bv Maria (5 carakters)
wat ik zou willen is(uit het voorbeeld van boven)
in een derde textbox 'txtuitkomst' dit te krijgen

MMMARRIIIAA

dus het aantal karacters van de naam converteren naar de waarde van de cijfers
Ik toon hier een van (zoveelste) geprobeerde formules maar het
uitkomst was anders dan verwacht
Code:
Private Sub Command1_Click()
For i = 1 To Len(Getal.Text)
Naam.Text = Mid$(Getal.Text, i, 1)'(?)
Next i
(?)...

End Sub


#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht vandaag, 20:07
  • LocatieMechelen (BE)

Geplaatst op 08 juli 2016 - 19:44

is het niet Naam.Text = Naam.Text & Mid$(Getal.Text, i, 1)'(?) en een telling begint vanaf 0 en niet bij 1 :+

#3 houthalen

houthalen

    Senior Developer

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

Geplaatst op 08 juli 2016 - 19:48

Citeren

is het niet Naam.Text = Naam.Text & Mid$(Getal.Text, i, 1)'(?)

Sorry Damic, ik heb uw opmerking (of tip?) niet begrepen. Hoe moet het dan precies?
dank je

#4 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht vandaag, 20:07
  • LocatieMechelen (BE)

Geplaatst op 08 juli 2016 - 19:53

dat je 1 je textbox altijd overschrijft en 2 dat je op karakter 1 begint en niet op karakter 0  mid() blijkbaar niet.
En dat je eigenlijk een loop in een loop moet maken en trouwens wat als er 0 staat?

Ik heb een redelijk pasklaar antwoord maar ik gaan het nog niet met je delen, vermits het bedoeling is dat je zelf wat nadenkt en oplossing vind ;)

#5 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 08 juli 2016 - 20:03

Code:
Private Sub Command1_Click()
txtuitkomst.Text = ""

For i = 1 To Len(naam.Text)
   For x = 1 To Mid(getal.Text, i, 1)
	  txtuitkomst.Text = txtuitkomst.Text & Mid$(naam.Text, i, 1)
   Next x
Next i
End Sub



#6 houthalen

houthalen

    Senior Developer

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

Geplaatst op 08 juli 2016 - 20:06


Citeren

vermits het bedoeling is dat je zelf wat nadenkt en oplossing vind

Ik heb zeker geprobeerd een oplossing te vinden. De code dat ik getoond heb
is een van de vele pogingen (ook als verkeerd is.)
Ik had ook het gevoel dat een dubbel loop moet tussen getal en Naam om de twee te verbinden;

#7 houthalen

houthalen

    Senior Developer

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

Geplaatst op 09 juli 2016 - 09:00

Ik heb pas nu uw oplossing gezien, Svr, (ik had gisterenavond geen verbinding  meer)
Dubbel dank, eerste voor de oplossing (die uiteraard werkt)  maar vooral omdat ik heb nu begrepen  
hoe ik dat moest doen.
dank je
En dank ook aan Damic die ook gezegd had dat ik met 2 loop moest het doen, maar ik kon niet uit.





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)