Archive for ‘Visual Basic Jadul Edition’

03/02/2012

Cara menghapus record di adodc visual basic 6.0 tanpa error

Adodc1.Recordset.Delete
Adodc1.Recordset.Update

03/02/2012

Cara menghapus semua isi tabel atau record di adodc

dim hapus as integer
For hapus=1 to Adodc1.Recordset.Recordcount
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveNext
next hapus

31/01/2011

how to compare array textboxes


Private Sub Text1_Change(Index As Integer)

   CheckForDupes Index
   
End Sub


Private Sub CheckForDupes(Index As Integer)

   'Nested loop
   Dim i As Integer, j As Integer
   
      For i = Text1.LBound To Text1.UBound
         For j = Text1.LBound To Text1.UBound
         
            'Eliminate comparison with the current textbox
            If Text1(i).Index <> Text1(j).Index Then
               
               'Check for a blank entry and if theres a duplicate
               If Text1(i).Text <> "" And Text1(j) <> "" And Text1(i) = Text1(j) Then
                  
                  'Inform user of duplicate entry and clear current textbox
                  MsgBox "Duplicate entry"
                  Text1(Index).Text = vbNullString
                  Exit For
               End If
            End If
         Next j
      Next i
      
End Sub

resource from
here

01/11/2010

Mengurutkan karakter menggunakan Metode Penyisipan Langsung (Straight Short Insertion Method) menggunakan VB 6.0 [jadul edition]

Ikuti langkah-langkah berikut ini :

  1. Baca بسم الله الرّحمن الرّحيم dulu sebelum mengerjakan
  2. Ini hasil karya anak bangsa. Sebagai pembuat saya ijinkan di copy, di edit-edit, disebarluaskan dan di diapain aja asal berguna buat Anda
  3. Kebutuhan komponen-konponenya :
    • Sebuah Text Box dengan nama txtasal
    • Sebuah Label dengan nama hasilakhir
    • Sebuah Command Button dengan nama tmblurut
    • Hiasi Form tampilan secantik mungkin. (Kalo yang ini sesuai selera masing-masing ya?)
  4. Copas code di bawah ini di Visual Basic 6.0(Mau diketik satu-satu juga boleh :). Malah baik untuk masa yang akan datang)
    Private Sub tmblurut_Click()
    Dim i, T, j As Integer
    Dim A(20) As Integer
    n = Len(Trim(txtasal.Text)) 'menghitung teks
        For k = 1 To n
            A(k) = Asc(Mid(txtasal.Text, k, 1)) 'mencari kode ASCII
        Next k
    
        For i = 2 To n   'memisalkan karakter
            T = A(i)
            A(0) = T
            j = i - 1
    
                 Do While T < A(j)  'membandingkan karakter
                            A(j + 1) = A(j)
                            j = j - 1
                 Loop
            A(j + 1) = T
    
        Next i
    'note buat yang ngopas
    'Bakat memang bukan hasil dari kerja keras
    'Namun
    'Kerja keras seringkali memunculkan bakat-bakat baru
    
          For i = 1 To n
                        komponen = Chr(A(i))       'mengembalikan nilai ASCII
                        hasil = hasil + " " + komponen
                        hasilakhir.Caption = hasil       'hasil akhirnya
                Next i
    'Created by Rido Sandi Atmanto
    'AMIK PGRI Kebumen Jaya
    End Sub
    
    
  5. Simpan dan Run (F5)
  6. Tadaaaa !!!! Jadi deh. Gampang khan?
  7. Baca Alhamdulillahirobbil’alamiin karena berhasil mengerjakan tugas dengan baik dan lancar
  8. Senyumnya mana? ^^b ! Masa cembeyut teyus sich…?

Disclaimer :

(saya bikinnya pakai Visual Basic 6.0 [Jadul Edition]). Kalau di copas di Visal Basic yang lebih baru dan Error saya tidak bertanggung jawab karena belum saya coba menggunakan selain VB 6.0.

Lampiran :

Screen Shoot hasil akhir program :

25/10/2010

Mengurutkan karakter menggunakan metode bubble short dengan Visual Basic 6.0 [Jadul Edition]

Private Sub tmblurut_Click()
Dim i As Integer
Dim A(20) As Integer
n = Len(Trim(txtasal.Text)) 'menghitung teks
Print n
    For k = 1 To n
        A(k) = Asc(Mid(txtasal.Text, k, 1)) 'mencari kode ASCII
    Next k
For i = 1 To n - 1
    For k = 1 To n - 1
        If A(k) > A(k + 1) Then
        d = A(k)
        A(k) = A(k + 1)
        A(k + 1) = d
        End If
    Next k
Next i
            For i = 1 To n
                    komponen = Chr(A(i)) 'mengembalikan nilai ASCII
                    hasil = hasil + komponen
                    hasilakhir.Caption = hasil 'RESULT
            Next i
End Sub