Newbie VB

Bingung Tugas akhir ingin mengambil program apa ? atau bingung mencari bahan programnya ???Berikut beberapa program sederhanan yang bisa dipakai dalam penulisan Tugas akhir, diantaranya :

1. Penjualan Obat
2. Pengadaan Barang Kantor
3. Perpustakaan
4. Dll

Pilih salah satu Program yang mau dipesan dengan email ke komunitas.cs@gmail.com dengan memberikan donasi min Rp. 50.000,- Anda sudah bisa mendapatkan Programnya dan Penulisan Teori untuk Pengkodeannya dan Normalisasi.


Terima Kasih.

Nb. No. Rek masih belum dicantumkan
Selengkapnya...

Berikut Logika pembuatan kode otomatis dibuat berdasarkan nomor urut. Caranya adalah, Membaca dari tabel record pertama jika ketentuannya memenuhi sayarat maka no. urut akan menjadi = "01", jikatidak memenuhi syarat maka dia akan loncat kerecord terakhir dan memberikan nilai yang sudah kita buat / deklarasikan berikut contoh kode programnya :

Private Sub Auto()
Dim Urutan As String * '6 => mendeklarasikan urutan sbg tipe string sepanjang 6 carakter
Dim Hitung As Byte '=> deklarasi hitung sebagai byte
With DTJual.Recordset '=> koneksi data ke Database Penjual
If .RecordCount = 0 Then '=> Syarat nilai yg dibuat
Urutan = "000001" '=> jika nilai record=0 maka faktur=000001
Else '=> Jika tak memenuhi syarat
.MoveLast '=> loncat kerecord terakhir
Hitung = Val(!Faktur) + 1 '=> dekalrasikan/nilai yg dibuat
Urutan = "0000" & Right("00" & Hitung, 2) '=> mgambil 2 karakter hitung dari kanan
End If
Text1 = Urutan '=> Nilai yang telah dibuat/jadi
End With
End Sub

Nah kira2 contoh sederharnanya seperti diatas bisa dimodifikasikan dengan tgl, jam atau carakter huruf seperti :
gabungan tgl => 140201 tgl 14 bln 02 No. Urut 01 berarti Nilai Maksimalnya 99 Transaksi/hari
gabungan jam => 123001 jam 12 detik 30 No. Urut 01 tanpa nilai maksimal Transaksi.
dll..

Selamat Mencoba dan bereksperimen !!!
Selengkapnya...

Berikut cara membuat sub kosongkan puluhan Textbox dengan cara efesien dan efektif. Bayangkan ketika kita membuat sebuah program dengan puluhan Textbox apakah kita akan menggunakan code berikut :

Private Sub Kosongkan()
Text1.text=""
      .
      .
Text20.text=""
End Sub


Atau pilih Code sebagai Berikut :

Private Sub kosongkan()
Dim Ctl As Control
For Each Ctl In Me
    If TypeName(Ctl) = "TextBox" Then
        Ctl.Text = ""
    End If
Next
End Sub

Code diatas bisa dimodifikasi menjadi sub Siapisi atau Tidaksiapisi dengan di modif Ctl.Enable=False/True. Sehingga menjadi lebih pendek penulisannya, efisien dan efektif.
Bagaimana menurut anda ???
Selamat mencoba dan bereksperimen !!!

Didalam pembuatan program tugas akhir biasanya kita membutuhkan sebuah report atau laporan. kalau memakai program Visual Basic untuk membuat laporan tentu sangat mudah sekali benar ngga?? namun sayang report yang disediakan untuk laporan perbulan or perhari tidak ada fasilitas wizardnya dan kita kudu mempunyai pengetahuan sedikit mendalam tentang pemrograman Visual Basic. Dan Jika ingin menampilkan perbulan atau perhari kebanyakan menggunakan crystal report tinggal ikutin wizardnya next next maka jadilah...

Kemudian bagaimana jika masih kekeh atau tidak mau yang lain hanya menggunakan fasilitas dari visual basic karena sudah terlanjur jatuh cinta atau tidak bisa kelain program hehe5x romantis amat!!! tenang aj masih banyak kok jalan menuju roma ini salah satunya membuat report dengan coding sql sederhana pasti bisa dan mudah Download disini aja ye untuk keterangannya sudah dibuatin komplit plitplit didalamnya.. setelah didownload dan disimpan buka dulu pakai winrar ok

Penulisnya lagi males ngata-ngatain nih seperti biasanya saya tutup dengan Selamat mencoba dan bereksperimen ok.

Selengkapnya...

Jadi ingat ketika masih kuliah dulu, ada temen coba memasukan sebuah gambar gerak berextension .gif ke form VB. Mungkin maksud hati ingin pamer supaya formnya lebih menarik dengan bergerak. Sayangnya ketika di Run tetep aj tuh gambar tak bergerak sama sekali...alhasil Gatotlah usahanya..

Permasalahan diatas dapat diatasi dengan komponent tambahan " animatedgif ". Download komponennya dengan browsing di Mbah google. Kemudian simpan Komponennya di system32 register di start > Run ketik "regsvr32 animated32.ocx" keluar pesan registred succes.

heheheh..mudeng ngga ??? kalau ngga ywd deh download aj contoh instannya disini Klik disini

Selamat Mencoba dan bereksperimen ... Selengkapnya...