JURNAL PRAKTIKUM TEKNOLOGI INFORMATIKA PROGRAM 2

ABSTRAK

Saat ini aplikasi-aplikasi penunjang pendidikan bertambah banyak seiring berjalannya waktu, namun cara pengenalan bentuk dan warna pada anak-anak selama ini kurang mengena. Maka dari itu penulis membuat suatu program pengenalan bentuk dan warna. Dengan terlebih dahulu mendesain program tersebut dengan berbasis Visual Basics 2010, pengenalan bentuk dan warna akan lebih mengena kepada anak-anak. Penggunaanyan yang simple dan mudah sehingga tidak membuat bingung anak.

Kata Kunci: Visual Basics 2010, desain program pengenalan bentuk dan warna

PENDAHULUAN

Saat ini aplikasi-aplikasi penunjang pendidikan kepada anak sudah bermacam-macam, mulai dar membaca, menghitung, menulis, dan sebagainya. Pengenalan bentuk dan warna kepada anak juga merupakan proses pendidikan. Pada umumnya cara pembelajaran ini hanya dengan kertas poster biasa. Namun cara tersebut kurang efektif, untuk itulah perlu adanya proses pengenalan bentuk dan warna yang lebih efektif, simple dan mengena. Maka atas dasar itulah, penulis merasa perlu membuat suatu program aplikasi yang memberikan kemudahan anak anak dalam melakukan pembelajaran pengenalan bentuk dan warna.

RUMUSAN MASALAH

Dari uraian diatas dirumuskan hal sebagai berikut:

Bagaimana membuat suatu program pengenalan bentuk dan warna menggunakan Visual Basics 2010 sebagai alternative untuk melakukan pembelajaran pada anak?

TUJUAN DAN MANFAAT

Tujuan

Tujuannya adalah membuat suatu program pengenalan bentuk dan warna sebagai alternative untuk pembelajaran pada anak  yang berbasis Visual Basics 2010.

Manfaat

Adapun manfaat dari pembuatan aplikasi ini adalah memberikan suatu solusi alternative bagi orang tua untuk pembelajaran pada anaknya secara mudah, dan mengena.

KAJIAN TEORI

Pengertian dan Fungsi Microsoft Visual Basics 2010

Visual Basics adalah sebuah bahasa pemrogamaman yang berpusat pada object (Object Oriented Progamming) digunakan dalam pembuatan aplikasi Windows yang berbasis Integerated Development Environment, hal ini menjadikan Visual Basics menjadi bahasa pemrogaman yang wajib diketahui dan dikuasai oleh setiap programmer. Visual Basics yang merupakan bagian dari Visual Studio, Visual Studio terdapat beberapa jenis pemrogamaman yaitu, Visual Basics, Visual C#, Visual F#. Beberapa karakteristik obyek tidak dapat dilakukan oleh Visual Basics misalnya seperti Inheritance tidak bisa Modul dan Polymorphism secara terbatas bisa dilakukan dengan deklarasi class module yang mempunyai interface tertentu. Sifat Visual Basic tidak case sensitive. Selain itu segudang fitur dan fasilitas yang memudahkan dan mengembangkan suatu aplikasi.

METODE PENELITIAN

Komponen	Properties	Keterangan
Form1	Name Text BackgroundImage	Form1 Form1 System.Drawing.Bitmap
Label1	Name Text Font Name Font Size Background color ForeColor TextAlign	Label1 Explore Your Imagination Colorshape Tahoma 20.25 Transparent White MiddleCenter
Combobox1	Name	Combobox1
Combobox2	Name	Combobox2
Button1	Name Text	Button1 Lihat
Button2	Name Text	Button2 Keluar
Komponen	Properties	Keterangan
Form2	Name Text BackgroundImage	Form2 Form2 System.Drawing.Bitmap
Label1	Name Text Font Name Font Size Background color ForeColor TextAlign	Label1 Label1 Tahoma 20.25 Transparent White MiddleCenter
OvalShape1	Name	OvalShape1
Button1	Name Text	Button1 Kembali
Komponen	Properties	Keterangan
Form3	Name Text BackgroundImage	Form3 Form3 System.Drawing.Bitmap
Label1	Name Text Font Name Font Size Background color ForeColor TextAlign	Label1 Label1 Tahoma 20.25 Transparent White MiddleCenter
RectangleShape1	Name	RectangleShape1
Button1	Name Text	Button1 Kembali
Komponen	Properties	Keterangan
Form4	Name Text BackgroundImage	Form4 Form4 System.Drawing.Bitmap
Label1	Name Text Font Name Font Size Background color ForeColor TextAlign	Label1 Label1 Tahoma 20.25 Transparent White MiddleCenter
OvalShape1	Name	OvalShape1
Button1	Name Text	Button1 Kembali
Komponen	Properties	Keterangan
Form5	Name Text BackgroundImage	Form5 Form5 System.Drawing.Bitmap
Label1	Name Text Font Name Font Size Background color ForeColor TextAlign	Label1 Label1 Tahoma 20.25 Transparent White MiddleCenter
RectangleShape1	Name	RectangleShape1
Button1	Name Text	Button1 Kembali

HASIL DAN PEMBAHASAN

Form 1

Listing:

Public Class Form1

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

       

    End Sub

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

        ComboBox2.Text = "Pilih Warna"

        With ComboBox2

            .Items.Add("Merah")

            .Items.Add("Kuning")

            .Items.Add("Hijau")

            .Items.Add("Kuning")

            .Items.Add("Jingga")

            .Items.Add("Biru")

            .Items.Add("Emas")

            .Items.Add("Silver")

            .Items.Add("Ungu")

        End With

        ComboBox1.Text = "Pilih Bentuk"

        With ComboBox1

            .Items.Add("Persegi")

            .Items.Add("Persegi Panjang")

            .Items.Add("Lingkaran")

            .Items.Add("Oval")

        End With

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

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

        If ComboBox1.Text = ("Persegi") Then Form5.Show()

        If ComboBox1.Text = ("Lingkaran") Then Form2.Show()

        If ComboBox1.Text = ("Persegi Panjang") Then Form3.Show()

        If ComboBox1.Text = ("Oval") Then Form4.Show()

        If ComboBox1.Text = ("Pilih Bentuk") Then MsgBox("Bentuk Belum di Isi")

        If ComboBox2.Text = ("Pilih Warna") Then MsgBox("Warna Belum di Isi")

        If ComboBox1.Text = ("") Then MsgBox("Bentuk Belum di Isi")

        If ComboBox2.Text = ("") Then MsgBox("Warna Belum di Isi")

    End Sub

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

        Me.Close()

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

End Class

Form2

Listing:

Public Class Form2

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

        Me.Close()

        Form1.Show()

    End Sub

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

        If Form1.ComboBox2.Text = ("Merah") Then Me.OvalShape2.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.OvalShape2.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.OvalShape2.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.OvalShape2.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.OvalShape2.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.OvalShape2.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.OvalShape2.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.OvalShape2.FillColor = Color.Purple

        Dim warna As String

        warna = Form1.ComboBox2.Text

        Label1.Text = "Lingkaran " & warna

    End Sub

    Private Sub OvalShape2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape2.Click

       

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

       

    End Sub

End Class

Form3

Listing:

Public Class Form3

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

        Me.Close()

        Form1.Show()

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

    End Sub

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

        If Form1.ComboBox2.Text = ("Merah") Then Me.RectangleShape1.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.RectangleShape1.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.RectangleShape1.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.RectangleShape1.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.RectangleShape1.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.RectangleShape1.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.RectangleShape1.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.RectangleShape1.FillColor = Color.Purple

        Dim warna As String

        warna = Form1.ComboBox2.Text

        Label1.Text = "Persegi Panjang " & warna

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

End Class

Form4

Listing:

Public Class Form4

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

        Me.Close()

        Form1.Show()

    End Sub

    Private Sub ovalshape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click

      

    End Sub

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

        If Form1.ComboBox2.Text = ("Merah") Then Me.OvalShape1.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.OvalShape1.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.OvalShape1.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.OvalShape1.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.OvalShape1.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.OvalShape1.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.OvalShape1.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.OvalShape1.FillColor = Color.Purple

        Dim warna As String

        warna = Form1.ComboBox2.Text

        Label1.Text = "Oval " & warna

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

End Class

Form5

Listing:

Public Class Form5

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

    End Sub

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

        Me.Close()

        Form1.Show()

    End Sub

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

        If Form1.ComboBox2.Text = ("Merah") Then Me.RectangleShape1.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.RectangleShape1.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.RectangleShape1.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.RectangleShape1.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.RectangleShape1.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.RectangleShape1.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.RectangleShape1.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.RectangleShape1.FillColor = Color.Purple

        Dim warna As String

        warna = Form1.ComboBox2.Text

        Label1.Text = "Persegi  " & warna

    End Sub

End Class

KESIMPULAN DAN SARAN

Kesimpulan

Pendaftaran keanggotaan adalah salah satu solusi untuk meningkatkan persewaan video. Dengan terlebih dahulu mendesain system pendaftaran keanggotaan berbasis Visual Basics 2010, pendaftaran akan lebih praktis. Serta penggunaan program yang tidak sulit akan memudahkan konsumen.

Pengenalan bentuk dan angka adalah salah satu solusi untuk memudahkan orang tua dalam melakukan pembelajaran kepada anaknya. Dengan terlebih dahulu mendesain system pengenalan bentuk dan warna berbasis Visual Basics 2010, pembelajaran akan lebih praktis dan mengena. Serta penggunaan program yang tidak sulit akan memudahkan anak-anak dalam mengoperasikannya.

SARAN

Desain system pendaftaran keanggotaan berbasis Visual  Basics 2010 ini masih sebatas rancangan system oleh karena itu perlu diimplementasikan. Untuk pengembangan system lebih lanjut dapat dikembangkan system pemesanan dengan aplikasi lainnya, sehingga pelayanan konsumen dapat lebih ditingkatkan.

Desain system pengenalan bentuk dan warna berbasis Visual Basics 2010 ini masih dalam bentuk rancangan system oleh karena itu perlu diimplementasikan. Untuk pengembangan system lebih lanjut dapat dikembangkan system pemesanan dengan aplikasi lainnya, sehingga pelayanan konsumen dapat lebih ditingkatkan.