Get Apk

coding ini digunakan untuk menampilkan Hari, Jam, dan Tanggal di VB6 sesuai dengan Jam, dan Tanggal di komputer, jadi setiap perubahan waktu di komputer tampilan juga akan ikut berubah, tiap detik, menit, jam, hari, bulan, dan tahun. Ikuti langkah-langkah berikut : Buat project Baru dengan satu form baru Buat 2 Label Buat 1 Timer Berikut ini contoh gambarnya : Klik gambar untuk memperbesar Kemudian copy kan coding berikut : Dim sHari As String      Deklarasi variabel global, karena digunakan Dim aHari                oleh lebih dari satu prosedur Private Sub Form_Load()  Inisialisasi array untuk hari   aHari = Array("Minggu", "Senin", "Selasa", "Rabu", _                 "Kamis", "Jumat", "Sabtu")   Timer1.Interval = 500  Set property interval   Timer1.Enabled = True  Aktifkan jika belum...

Walaupun VB6 udah jadul, tapi ane tetap semangat untuk posting ne pemrograman. Oke SEMANGAT. Postingan kali ini adalah bagaimana cara mengkoneksikan VB6 ke database MySQL Pertama-tama buatlah database di MySQL, sebagai contoh saya membuat database "Purnama_Barang" dengan tabel "user" menggunakan phpMyAdmin Klik gambar untuk memperbesar Ralat : pada gambar diatas jenis field integer seharusnya varchar kemudian isikan didatabase minimal 1 user untuk tes program Kemudian buatlah sebuah project di VB6 Klik gambar untuk memperbesar Saya menggunakan dua form, satu form utama dan satu lagi form login jadi selain tutorial koneksi database, postingan kali ini juga membahas tentang membuat form Login  / menu Login untuk form login saya gunakan 1 form, 2 label, 2 textbox, 2 command button untuk form utama terserah anda saja Form login : frmLogin txtNama txtPassword cmdOK cmdExit  Form Utama frmUtama Kemudian buatlah module pada project VB6 Anda. Klik gambar untuk memperbesar k...

Walaupun VB6 udah jadul, tapi ane tetap semangat untuk posting ne pemrograman. Oke SEMANGAT. Postingan kali ini adalah bagaimana cara mengkoneksikan VB6 ke database MySQL Pertama-tama buatlah database di MySQL, sebagai contoh saya membuat database "Purnama_Barang" dengan tabel "user" menggunakan phpMyAdmin Klik gambar untuk memperbesar Ralat : pada gambar diatas jenis field integer seharusnya varchar kemudian isikan didatabase minimal 1 user untuk tes program Kemudian buatlah sebuah project di VB6 Klik gambar untuk memperbesar Saya menggunakan dua form, satu form utama dan satu lagi form login jadi selain tutorial koneksi database, postingan kali ini juga membahas tentang membuat form Login  / menu Login untuk form login saya gunakan 1 form, 2 label, 2 textbox, 2 command button untuk form utama terserah anda saja Form login : frmLogin txtNama txtPassword cmdOK cmdExit  Form Utama frmUtama Kemudian buatlah module pada project VB6 Anda. Klik gambar untuk memperbesar k...

Coding ini digunakan untuk memberikan efek ledakan di Form pada VB6 Ikuti langkah-langkah berikut ini - Siapkan 1 form baru - Siapkan pula 1 command button Klik gambar untuk memperbesar copy kan coding berikut ini di form Private Sub Command1_Click()   Ganti 20000 di bawah dengan kecepatan dari efek ledakan form.   Call ImplodeForm(Me, 20000)   End   Set Form1 = Nothing End Sub Private Sub Form_Load()   Call ExplodeForm(Me, 20000)  ledakan form End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)   Call ImplodeForm(Me, 20000)  pengembalian form End Sub dan buatlah satu module kemudian copy kan coding berikut ini di module: #If Win16 Then   Type RECT     Left As Integer     Top As Integer     Right As Integer     Bottom As Integer   End Type #Else   Type RECT     Left As Long     Top As Long     Right As ...

Postikan kali ini tentang bagaimana cara menampilkan database di ComboBox VB6 Bagi anda yang hanya mencari coding, berikut saya berikan codingNya dengan catatan koneksi sudah anda buat dan berhasil kemudian tabel database sudah bisa diakses     rsUser.Requery     With rsUser     If .EOF And .BOF Then         MsgBox "DATA USER TIDAK DITEMUKAN", vbOKOnly + vbCritical, "Error"     Else         cboNama.Clear         Do Until .EOF             cboNama.AddItem ![Nama]             .MoveNext         Loop             .MoveFirst     End If     End With pada koding diatas saya menggunakan recordset "rsUser" dan...