Sorteren

[Visual112]

Ik heb 3 tekstvensters

getal 1

getal 2

getal 3

commandbutton : Sorteer

dan 2 tekstvenster

Kleinste getal

Grootste getal

bij die 3 tekstvenster moet je 1 getal invoeren en met de sorteer button moet in de tekstvenster kleinste getal het kleinste getal en grooste getal in de tekstvenster grootste getal

Private Sub cmdsorteer_Click()

End Sub

Private Sub txtgetal1_Change()

End Sub

Private Sub txtgetal2_Change()

End Sub

Private Sub txtgetal3_Change()

End Sub

Private Sub txtgrootste_Change()

End Sub

Private Sub txtkleinste_Change()

End Sub

Private Sub UserForm_Click()

End Sub

ik komer helemaal niet uit kan iemand me de code geven of iig helpen

 

[kat008]

dit zou moeten werken

dim intGrootste as integer
dim intKleinste as integer

if intKleinste > txtGetal1.text then
intkleinste = txtgetal1.text
end if
if intGrootste < txtGetal1.text then
intGrootste = txtGetal1.text
end if

hetzelfde moet dan gebeuren voor txtGetal2 en 3.
Nadien plaats je de variabelen intKleinste en intGrootste in de juiste tekstvelden.

laat maar iets weten, groeten

 

[Wigi]

Probeer dit eens:

Private Sub cmdsorteer_Click()

    Dim getal1 As Double, getal2 As Double, getal3 As Double
    
    getal1 = CDbl(Me.txtgetal1.txt)
    getal2 = CDbl(Me.txtgetal2.txt)
    getal3 = CDbl(Me.txtgetal3.txt)
    
    Me.txtgrootste.Text = CStr(WorksheetFunction.Max(getal1, getal2, getal3))
    Me.txtkleinste.Text = CStr(WorksheetFunction.Min(getal1, getal2, getal3))
    
End Sub

Wigi

 

[Visual112]

dim intGrootste as integer
dim intKleinste as integer

if intKleinste > txtGetal1.text then
intkleinste = txtgetal1.text
end if
if intGrootste < txtGetal1.text then
intGrootste = txtGetal1.text
end if

hetzelfde moet dan gebeuren voor txtGetal2 en 3.
Nadien plaats je de variabelen intKleinste en intGrootste in de juiste tekstvelden.

laat maar iets weten, groeten

Private Sub cmdsorteer_Click()
Dim intGrootste As Integer
Dim intKleinste As Integer

If intKleinste > txtgetal1.Text Then
intKleinste = txtgetal1.Text
End If
If intGrootste < txtgetal1.Text Then
intGrootste = txtgetal1.Text
End If
If intKleinste > txtgetal2.Text Then
intKleinste = txtgetal2.Text
End If
If intGrootste < txtgetal2.Text Then
intGrootste = txtgetal2.Text
End If
If intKleinste > txtgetal3.Text Then
intKleinste = txtgetal3.Text
End If
If intGrootste < txtgetal3.Text Then
intGrootste = txtgetal3.Text
End If

Dit werkt niet ik doe hoogst waarschijnlijk wat fout

 

[Wigi]

En mijn voorstel?

 

[Visual112]

Probeer dit eens:

Private Sub cmdsorteer_Click()

    Dim getal1 As Double, getal2 As Double, getal3 As Double
    
    getal1 = CDbl(Me.txtgetal1.txt)
    getal2 = CDbl(Me.txtgetal2.txt)
    getal3 = CDbl(Me.txtgetal3.txt)
    
    Me.txtgrootste.Text = CStr(WorksheetFunction.Max(getal1, getal2, getal3))
    Me.txtkleinste.Text = CStr(WorksheetFunction.Min(getal1, getal2, getal3))
    
End Sub

Wigi

Private Sub cmdsorteer word geel en zegt dat die gegevenslid niet kan vinden

 

[Wigi]

Bestaan al die controls met die namen?

Indien ja, giet dit eens in een voorbeeldbestandje, anders blijven we zoeken en gokken.

 

[Visual112]

Dit is hem

 

[Visual112]

of bedoelde je dit niet als voorbeeldbestand

 

[snb]

sub sorteer()
  grootstetekst.text=tekst1.text
  if tekst2.text>tekst1.text then grootstetekst.text=tekst2.text
  if tekst3.text>grootstetekst.text then grootstetekst.text=tekst3.text

  kleinstetekst.text=tekst1.tekst
  if tekst2.text<tekst1.text then kleinstetekst.text=tekst2.text
  if tekst3.text<kleistetekst.text then kleinstetekst.text=tekst3.text
End Sub

of abstracter:

sub sorteerabstract()
  grootstetext.text=controls(0).Text
  for j=1 to controls.count-1
    if cdbl(controls(j).Text)> cdbl(grootstetekst.text) then grootstetekst.text=controls(j).text
  next

  kleinstetext.text=controls(0).Text
  for j=1 to controls.count-1
    if cdbl(controls(j).Text)< cdbl(kleinstetekst.text) then kleinstetekst.text=controls(j).text
  next
End Sub