Visual Basic 2008


Visual Basic merupakan salah satu bahasa pemrograman yang mudah untuk dipelajari dan dapat menampilkan performance yang bagus dan gampang dinikmati, serta berbasis OOP atau pemrograman berorientasi objek. Sebelum memulai belajar perlu disiapkan aplikasi yang dapat digunakan untuk compiler basic, ada bermacam-macam. Disini saya menggunakan Visual Studio atau visual basic 2008. Apabila belum memiliki aplikasi silahkan anda unduh pada http://www.Microsoft.com/express/vb/.
Pelajaran pertama adalah perkenalan fungsi toolbox yang sering digunakan untuk pembuatan suatu aplikasi/program

Label:digunakan untuk menampilkan tulisan secara cepat
Textbox:digunakan untuk menampilkan karakter dan dapat diganti serta diberi inputan
Button:memberikan fungsi setelah diklik
Checkbox:memberikan fungsi pilihan satu atau lebih
Checked list box:memberikan fungsi pilihan satu atau lebih yang disusun
Combobox:menampilkan beberapa word, pemakaiannya dengan cara dipilih atau diklik.
Radiobutton:digunakan untuk memberikan pilihan tapi hanya dapat dipilih satu dari beberapa pilihan tersebut
DatetimePicker: untuk menampilkan kalender

Dll,yang akan dipelajari secara bertahap.

1.Program Hello World dengan menggunakan textbox!
a. add new project>>trus pilih textbox drag ke form1
b. double click pada textbox dan tulis perintah:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Textbox1.text = “Hello World!”
    End Sub
Begitu saja.mudah bukan?hehe.. J


2.Program hitung sederhana
Yang perlu disiapkan adalah label, textbox dan button
Seperti gambar berikut:



Kemudian double klik pada button +
Textbox3.text = val(textbox1.text) + val(textbox2.text)

Lalu double klik pada button –
Textbox3.text = val(textbox1.text) - val(textbox2.text)

Lalu double klik pada button *
Textbox3.text = val(textbox1.text) * val(textbox2.text)

Lalu double klik pada button :
Textbox3.text = val(textbox1.text) - val(textbox2.text)

F5 untuk menjalankan program

3. Membuat jam digital
Yang diperlukan hanyalah sebuah label dan timer(cari pada toolbox),agar tampilan lebih bagus silahkan perbesar font size pada label.caranya tinggal cari pada properties>>font
Klik komponen timer>>lihat pada properties>>ganti interval menjadi 1000, enable = true.kemudian klik ganda pada komponen timer dan buat seperti berikut:
Public class form1
Dim a as string ‘ dim digunakan untuk mendeklarasikan variabel
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
A = format(now(), “Long time”)
Label1.text = a
    End Sub
End class

Tekan F5 untuk menjalankan program, dan hasilnya:




4. Program Isi Form
Program ini didesain agar tidak dapat submit apabila button ditekan apabila ada salah satu isian yang blank atau tidak dipilih.
Buat form design seperti berikut:

 
Kemudian buat sorce codenya seperti berikut:
Public Class Form1
    Dim a As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("nama belum diisi")
        Else
            a += 1
        End If
        If TextBox2.Text = "" Then
            MessageBox.Show("alamat belum diisi")
        Else
            a += 1
        End If
        If TextBox3.Text = "" Then
            MessageBox.Show("no hp belum diisi")
        Else
            a += 1
        End If
        If RadioButton1.Checked = False And RadioButton2.Checked = False Then
            MessageBox.Show("jenis kelamin belum diisi")
        Else
            a += 1
        End If
        If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then
            MessageBox.Show("pilihan belum diisi")
        Else
            a += 1
        End If
        If a = 5 Then
            MessageBox.Show("pengisian sukses")
        Else
            MessageBox.Show("pengisian gagal")
        End If
    End Sub

F5 untuk menjalankan program

Apabila ingin ditampilkan pada form2 silahkan tambahkan kode berikut
Public b as form2
Dan buatlah dulu design form2 seperti berikut:



setelah itu dibawah end sub diatas masukkan :

b.label1.text = textbox1.text’untuk memasukkan isi dari textbox1 ke label1
b.label2.text = textbox2.text
b.show

Hasilnya akan seperti berikut:



Untuk mereset form buat button baru pada form1,kemudian double click dan masukkan:
        a = 0
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False


5. Cara membuat form login sangat sederhana
  • Pertama klik file kemudian new project >> OK, kemudian desain form seperti berikut: untuk membuat ini klik toolbox kemudian pilih label untuk membuat tulisan, pilih textbox untuk teksbox kosong, dan button untuk membuat tombol. 


untuk mengganti background dengan image


   sehingga


  • Kemudian double click pada button OK, sehingga masuk ke form1.vb masukkan source code berikut:


           Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "prima" And TextBox2.Text = "rahasia" Then
            Form2.Show()
        Else
            Form3.Show()
            TextBox1.Clear()'untuk mengosongkan textbox1
            TextBox2.Clear()'untuk mengosongkan textbox2
        End If
        Me.Visible = False
    End Sub

  • kemudian kembali ke form1 desain, double click pada button cancel masukan close ()
  • agar tidak form1 tidak mengunci maka kembali ke form1 desain kemudian klik pada form, pilih event (tanda petir) >> double click pada form closed

  •  kemudian masukkan  System.Windows.Forms.Application.Exit()
  • agar password tidak nampak oleh orang lain maka klik textbox2(password) kemudian properties >> use system password : true 

 jadi


  • Ada juga cara untuk desain yang default untuk pembuatan login form, pilih add new item >> login form, lalu masukkan source code yang kurang lebih sama dengan yang sebelumnya. Namun tak perlu menggunakan Me.visible

  • kemudian kita masuk ke form2. pilih project >>  add new item >> windows form >> OK
  •  desain sesuai keinginan :)



  • kemudian double click pada button OK  masukkan source code close()
  • seperti sebelumnya agar tidak mengunci klik form2 desain pilih event >> form closed >> double click
  • kemudian masukkan  System.Windows.Forms.Application.Exit()
  • masuk ke form3, form3 digunakan untuk tampilan bila username dan password salah.sama seperti sebelumnya dan desain sesuai selera.

  • double click pada button OK masukkan source code close()
 
6. Cara mengganti karakter pada system password agar menjadi seperti yang kita inginkan misal seperti berikut:

 maka hasilnya


sipp.gampang kan ^^

7. Menginput gambar dari mypicture:
 buat desain seperti berikut ini menggunakan button, listnox dan picturebox:



Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' menghapus items
        ListBox1.Items.Clear()
        ' menghapus gambar yang sudah di load
        PictureBox1.ImageLocation = "computer:\E\Photo\poto"

        ' mencari gambar jpg, gif dan bmp di folder MyPictures
        For Each Gambar As String In _
        My.Computer.FileSystem.GetFiles( _
        My.Computer.FileSystem.SpecialDirectories.MyPictures, _
        FileIO.SearchOption.SearchAllSubDirectories, _
        "*.jpg*", "*.gif", "*.bmp*")

        ' menambah path gambar yang ketemu di ListBox
        ListBox1.Items.Add(Gambar)
        Next

        ' Beritahu user kalo tidak ada gambar di MyPictures
        If ListBox1.Items.Count < 1 Then
        MsgBox("Tidak ada gambar di folder MyPictures", _
        MsgBoxStyle.Information, "Hasil Pencarian")
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1
        PictureBox1.ImageLocation = ListBox1.SelectedItem
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' mengubah mode ukuran PictureBox menjadi StretchImage
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub
End Class



8. Membuat program jual beli tanpa menggunakan database
Yang perlu disiapkan adalah checkbox, label, textbox dan button. Buatlah desain seperti berikut ini:

a.      
Tambahkan variabel seperti berikut,misal
Dim x,y,z As Decimal ‘ untuk menambahkan variable decimal pada variable x,y,z

 Kemudian double klik pada checkbox1, 2 dan 3 dengan isi kode dengan rumus seperti berikut ini:
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then x = 1000 Else x = 0 ‘jadi jika checkbox dichecked maka x bernilai 1000 jika tidak maka x bernilai 0
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then y = 2000 Else y = 0
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then z = 3000 Else z = 0
End Sub

Klik button total dan masukkan rumus perhitungannya
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Val(x) * Val(TextBox4.Text) + Val(y) * Val(TextBox5.Text) + Val(z) * Val(TextBox6.Text)
End Sub

Kemudian lanjutkan dengan double click pada button kembali dan gunakan

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Val(TextBox2.Text) < Val(TextBox1.Text) Then
MessageBox.Show("uang Anda kurang")
ElseIf Val(TextBox1.Text) < Val(TextBox2.Text) Then
TextBox3.Text = Val(TextBox2.Text) - Val(TextBox1.Text)
ElseIf Val(TextBox1.Text) = Val(TextBox2.Text) Then
TextBox3.Text = 0
End If
End Sub

Jika ingin reset maka gunakan seperti yang telah diajarkan sebelumnya yaitu dengan fungsi clear.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
End Sub
Tekan F5


9.Program Factorial
Buat desain seperti berikut:


Kemudian buat kode seperti berikut ini:
Public Class Form1
    Dim x As Double’mendeklarasikan variabel x bernilai double
    Private Sub btncalculate_Click() Handles btncalculate.Click
        TextBox2.Text = factorial(Double.Parse(txtN.Text))
    End Sub
    Private Function factorial(ByVal N As Double) As Double’buat fungsi factorial
        Dim result As Double = 1
        For i As Integer = 2 To N
            result *= i
        Next i
        Return result
    End Function
End Class
  
Langganan: Postingan (Atom)