Algoritma Sederhana

1.         INDENTIFIKASI OBYEK

Untuk membuat algoritma yang sederhana perlu dilakukan pemilihan  obyek apa saja yang akan digunakan dan menggolongkannya.  Pada tugas  ini membuat algoritma untuk mengindentifikasikan jenis-jenis olah raga  yaitu :

1.      Bulutangkis

2.      Sepak Bola

3.      Basket

4.      Futsal

5.      Tenis

6.      Bola Volley

II.         MENDESAIN PERTANYAAN

Adapun pertanyaan yang digunakan untuk bisa mengindentifikasikan jenis olahraga yang dipilih adalah?

1.                  Menggunakan bola ?

2.                  Apakah bola berukuran kecil?

3.                  Menggunakan gawang?

4.                  Menggunakan net?

5.                  Apakah Jumlah pemain 11 orang?

III.                MEMBUAT TABEL

No.	Jenis Olahraga	Pertanyaan
		1	2	3	4	5
		Menggunakan bola?	Bola kecil ?	Menggunakan gawang?	Menggunakan net?	Jumlah pemain 11 org
1.	Futsal	1	0	1	0	0
2.	Sepak Bola	1	0	1	0	1
3.	Volley	1	0	0	1	0
4.	Basket	1	0	0	0	0
5.	Tenis	1	1	0	0	0
6.	Bulutangkis	0	0	0	1	0

IV.   Adapun listing PEMROGRAMAN  dengan VISUAL BASIC adalah sebagai berikut:

        Private Sub Form_Activate()

Dim Msg, Style, Title

Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.

Title = "Pilih ya atau tidak" ' Define title

Data = MsgBox("Apakah Menggunakan BOLA ?", Style, Title)

If Data = vbYes Then

Data = MsgBox("Apakah Bola berukuran kecil?", Style, Title)

If Data = vbYes Then

Print "TENIS"

        Else

Data = MsgBox("Apakah Menggunakan Gawang?", Style, Title)

If Data = vbYes Then

Data = MsgBox("Apakah jumlah pemain  11 orang?", Style, Title)

If Data = vbYes Then

Print "SEPAK BOLA"

         Else

         Print "FUTSAL"

         End If

         Else

Data = MsgBox("Apakah Menggunakan Net ?", Style, Title)

If Data = vbYes Then

Print "VOLLEY"

                        Else

Print "BASKET"

End If

End If

    End If

   Else

   Print "BULU TANGKIS"

End If

End Sub