Membuat Kalkulator Sederhana dengan VB 2012

Pertama-tama buatlah 3 buat label, 3 buah text box dan 4 buah button. Pada label ganti menjadi :
Label1 = Kalkulator
Label2 = Bilangan 1
Label3 = Bilangan 2
Untuk text box ganti name-nya menjadi :
Textbox1 = txtbil1
Textbox2 = txtbil2
Textbox3 = txthasil
Lalu untuk masing-masing button ubah text menjadi "+","-","*","/" dan name menjadi:
Button1 = btntambah
Button2 = btnkurang
Button3 = btnkali
Button4 = btnbagi
Setelah itu susun menjadi bentuk seperti dibawah ini :

Untuk script tambah, klik double pada button tambah, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) + Val(txtbil2.Text)
    End Sub

Untuk script kurang, klik double pada button kurang, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) - Val(txtbil2.Text)
    End Sub

Untuk script kali, klik double pada button kali, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)
    End Sub

Dan, untuk script bagi, klik double pada button bagi, lalu masukan script berikut ini :
 Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) / Val(txtbil2.Text)
    End Sub

Membuat Aplikasi Penilaian dengan VB 2012

Pertama-tama buatlah 7 buah label, 7 buah text box dan 1 buah button. Setelah itu gantilah text pada label tersebut menjadi masing-masing NIS, Nama, Nilai Tugas, Nilai Ulangan Harian, Nilai Ulangan Semester, Nilai Akhir dan Nilai Huruf. Lalu ubahlah name pada text box menjadi txtnis, txtnam, txttugas, txtulharian, txtulsemester, txtnilaiakhir, dan txtnilai huruf. Setelah itu pada button ubahlah textnya menjadi "Proses" dan name menjadi btnproses.
Jika sudah atur tampilannya menjadi seperti gambar dibawah ini :
Setelah itu click double pada button proses, lalu tambahkan script berikut ini :
Public Class Form1

    Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click
        txtnilaiakhir.Text = (50 / 100 * txttugas.Text) + (20 / 100 * txtulharian.Text) + (30 / 100 * txtulsemester.Text)
        If txtnilaiakhir.Text > 85 Then
            txtnilaihuruf.Text = "A"
        ElseIf txtnilaiakhir.Text > 75 Then
            txtnilaihuruf.Text = "B"
        ElseIf txtnilaiakhir.Text > 60 Then
            txtnilaihuruf.Text = "C"
        Else
            txtnilaihuruf.Text = "D"
        End If
    End Sub
End Class

Jika sudah, coba jalankan dan inputkan nilainya. Jika berhasil maka tampilannya akan berubah menjadi seperti dibawah ini :