Variabel, Tipe Data dan Operator Tentang Kalkulator Hitung Nilai

        Halo, ini adalah blog kedua tentang variabel, tipe data dan operator yang mana sudah saya jelaskan sebelumnya pada blog pemrograman visual kalkulator sederhana, jika ingin melihat kembali klik saja pada link ini: https://niasonia20.blogspot.com/2019/09/pemrograman-visual-kalkulator-sederhana.html.

Maka, langsung saja saya akan melakukan langkah-langkah pemrograman visual membuat kalkulator hitung nilai dan menampilkan nilai hurufnya, yaitu sebagai berikut:

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	frmHitungNilai Program Hitung Nilai
2	Label	Text	Program Hitung Nilai
3	Label	Text	Tatap Muka
4	TextBoxt	Text Name	(dikosongkan) txtTM
5	Label	Text	Mid Test
6	TextBox	Text Name	(dikosongkan) txtMT
7	Label	Text	Final Test
8	TextBox	Text Name	(dikosongkan) txtFT
9	Button	Text Name	Hitung btnHitung
10	Label	Text	Nilai Akhir
11	TextBox	Text Name	(dikosongkan) txtNA
12	Label	Text	Nilai Huruf
13	TextBox	Text Name	(dikosongkan) txtNH

a.       Buatlah Form baru dengan nama Program Hitung Nilai.

b.      Buatlah sebuah hitung nilai yang bisa melakukan operasi operator aritmatika yang diinputkan oleh user.

c.       Hasil Form Hitung Nilai ini kurang lebih sebagai berikut:

Lalu pada program tersebut tambahkan program untuk menampilkan Nilai Huruf sesuai Nilai Hitung yang didapat.

            Tampilan yang diharapkan:

a.       Properties name adalah:

txtTM, txtMT, txtFT, btnHitung, txtNA, txtNH.

e. Kode program:

Public Class Form1

    Private Sub btnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        Dim tatapmuka As Double

        Dim midtest As Double

        Dim finaltest As Double

        Dim nilaiakhir As Double

        Dim nilaihuruf As String

        tatapmuka = txtTM.Text

        midtest = txtMT.Text

        finaltest = txtFT.Text

        nilaiakhir = (tatapmuka + midtest + finaltest) / 3

        If nilaiakhir >= 80 Then

            nilaihuruf = "A"

        ElseIf nilaiakhir >= 70 Then

            nilaihuruf = "B"

        ElseIf nilaiakhir >= 60 Then

            nilaihuruf = "C"

        ElseIf nilaiakhir >= 50 Then

            nilaihuruf = "D"

        Else

            nilaihuruf = "E"

        End If

        txtNA.Text = nilaiakhir

        txtNH.Text = nilaihuruf

    End Sub

End Class

f. Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

g. Hasil tampilan dari program.

Semoga bermanfaat ya:)