Langkah pertama yang harus dilakukan dalam menulis
program adalah memikirkan secara cermat permasalahan yang ingin diselesaikan
menggunakan program komputer. Dengan kata lain apa yang ingin dikerjakan oleh
sebuah program. Jika anda telah melakukan identifikasi permasalahan dan mendefinisikan
permasalahan dengan jelas dan benar maka ini merupakan langkah awal yang sangat
baik dalam menulis apa yang diinginkan dalam pembuatan program. Mari kita lihat
satu contoh permasalahan:
“Menyeberang
di jalan yang sangat ramai”
Untuk memecahkan permasalahan bagaimana menyeberang
di jalan yang sangat ramai diperlukan langkah-langkah atau sekuen atau formula
kerja. Formula kerja yang digunakan untuk memecahkan masalah pemrograman
disebut Algoritma program. Seorang programmer harus menggunakan daftar urutan
pekerjaan. Dalam kasus permasalahan menyeberang jalan step perintah-perintah
sederhana dapat dinyatakan seperti Gambar 1 berikut :
STEP
|
PERINTAH
|
1
|
Start
|
2
|
Berjalanlah
ke sudut jalan dan berhenti
|
3
|
Lihat
dan cermati lampu pengatur lalu lintas
|
4
|
Apakah
lampu penyeberangan pada arah anda menyala merah
|
5
|
Jika
“ya”, kembali ke Step 3 (Untuk keadaan lain teruskan ke Step 6)
|
6
|
Lihat
ke arah kiri
|
7
|
Apakah
masih ada kendaraan yang lewat
|
8
|
Jika
“ya”, kembali ke Step 6
|
9
|
Lihat
ke arah kanan
|
10
|
Apakah
masih ada kendaraan yang lewat
|
11
|
Jika
“ya”, kembali ke Step 9
|
12
|
Menyeberanglah
dengan hati-hati
|
13
|
Stop
|
Gambar
1. Algoritma Menyebrang jalan
Setelah anda
membaca urutan step-step perintah pada Gambar 1 lalu membuat . dengan ketentuan
sebagai berikut :
Flowchart Dan Bahasa Pemrograman Menyeberang di
Jalan Ramai
Gambar
2. Flowchart Menyeberang di Jalan Ramai
Berikut ini merupakan pemrograman dengan
menggunakan procedure pada bahasa pemrograman pascal
Private
Sub Command4_Click()
|
Call mnustop_Click
|
End
Sub
|
Private
Sub Command8_Click()
|
Call mnustop_Click
|
End
Sub
|
Private
Sub Command9_Click()
|
Frame2.Visible = False
|
End Sub
|
Private
Sub Form_Load()
|
Out &H378, &H0
|
Out &H37A, &H0 Xor 11
|
utara_merah.FillColor = vbBlack
|
utara_kuning.FillColor = vbBlack
|
utara_hijau.FillColor = vbBlack
|
timur_merah.FillColor = vbBlack
|
timur_kuning.FillColor = vbBlack
|
timur_hijau.FillColor = vbBlack
|
selatan_merah.FillColor = vbBlack
|
selatan_kuning.FillColor = vbBlack
|
selatan_hijau.FillColor = vbBlack
|
barat_merah.FillColor = vbBlack
|
barat_kuning.FillColor = vbBlack
|
barat_hijau.FillColor = vbBlack
|
Form2.AutoRedraw = True
|
For Y = 0 To ScaleHeight
|
Line (1, Y)-(ScaleWidth, Y), RGB(300, 150,
255 - (Y * 255) \
|
ScaleHeight)
|
Next Y
|
Text = " SIMULASI LAMPU LALU LINTAS
HATI -
|
HATI
DI JALAN RAYA, JAGA KESELAMATAN JIWA DAN BARANG ANDA
|
INGAT...
KELUARGA ANDA MENUNGGU DI RUMAH"
|
Label5.Caption = "Lampu Lalu Lintas
Belum Menyala"
|
NI.cbSize = Len(NI)
|
NI.hwnd = Picture1.hwnd
|
NI.uID = 0
|
NI.uID = NI.uID + 1
|
NI.uFlags = NIF_MESSAGE Or NIF_ICON Or
NIF_TIP
|
NI.uCallbackMessage = WM_MOUSEMOVE
|
Picture1.Picture = Me.Icon
|
NI.hIcon = Picture1.Picture
|
NI.szTip = "Kendali Traffic Light"
& vbNullChar
|
result = Shell_NotifyIconA(NIM_ADD, NI)
|
End
Sub
|