We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

  Sorting Integer Array Menurut Indeks Posisi

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Qrembiezs
Security Team
Security Team


Jumlah posting : 93
Join date : 05.04.11
Lokasi : %windir%regedit.exe

PostSubyek: Sorting Integer Array Menurut Indeks Posisi   Sat 8 Feb 2014 - 15:00

Ada berbagai metode pengurutan data dalam aplikasi Visual Basic ®. Artikel ini menjelaskan cara untuk mengurutkan array bilangan bulat sambil menjaga urutan asli array.

Saat menulis aplikasi dalam Visual Basic ®, Anda dapat menyimpan nilai numerik atau string dalam kontrol List Box. Urutkan properti List Box dapat diatur ke True untuk secara otomatis mengurutkan entri seperti yang ditambahkan dengan kontrol. Namun, jika Anda perlu untuk menyortir, misalnya, sebuah array bilangan bulat sehingga posisi dari setiap item dalam array yang diawetkan, Anda harus menulis prosedur semacam Anda sendiri.

Kode berikut menunjukkan bagaimana mengurutkan array nilai integer sesuai dengan posisi integer dalam array. Dalam program contoh (di bawah), bilangan bulat yang disimpan dalam array sebagai berikut:

Code:
Mat(1)=5
Mat(2)=7
Mat(3)=4
Mat(4)=6
Mat(5)=3

Jika kita diurutkan nilai-nilai ini dalam urutan numerik, hasilnya akan menjadi:

Code:
Mat(1)=7
Mat(2)=6
Mat(3)=5
Mat(4)=4
Mat(5)=3

Namun, kami ingin dapat mengurutkan array sesuai dengan nilai indeks integer dalam array. Oleh karena itu, program contoh macam array ini sebagai:

Code:
Mat(1)=2
Mat(2)=4
Mat(3)=1
Mat(4)=3
Mat(5)=5

Example

Code:
Sub Form_Load()
Dim X As Integer
Dim Mat(1 To 5) As Integer
Dim Temp As Integer
Dim Order As String
Dim Tempstr As String
Mat(1) = 5
Mat(2) = 7
Mat(3) = 4
Mat(4) = 6
Mat(5) = 3

For X = 1 To 5
List1.AddItem "Number " + Str$(Mat(X))
Next X

Order = 12345
X = 1
Y = 1
For X = 1 To 5
For Y = 1 To 5
If X = Y Or X < Y Then
GoTo NextOne
End If

If Mat(Y) > Mat(X) Then
Temp = Mat(X)
Mat(X) = Mat(Y)
Mat(Y) = Temp
Tempstr = Mid$(Order, X, 1)
Mid$(Order, X, 1) = Mid$(Order, Y, 1)
Mid$(Order, Y, 1) = Tempstr
End If
NextOne:
Next Y

Next X
'Display results in List Box #2
For X = 5 To 1 Step -1
List2.AddItem "Array" + Str$(Mid$(Order, X, 1))
Next X
End Sub
Kembali Ke Atas Go down
 
Sorting Integer Array Menurut Indeks Posisi
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» [Ask] Posisi Riding Setelah Ganti Footstep
» rpm normal ninin saat dipanasin atau posisi diam brp ?
» help dong... posisi plat nomor depan 250 FI
» ASK POSISI TEMPAT FLASHER NININ
» [WTA]Cara Turunin Riding Posisi (biar lebih nunduk)

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: