07.07
yulisriyadi
Option Explicit
Dim bar, i, j As Integer
Dim newbar As Integer
Dim Totalbar As Integer
Dim tmpnama() As String
Dim tmpalamat() As String
Dim tmpkelas() As String
Dim tmplahir() As String
Dim tmptxt As String
Dim Pilih As Integer
Private Sub Command1_Click()
LihatSort.Show
End Sub
Private Sub Command6_Click()
Open "sorting.txt" For Output As #1
For i = 1 To Totalbar
For j = i To Totalbar
Select Case Pilih
Case 0
If tmpnama(i) < tmpnama(j) Then sorting ' nama ascending
Case 1
If tmpnama(i) > tmpnama(j) Then sorting ' nama descending
Case 2
If Val(tmpkelas(i)) < Val(tmpkelas(j)) Then sorting ...
Posted in: 
