LISTING PROGRAM

Buat temen" semua disini,...aku mau sharing'e program yang dulu pernah saya kerjakan bersama teman" waktu kuliah d'BSI Purwokerto,..Program ini aku buat bersama Rahmat Kartono,...aku mau ucapkan terima kasih buat dia karena telah meljadi sahabat terbaik buat aku walau sekarang kita terpisah jarak dan waktu.

Program yang kami buat adalah "Alat Pemantau Ketinggian Air Berbasisi Mikrokontroller Atmega 8535" mungkin listing program ini bisa bermanfaat buat temen" yang sedang mencari referensi tentang Judul Tugas Akhir....disini kami memakai software Bascom AVR .
Oke....langsung saja inilah Listing Programnya...semoga bermanfaat....

LISTING PROGRAM

$regfile = "m8535.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0

Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Config Portc = Output

Config Portd = Output

Dim Data_adc As Word , Adc_convert1 As Single , Adc_convert2 As Single , Adc_string1 As String * 10 , Adc_string2 As String * 10

Cursor Off

Cls

Wait 2

   Locate 1 , 4

   Lcd "Water level"

   Locate 2 , 2

   Lcd "Rahmat Kartono"

Wait 2

Cls

   Locate 1 , 5

   Lcd "TA 2010"

   Locate 2 , 3

   Lcd "Teknik komp "

Wait 2

Cls

   Locate 1 , 3

   Lcd "   BSI"

   Locate 2 , 3

   Lcd "Purwokerto "

Wait 1

Cls

Do

   Data_adc = Getadc(7)

   Adc_convert1 = Data_adc

   Adc_convert2 = Data_adc

   Adc_convert1 = Adc_convert1 / 1024

   Adc_convert2 = Adc_convert2 / 1024

   Adc_convert2 = Adc_convert2 * 100

   Adc_convert1 = Adc_convert1 * 15

   Adc_string1 = Fusing(adc_convert1 , "#.##")

   Adc_string2 = Fusing(adc_convert2 , "#.##")

   Data_adc = Getadc(7)

   Locate 1 , 1

   Lcd "Tinggi(cm):"

   Lcd Adc_string1 ; " "

   Locate 2 , 1

   Lcd "Range(%)  :"

   Lcd Adc_string2 ; " "

   Waitms 200

   If Adc_convert2 > 95 Then

   Portc = 1

   Waitms 300

   Portc = 0

   Waitms 300

   Portd.4 = 1

   Else

   Portd.4 = 0

   End If

   If Adc_convert2 > 80 Then

   Portc.5 = 1

   Else

   Portc.5 = 0

   End If

   If Adc_convert2 > 60 Then

   Portc.4 = 1

   Else

   Portc.4 = 0

   End If

   If Adc_convert2 > 40 Then

   Portc.3 = 1

   Else

   Portc.3 = 0

   End If

   If Adc_convert2 > 20 Then

   Portc.2 = 1

   Else

   Portc.2 = 0

   End If

Loop

Continue Reading

JUDUL TUGAS AKHIR II

ABSTRAKSI

Saychun Hope (3115121001), Pembuatan Alat Traffic Light Pada Simpang Empat Menggunakan Mikrokontroler AT89S51.

            Lampu lalulintas merupakan sarana untuk memudahkan pengaturan para pengendara kendaraan untuk mendapatkan antrian berjalan sesuai dengan urutan yang telah ditentukan. Berangkat dari definisi tersebut maka penulis membuat lampu lalulintas sederhana menggunakan Mikrokontroler AT89S51 yang menggambarkan pengaturan lampu lalu lintas yang ada selama ini. Dimana prinsip kerja dari lampu lalulintas ini adalah Program dimasukan kedalam Mikrokontroler yang akan keluar lewat port-port yang ada, LED merah, kuning dan hijau akan menyala bergantian sesuai dengan waktu yang telah di programkan. Seven segment akan menampilkan angka lama penyalaan lampu merah dan hijau. kemudian proses ini akan dilakukan secara berulang.

Kata Kunci : Pembuatan Alat, Pengendali Lampu Lalulintas, Traffic Light.

Continue Reading

JUDUL TUGAS AKHIR I

Saychun Hope (3115121001), Pembuatan Animasi Interaktif Media Pembelajaran Audio Recording Untuk Merekam Dan Membuat Komposisi Musik Menggunakan Adobe Flash CS4.

Pada era globalisasi saat ini pertumbuhan manusia yang meningkat serta diimbangi dengan pertumbuhan ilmu dan teknologi yang semakin tahun semakin pesat dan semakin bermacam-macam jenisnya, sehingga menuntut sumber daya manusia yang berkompeten. Salah satunya adalah dalam bidang teknologi program  multimedia pengolah gambar dan animasi, mulai dari animasi yang bersifat standar hanya untuk presentasi, animasi interaktif untuk pembelajaran, hingga animasi yang bertaraf untuk animasi film baik berupa 2D, 3D, 4D, hingga teknologi yanng tercanggih saat ini.

Pembuatan Animasi interaktif media pembelajaran audio recording untuk merekam dan membuat komposisi musik menggunakan adobe flash cs4 adalah suatu media pembelajaran yang berisikan materi tentang petunjuk penggunaan software untuk merekam audio, editting audio dan hal-hal yang berkaitan dengan audio record. Video tutorial interaktif ini dapat dipelajari dengan mudah dan langsung dapat diparaktekkan hanya dengan cara melihat, mendengarkan dan mempraktekkan.

Dengan adanya media pembelajaran interaktif diharapkan memberikan kemudahan dalam proses belajar, karena metode dalam belajar dapat dilakukan dengan mudah dan menarik tidak seperti pada metode belajar konvensional.

                                              

Kata Kunci : Animasi interaktif, Audio recording

Continue Reading