Wah balik lagini, beberapa waktu ini sempat libur dikarenakan kesibukan kampus. Kali ini saya memposting gimanasih caranya mengontrol nyala led melalui aplikasi yang telah kita buat di delphi. Berikut adalah langkah-langkanya. Selamat Berkarya....!
Langkah 1. Membuat skema rangkaian pada proteus.
Langkah ke-2 Mendesai sofware pada delphi
Untuk mencari komponen di atas, cukup melihat tabel di bawah
langkah ke-3 Membuat sourch code pada tiap komponen pada delphi seperti berikut :
Langkah ke-4 membuat sourch kode pada CAVR sebagai berikut
/*****************************************************
Chip type : ATmega32
Program
type : Application
AVR Core Clock
frequency: 12.000000 MHz
Memory
model : Small
External RAM
size : 0
Data Stack
size : 512
*****************************************************/
#include
<mega32.h>
#include
<delay.h>
#include
<alcd.h>
#include
<stdio.h>
#include
<stdlib.h>
char k;
// Declare
your global variables here
void
main(void)
{
// Port C
initialization
// Func7=In
Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In
// State7=T
State6=T State5=T State4=T State3=T State2=T State1=T State0=T
PORTC=0x00;
DDRC=0xff;
// Port D
initialization
// Func7=In
Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In
// State7=T
State6=T State5=T State4=T State3=T State2=T State1=T State0=T
PORTD=0x00;
DDRD=0xFC;
// USART
initialization
//
Communication Parameters: 8 Data, 1 Stop, No Parity
// USART
Receiver: On
// USART
Transmitter: On
// USART Mode:
Asynchronous
// USART Baud
Rate: 9600
UCSRA=0x00;
UCSRB=0x18;
UCSRC=0x86;
UBRRH=0x00;
UBRRL=0x4D;
while (1)
{
k=getchar();
if (k=='1')
{
PORTC.0=1;
}
if (k=='a')
{
PORTC.0=0;
}
}
}
Untuk
pengaturan pada CAVR sukup setting untuk USART dan output untuk LED. Untuk komunikasi Proteus dengan aplikasi yang telah kita buat cukup dengan menggunakan tools pendukung yakni VSPE (virtual serial port emulator).
Tidak ada komentar:
Posting Komentar