Tutorial Program Memilih Bentuk dan Warna

TUTORIAL

MEMILIH BENTUK DAN WARNA

1. Deskripsi

Program yang kami buat ini adalah program yang dapat memberi pilihan dan menunjukan gambar serta warna yang ingin kita pilih.

2. Tujuan dan Manfaat

Tujuan dari program ini adalah memberi informasi bentuk dan warna agar kita dapat mengenal bentuk dan warna tersebut.

3. Sasaran

Anak kecil atau balita untuk mengenalkan bentuk dan warna dengan mudah dan cepat dan mudah.

Langkah awal adalah buka dahulu Visual Basic 2010 :

Form1 :

Komponen Toolbox yang digunakan sebagai berikut :

No	Komponen	Properties	keterangan
1	Form1	Name	Form1
		Text	Program Bangun 2 Dimensi
		Background
		Display	CentertoScreen
2	Label 1	Name	Label 1
		Text	Silahkan Pilih Bentuk
3	Label 2	Name	Label 2
		Text	Silahkan Pilih Warna
4	TextBox1	Name	TextBox1
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
6	ComboBox1	Name	ComboBox1
		Item	Lingkaran, Persegi
7	ComboBox2	Name	ComboBox2
		Item	Merah, Kuning, Hijau, Biru
8	Button1	Name	Button1
		Text	Buat

Listingnya :

Public Class Form1

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

        If ComboBox1.Text = "Lingkaran" And

           ComboBox2.Text = "Merah" Then

            OvalShape1.Visible = True

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Kuning" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = True

            OvalShape3.Visible = False

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Hijau" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = True

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Biru" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            OvalShape4.Visible = True

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Merah" Then

            RectangleShape1.Visible = True

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Kuning" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = True

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Hijau" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = True

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Biru" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = True

        End If

    End Sub

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

        Me.CenterToScreen()

        Me.Text = "Program Bangun 2 Dimensi"

    End Sub

End Class

[ Read More ]

Flowchart dan Analisis Listing Program Memilih Bentuk dan Warna

FLOWCHART DAN ANALISIS LISTING

MEMILIH BENTUK DAN WARNA

FLOWCHART :

ANALISIS LISTING :

[ Read More ]

Tutorial Form Pendaftaran Internet Speedy Menggunakan Visual Basic 2010

TUTORIAL

FORM PENDAFTARAN INTERNET SPEEDY MENGGUNAKAN VISUAL BASIC 2010

Konsep

1. Deskripsi

Program yang kami buat ini adalah program yang dapat digunakan untuk pendaftaran pengguna Internet Speedy dari telkom. Form yang diisi disini antara lain biodata,alamat email,status,pendidikan terakhir.

2. Tujuan dan Manfaat

Tujuan dari program ini adalah mempermudah proses dari pendaftaran yang biasanya melalui pendaftaran fisik, ini bisa mendaftar dimana saja dan kapan saja secara mudah dan cepat.

3. Sasaran

Seluruh rakyat Indonesia yang membutuhkan informasi lebih yaitu penggunakan internet sebagai sarana untuk mencar informasi yang sangat luas.

Langkah-Langkahnya :

1.    Bukalah Program Visual Basic 2010

2.    Isilah Setiap Form dan Listingnya

Form1 :

Komponen Toolbox yang digunakan sebagai berikut :

No	Komponen	Properties	Keterangan
1	Form1	Name	Form1
		Text	Telkom Speedy
		Background	Crismon
		Diplay	CentertoScreen
2	Button 1	Name	Button 1
		Text	Daftar

Listingnya :

Public Class Form1

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

        Form2.Show()

        Me.Hide()

    End Sub

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

        Me.BackColor = Color.Crimson

        Me.CenterToScreen()

    End Sub

End Class

Form 2 :

Komponen Toolbox yang digunakan sebagai berikut :

No	Komponen	Properties	keterangan
1	Form2	Name	Form2
		Text	Form Pendaftaran
		Background	Crismon
		Display	CentertoScreen
2	Label 1	Name	Label 1
		Text	Nama
3	Label 2	Name	Label 2
		Text	Tempat Lahir
4	Label3	Name	Label3
		Text	Tanggal Lahir
5	Label4	Name	Label4
		Text	Agama
6	Label5	Name	Label5
		Text	Alamat
7	Label6	Name	Label6
		Text	Nomor Telepon
8	Label7	Name	Label7
		Text	Email
9	Label8	Name	Label8
		Text	Provinsi
10	Label9	Name	Label9
		Text	Kota
11	TextBox1	Name	TextBox1
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
12	TextBox2	Name	TextBox2
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
13	TextBox3	Name	TextBox3
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
14	TextBox4	Name	TextBox4
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
15	TextBox5	Name	TextBox5
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
16	TextBox6	Name	TextBox6
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
17	TextBox7	Name	TextBox7
		Text
		Text Align	Left
		Font	Microsoft sans Serif,8 pt
18	ComboBox1	Name	ComboBox1
		Item	1-31
19	ComboBox2	Name	ComboBox2
		Item	01-12
20	ComboBox3	Name	ComboBox3
		Item	1900-2012
21	ComboBox4	Name	ComboBox4
		Item	Islam,Kriten,Katolik,Budha Hindu,Lainnya
22	Button1	Name	Button1
		Text	Selanjutnya
23	Button2	Name	Button2
		Text	Kembali
24	Button3	Name	Button3
		Text	Reset

Listingnya:

Public Class Form2

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

        Form1.Show()

        Me.Hide()

    End Sub

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

        If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then

            MsgBox("Isilah data dengan lengkap sebelum melanjutkan!")

        Else : Me.Hide()

            Form3.Show()

        End If

    End Sub

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

        Me.BackColor = Color.Crimson

        Me.CenterToScreen()

    End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

            e.Handled = False

        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then

            e.Handled = False

        ElseIf e.KeyChar = vbBack Then

            e.Handled = False

        Else

            e.Handled = True

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        ComboBox4.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

    End Sub

End Class

FORM 3 :

Komponen Toolbox yang digunakan sebagai berikut :

No	Komponen	Properties	keterangan
1	Form3	Name	Form3
		Text
		Background	Crismon
		Display	CentertoScreen
2	Label 1	Name	Label 1
		Text	Jenis Kelamin
3	Label 2	Name	Label 2
		Text	Status
4	Label3	Name	Label3
		Text	Pekerjaan
5	Label4	Name	Label4
		Text	Pendidikan Terakhir
6	RadioButton1	Name	RadioButton1
		Text	Pria
7	RadioButton2	Name	RadioButton2
		Text	Wanita
22	Button1	Name	Button1
		Text	Kembali
23	Button2	Name	Button2
		Text	Selesai
24	Button3	Name	Button3
		Text	Ke Laman Awal
22	Button4	Name	Button4
		Text	Reset

Listingnya :

Public Class Form3

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

        If RadioButton1.Text = "" Or RadioButton2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Then

            MsgBox("Isilah data dengan lengkap")

        Else : MsgBox("Terima Kasih Anda Telah Memilih Layanan Internet Speedy Internet Cepat Tanpa Batas, Data Anda Sudah Tersimpan di Data Base Kami")

            Me.Hide()

        End If

    End Sub

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

        Form2.Show()

        Me.Hide()

    End Sub

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

        Me.BackColor = Color.Crimson

        Me.CenterToScreen()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form1.Show()

        Me.Hide()

    End Sub

   

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

    End Sub

End Class

[ Read More ]