Tutorial VB.net Simulasi Nilai

Tutorial Simulasi angka

pada kesempatan kali ini saya ingin share tentang membuat program simulasi nilai dengan vb.net,ok kita langsung saja ya..

Langkah pertama buka vb.net pilih file > new >project.

 

Maka jendela baru terbuka.pilih windows form application,ganti name dengan simulasi nilai.lalu klik ok

Langkah selanjutnya buat desain dengan toolbox  yang ada disebelah kiri form.dengan cara klik tool yang dibutuhkan tempatkan pada form.

 

 

tool yang digunakan:

4 label:

Label1 ganti TEXT pada profertis dengan SIMULASI NILAI

Label2 ganti TEXT pada profertis dengan Input angka

Label3 ganti TEXT pada profertis dengan Keterangan

Label4 ganti TEXT pada profertis dengan Predikat

3Textbox:

Text pada properties :dihapus

3Button:

Button1 ganti Text pada properties dengan Proses

Button1 ganti Text pada properties dengan refres

Button1 ganti Text pada properties dengan EXIT

Selanjutny double klik pada button 1(proses) maka form baru terbuka dan ketikan kode program sbb:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Val(TextBox1.Text) >= 80 Then

            TextBox1.ForeColor = Color.Brown

            TextBox2.ForeColor = Color.Brown

            TextBox3.ForeColor = Color.Brown

            TextBox2.Text = "A"

            TextBox3.Text = "EXCELENT"

        ElseIf Val(TextBox1.Text) >= 70 Then

            TextBox1.ForeColor = Color.BlueViolet

            TextBox2.ForeColor = Color.BlueViolet

            TextBox3.ForeColor = Color.BlueViolet

            TextBox2.Text = "B"

            TextBox3.Text = "GOOD"

        ElseIf Val(TextBox1.Text) >= 60 Then

            TextBox1.ForeColor = Color.BlanchedAlmond

            TextBox2.ForeColor = Color.BlanchedAlmond

            TextBox3.ForeColor = Color.BlanchedAlmond

            TextBox2.Text = "C"

            TextBox3.Text = "ENOUGH"

        ElseIf Val(TextBox1.Text) >= 45 Then

            TextBox1.ForeColor = Color.BurlyWood

            TextBox2.ForeColor = Color.BurlyWood

            TextBox3.ForeColor = Color.BurlyWood

            TextBox2.Text = "D"

            TextBox3.Text = "BAD"

        Else

            TextBox1.ForeColor = Color.Chartreuse

            TextBox2.ForeColor = Color.Chartreuse

            TextBox3.ForeColor = Color.Chartreuse

            TextBox2.Text = "E"

            TextBox3.Text = "WORSE"

        End If

    End Sub

Lihat gbr.

 

Lanjut pada double klik button2(refresh) ketikan kode programnya:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

Selanjutnya double klik pada Button Exit dan ketikan kode programnya sbb:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

Bila semua kode dimasukan langkah selanjutnya kita akan menjalankan program tersebut.klik icon  start debugging atau tekan F5 pada keyboard.

Bila berhasil coba anda masukan angka  dan klik proses.maka secara otomatis pada textbox2 dan 3 akan terlihat hasilnya.

Sekian TUTORIAL dari saya semoga dapat berguna dan selamat mencoba…..