Latihan Form Font

Secara umum, visual basic adalah bahasa pemrograman yang paling mudah dimengerti dan banyak digunakan. Visual basic adalah pemrograman berbasis Windows, dimana dalam tingkat dasar untuk melakukan pemrograman visual basic cukup sederhana yaitu dengan mengatur menu, dan menggunakan bahasa Inggris sederhana sebagai bahasa pemrogramannya.

Fungsi Visual Basic

Kegunaan Visual Basic adalah untuk membuat program berbasis Windows mulai yang sederhana sampai pemrograman yang lebih kompleks. Contohnya adalah pembuatan aplikasi kasir atau perpustakaan.

Untuk membuat aplikasi sederhana dengan visual basic maka kita harus menguasai bahasa pemrograman C++, Visual Basic yang paling banyak digunakan adalah Microsoft Visual Basic.

Nah, dengan penjelasan yang singkat mengenai kegunaan visual basic diatas semoga dapat membantu anda yang sedang memerlukan informasi atau sedang belajar visual basic.



 LATIHAN MEMBUAT PROGRAM FONT

langkah awal membuat from,untuk mempersingkat waktu mari kita mulai;

    Langkah pertama membuka aplikasi Visual Studio 2010.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 “Program Font” 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 = "Program Font"    Koding yang benar.

    End Sub

      Setelah anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debugging(F5)” yang mempunyai icon seperti ini ” “ 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/”Program Font ” pada gambar diatas. Atau bisa dilakukan dengan menekan “stop debugging(Ctrl+Alt+Break)” atau dengan menekan icon seperi ini “ “.

    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 be 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”/”Program Font” dan klik kiri lagi.

    Aturlah pada lembar kerja ”Form1”/ “Program Font” 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 = "Program Font"

    Me.BackColor = Color.Purple

    Label1.Text = "Selamat Datang Di Visual Studio 2010"

    Label2.Text = "Masukan Text pada Textbox di bawah ini"

    RadioButton1.Text = "Red"

    RadioButton2.Text = "Blue"

    RadioButton3.Text = "Green"

    RadioButton4.Text = "Black"

    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"

    Button1.Text = "Proses "

    End Sub

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

    

     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 biru 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:
    

    

    

    

    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 ungu 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.

    BY:

    shaumi eka aprianty

    MANAJEMEN INFORMATIKA