Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Tips & tricks

#1605 - Slumpa och sortera (ett snabbare sätt)

Postat 2003-03-03 15:48:34 av Jan Bulér i Kategori Programmering, C#, Kommandon med 0 Kommentarer

'Följande kod placerade jag i en modul (inte FORM)

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()
Private Const MINVALUE As Integer = 0
Private Const MAXVALUE As Integer = 9999


Sub main()
Dim sort As CSortArrays
Dim arrInts() As Integer
Dim arrInts2() As Integer
Dim i As Integer
Dim tickStart As Long
Dim tickEnd As Long


Randomize
Set sort = New CSortArrays

Debug.Print String(30, "=")
Debug.Print "Generera, blanda, och sortera " & CLng(MAXVALUE - MINVALUE + 1) & " tal."

Debug.Print "Initiate Array"
tickStart = GetTickCount
arrInts = GetRandomArray(MINVALUE, MAXVALUE)
tickEnd = GetTickCount
Debug.Print "Tid= " & CStr(tickEnd - tickStart) & " ms."

'Gör en kopia av den blandade arrayen för att kunna göra en jämförelse
'mellan sorteringsalgoritmerna på lika villkor.
arrInts2 = arrInts


Debug.Print "Sorterings algoritm: Quicksort"
tickStart = GetTickCount
sort.SortIntArray arrInts, SRTA_QUICKSORT
tickEnd = GetTickCount
Debug.Print "Tid= " & CStr(tickEnd - tickStart) & " ms."

Debug.Print "Sorterings algoritm: Selection sort"
tickStart = GetTickCount
sort.SortIntArray arrInts2, SRTA_SELECTIONSORT
tickEnd = GetTickCount
Debug.Print "Tid= " & CStr(tickEnd - tickStart) & " ms."

Debug.Print String(30, "=")

End Sub



Private Function GetRandomArray(Optional ByVal StartValue As Integer = 0, Optional ByVal EndValue As Integer = &H7FFF) As Integer()
Dim arrRet() As Integer
Dim arrSet() As Boolean
Dim RndNum As Integer, temp As Integer
Dim lngStart As Long, lngEnd As Long, i As Long

lngStart = StartValue: lngEnd = EndValue

If lngEnd - lngStart < 0 Then Exit Function
' ReDim arrRet(lngEnd - lngStart)
' ReDim arrSet(UBound(arrRet))
ReDim arrRet(lngEnd - lngStart)
ReDim arrSet(lngEnd - lngStart)


For i = LBound(arrRet) To UBound(arrRet)
RndNum = GetRandomNum(LBound(arrRet), UBound(arrRet))
If Not arrSet(i) Then
arrRet(i) = i + lngStart
arrSet(i) = True
End If

If Not arrSet(RndNum) Then
arrRet(RndNum) = RndNum + lngStart
arrSet(RndNum) = True
End If

temp = arrRet(i)
arrRet(i) = arrRet(RndNum)
arrRet(RndNum) = temp

Next

GetRandomArray = arrRet

End Function

Private Function GetRandomNum(ByVal MinVal As Integer, ByVal MaxVal As Integer) As Long
Dim temp As Currency
Dim result As Currency

'Temp variablen används för att ta hand om när MaxVal har maxvärde
temp = CLng(MaxVal) - CLng(MinVal) + 1

GetRandomNum = Int((temp) * Rnd + MinVal)


End Function



Sample:
Size:

Nyligen

  • 14:24 CBD regelbundet?
  • 14:23 CBD regelbundet?
  • 14:22 Har du märkt några verkliga fördel
  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 627
27 953
271 710
843
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies