Belajar Visual Basic - Membuat Menu Login

Menu Login yang dimaksud disini adalah menu sederhana dengan menginputkan user dan password agar dapat terhubung . Disini kita akan belajar menggunakan Message Box (MsgBox) dalam Visual Basic 6.0


1. Buat Design form

2. Penjelasan :

            - Menu Login adalah dari frame

            - User Name (Label)

            - Password (Label)

            - Textbox user (textbox) : textuser

            - Textbox pass (textbox) : textpass

            - Login (Command Button) : cmdlogin

            - Exit (Command Button) : cmdexit

3. Coding : 

            a. Klik 2 kali pada cmdlogin , coding :

                Private Sub cmdlogin_Click()

                If textuser.Text = "MIRRA" And textpass.Text = "smkn1" Then

                Form2.Visible = True

                ElseIf textuser.Text = "ARIESTA" And textpass.Text = "rpl2" Then

                ElseIf MsgBox("User dan Password Anda salah ! coba cek Capslock Anda !!!") Then

                textuser.Text = ""

                textpass.Text = ""

                End If

                End Sub

            b. Klik 2 kali pada cmdexit , coding :

                Private Sub cmdexit_Click()

                End

                End Sub

4. user name : MIRRA dan password : smkn1

   atau user name : ARIESTA dan password : rpl2

   Jika user nama dan password, maka yang terjadi adalah 

Belajar Visual Basic - Menentukan Ganjil Genap

Posting kali ini akan membahas bagaimana caranya menentukan sebuah bilangan , apakah itu merupakan bilangan genap atau bilangan ganjil dengan menggunakan Visual Basic 6.0 ..

1. Membuat design di visual basic :

2. Penjelasan :

                      - Menentukan Bilangan Ganjil Dan Genap itu merupakan sebuah frame.

                      - Masukkan Angka (Label)

                      - Texboxt masukkan angka (textbox) : Text1

                      - Proses (Command Button) :  cmd_proses

                      - Ulang (Command Button) : cmd_ulang

                      - Exit (Command Button) : cmd_exit

                      - Bikin Label dengan nama label_hasil

3. Coding :

                      a. Klik 2 kali pada cmd_proses,

                           Private Sub cmd_proses_Click()

                           If Text1.Text = "" Then

                           MsgBox "Silahkan isi dulu", vbOKOnly

                           Text1.SetFocus

                           ElseIf Text1.Text Mod 2 = 0 Then

                           label_hasil.Caption = Text1.Text + "  adalah Bilangan Genap"

                           Else

                           label_hasil.Caption = Text1.Text + " adalah Bilangan Ganjil"

                           End If

                           End Sub

                     b. Klik 2 kali pada cmd_ulang,

                         Private Sub cmd_ulang_Click()

                         Text1.Text = ""

                         label_hasil.Caption = ""

                         Text1.SetFocus

                         End Sub

                    c. Klik 2 kali pada cmd_exit

                        Private Sub cmd_exit_Click()

                        End

                        End Sub

4. Hasilnya :

Gambar yang menunjukkan bilangan ganjil

Gambar yang menunjukkan bilangan genap

Visual Basic - Membuat Kalkulator

     Kali ini saya ingin membuat aplikasi kalkulator melalui Visual Basic 6.0 

1. Bikin menu kalkulator sesuai design dibawah ini .

2. Kita beri nama masing-masing object :
    - Kalkulator (Label) : Label1
    - Bilangan 1 (Label) : Bilangan1
    - Bilangan 2 (Label) : Bilangan2
    - Hasil (Label) : Hasil
    - Textbox Bilangan1 (Textbox) : Text1
    - Textbox Bilangan2 (Textbox) : Text2
    - Textbox Hasil (Textbox) : Text3
    - "+" (Command Button) : Cmdtambah
    - "-" (Command Button) : Cmdkurang
    - "/" (Command Button) : Cmdbagi
    - "*" (Command Button) : Cmdkali
    - Hapus (Command Button) : Command1
    - Exit (Command Button) : Cmdexit


3. Klik 2 kali pada command "+"
    coding :
    Private Sub Cmdtambah_Click()
    Dim Bilangan1 As Integer
    Dim Bilangan2 As Integer
    Dim Hasil As Integer
    Bilangan1 = Text1.Text
    Bilangan2 = Text2.Text
    Hasil = Bilangan1 + Bilangan2
    Text3.Text = Hasil
    End Sub


4.  Klik 2 kali pada command "-"
    coding :

    Private Sub Cmdkurang_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 - Bilangan2

   Text3.Text = Hasil

   End Sub

5.  Klik 2 kali pada command "/"
    coding :

    Private Sub Cmdbagi_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 / Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command "*"
    coding :

    Private Sub Cmdkali_Click()

    Dim Bilangan1 As Integer

    Dim Bilangan2 As Integer

    Dim Hasil As Integer

    Bilangan1 = Text1.Text

    Bilangan2 = Text2.Text

    Hasil = Bilangan1 * Bilangan2

    Text3.Text = Hasil

    End Sub

6.  Klik 2 kali pada command Hapus
    coding :

    Private Sub Command1_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    End Sub




6.  Klik 2 kali pada command Exit
    coding :


    Private Sub cmdexit_Click()
    End
    End Sub


7. Dan hasilnya adalah :