Pertemuan 5 | 9 Maret 2015 | Menghitung Nilai Akhir

Tutorial :  Membuat program untuk menghitung nilai akhir

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project.
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK.
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Absen	lblAbsen
Label2	Tugas	lblTugas
Label3	Keaktifan	lblKeaktifan
Label4	UTS	lblUTS
Label5	UAS	lblUAS
Label6	Nilai Akhir	lblNilai
Label7	Huruf	lblHuruf
Textbox1	-	txtAbsen
Textbox2	-	txtTugas
Textbox3	-	txtKeaktifan
Textbox4	-	txtUTS
Textbox5	-	txtUAS
Textbox6	-	txtNilaiAkhir
Textbox7	-	txtHuruf
Button1	Hitung	btnHitung
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class FormNilai 'deklarasi Dim hasil As Integer Dim absen As Decimal, tugas As Decimal, aktif As Decimal, uts As Decimal, uas As Decimal 'coding untuk tombol Hitung (menghitung nilai) Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click absen = txtAbsen.Text * (20 / 100) tugas = txtTugas.Text * (15 / 100) aktif = txtKeaktifan.Text * (10 / 100) uts = txtUTS.Text * (25 / 100) uas = txtUAS.Text * (30 / 100) hasil = absen + tugas + aktif + uts + uas txtNilaiAkhir.Text = hasil If txtNilaiAkhir.Text >= 85 Then txtHuruf.Text = "A" ElseIf txtNilaiAkhir.Text >= 70 Then txtHuruf.Text = "B" ElseIf txtNilaiAkhir.Text >= 56 Then txtHuruf.Text = "C" ElseIf txtNilaiAkhir.Text >= 40 Then txtHuruf.Text = "D" Else txtHuruf.Text = "E" End If End Sub 'coding untuk tombol clear Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtAbsen.Clear() txtTugas.Clear() txtKeaktifan.Clear() txtUTS.Clear() txtUAS.Clear() txtNilaiAkhir.Clear() txtHuruf.Clear() End Sub 'coding untuk tombol exit Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, sebagai contoh masukan angka 100 pada tiap tiap textbox, kemudian klik tombol Hitung, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear

• Langkah kedelapan, jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Pertemuan 4 | 2 Maret 2015 | Membuat program untuk menghitung jarak tempuh kendaraan per liternya

Tutorial :  Membuat program untuk menghitung jarak tempuh kendaraan per liternya

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008

• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. Seperti pada gambar di atas.

• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Maka setelah klik OK akan telihat tampilan seperti di bawah ini.

• Langkah keempat buatlah desain form seperti gambar di bawah ini. Masukkan 3 label, 3 textbox, dan 3 command button. Lalu ubahlah propertiesnya  seperti pada tabel berikut:

Objek	Text	Name
Label1	Full Tank (Liter)
Label2	Jarak Yang Bisa Ditempuh (KM)
Label3	KM/Liter
Textbox1	-	txtLiter
Textbox2	-	txtJarak
Textbox3	-	txtKalkulasi
Button1	Kalkulasi	btnKalkulasi
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukan koding berikut

1. Masukkan koding berikut pada tombol kalkulasi

Private Sub btnKalkulasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKalkulasi.Click txtKalkulasi.Text = txtJarak.Text / txtLiter.Text End Sub

2. Masukkan koding berikut pada tombol clear

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

3. Masukkan koding berikut pada tombol exit
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub

• Langkah keenam, untuk mendapatkan hasil dari coding di atas kita klik tombol F5 pada keyboard anda, sebagai contoh masukan angka pada textbox fulltank misalkan 10, lalu pada textbox jarak misalkan 100 kemudian klik Kalkulasi, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear.

• Langkah kedelapan jika telah selesai klik tombol exit untuk mengakhiri aplikasi.

Tutorial 2 :  Membuat program untuk menghitung total penghasilan dari penjualan kursi tiket

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain form seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Grupbox1	Ticket
Grupbox2	Penghasilan
Label1	Jualan Tiket
Label2	Class A
Label3	Class B
Label4	Class C
Label5	Class D
Label6	Total Kursi
Label7	Class A
Label8	Class B
Label9	Class C
Label10	Class D
Label11	Total Penghasilan
Textbox1	-	txtA
Textbox2	-	txtB
Textbox3	-	txtC
Textbox4	-	txtD
Textbox5	-	txtKursi
Textbox6	-	txtHasilA
Textbox7	-	txtHasilB
Textbox8	-	txtHasilC
Textbox9	-	txtHasilD
Textbox10	-	txtPenghasilan
Button1	Hitung Penghasilan	btnHasil
Button2	Clear	btnClear
Button3	Exit	btnExit

• Langkah kelima masukkan koding berikut

Public Class Form4 Dim var1 As Single, var2 As Single, var3 As Single, var4 As Single 'coding untuk tombol hasil penghitungan Private Sub btnHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click var1 = txtA.Text var2 = txtB.Text var3 = txtC.Text var4 = txtD.Text txtKursi.Text = var1 + var2 + var3 + var4 txtHasilA.Text = var1 * 100000 txtHasilB.Text = var2 * 75000 txtHasilC.Text = var3 * 50000 txtHasilD.Text = var4 * 25000 txtPenghasilan.Text = var1 * 100000 + var2 * 75000 + var3 * 50000 + var4 * 25000 End Sub 'coding untuk tombol clear Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click txtA.Clear() txtB.Clear() txtC.Clear() txtD.Clear() txtHasilA.Clear() txtHasilB.Clear() txtHasilC.Clear() txtHasilD.Clear() txtKursi.Clear() txtPenghasilan.Clear() End Sub 'coding untuk tombol exit Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

• Langkah keenam untuk mendapatkan hasil dari coding di atas kita klik tombol F5 pada keyboard anda, sebagai contoh masukan angka 10 pada classA, 20 classB, 30 pada classC, dan 40 pada classD, kemudian klik hasil penghasilan, maka hasilnya akan seperti berikut.

• Langkah ketujuh, jika ingin menghitung ulang tinggal klik tombol clear.

 

• Langkah kedelapan jika telah selesai klik tombol exit untuk mengakhiri aplikasi.