Langkah Pertama Ya Tentu Saja Buka Visual Basci Kalian Saya Sarankan Menggunkan Visual Basic 2010, Karena Saya Membuat Nya Dengan Visual Basic 2010.
" Untuk Cara Mnambahkan Form Disini Saya Tidak Akan Menjelaskan karena Karena Sebagian Dari Kalian Pasti Sudah Mengetahuinya "
1. Buatlah Desain Form Nya Seperti Ini
" Distu Tambahkan Lah Radio Button Sebanyak 4 Buah Dan Satu Buah Button "
Untuk Radio Button Yang Tambah Beri Nama " rbtntambah "
Untuk Radio Button Yang Kurang Nama " rbtnkurang "
Untuk Radio Button Yang Kali Beri Nama " rbtnkali "
Untuk Radio Button Yang Bagi Beri Nama " rbtnbagi "
& Untuk Button Next Beri Nama " btnnext "
" Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form2 Private Sub rbtntambah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtntambah.CheckedChanged End Sub Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click Form3.Show() End Sub End Class
2. Bauat 1 Form Lagi Dengan Design Berikut
" Distu Tambahkan Lah Text Box Sebanyak 3 Buah, Dan Label Dengan Text ,+,-,*,: Dan Satu Buah Button "
Untuk Text Box Yang No 1 Beri Nama " txt1 "
Untuk Text Box Yang No 2 Beri Nama " txt2 "
Untuk Text Box Yang No 3 Beri Nama " txthasil "
& Untuk Button Hasil Beri Nama " button1" Saja
" Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form3 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Label1.Text = "+" txthasil.Text = Val(txt1.Text) + Val(txt2.Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Form2.rbtntambah.Checked = True Then txthasil.Text = Val(txt1.Text) + Val(txt2.Text) ElseIf Form2.rbtnkurang.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) End If Form4.Label1.Text = txthasil.Text Form4.Show() End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Form2.rbtntambah.Checked = True Then txthasil.Text = Val(txt1.Text) + Val(txt2.Text) Label1.Text = "+" ElseIf Form2.rbtnkurang.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = "-" ElseIf Form2.rbtnkali.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = "x" ElseIf Form2.rbtnbagi.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = ":" End If End Sub End Class
NOTE " Sebenarnya Inti Dari Semua Kode Berletak Di Form 3 Ini Karena Object Nya Berada Distu :) Menurut Saya Loh Ya :) "
3. Di Form 4 Buat Lah Dengan Design Seperti Ini
" Distu Tambahkan Lah Button Sebanyak 2 Buah Dan Satu Buah Label Dengan Teks = NILAI"
Untuk Label Beri Nama " Label1 "
Untuk Button Uang Beri Nama " button1 "
Untuk Kutton keluar Beri Nama "button2 "
" Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Nah Unutuk Nyamannya Anda Belajar Tentang OOP Dan Memahaminya Sendiri ;Silahkan Download Aplikasi Nya Disini
Dan Jangan Lupa Like Fans Page Facebook Kita Disini
0 comments:
Post a Comment