Pertemuan 3, 23 februari 2015 : : Menghitung kalkulasi bensin

Pertama buka vb.netnya, kemudian buat program baru.dengan cara KLIK – NEW - PROJECT
Maka tampilan awal akan seperti gambar dibawah ini.



Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang ingin kita buat yaitu kalkulasi. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.




Kemudian Tool yang akan kita gunakan:
· 3 Label
· 3 Textbox
· 3 Button
Label 1 ubah properties text menjadi Full tank (liter)
Label 2 ubah properties text menjadi jarak yang bias dicapai (km)
Label 3 ubah properties text menjadi km/liter
Textbox1 text=(kosongkan)
Textbox2 text=(kosongkan)
Textbox3 text=(kosongkan)
Textbox1 namet=txtTank
Textbox2 name=txtJarak
Textbox3 name=txtBensin
Button1 ubah properties text menjadi kalkulasi
Button2 ubah properties text menjadi clear
Button3 ubah properties text menjadi exit
Button1 ubah properties name menjadi btnkalkulasi
Button2 ubah properties name menjadi btnclear
Button3 ubah properties name menjadi btnexit

Langsung saja membuat Desainya ok seperti gambar di bawah ini tinggal narik narik tool ke form lalu
ganti text nya dan name di propeties



Selanjutnya kita mulai membuat script kodenya.
Double Klik pada btnkalkulasi yang kalkulasi maka form baru akan tampil.lalu masukan kode script dibawah ini
Private Sub btnkalkulasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkalkulasi.Click
txtBensin.Text = CInt(txtTank.Text) / CInt(txtJarak.Text)
End Sub
End Class
Seperti gambar dibawah ini


Selanjutnya kita mulai membuat script kodenya.

Double Klik pada btnclear yang kalkulasi maka form baru akan tampil.lalu masukan kode script dibawah ini

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtBensin.Clear()
txtJarak.Clear()
txtTank.Clear()
End Sub



Selanjutnya kita mulai membuat script kodenya.
Double Klik pada btnkalkulasi yang kalkulasi maka form baru akan tampil.lalu masukan kode script dibawah ini

Public Class Form1
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub



Setelah selesai Coba di RUN atau tekan F5 pada keyboard anda.LIHAT HASILNYA.
Hasilnya seperti gambar dibawah ini yahhhhh!!! :)





Menghitung jumlah kursi yg di pesan dan total harga

- Buatlah dsign VB.net seperti di bawah



- Pilih hitung dan akan masuk ke halaman source code




- Lalu Masukan sorce code :
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Hasil, Kursi, A, B, C, D As Integer
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
D = TextBox4.Text
TextBox10.Text = TextBox1.Text * 150000
TextBox9.Text = TextBox2.Text * 90000
TextBox8.Text = TextBox3.Text * 70000
TextBox7.Text = TextBox4.Text * 50000
TextBox5.Text = A + B + C + D
TextBox6.Text = A * 150000 + B * 90000 + C * 70000 + D * 50000
End Sub

- Pilih clear dan akan masuk ke halaman source code




- Lalu Masukan sorce code :
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox5.Clear()
TextBox6.Clear()
End Sub

- Pilih exit dan akan masuk ke halaman source code



- Lalu Masukan sorce code :
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Kemudian coba run kaya gini gak? :)




Menampilkan salam dengan inputan nama
- Buatlah dsign VB seperti dibawah ini

- Pilih show generating dan akan masuk ke halaman source code



- Lalu masukan source code :
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label.Text = "Hello " & TextName.Text
TextName.Clear()
End Sub

- Pilih exit dan akan masuk ke halaman source code


- Lalu masukan source code :
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Kemudian coba run yahhh :)

Menampilkan Hari dan Tanggal Lahir
- Buatlah dsign VB.net seperti di bawah

- Pilih Show Date dan akan masuk ke halaman source code


- Lalu Masukan sorce code :
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label5.Text = TextBox1.Text & ", " & TextBox2.Text & " " & TextBox3.Text & ", " & TextBox4.Text()
End Sub
- Pilih Clear dan akan masuk ke halaman source code

- Lalu Masukan sorce code :
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
Label5.Text = String.Empty
End Sub
- Pilih Exit dan akan masuk ke halaman source code

Lalu Masukan sorce code :
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Sekrang coba Running masukkan data anda lalu tekan show date apa yang terjadi :)

Selamat mencoba tutorialnya :)