Multi sensor 1-wire DS18B20 dengan SMART-AVR Basic

Dalam contoh sebelumnya telah saya berikan contoh bagaimana membaca single 1-wire temperature sensor dengan menggunakan SMART-AVR Basic. Sekarang akan saya berikan contoh bagaimana menggunakan fasilitas 1-wire SMART-AVR Basic digunakan untuk membaca multi sensor temperature DS18B20 (max16 pcs), dalam contoh ini saya menggunakan 3pcs DS18B20. Dalam menggunakan mengakses multi sensor ini ada beberapa perintah yang digunakan dalam SMART-AVR Basic yaitu:
FN:OWRESET, yang berfungsi untuk me-reset 1-wire device
FN:OWWRITE, yang berfungsi menulis 1byte data ke 1-wire device
FN:OWREAD, yang berfungsi membaca 1byte data ke 1-wire device
FN:OWSEARCH, yang berfungsi mencari dan memetakan ”64-BIT LASERED ROM CODE” 1-wire device ke dalam internal rom table SMART-AVR Basic. Dalam perintah ini juga menghasilkan informasi berapa banyak device yang tersambung dalam 1-wire bus, informasi ini tersimpan dalam variable OWAMOUNT.
FN:OWMATCROM, yang berfungsi untuk mengakses 1-wire yang bersesuaian dengan 64bit ROM yang terkirim, dalam perintah ini harus di tentukan device numbernya dulu dengan memberi nilai dalam variable OWNUMBER dalam SMART-AVR Basic ini dibatasi dari 0 s/d 15 device saja. Seperti biasa saya membuat rangkaian uji coba seperti rangkaian terdahulu, mudah dan pengembangannya tergantung masing-masing pengguna, untuk rangkaian multi sensor bisa dilihat diatas. Berikut listing program multi sensor DS18B20:

'****************************************
'READ temperature 3pcs 1WIRE DS18B20
'****************************************
DELAY = 5
SEND: membaca 3 pcs DS18B20
GOSUB ENTER
DELAY = 50

PREMAIN:
FN:OWRESET
VAR0 = OWPRESENCE
IF VAR0 = 0 THEN LOOP1

FN:OWSEARCH
SEND: 1WIRE device found =
VAR2 = OWAMOUNT
GOSUB TAMPIL
SEND: pcs
GOSUB ENTER

MAIN:
OWNUMBER = 0
SEND: temp.1=
GOSUB PERDEVICE

OWNUMBER = 1
SEND: temp.2=
GOSUB PERDEVICE

OWNUMBER = 2
SEND: temp.3=
GOSUB PERDEVICE

TCOM = 13
WRITE COM

DELAY = 25
GOTO MAIN

PERDEVICE:
FN:OWMATCHROM

'COMMAND 44Hex / 68Dec CONVERT TEMP
OWBUF0 = 68
FN:OWWRITE

FN:OWRDROM

VAR0 = OWBUF0
VAR1 = OWBUF1
VAR0 = VAR0 AND 240
SWAP = VAR0
FN:SWAP
VAR0 = SWAP
VAR1 = VAR1 AND 15
SWAP = VAR1
FN:SWAP
VAR1 = SWAP
VAR2 = VAR0 OR VAR1
GOSUB TAMPIL
RETURN

LOOP1:
SEND: 1WIRE chip tidak ditemukan
GOSUB ENTER
DELAY = 200
GOTO PREMAIN

TAMPIL:
HHI = 0
HLO = VAR2
FN:HEX2BCD

VAR0 = BCD43 AND 15
D2ASC = VAR0
FN:DASC
TCOM = D2ASC
WRITE COM

VAR0 = BCD21 AND 240
SWAP = VAR0
FN:SWAP
D2ASC = SWAP
FN:DASC
TCOM = D2ASC
WRITE COM

VAR0 = BCD21 AND 15
D2ASC = VAR0
FN:DASC
TCOM = D2ASC
WRITE COM

'3X SPACE CHAR
TCOM = 32
WRITE COM
TCOM = 32
WRITE COM
TCOM = 32
WRITE COM
RETURN

ENTER:
DELAY = 5
TCOM = 13
WRITE COM
TCOM = 10
WRITE COM
RETURN
'****************************************

Dalam listing program di atas terlihat lebih mudah dalam mengakses multi 1-wire sensor. Program akan mengirim hasilnya melalui RS232 dan bias dilihat dengan menggunakan program hyperterminal biasa, berikut contoh tampilannya:

Demikian contoh program yang bias saya berikan dan selamat mencoba.


Regards,

Hendryawan
henel.automation@gmail.com
0812 17 13 025

single 1-wire temperatur sensor DS18B20 dengan SMART-AVR Basic

Dalam SMART-AVR juga telah tersedia fasilitas untuk mengakses one-wire (1-wire) bus. Dalam contoh kali ini saya akan memberikan bagaimana mengakses single 1-wire device. Devicde yang saya gunakan dalam contoh ini adalah temperature sensor DS18B20. Dengan menggunakan rangkaian di atas, terlihat rangkaian sangat sederhana, hanya menggunakan 3 komponen pokok (controller, sensor dan rs232 chip), ini saya maksudkan untuk rangkaian uji coba, setelah mengerti cara menggunakannya bias dikembangkan sendiri dengan menggunakan lcd module atau yang lainnya. Ada baiknya untuk memulai project ini membaca terlebih dahulu datasheet DS18B20. Dalam menggunakan single 1-wire ini ada beberapa perintah yang digunakan dalam SMART-AVR Basic yaitu:
FN:OWRESET, yang berfungsi untuk me-reset 1-wire device
FN:OWWRITE, yang berfungsi menulis 1byte data ke 1-wire device
FN:OWREAD, yang berfungsi membaca 1byte data ke 1-wire device
Dalam proses menulis maupun membaca data tersimpan di OWBUF0. Maksudnya dalam proses write, data yang terkirim adalah nilai dari variable OWBUF0. Demikian pula sebaliknya, dalam proses read, data yang terbaca disimpan dalam variable OWBUF0. Dalam contoh program yang saya berikan akan menampilkan nilai temperature yang bisa dilihat dengan menggunakan hyperterminal yang umum ada dalam program MS Windows. Berikut contoh listing programnya:


'****************************************
'READ temperature single 1WIRE DS18B20
'****************************************
DELAY = 5
SEND: membaca single DS18B20
GOSUB ENTER
DELAY = 50

MAIN:
FN:OWRESET
VAR0 = OWPRESENCE
IF VAR0 = 0 THEN LOOP1
'COMMAND SKIP ROM CCHex / 204Dec
OWBUF0 = 204
FN:OWWRITE

'COMMAND CONVERT TEMP 44Hex / 68Dec
OWBUF0 = 68
FN:OWWRITE

FN:OWRESET
'COMMAND SKIP ROM CCHex / 204Dec
OWBUF0 = 204
FN:OWWRITE

'COMMAND READ SCRATCHPAD BEHex / 190Dec
OWBUF0 = 190
FN:OWWRITE

FN:OWREAD
VAR0 = OWBUF0

FN:OWREAD
VAR1 = OWBUF0

VAR0 = VAR0 AND 240
SWAP = VAR0
FN:SWAP
VAR0 = SWAP
VAR1 = VAR1 AND 15
SWAP = VAR1
FN:SWAP
VAR1 = SWAP
VAR2 = VAR0 OR VAR1
SEND: TEMPERATURE =
GOSUB TAMPIL

TCOM = 13
WRITE COM
DELAY = 100
GOTO MAIN

LOOP1:
SEND: 1WIRE chip tidak ditemukan
GOSUB ENTER
DELAY = 200
GOTO MAIN

TAMPIL:
HHI = 0
HLO = VAR2
FN:HEX2BCD

VAR0 = BCD43 AND 15
D2ASC = VAR0
FN:DASC
TCOM = D2ASC
WRITE COM

VAR0 = BCD21 AND 240
SWAP = VAR0
FN:SWAP
D2ASC = SWAP
FN:DASC
TCOM = D2ASC
WRITE COM

VAR0 = BCD21 AND 15
D2ASC = VAR0
FN:DASC
TCOM = D2ASC
WRITE COM

TCOM = 32
WRITE COM
TCOM = 32
WRITE COM
RETURN

ENTER:
DELAY = 5
TCOM = 13
WRITE COM
TCOM = 10
WRITE COM
RETURN
'****************************************

Dan berikut adalah hasil yang bisa dilihat dengan hyperterminal.

Selamat mencoba dan tunggu contoh program untuk multi-point sensor 1-wire DS18B20 pada waktu yang akan datang.

Regards,

Hendryawan
henel.automation@gmail.com
0812 17 13 025

Mengakses RTC dengan menggunakan I²C Bus

Dalam SMART-AVR Basic telah tersedia command untuk mengakses perangkat yang menggunakan I²C Bus.
Dengan protocol ini rangkaian sangat sederhana sekali, karena tidak menggunakan banyak jalur melainkan hanya 2 jalur yaitu SDA (jalur data) dan SCL(jalur clock).
RTC (Real Time Clock) dengan menggunakan I²C Bus ini dikeluarkan oleh Dallas semiconductor dengan type DS1307. Dalam chip ini memuat pewaktuan hari, jam, menit dan detik.
Dengan menggunakan rangkaian di atas adalah contoh yang sederhana sekali, di mana informasi pewaktuan akan dikirim melalui serial port. Berikut adalah contoh listing programnya:

'****************************************
'READ / WRITE I2C RTC DS1307
'****************************************
RTC_INIT:
DELAY = 10
'aktifkan interupt
ASM: SEI
GOSUB DEVICE_ADD
'MENGAKTIFKAN OSCILATOR DS1307
I2CAL = 0
I2CDAT = 0
WRITE I2C
IF I2CEF = 1 THEN ERROR0

GOSUB DEVICE_ADD
'MENGAKTIFKAN SQWOUT PULSE 1 Hz
I2CDAT = 16
I2CAL = 7
WRITE I2C
IF I2CEF = 1 THEN ERROR0

SEND: RTC INIT OK
GOSUB ENTER
SEND: TEKAN S UNTUK SETTING
GOSUB ENTER
DELAY = 50

MAIN:
SEND: RTC READ -->
GOSUB TIME
TCOM = 13
WRITE COM
DELAY = 100
READ COM
'SET TIME IF COM = S
IF RCOM = 83 THEN SETHARI
GOTO MAIN

SETHARI:
RCOM = 0
GOSUB ENTER
SEND: TEKAN U MENGGANTI
GOSUB ENTER
SEND: TEKAN E DATA BENAR
GOSUB ENTER
DELAY = 25
1ST_DAY:
VAR0 = 1

LOOPHARI:
READ COM
IF RCOM = 85 THEN HARI_UP
'SET TIME IF COM = E
IF RCOM = 69 THEN SETJAM
GOSUB HARIDSP
TCOM = 13
WRITE COM
DELAY = 25
GOTO LOOPHARI

HARI_UP:
RCOM = 0
VAR0 = VAR0 + 1
DELAY = 25
IF VAR0 = 8 THEN 1ST_DAY
GOTO LOOPHARI


SETJAM:
GOSUB ENTER
RCOM = 0
I2CAL = 3
I2CDAT = VAR0
GOSUB DEVICE_ADD
WRITE I2C
SEND: DAY SAVED
GOSUB ENTER
SEND: JAM
GOSUB ENTER
DELAY = 25

1ST_HOUR:
VAR4 = 1
LOOPJAM:
READ COM
IF RCOM = 85 THEN VAL_UP_JAM
'SET TIME IF COM = E
IF RCOM = 69 THEN SETMEN
GOSUB TIMEDISP
TCOM = 13
WRITE COM
DELAY = 25
GOTO LOOPJAM

VAL_UP_JAM:
GOSUB VAL_UP1
VAR4 = VAR4 + 1
IF VAR4 = 25 THEN 1ST_HOUR
GOTO LOOPJAM

SETMEN:
GOSUB ENTER
RCOM = 0
I2CAL = 2
I2CDAT = BCD21
GOSUB DEVICE_ADD
WRITE I2C
SEND: HOUR SAVED
GOSUB ENTER
SEND: MENIT
GOSUB ENTER
DELAY = 25
1ST_MINUTE:
VAR4 = 0
LOOPMIN:
READ COM
IF RCOM = 85 THEN VAL_UP_MIN
'SET TIME IF COM = E
IF RCOM = 69 THEN SET_END
GOSUB TIMEDISP
TCOM = 13
WRITE COM
DELAY = 25
GOTO LOOPMIN

VAL_UP_MIN:
GOSUB VAL_UP1
VAR4 = VAR4 + 1
IF VAR4 = 60 THEN 1ST_MINUTE
GOTO LOOPMIN

SET_END:
GOSUB ENTER
I2CAL = 1
I2CDAT = BCD21
GOSUB DEVICE_ADD
WRITE I2C
SEND: MINUTE SAVED
GOSUB ENTER
GOTO MAIN



VAL_UP1:
RCOM = 0
DELAY = 30
HHI = 0
HLO = VAR4
FN:HEX2BCD
I2CDAT = BCD21
RETURN

ERROR0:
SEND: INIT ERROR
GOSUB ENTER
DELAY = 10
GOTO RTC_INIT

ERROR1:
SEND: ERROR WRITE I2C
GOSUB ENTER
DELAY = 30
GOTO MAIN


DEVICE_ADD:
I2CDEV = 208
I2CCA = 1
I2CAH = 0
I2CEF = 0
RETURN


TIME:
I2CAL = 3
GOSUB DEVICE_ADD
READ I2C
IF I2CEF = 1 THEN ERROR3
VAR0 = I2CDAT AND 7
GOSUB HARIDSP

I2CAL = 2
GOSUB DEVICE_ADD
READ I2C
IF I2CEF = 1 THEN ERROR3
VAR1 = I2CDAT AND 63
VAR20 = 48
GOSUB TIMEDISP
GOSUB SPACE
I2CAL = 1
GOSUB DEVICE_ADD
READ I2C
IF I2CEF = 1 THEN ERROR3
VAR2 = I2CDAT AND 127
VAR20 = 112
GOSUB TIMEDISP
GOSUB SPACE
I2CAL = 0
GOSUB DEVICE_ADD
READ I2C
IF I2CEF = 1 THEN ERROR3
VAR3 = I2CDAT AND 127
VAR20 = 112
GOSUB TIMEDISP
RETURN

ERROR3:
SEND: ERROR READ I2C
GOSUB ENTER
RETURN

WAIT10:
DELAY = 20
RETURN

TIMEDISP:
VAR9 = I2CDAT
VAR9 = VAR9 AND VAR20
SWAP = VAR9
FN:SWAP
D2ASC = SWAP
FN:DASC
TCOM = D2ASC
WRITE COM
VAR9 = I2CDAT
VAR9 = VAR9 AND 15
D2ASC = VAR9
FN:DASC
TCOM = D2ASC
WRITE COM
RETURN

SPACE:
TCOM = 58
WRITE COM
RETURN

HARIDSP:
IF VAR0 = 1 THEN MON
IF VAR0 = 2 THEN TUE
IF VAR0 = 3 THEN WED
IF VAR0 = 4 THEN THU
IF VAR0 = 5 THEN FRI
IF VAR0 = 6 THEN SAT
IF VAR0 = 7 THEN SUN
SEND: DAY ERROR
RETURN
MON:
SEND: MON
RETURN
TUE:
SEND: TUE
RETURN
WED:
SEND: WED
RETURN
THU:
SEND: THU
RETURN
FRI:
SEND: FRI
RETURN
SAT:
SEND: SAT
RETURN
SUN:
SEND: SUN
RETURN

ENTER:
DELAY = 5
TCOM = 13
WRITE COM
TCOM = 10
WRITE COM
RETURN
'****************************************

Setelah program di-download ke chip, untuk menjalankan cukup menghubungkan rangkaian dengan computer dan menjalankan program hyperterminal dengan setting baud 4800,8,N,1. Setelah rangkaian dijalankan akan tampil seperti berikut:

Selamat mencoba....

CONTOH PROGRAM TIMER dalam SMART-AVR Basic

Dengan menggunakan rangkaian diatas saya berikan contoh bagaimana menggunakan fasilitas timer dalam SMART-AVR Basic.
TIMER RUN digunakan untuk menjalankan internal timer
TIMER STOP digunakan untuk menghentikan internal timer
TIMER CLR digunakan untuk menghentikan sekalian me-reset nilai timer (TIMH dan TIML) internal timer.
Timer ini bekerja berdasarkan interrupt timer0 ATMEGA8.
Berikut contoh programnya:

‘*******************************************************
CLRLCD
TEXT: TEST TIMER
ASM: SEI
VAR10 = 0
VAR11 = 0

MULAI:
TIMER RUN
LOOP1:
AH = TIMH
AL = TIML
'5000Dec --> 1388Hex -->BH=13Hex = 19Dec BL=88Hex=136Dec
BH = 19
BL = 136
CL = 0
FN:CMP16
IF CL = 1 THEN MSECOND
HHI = TIMH
HLO = TIML
LOCATE = 64
GOSUB TAMPIL
GOTO LOOP1

MSECOND:
TIMER CLR
TIMER RUN
VAR10 = VAR10 + 1
HHI = 0
HLO = VAR10
LOCATE = 20
GOSUB TAMPIL
GOTO LOOP1

TAMPIL:
FN:HEX2BCD

VAR0 = BCD65 AND 240
SWAP = VAR0
FN:SWAP
D2ASC = SWAP
FN:DASC
LCDDATA = D2ASC
WRITE LCD

VAR0 = BCD65 AND 15
D2ASC = VAR0
FN:DASC
LCDDATA = D2ASC
WRITE LCD


VAR0 = BCD43 AND 240
SWAP = VAR0
FN:SWAP
D2ASC = SWAP
FN:DASC
LCDDATA = D2ASC
WRITE LCD

VAR0 = BCD43 AND 15
D2ASC = VAR0
FN:DASC
LCDDATA = D2ASC
WRITE LCD

VAR0 = BCD21 AND 240
SWAP = VAR0
FN:SWAP
D2ASC = SWAP
FN:DASC
LCDDATA = D2ASC
WRITE LCD

VAR0 = BCD21 AND 15
D2ASC = VAR0
FN:DASC
LCDDATA = D2ASC
WRITE LCD
RETURN
‘*******************************************************
Dalam tampilan LCD akan tampil nilai TIMER dan nilai setiap pencapaian timer sebesar 5000.
Timer ini dapat digunakan untuk aplikasi penundaan

SMART-AVR Basic untuk kendali MOTOR STEPPER

Dalam contoh sederhana ini saya memberikan aplikasi SMART-AVR untuk menggerakan motor stepper.
Dalam gambar di atas saya berikan rangkaian penggerak motor yang sederhana, dimana hanya menggunakan sebuah motor stepper bekas floppy disk, driver ULN2803 dan sebuah ttl ke rs232 konverter untuk berkomunikasi ke computer sebagai control gerakan putar kiri atau kanan.
Untuk program saya mnggunakan perintah komunikasi READ COM dan fasilitas timer untuk menentukan kecepatan putar motor stepper. Berikut adalah listing programnya:

‘*******************************************************
ASM: SEI
MAIN:
READ COM
'jika data RCOM = R maka putar kanan
IF RCOM = 82 THEN KANAN
'jika data RCOM = L maka putar kiri
IF RCOM = 76 THEN KIRI
GOTO MAIN

KANAN:
SET PC4
CLR PC3
CLR PC2
CLR PC1
GOSUB TUNDA
SET PC3
GOSUB TUNDA
CLR PC4
GOSUB TUNDA
SET PC2
GOSUB TUNDA
CLR PC3
GOSUB TUNDA
SET PC1
GOSUB TUNDA
CLR PC2
GOSUB TUNDA
SET PC4
GOSUB TUNDA
CLR PC1
GOSUB TUNDA
GOTO MAIN

KIRI:
SET PC1
CLR PC2
CLR PC3
CLR PC4
GOSUB TUNDA
SET PC2
GOSUB TUNDA
CLR PC1
GOSUB TUNDA
SET PC3
GOSUB TUNDA
CLR PC2
GOSUB TUNDA
SET PC4
GOSUB TUNDA
CLR PC3
GOSUB TUNDA
SET PC1
GOSUB TUNDA
CLR PC4
GOSUB TUNDA
GOTO MAIN

'nilai TIML menentukan kecepatan putar motor
TUNDA:
TIMER RUN
LOOP1:
IF TIML > 15 THEN TIM_TERCAPAI
GOTO LOOP1

TIM_TERCAPAI:
TIMER CLR
RETURN
‘*******************************************************
Setelah program di download, untuk menjalankannya cukup dengan menggunakan program hyperterminal dengan setting baud 4800,8,N,1.Setelah kabel komunikasi terhubung dan rangkaian dihidupkan, hanya dengan menekan tombol L untuk putar kiri dan R untuk putar kanan atau tombol lain untuk menghentikannya.
Selamat mencoba.