Springen naar inhoud


- - - - -
VB6

Ontbrekende Cijfers Vinden In Een Getal In Textbox



  • 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 21 juli 2015 - 12:49

ik heb een textbox1
ik heb een aantal (lege) labels
in de textbox1 komt een getal (max 8 cijfers)  van willekeurige cijfers tussen 1 en 9.  Bv. 134568

ik zou willen dat wordt gezocht ,vinden en tonen van de afbrekende cijfers.
Bv in het getal van boven, ontbreken 2 en 7 en 9 .
Dat moet getoond en vermeld worden in afzonderlijke labels.
Hoe moet ik het doen?
dank u
houthalen

#2 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 328 berichten
    Laatst bezocht 12 nov 2018 11:59

Geplaatst op 21 juli 2015 - 13:15

Code:
Private Sub CommandButton1_Click()
Dim MyLen As Integer

MyLen = Len(TextBox1.Text)

For i = 0 To MyLen - 1

	Select Case Mid(TextBox1.Text, i + 1, 1)
   
		Case "1"
		Label1.Caption = "1"
	   
		Case "2"
		Label2.Caption = "2"
	   
		Case "3"
		Label3.Caption = "3"
	   
		Case "4"
		Label4.Caption = "4"
		Case "5"
		Label5.Caption = "5"
	   
		Case "6"
		Label6.Caption = "6"
	   
		Case "7"
		Label7.Caption = "7"
	   
		Case "8"
		Label8.Caption = "8"
	   
		Case "9"
		Label9.Caption = "9"
	   
		Case "0"
		Label10.Caption = "0"
	   
	End Select
	   
Next i
End Sub



#3 houthalen

houthalen

    Senior Developer

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

Geplaatst op 21 juli 2015 - 15:54

Bedankt, Hansiebebe, voor uw code.

Het werkt natuurlijk  goed maar ik had echter bedoeld  dat enkel de ontbrekende cijfers moesten
getoonde worden  en niet alle cijfers.

#4 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 328 berichten
    Laatst bezocht 12 nov 2018 11:59

Geplaatst op 21 juli 2015 - 16:57

Code:
Private Sub CommandButton1_Click()
Dim MyLen As Integer

MyLen = Len(TextBox1.Text)
Label1.Caption = "1"
Label2.Caption = "2"
Label3.Caption = "3"
Label4.Caption = "4"
Label5.Caption = "5"
Label6.Caption = "6"
Label7.Caption = "7"
Label8.Caption = "8"
Label9.Caption = "9"
Label10.Caption = "0"
For i = 0 To MyLen - 1

	Select Case Mid(TextBox1.Text, i + 1, 1)
   
		Case "1"
		Label1.Caption = ""
	   
		Case "2"
		Label2.Caption = ""
	   
		Case "3"
		Label3.Caption = ""
	   
		Case "4"
		Label4.Caption = ""
		Case "5"
		Label5.Caption = ""
	   
		Case "6"
		Label6.Caption = ""
	   
		Case "7"
		Label7.Caption = ""
	   
		Case "8"
		Label8.Caption = ""
	   
		Case "9"
		Label9.Caption = ""
	   
		Case "0"
		Label10.Caption = ""
	   
	End Select
	   
Next i
End Sub



#5 houthalen

houthalen

    Senior Developer

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

Geplaatst op 21 juli 2015 - 17:09

Perfect, Hansiebebe.
Het werkt zoals ik het bedoelde.
Het kan niet beter.
Bedankt.

ps. ik had ook iets geprobeerd maar mijn code was te ingewikkeld geworden.
Dat van u is simpel, duidelijk en doeltreffend.

Nogmaals bedankt
houthalen

#6 Hansiebebe

Hansiebebe

    Professional Developer

  • Leden
  • PipPipPipPip
  • 328 berichten
    Laatst bezocht 12 nov 2018 11:59

Geplaatst op 21 juli 2015 - 17:12

graag gedaan





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)