Minggu, 25 Mei 2014

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