BELAJAR PEMROGRAMAN DASAR VISUAL BASIC/studio 2010

                Berikut ini saya akan membuat sebuah aplikasi yang sangat dasar/sederhana menggunakan Visual basic/studio 2010 yaitu mengubah warna dan bentuk beberapa buah kata atau kalimat.

Baiklah langsung saja kita memulai, akan lebih barokahnya apabila kita memulai dengan membaca basmalah. Bismillahirrohmaanirrohiimm.

  Langkah pertama membuka aplikasi Visual Studio 2010. Klik shortcut VB 2010 pada menu desktop.

Contoh:

• Atau bisa melalui start+All Program+Microsoft Visual Studio 2010

Contoh:

Ø  Langkah kedua. Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini kemudian pilih pada menu “New Project...”

Setelah menekan New Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan OK

Setelah anda masuk kedalam VB 2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka ketik pada keyboard anda “Ctrl+Alt+X"

Jika ingin mengganti nama “form1” bisa anda melakukannya dengan mengganti dari properties dengan menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan “koding” agar lebih pasih dalam menggunakan rumus pada VB 2010.

CARANYA dengan mengklik dua kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya.

Dan anda bisa memperbesar lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya lebih besar.

Cara mengubah nama “form1” menggunakan nama lain seperti “Latihanku” adalah:

Masukkan rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah ini:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Latihanku"             Koding yang benar.

End Sub

Setelah anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debugging(F5)” setelah hasilnya keluar maka akan tampil seperti ini.

Jangan lupa ketika anda ingin melanjutkan untuk memasukkan koding/rumus maka stop dulu “RUN”nya dengan menekan icon “X” berwarna merah pada form/”Latihanku” pada gambar diatas. Atau bisa dilakukan dengan menekan “stop debugging(Ctrl+Alt+Break)”

Ingat.

mengisi koding harus seperti pada teks diatas, tanpa harus perlu menggunakan “spasi” karena apabila koding/rumusnya memang benar maka secara otomatis koding tersebut mempunyai jarak atau spasi.

Apabila anda memasukkan koding/rumus kemudian ada garis bawah pada koding tersebut maka anda memasukkan koding dengan cara yang salah.

Contoh koding yang benar dan setelah di “RUN” seperti gambar dibawah ini:

Baiklah sekarang kita akan membuat bagaimana cara agar huruf/kalimat bisa di tampilkan, bisa diubah warnanya dan bisa diubah bentuk tulisannya menjadi tebal, miring, garis bawah, dan strikeout.

Pertama buatlah “label1” sampai dengan “label3”.

Kedua buatlah satu buah “button1” dan satu buah “textbox”.

Ketiga buatlah empat buah “radiobutton1” sampai dengan “radiobutton4”.

Dan buatlah empat buah “checkbox”.

Semuanya ini anda bisa menemukannya dimenu “toolbox” dengan cara mengklik kiri dan arahkan kursor ke dalam lembar kerja “form”/”Latihanku” dan klik kiri lagi.

Aturlah pada lembar kerja ”Form1”/ “latihanku” seperti ini:

Setelah anda mengaturnya seperti ini klik 2 kali lagi pada “form1” dan masukkan koding jika ingin mengubah nama “Label1”, “Label2”, “Button”, “radiobutton1” sampai “radiobutton4” dan yang terakhir mengubah nama “CheckBox1” sampai dengan “CheckBox4”.

Masukkan koding seperti contoh dibawah:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Text = "Latihanku"

        Label1.Text = "Belajar Pemrograman Visual Basic 2010"

        Label2.Text = "Masukkan Kalimat Kedalam Textbox Dibawah"

        Label3.Text = "___________"      kosongkan label3 seperti ini menggunakan underskor.

        Button1.Text = "KLIK"

        RadioButton1.Text = "Merah"

        RadioButton2.Text = "Biru"

        RadioButton3.Text = "Hijau"

        RadioButton4.Text = "Kuning"

        RadioButton1.ForeColor = Color.Red

        RadioButton2.ForeColor = Color.Blue

        RadioButton3.ForeColor = Color.Green

        RadioButton4.ForeColor = Color.Yellow

        CheckBox1.Text = "Italic"

        CheckBox2.Text = "Bold"

        CheckBox3.Text = "Underline"

        CheckBox4.Text = "Strikeout"

    End Sub

Setelah memasukkan rumus seperti ini maka akan menghasilkan tampilan seperti ini setelah di “Run”:

Dan jika anda ingin menghasilkan keluaran dengan mengetik nama anda dan ditampilkan pada kolom “textbox” maka klik 2 kali pada button yang sudah diganti namanya menjadi “KLIK” di atas, setelah anda masuk kedalam ruang untuk memasukkan koding maka tampilannya seperti ini:

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

        Label3.Text = TextBox1.Text        Masukkan koding/rumus seperti ini.

    End Sub

Setelah anda memasukkan koding diatas pada tombol button/“KLIK” maka anda bisa menghasilkan keluaran apa yang ingin anda ketik.

Contoh:

DAN apabila anda ingin mengubah warna pada teks tersebut maka anda bisa memasukkan koding satu persatu pada “radiobutton1 sampai dengan radiobutton4” yang sudah diganti namanya dengan “Merah”, “Biru”, “Hijau”, dan “Kuning”. INGAT “Satu persatu”

Contoh:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Label3.ForeColor = Color.Red     masukkan pada radiobutton warna “Merah”

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        Label3.ForeColor = Color.Blue      masukkan pada radiobutton warna “Biru”

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        Label3.ForeColor = Color.Green       masukkan pada radiobutton warna “Hijau”

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        Label3.ForeColor = Color.Yellow       masukkan pada radiobutton warna “Kuning”

    End Sub

End Class

Maka hasilnya seperti ini:

Dan apabila anda ingin membuat huruf atau kalimat yang anda buat menjadi tebal, miring, garis bawah, dan garis tengah maka anda bisa dengan cara menekan 2 kali pada “checkbox” yang sudah anda ubah namanya menjadi “bold” sampai dengan “strikeout” dengan cara memasukkannya  satu persatu pada “checkbox” dan memasukkan koding dibawah ini:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Bold)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Bold)

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox1.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Italic)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Italic)

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox1.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Underline)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Underline)

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox1.Checked Then

            Label3.Font = New Font(Label3.Font, Label3.Font.Style Or FontStyle.Strikeout)

        Else

            Label3.Font = New Font(Label3.Font, Label3.Font.Style And Not FontStyle.Strikeout)

        End If

    End Sub

End Class

Yang mempunyai background warna kuning adalah koding yang harus anda masukkan ke setiap “Checkbox” yang sudah anda ganti namanya. Dan ingat telitilah dalam memasukkan titik, koma, dan spasinya.

Setelah anda masukkan koding dan “Run” maka hasilnya akan seperti pada gambar dibawah ini:

MAAF JIKA  TUTORIAL DIATAS MEMPUNYAI BANYAK KEKURANGAN DAN KESALAHAN

“SELAMAT MENCOBA”

SEKIAN DAN TERIMAKASIH.

"GOOD LUCK"

BY:

MUHAMMAD KHAIRI ANWAR

M.I.A 1

14.MI.049