Contoh Membuat Data Report

Klik disini untuk mendownload tutorial membuat data report

Pengumuman Judul Projek

RALAT, pengumuman judul projek bisa dilihat di website PAK ADI PURWANTARA, pada hari Senin. Mohon di informasikan ke temen2 yang laen. alamat webnya www.purwaloka.com

Projek

Contoh Projek VB.Net
- Database Local
- Dataset + TableAdapter
- ++ Seleksi Report
Klik disini buat download ya

Program VB + Report

Berikut ini adalah contoh program VB (blm sempurna), yg berisi :
- Master User + Login
- Master barang
- Transaksi (belum sempet buat simpen datanya)
- Report untuk data Barang & User

- Report menggunakan data Report dengan mengambil data ke DATASET untuk di tampilkan di data report, kemudian di tampilkan di form.

untuk jelasnya download programnya disini ya.
kalo ga mau jalan juga email ato facebook ya :))

Lanjutan Program

Nahh ini lanjutan program yang sebelumnya
tapi belum sempurna, mash banyak kekurangan
udah dilengkapi dengan FORM BARANg dan TRANSAKSI
klik dsni untuk download ya..

Contoh + Coding Form Login

Buat temen2 STIKOM Bali yang lagi buat projek, nie ada contoh untuk form LOGIN, lengkap ma databasenya. Spesifikasinya:

1. Database menggunakan SQL Server ( Yang ada di VB)
2. Pembuatan Database menggunakan DB LOCAL di VB.net
3. Sudah tersedia Form Master User
4. Tidak Menggunakan conection String
5. Menggunakan Dataset
6. Untuk Query Insert dan Validasi Login
disimpan di TABLE ADAPTER

Nahh Lengkapnya download aja DISINI yaa...
Kalo ada yang kurang jelas tanyaan Via FB ato Email ya.

Semoga bsa membantu :))

Perhitungan TIMER (selisih START - STOP)

Bagi temen2 yang buat projek warnet, nie ada sedikit contohnya. Misal qta akan menghitung selisih waktu start dan waktu stop. Langkah pertamanya adalah membuat design form seperti di bawah ini :



JANGAN LUPA TAMBAHKAN KOMPONEN TIMER PADA FORMNYA DAN ATUR INTERVALNYA MENAJDI 1000 (UNTUK 1 DETIK)

Kemudian tambahkan code dibawah ini :

Public Class coBAtIMER

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
jam1.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
waktu.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
jam2.Text = Format(Now, "HH:mm:ss")
Timer1.Enabled = False
'--------------------------------
'Proses Selisih Waktu
Dim detik, menit, jam, second As Integer
detik = DateDiff(DateInterval.Second, CDate(jam1.Text), CDate(jam2.Text))
'menit = DateDiff(DateInterval.Minute, CDate(jam1.Text), CDate(jam2.Text))
'jam = DateDiff(DateInterval.Hour, CDate(jam1.Text), CDate(jam2.Text))
jam = detik / 3600
menit = (detik Mod 3600) / 60
second = (detik Mod 3600) Mod 60

durasi.Text = jam & " JAM " & menit & " MENIT " & second & " DETIK"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
waktu.Clear()
durasi.Clear()
jam1.Clear()
jam2.Clear()
End Sub
End Class

kALO udah coba jalanin programnya, MAKa hasilnya seperti gambar dibawah