Tutorial Pembuatan Login dan Rumus Volume Balok

Oke semuanya pada kesempatan kali ini saya akan berbagi pengetahuan sedikit tentang Pembuatan LOGIN Dan RUMUS VOLUME BALOK,,

Oke Kita Lanjut aja ya sobat dengan tutorialnya,,

·         Buatlah Gambar awal spt dibwh ini :

·         Masukkan codingnya spt dibwh ini  :

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "LOGIN"         Me.BackColor = Color.CornflowerBlue         GroupBox1.BackColor = Color.DeepSkyBlue         GroupBox1.ForeColor = Color.BlueViolet         Label1.ForeColor = Color.BlueViolet         Label2.ForeColor = Color.BlueViolet         Label3.ForeColor = Color.BlueViolet         TextBox1.ForeColor = Color.BlueViolet         TextBox2.ForeColor = Color.BlueViolet         GroupBox1.Text = "Login"         Label1.Text = "Silahkan Login:"         Label2.Text = "Username"         Label3.Text = "Password"         Button1.Text = "Proses"         Button2.Text = "Cencel"         Button1.Cursor = Cursors.Hand         Button2.Cursor = Cursors.Hand         TextBox2.PasswordChar = "*"     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If (TextBox1.Text = "Nila") And (TextBox2.Text = "1995") Then             Form2.Show()             Me.Hide()         Else             MessageBox.Show("Username atau Password anda salah !", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Error)             TextBox1.Clear()             TextBox2.Clear()             TextBox1.Focus()         End If     End Sub End Class

·         Stlh masukan coding klik Run/F9,mka hsilnya spt dibwh ini :

·         Coba masukkan username n password’a lalu klik proses spt gmbr dibwh ini :

·         Bila username atau password’a slh mka akan muncul spt gmbr dibwh ini:

·         Jika sudah bis login maka akan muncul form2 n buat spt gmbr dibwh ini:

·         Stlh slse,buatlah coding’a spt dibwh ini:

Public Class Form2     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "Program Menghitung Volume Balok"         Me.BackColor = Color.DeepSkyBlue         GroupBox1.BackColor = Color.CornflowerBlue         GroupBox2.BackColor = Color.CornflowerBlue         Label1.ForeColor = Color.BlueViolet         Label2.ForeColor = Color.BlueViolet         Label3.ForeColor = Color.BlueViolet         Label4.ForeColor = Color.BlueViolet         Label5.ForeColor = Color.BlueViolet         Label6.ForeColor = Color.BlueViolet         Button1.ForeColor = Color.BlueViolet         Button2.ForeColor = Color.BlueViolet         Button3.ForeColor = Color.BlueViolet         TextBox1.ForeColor = Color.BlueViolet         TextBox2.ForeColor = Color.BlueViolet         TextBox3.ForeColor = Color.BlueViolet         TextBox4.ForeColor = Color.BlueViolet         CheckBox1.ForeColor = Color.BlueViolet         Label1.Text = "Masukkan Nilai"         Label2.Text = "Panjang"         Label3.Text = "Lebar"         Label4.Text = "Tinggi"         Label5.Text = "Luas Volume Balok"         Label6.Text = ""         Label1.Font = New Font(Label1.Font, FontStyle.Bold)         Label2.Font = New Font(Label2.Font, FontStyle.Bold)         Label3.Font = New Font(Label3.Font, FontStyle.Bold)         Label4.Font = New Font(Label4.Font, FontStyle.Bold)         Label5.Font = New Font(Label5.Font, FontStyle.Bold)         Label6.Font = New Font(Label6.Font, FontStyle.Italic)         CheckBox1.Font = New Font(CheckBox1.Font, FontStyle.Bold)         CheckBox1.Text = "Tampilkan Rumus Volume Balok"         GroupBox1.Text = ""         GroupBox2.Text = ""         Button1.Text = "Proses"         Button2.Text = "Delete"         Button3.Text = "Close"         Button1.Cursor = Cursors.Hand         Button2.Cursor = Cursors.Hand     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         TextBox4.Text = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Close()     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         TextBox1.Text = ""         TextBox2.Text = ""         TextBox3.Text = ""         TextBox4.Text = ""     End Sub     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged         If CheckBox1.Checked = True Then             Label6.Text = "Rumus Volume Balok : Panjang*Lebar*Tinggi"         else             Label6.Text = ""         End If     End Sub End Class

·         Stlah selese membuat codingnya jalankan dg klik run/F9 maka hasilnya sperti di bawah ini:

·         Dan cobalah masukkan angka ke textbox” yg sdh trsdia n centang checkbox’a,spt gmbr dibwh ini :

Nah begitulah Cara Kita untuk membuat Login dan Rumus Volume Balok,,,,

Semoga bermanfaat yea,,dan selamat mencoba,,,Trimakasih,,,