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…..