Memprogram Peralatan Sistem Otomasi lampu lalu lintas yang Berkaitan I/O Dengan Procedure Pemrograman Turbo Pascal

Memprogram Peralatan Sistem Otomasi lampu lalu lintas  yang Berkaitan I/O Dengan Procedure Pemrograman Turbo Pascal

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