Bare hyggelig.
> Endnu en gang mange tak, nu er nytåret for familien redet.
-nå, Lottotrekningen skal vel også fullføres før redningen er et faktum ?
La meg nevne at dette er en av mange mange måter å sortere. For større
oppgaver (> 10000 tal etc) er denne metode ret langsom. Der finnes mange
algoritmer for QuickSort, BubbleSort, ShellSort,... Finnes f.eks. via
http://www.codehound.com/vb/
Et gammelt sørøverkneb er også å legge tallene (eller tekstene) inn i en
listbox der "Sorted" er sat til True. Så er det bare å lese dem fra toppen
etterpå.
Beste hilsen Harald
Ole J. Hansen <ojh@hansen.mail.dk> skrev i
news:3c2a2dbc$0$62877$edfadb0f@dspool01.news.tele.dk...
> Hej Harald!
> Mange tak, tro det eller ikke, men jeg har fået det til at virke, det var
> nok mere
> fordi, at du skrev det så det var til at forstå.
> Det er dejligt, at der er nogen der kan.
> Endnu en gang mange tak, nu er nytåret for familien redet.
> Ole J. Hansen
> "Harald Staff" <harald.staff@eunet.no> skrev i en meddelelse
> news:a0d6kg$8lk$1@oslo-nntp.eunet.no...
> > Hei OIe
> >
> > Du skal bare sortere dem. Jeg hart lagt til en enkel rutine i bunden,
den
> > forstår du nemt:
> >
> > Private Sub Find_Click()
> > Dim antaltal As Integer
> > Dim Talnr As Integer
> > Dim tilfældigttal As Integer
> > Dim Ikkebrugt As Boolean
> > Dim Tabel(0 To 6) As Integer
> > Dim Tal As Integer
> >
> > Dim Ytre As Integer
> > Dim Indre As Integer
> > Dim Temp As Integer
> >
> > Do Until antaltal > 6
> > Tal = Tal + 1
> > Randomize
> > tilfældigttal = Int(1 + Rnd * 36)
> >
> > Ikkebrugt = True
> > For Talnr = 0 To antaltal
> >
> > If tilfældigttal = Tabel(Talnr) Then
> > Ikkebrugt = False
> > End If
> >
> > Next Talnr
> > If Ikkebrugt = True Then
> > Tabel(antaltal) = tilfældigttal
> > 'lblTal(antaltal) = tilfældigttal
> > antaltal = antaltal + 1
> > End If
> > Loop
> > 'HERFRA:
> > For Ytre = 0 To 5
> > For Indre = 0 To 5
> > If Tabel(Indre) > Tabel(Indre + 1) Then
> > Temp = Tabel(Indre)
> > Tabel(Indre) = Tabel(Indre + 1)
> > Tabel(Indre + 1) = Temp
> > End If
> > Next
> > Next
> > 'TEST:
> > For Ytre = 0 To 6
> > MsgBox "Tal nr " & Ytre + 1 & " er " & Tabel(Ytre)
> > Next
> > End Sub
> >
> > HTH. Beste hilsen Harald
> >
> > "Ole J. Hansen" <ojh@hansen.mail.dk> wrote in message
> > news:3c2a0282$0$55519$edfadb0f@dspool01.news.tele.dk...
> > > Hej NG og Glædelig jul og godt Nytår.
> > >
> > > Jeg har et problem, jeg har lavet et program der finder 7 Lottotal og
> > sætter
> > > dem ind
> > > i 7 tekstboxe, men nu har jeg brugt det meste af julen til at finde ud
> af,
> > > hvordan jeg
> > > kunne sortere tallene i tekstboxene, således at det mindste tal kom i
> nr.
> > 1
> > > o.s.v.,
> > > men det kan jeg ikke finde ud af.
> > > Er der en der kan hjælpe en begynder med dette, det må ikke være for
> > > vanskeligt
> > > ellers skal det være så letforståeligt forklaret, at selv jeg kan
finde
> ud
> > > af det.
> > > Min kode er som her:
> > >
> > > Private Sub Find_Click()
> > > Dim antaltal As Integer
> > > Dim Talnr As Integer
> > > Dim tilfældigttal As Integer
> > > Dim Ikkebrugt As Boolean
> > > Dim Tabel(0 To 6) As Integer
> > > Dim Tal As Integer
> > >
> > >
> > > Do Until antaltal > 6
> > > Tal = Tal + 1
> > > Randomize
> > > tilfældigttal = Int(1 + Rnd * 36)
> > >
> > >
> > >
> > > Ikkebrugt = True
> > > For Talnr = 0 To antaltal
> > >
> > > If tilfældigttal = Tabel(Talnr) Then
> > > Ikkebrugt = False
> > > End If
> > >
> > > Next Talnr
> > > If Ikkebrugt = True Then
> > > Tabel(antaltal) = tilfældigttal
> > > lblTal(antaltal) = tilfældigttal
> > > antaltal = antaltal + 1
> > > End If
> > >
> > > Loop
> > >
> > > End Sub
> > >
> > > Med venlig hilsen
> > > Ole J. Hansen
> > >
> > >
> >
> >
>
>