Membuat Radio Button Pada Vb 2010

Membuat Radio Button Pada Vb 2010

Langkah :

1. Buat Form pada Visual basic 2010
2. Tambahkan
     2 buah Radio Button ( radio button 1 beri nama "Type1", dan Radio Button 2 beri nama "type 2)
     1 buah Text box
     1 buah Command button (beri nama "enter")
Kemudian susun seperti Form dibawah ini :

 3. Lalu klik double pada "Command button", lalu pastekan kode berikut :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then TextBox2.Text = "Anak Sekolahan"
        If RadioButton2.Checked = True Then TextBox2.Text = "Anak Pengangguran"
    End Sub

4. silahkan Tekan F5 maka hasilnya akan seperti ini :

Silahkan di coba...!

Salam
HarleY DaoelaY

Read More

Membuat Format Rupiah Di Textbox Vb 2010

Membuat Format Rupiah Di Textbox Vb 2010


Langkah :

1. Buat sebuah Form Di Visual basic 2010
2. Tambahkan 1 Buah "textbox', maka akan terlihat seperti Dibawah ini :

3. Kemudian, klik double pada textboxt, lalu paste kan kode berikut :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim f As Long
        If TextBox1.Text = "" Or Not IsNumeric(TextBox1.Text) Then
            Exit Sub
        End If
        f = TextBox1.Text
        TextBox1.Text = Format(f, "Rp,   ##,##0")
        TextBox1.SelectionStart = Len(TextBox1.Text)
    End Sub

4. Langkah terakhir, Tekan F5, lalu masukkan nilai (angka) pada textbox, maka hasilnya akan seperti ini :

Selamat mencoba....!!!

Salam
HarleY DaoelaY

Read More

Cara Membuat item di Combobox Vb 2010

Cara Membuat item di Combobox Vb 2010

Langkah :
1. Buat sebuah Form
2. Tambahkan 1 buah "combobox", maka akan terlihat seperti ini :

3. langkah selanjutnya klik double pada Form lalu paste kan kode berikut ;

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("ACEH")
        ComboBox1.Items.Add("BALI")
        ComboBox1.Items.Add("BANDUNG")
        ComboBox1.Items.Add("BATURAJA")
        ComboBox1.Items.Add("BEKASI")
    End Sub

Nb :
kata ACEH,BALI,BANDUNG, ganti sesuka hati anda tanpa menghapus tanda petik.

4. Kemudian Klik F5 maka akan tampak seperti ini :

Selamat Mencoba....!!!!

Read More

Cara Membuat Exit Button Di Vb 2010

Cara Membuat Exit Button Di Vb 2010

Langkah :
1. Buat sebuah Form
2. Tambahkan 1 buah "Button", maka akan terlihat seperti gambar berikut :

3. Klik double pada "Button1" dan paste kan kode berikut :
   

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

        Dim response As MsgBoxResult

        response = MsgBox("Anda yakin Ingin keluar??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")

        If response = MsgBoxResult.Yes Then

            Me.Dispose()

        ElseIf response = MsgBoxResult.No Then

            Exit Sub

        End If

    End Sub

4. Langkah selanjutnya tinggal coba (klik F5)

Read More