Membuat Simulasi Inkubator/Pengatur Suhu Proteus+CodeVision Avr

Image
Membuat Simulasi Inkubator/Pengatur Suhu Proteus+BASCOM Avr LM35 ATMEGA8535Alat dan Bahan :
- Software Proteus - Software Bascom AVR


Screenshot





Alat Di proteus



CODE di BASCOM :
$regfile = "m8535.dat" $crystal = 8000000 $baud = 9600
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.4 , Config Lcdpin = Pin , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 Config Lcd = 16 * 2
Config Porta.1 = Output Config Porta.2 = Output Config Porta.3 = Output Config Porta.4 = Output Config Porta.5 = Output Config Porta.6 = Output Config Porta.7 = Output
Config Portd = Output Config Timer1 = Pwm , Pwm = 8 , Compare_a_pwm = Clear_up , Prescale = 1 Dim Nilai As Integer Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim Data_mentah As Integer Dim Hasil As Single Dim Suhuasli As Integer Dim Y As String * 3 Dim Selisih As Integer Dim Ref As Integer Start Adc
Portd.2 = 1

Cls Cursor Off
Locate 1 , 1 Lcd "Suhu Ref.: " Locate 2 , 1 Lcd "Suhu : "
Ddrc = &B111…

Tutorial Delphi7 : Membuat Program Simulasi Kirim data Melalui Port serial

Tutorial Delphi7 :  Membuat Simulasi  Program Kirim data Melalui  Port serial

program yang akan kita buat adalah program untuk mensimulasikan pengiriman data melalui jalur port, kita akan menggunakan sebuah Virtual comPort sebagai portnya dan Delphi untuk membuat aplikasinya, aplikasi yang kita buat mensimulasikan pengiriman data berupa karakter atau teks, dan akan diterima dan ditampilkan kembali, berikut cara pembuatan programnya..

Alat dan Bahan

- Delphi7
- ComPort ( Anda bisa tanya prof gugel cara installnya)
- VSPE ( Anda bisa tanya prof gugel link downloanya)
- Niat ingin Belajar

Cara Pengerjaan

1.  Buat Project Baru pada Delphi 7, lalu atur layout sebagai berikut pada Form1:



- Button1
- Button2
- Button3
- Button4
- Memo1
- ComPort1

2. Buat Form Baru, Kemudian Atur layout sebagai Berikut Pada Form 2:



- Button1
- Button2
- Button3
- Memo1
- ComPort1

3. Sekarang Kita Program pada Form1,Form2 :


- Button1 : Setting Port 

Codenya : 

ComPort1.ShowSetupDialog;

- Button2 : Sambungkan

Codenya :

if(Button2.Caption='Sambungkan') then
begin
Form2.Show;
ComPort1.Open;
Button2.Caption:='Tutup';
end
else if(Button2.Caption='Tutup' ) then
begin
ComPort1.Close;
Button2.Caption:='Sambungkan';
end
else begin
ComPort1.Open;
Button2.Caption:='Tutup';
end


- Button3 : Kirim

Codenya:

dataserial:=Memo1.Text;
ComPort1.WriteStr(dataserial);

- Button4 : Keluar

Codenya:

Application.Terminate;

Dan Khusus pada Form1/unit1 Tambahkan uses Unit2 dibawah implementation seperti berikut,



4. Buat Variable Baru Pada Unit1 dan Unit2:

Pada Unit1:

 dataserial: String;

pada Unit2:

 dataserial2: String;

Lihat penempatan kodenya pada gambar..



5. Pada Form2, Kita Klik ComPortnya, Kemudian  diobject Inspectornya Kita setting :

- Pada Object Inspector ComPort Kita pilih Events kemudian pada OnRxChar kita tambahkan ComPort1OnRxChar  .




- Terlihat pada unit2 muncul ruang buat kita koding untuk OnRxChar lalu masukan kode berikut:

Memo1.Text:=dataserial2;

ComPort1.ReadStr(dataserial2,Count);

6. Setelah Selesai Sekarang kita aplikasi VSPE, buat virtual port baru:

- Klik Device
- Pilih Create
- Klik next lalu pilih Portnya terserah
- Finish

7. Kemudian Kita Jalankan program yang telah kita buat tadi. Pilih port sesuai settingan di VSPE.Selesai..




Terima Kasih,
Sistem Komputer Unsri, 2017

Comments

Popular posts from this blog

Cara Memperbaiki error 0xc00007b “the application was unable to start correctly”

Cara Memperbaiki Black Screen Di Windows 10

Kumpulan Template Login Hotspot Mikrotik Keren