Pertama kita buka vb.netnya, lalu 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 kalkulator. pada Location pilih folder untuk menyimpan project
lalu KLIK OK.maka akan tampil seperti gambar dibawah ini.
Tool yang akan kita gunakan:
- Groupbox : 2
- Text Box : 9
- Label :
9
- Button : 2
1.GroupBox
1.1 GroupBox ubahlah propertisnya menjadi:
Name : gboTranskripNila
Text : TranskripNilai
1.2 GroupBox ubahlah
propertisnya menjadi:
Name : gbo AkumulasiNilai
Text : Akumulasi Nilai
2. Text Box
1.1
Text Box ubahlah propertisnya menjadi:
Name : txtNama
Text : -
1.2 Text
Box ubahlah propertisnya menjadi:
Name : txtAbsen
Text : -
1.3 Text
Box ubahlah propertisnya menjadi:
Name : txtKeaktifan
Text : -
1.4 Text
Box ubahlah propertisnya menjadi:
Name : txtTugas
Text : -
1.5 Text
Box ubahlah propertisnya menjadi:
Name : txtUTS
Text : -
1.6 Text
Box ubahlah propertisnya menjadi:
Name : txtUAS
Text : -
1.7 Text
Box ubahlah propertisnya menjadi:
Name : txtNilairatarata
Text : -
1.8 Text
Box ubahlah propertisnya menjadi:
Name : txtGrade
Text : -
1.9 Text
Box ubahlah propertisnya menjadi:
Name : txtKeterangan
Text : -
3. Label
3.1 Label ubahlah
propertisnya menjadi:
Name :label1
Text : Nama
3.2 Label
ubahlah propertisnya menjadi:
Name :label2
Text : Absensi
3.3 Label
ubahlah propertisnya menjadi:
Name :label3
Text : Kehadiran
3.4 Label
ubahlah propertisnya menjadi:
Name :label4
Text : Keaktifan
3.5 Label
ubahlah propertisnya menjadi:
Name :label5
Text : UTS
3.6 Label
ubahlah propertisnya menjadi:
Name :label6
Text : UAS
3.7 Label
ubahlah propertisnya menjadi:
Name :label7
Text :Nilai Rata-rata
3.8 Label
ubahlah propertisnya menjadi:
Name :label8
Text :Grade
3.9 Label
ubahlah propertisnya menjadi:
Name :label9
Text :Keterangan
4. Button
4.1 Button
Ubahlah Propertisnya menjadi:
Name : btnView
Text : View
4.2 Button
Ubahlah Propertisnya menjadi:
Name : btnClear
Text : Clear
Button Ubahlah
Propertisnya menjadi:
Name : btnExit
Text : Exit
Langsung
saja membuat Desainya ya..,pertama klik tool label yang ada disebelah kiri lalu
tempatkan pada form yang telah ada.lihat gambar.
Selanjutnya
kita mulai membuat script kodenya.
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Close()
End Sub
Private Sub btnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnView.Click
Dim nama As String
Dim tugas As Double
Dim mid As Double
Dim uas As Double
Dim keaktifan As Double
Dim absensi As Double
Dim nilai As Double
Dim ket As String
nama = txtNama.Text
tugas = Val(txtTugas.Text)
keaktifan = Val(txtKeaktifan.Text)
absensi = Val(txtAbsensi.Text)
mid = Val(txtUTS.Text)
uas = Val(txtUAS.Text)
nilai = ((0.2 * absensi) + (0.15 * tugas) + (0.1 * keaktifan) + (0.25 * mid) + (0.3 * tugas))
txtNilairatarata.Text = nilai
If nilai <= 39 Then
Grade = "E"
ket = "anda gagal"
ElseIf nilai <= 56 Then
Grade = "D"
ket = "Kurang Cukup "
ElseIf nilai <= 69 Then
Grade = "C"
ket = "Cukup"
ElseIf nilai <= 79 Then
Grade = "B"
ket = "Baik"
ElseIf nilai <= 89 Then
Grade = "A"
ket = "Sangat Baik"
End Sub
End Class
Lihat Gambar
Seperti Dibawah ini
Setelah selesai Coba di RUN atau tekan F5 pada
keyboard anda.LIHAT HASILNYA.
Bila
angka pertama dan angka kedua telah diisi klik tombol yang anda inginkan maka
hasilnya dapat anda lihat.pada textbox.
Hasilnya
seperti gambar dibawah ini.
Selesai
!!!
Selamat Mencoba… J
“jangan
menyerah sebelum mencoba dan berusaha”
0 komentar:
Posting Komentar