Membuat Program Konsep Pemrograman Object Oriented Programming (OOP) ke Dalaam Visual Basic 2008

Assalamualaikum Wr. Wb.
Pada kesempatan kali ini saya akan menjelaskan program sederhana yang telah saya buat yaitu program aplikasi tulisan font berwarna dan selanjutnya mengambil kata dari tulisan yang dibuat sebelumnya. Program tersebut saya buat degan menggunakan Microsoft Visual Studio 2008 dan memakai fungsi Left, Mid, Right dan Class. 


1. Pertama-tama kita membuka Microsoft Visual Studio 2008 lalu membuat project dengan:
klik Create Project > Windows Form Application > Ok kemudian membuat Project Class  klik Project>Add Class seperti dibawah ini

2. Setelah mengklik Add Class, kita ubah nama Class tersebut menjadi Font Property lalu klik Add seperti gambar dibawah ini berikut codingannya :

Public Class FontProperty

    Public Function kiri(ByVal karakter, ByVal jumlah)

        kiri = Left(karakter, jumlah)

    End Function

    Public Function kanan(ByVal karakter, ByVal jumlah)

        kanan = Right(karakter, jumlah)

    End Function

    Public Function tengah(ByVal karakter, ByVal jumlahmulai, ByVal jumlahambil)

        tengah = Mid(karakter, jumlahmulai, jumlahambil)

    End Function

End Class

3. Kemudian Buat Formnya 1 Label, 9 TextBox, 2 Button, 1 GroupBox, 4 RadioButton, 3 CheckBox

4. Jangan lupa mengubah Name dan Text di Properties

5.  Double klik Button OK , Button Get Word, RadioButton merah, hijau, biru, kuning serta CheckBox Bold, Italic dan Underline ddengan codingan sebagai berikut :

Public Class Form1

    Dim classfont As New FontProperty

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

        Thasil.Text = Tnama.Text

    End Sub

    Private Sub Tmerah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmerah.CheckedChanged

        Thasil.ForeColor = Color.Red

    End Sub

    Private Sub Thijau_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thijau.CheckedChanged

        Thasil.ForeColor = Color.Green

    End Sub

    Private Sub Tbiru_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbiru.CheckedChanged

        Thasil.ForeColor = Color.Blue

    End Sub

    Private Sub Tkuning_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tkuning.CheckedChanged

        Thasil.ForeColor = Color.Yellow

    End Sub

    Private Sub Titalic_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Titalic.CheckedChanged

        If Titalic.Checked Then

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

        Else

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

        End If

    End Sub

    Private Sub Tbold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbold.CheckedChanged

        If Tbold.Checked Then

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

        Else

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

        End If

    End Sub

    Private Sub Tunderline_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tunderline.CheckedChanged

        If Tunderline.Checked Then

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

        Else

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

        End If

    End Sub

Private Sub BtnGetWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetWord.Click

        Dim f As Integer

        f = Left.Text

        TGetW.Text = classfont.kiri(Thasil.Text, f)

        Dim r As Integer

        Dim s As Integer

        r = MID1.Text

        s = MID2.Text

        TGetW2.Text = classfont.tengah(Thasil.Text, r, s)

        Dim y As Integer

        y = Right.Text

        TGetW3.Text = classfont.kanan(Thasil.Text, y)

    End Sub

6. Kemudian klik Start atau Debug lalu isi di TextBox Masukan Nama klik OK dan pilih warna dan bentuk yang anda sukai isi kolom kecil dengan angka disana akan menampilkan kata-kata yang anda tulis tadi dengan mengambil huruf dari kiri, tengah, dan kiri kemudian klik Get Word dan hasilnya seperti ini :

Sekian program class sederhana dari saya semoga bermanfaat jika ada program yang salah atau kurang silahkan isi comment dibawah ini.

Wassalamualaikum Wr. Wb

TERIMA KASIH :)

Menentukan NPM dengan Fungsi IF, MessageBox,String dan Loop

Assalamualikum wr wb.
Pada kesempatan kali ini saya akan menjelaskan bagaimana membuat program aplikasi sederhana dengan menggunakan Fungsi If, Fungsi Messagebox, Fungsi String, Looping dalam 1 project 2 form yaitu menetukan NPM Mahasiswa dan juga membuat Verifikasi Password sebagai pembuka pada awal aplikasi dijalankan.


pertama Start > All Programs > Microsoft Visual Studio 2008 kemudian klik Create Project > Windows Form Application > Ok


1. Membuat form Verifikasi Password terlebih dahulu

Mari kita ubah tombol Label, TextBox dan Button di Properties

#np menggunakan tanda bintang (*) pada password? agar pas mengisi password pada textbox2 maka yang muncul bukan huruf ataupun angka melainkan tanda bintang

2

Nah tampilan akan seperti anda tinggal memasukan username dan password seperti contoh di atas

3.

Jika anda salah memasukan password maka akan ada konfirmasi password yang anda masukan salah

Berikut Source Code untuk membuat aplikasi Password

Public Class Form2

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click

        Dim y As Integer

        If Tpassword.Text = "cantik" Then

            Me.Hide()

            Form1.Show()

        Else

            y = MsgBox("Password yang Anda masukkan salah", MsgBoxStyle.OkOnly, "Konfirmasi")

            TUsername.Text = ""

        End If

    End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click

        TUsername.Text = ""

        Tpassword.Text = ""

        TUsername.Focus()

    End Sub

End Class

**jika sudah memasukan password dengan benar klik masuk lalu akan tampil form yang telah anda buat sebelumnya seperti ini

 4.

Lalu buatlah form seperti yang terlihat di bawah ini dengan menggunakan Label, ComboBox,dan Button

Ubah Label, TextBox, ComboBox dan Button di Properties

5.

   Untuk membuat  Tahun 2005 s/d 2011 anda bisa menggunakan perulangan seperti gambar  yang ada di atas

6.

Dan apabila Jurusan S1 maka beri kode 11 dan apabila jurusan D3 maka beri kode 02

7.

Untuk No urut mulai dari 100 s/d250 dengan menggunakan perulangan maka hasilnya akan seperti gambar berikut yang ada di atas. 

8.

NPM hasil dari penggabungan antara fungsi String dan If dengan ketentuan 2 string kanan dari tahun dan kode jurusan serta no.urut. 

-        * Apabila jurusan di klik untuk S1, maka akan tampil keluar items yang ada di npm sebanyak no.urut yang telah di tentukan tadi (100 – 250) seperti yang ada di bawah di atas untuk jurusan S1 angka depan NPM adalah 11.

9

Apabila memilih jurusan D3 maka nomer NPM akan keluar dengan angka depan 02

10

sebagai conton anda memilih tahun 2011 jurusan D3 dan no urut 106 maka secara otomatis nomer npm akan keluar mengikuti kode

11.

untuk kembali dan mengosongkan tinggal klik Hapus sepeti gambar di atas

12.

jika anda ingin keluar klik tombol keluar 

#berikut adalah source code aplikasi pada form 1 di atas

FORM LOAD

Public Class Form1

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

        Dim a, b As Integer

        a = 2005

        Do While a <= 2011

            Tahun.Items.Add(a)

            a = a + 1

        Loop

        Jurusan.Items.Add("S1")

        Jurusan.Items.Add("D3")

        b = 100

        Do While b <= 250

            NoUrut.Items.Add(b)

            b = b + 1

        Loop

    End Sub

JURUSAN

Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged

        NPM.Items.Clear()

        Dim k As Integer

        Dim j, l As String

        j = Microsoft.VisualBasic.Right(Tahun.Text, 2)

        If Jurusan.Text = "S1" Then

            l = "11"

        Else

            l = "02"

        End If

        k = 100

        Do While k <= 250

            NPM.Items.Add(j & l & k)

            k = k + 1

        Loop

    End Sub

NO.URUT

Private Sub NoUrut_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoUrut.SelectedIndexChanged

        NPM.Items.Clear()

        Dim j, l As String

        j = Microsoft.VisualBasic.Right(Tahun.Text, 2)

        If Jurusan.Text = "S1" Then

            l = "11"

        Else

            l = "02"

        End If

        NPM.Items.Add(j & l & NoUrut.Text)

    End Sub

BUTTON HAPUS

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Tahun.Text = " "

        jurusan.Text = " "

        NoUrut.Text = " "

        NPM.Text = " "

    End Sub

BUTTON EXIT

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Dim y As Integer

        y = MsgBox("Yakin Keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

SILAHKAN MENCOBA TERIMA KASIH :)

Membuat aplikasi acak menggunakan Timer dengan fungsi Case (Revisi)

Assalamualaikum aplikasi mengguakan icon Timer yang bertujuan untuk mengacak angka jika anda memilih menekan tombol akan terpilih angka yang random teracak,


Pertama seperti biasa, kita buat form seperti di bawah ini

Kedua : Kemudian Button1 (STOP) di tumpuk di Button2 (START), seperti di bawah ini

Ketiga ubah Propertiesnya

Keempat Kita mulai pengkodingan klik 2x tombol start

keterangan Pada saat kita meng-Klik Start maka angka acak akan berjalan dan tombol Stop Tampil sedangkan tombol Start hilang. 

Kelima klik button stop 2x 

 Keenam : masukan coding dengan mengklik icon timer yang berada di bawah berikut codingannya seperti ini

Ketujuh klik F5 atau klik start untuk debug

Kedelapan  klik  Button Start untuk memulai mengacak angka yang ada dalam Timer, seperti ini:

Kesembilan klik di tombol yang sama maka akan terpilih dari hasil acak random contohnya seperti ini

Sekian penjelasan saya kurang lebihnya saya mohon maaf dan Terimakasih :)

Nb codingan lengkapnya : 



Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
        System.Convert.ToInt32(RTangka.Text)
        Timer1.Enabled = False
        Select Case RTangka.Text
            Case 0, 1, 2
                Thadiah.Text = "Mobil"
            Case 3, 4, 5
                Thadiah.Text = "Motor"
            Case 6, 7, 8
                Thadiah.Text = "Laptop"
            Case 9, 10
                Thadiah.Text = "Handphone BlackBerry"
        End Select
        Timer1.Enabled = False
        BtnStart.Visible = True
        BtnStop.Visible = False
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
        Timer1.Enabled = True
        Thadiah.Text = ""


        Timer1.Enabled = True
        BtnStop.Visible = True
        BtnStart.Visible = False
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As Integer
        For a = 1 To 10
            RTangka.Text = Strings.Left(a * Rnd(), 1)
        Next
    End Sub
End Class

Membuat Apikasi Menggunakan Fungsi IF "Love Prediction"

Langkah pertama yaitu seperti awal  Caranya Klik Start > All program > Microsoft Visual Studio 2008> Create Project > Windows Forms Application lalu pilih OK 

                                                  2. Akan muncul form kosong seperti ini

3. Form kosong tersebut akan kita isi dengan ToolBox seperti Label, ComboBox, Button, GroupBox dan Picture

4. Untuk mengganti nama Text dan Name pada tombol Label, Button dan GroupBox terdapat di Properties atau klik kanan dengan menggunakan mouse

5. Di dalam kotak ComboBox kita harus mengisi nama yang akan di tulis dengan klik tombol yang seperti tanda panah kecil kemudian klik Edit Items

6. Masukan nama-nama perempuan pada ComboBox1 seperti yang tertera di atas Indri, Jessica, Aya, Nina, Tiara

7. Kemuadian ComboBox2 isi dengan nama laki-laki seperti Victor, Andre,Kevin,Anton dan Handi

8. Hasil dari tampilan form akan seperti ini jika anda ingin menambahkan Gambar tinggal klik ToolBox > PictureBox > Choose Image > Import, Jika ingin mengubah warna BackColor dan BackgroundImage tinggal  ubah di properties maka hasilnya akan seperti ini.

9. Untuk pengcodingan klik tombol Prediksi isi codingan tersebut seperti ini

untuk lebih jelas saya masukan codingan di atas dengan warna biru

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

       If (ComboBox1.Text = "Aya" And ComboBox2.Text = "Victor") Then

            MessageBox.Show("Pasangan Serasi")

        ElseIf (ComboBox2.Text = "Handi") Then

            MessageBox.Show("Jomblo Nih")

        ElseIf (ComboBox1.Text = "Indri" And ComboBox2.Text = "Anton") Then

            MessageBox.Show("Pasangan Serasi")

        ElseIf (ComboBox1.Text = "Tiara" And ComboBox2.Text = "Anton") Then

            MessageBox.Show("Baru Putus 2 Minggu yang lalu")

        ElseIf (ComboBox1.Text = "Jessica" And ComboBox2.Text = "Andre") Then

            MessageBox.Show("Pasangan Serasi")

        ElseIf (ComboBox1.Text = "Nina" And ComboBox2.Text = "Kevin") Then

            MessageBox.Show("Pasangan Serasi")

        Else

            MessageBox.Show("Pasangan tidak Serasi")

        End If

    End Sub

End Class

10. Untuk mencoba aplikasi di atas kik start atau F5, kemudian masukan nama pasangan tersebut sebagai contoh di pihak perempuan pilih Aya dan laki-laki pilih Victor. lalu klik prediksi dan hasilnya mereka Pasangan Serasi, karena sesuai dengan hasil pengcodingan di atas

11. Kemudian pilih nama pasangan lain seperti Indri dan Kevin ketika klik prediksi mereka Pasangan Tidak Serasa karena dalam pengcodingan Indri berpasangan dengan Anton bukan dengan Kevin  

12. Jika kita ingin memilih nama lain seperti Handi maka hasil prediksi akan keluar kata-kata Jomblo Nih walaupun dipasangkan dengan nama perempuan hasil yang keluar akan tetap karena dalam coding nama Handi sudah ditulis dengan 

ElseIf (ComboBox2.Text = "Handi") Then

                                                          MessageBox.Show("Jomblo Nih")

13. Hasil lainnya seperti  Tiara dan Anton yang akan muncul adalah Baru Putus 2 Minggu yang lalu karena nama Tiara sudah terset   

ElseIf (ComboBox1.Text = "Tiara" And ComboBox2.Text = "Anton") Then

                                           MessageBox.Show("Baru Putus 2 Minggu yang lalu")

14. Jika Anda menglik tombol keluar maka ada pernyataan Ingin Keluar dari Aplikasi ini? kemudian anda tinggal memilih Yes/No

15. Klik 2x pada tombol keluar untuk pengcodingan

coding untuk tombol keluar:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim y As Integer

        y = MsgBox("Ingin Keluar dari Aplikasi ini?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

TERIMAKASIH :)

-