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

Download Contoh Projek VB

1. Projek Rumah Sakit / Klinik.
2. Test Masuk
3. Hotel / Penginapan
4. Penjualan

Transfer item antar listview di Visual Studio 2008

Bisa gak ya kalo transfer item antar listview?? mau coba??
1. Buat design kaya dibawah ini ya




2. Setelah Itu tambahin coding untuk form loadnya ya

With ListBox1.Items
.Add("rujak")
.Add("bakso")
.Add("nasi goreng")
.Add("siomay")
.Add("gado2")
End With

With ListBox2.Items
.Add("teh manis")
.Add("kopi")
.Add("es jeruk")
.Add("aqua")
.Add("es cokelat")
End With

3. Kemudian tambahkan codinh untuk button 1 (untuk pindah), dengan ivent click

If ListBox1.SelectedIndex <> -1 Then
ListBox3.Items.Add("01 - " & ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
ElseIf ListBox2.SelectedIndex <> -1 Then
ListBox3.Items.Add("02 - " & ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If

4. Tambahin coding untuk button 2 (untuk kembali), dengan event click

id = Microsoft.VisualBasic.Left(ListBox3.SelectedItem, 2)
nama = Mid(ListBox3.SelectedItem, 6, Len(ListBox3.SelectedItem))
If id = "01" Then
ListBox1.Items.Add(nama)
ElseIf id = "02" Then
ListBox2.Items.Add(nama)
End If
ListBox3.Items.Remove(ListBox3.SelectedItem)

5. Kemudian yang terakhir tambahin coding untuk listview1 dengan ivent GotFocus

Select Case sender.name
Case ListBox1.Name
ListBox2.SelectedIndex = -1
Case ListBox2.Name
ListBox1.SelectedIndex = -1
End Select

Kalo udah coba dah jalanin, kalo bener hasilnya kaaya dibawah ini :



Terus coba dah pindahin ke listview sebelah



dan yang terakhir coba aja dindah lagi kesebelah, kembaliin ke tempat semula

Program Konversi Suhu - Lengkap

#include
#include
void main()
{
int awal,akhir,c;
float r,f,
clrscr;
cout<<"Nilai Awal :",cin>>awal;
cout<<"Nilai Akhir :",cin>>akhir;
cout<<"Hasil Konversi Celcius ke Reamur ke fahrenhaite dan ke kelvin"< cout<<"|--------------------------------------------------------------|"< cout<<"| celcius | reamur | fahrenhaite | kelvin |"< cout<<"|--------------------------------------------------------------|"< for(c=awal;c<=akhir;c++)
{
r=(0.4*f-32);
f=(1.8*c+32);
k=(2.25*r+273);
c=(k-273);
cout<<"| "< cout<<"|------------------------------------------------------------------|"< }
getch();
}

Materi Premrograman Visual II

Struktur Keputusan dan Perulangan - Klik untuk Download -