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

Perhitungan ROKET

Nie ada satu kasus. Misalnya sebuah roket menghabiskan bahan bakar 1 KG per 1 kilometer pertama, dan 8 KG untuk kilometer ke 2, dan begitu seterusnya berkurang 80% setiap kilometer. Nah.. Soalnya berapa Kilo bahan bakar yang dihabisin untuk 100 KM??

1. Pertama coba rancang form seperti dibawah ini :



berikutnya pada BUTTON PROSES tambahin coding dibawah ini

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim jml_kg, km1 As Double
km1 = 10
jml_kg = 0
Dim a As Integer
For a = 2 To CInt(jarak.Text)
km1 = km1 * 0.8
jml_kg = jml_kg + km1
Next
MsgBox("Bahan bakar yang dihabiskan adalah " & 10 + jml_kg & " Kg")
End Sub

coding diatas menggunakan perulangan FOR dengan asumsi setiap kilometer menghabiskan bahan bakar 80% dari sebelumnya.

ADA cara lain??

kalo yang dlu jurusan IPA pas SMA pasti pernah denger DERET GEOMETRI, bisa juga di terapin dalam kasus ini, ketikan kode berikut di tombol PROSESNYA

Dim a As Integer = jarak.Text
Dim hitung As Decimal
hitung = (10 * (1 - (0.8 ^ jarak.Text))) / (1 - 0.8)
MsgBox("Bahan bakar yang dihabiskan adalah " & hitung & " Kg")

Moga Bermanfaat yaa ... :))

Kemudian dijalankan, maka hasilnya seperti gambar di bawah