Er zijn 2 reacties in dit onderwerp

[houthalen]

Ho kan ik de Meestvoorkomende getal uit textbox weergeven?
BV
als ik een textbox heb met
Code:

text1.text="111223445678"

dan zou text2.text=1 weergeven
dus de meestvoorkomend getal in text1.

bedankt

[Damic]

Door lopen en bijhouden welk getal en de hoeveelheid.

Visual Basic Code:

sub Check_Getallen (Inputgetal as integer)
dim Getal as short=0
dim Teller as integer=0
dim TmpTeller as integer=0
for i=1 to 9
for j=0 to InputGetal.count-1 'telkens doorgaan want je weet niet of er toevallig nog eens dit nummer staat
if substring(inputgetal,j,1)=i then tempteller=tempteller+1
next j
if tempteller > teller then
teller=tempteller
Getal=i
end if
TmpTeller=0
next i
messagebox("Nummer " & Getal & " is " & Teller & " keer geteld")
end sub

*Geen garantie op de code dat het vlekkeloos werkt

[houthalen]

Bedankt, damic..
Mooi  code. En uiteraad werkend.

De structuur is duidelijk.  Ik ben nu ook aan analizeren
om bij te leren.

dank u
houthalen