Insan Sains Projects

Insan Sains Projects

Script Program

with 2 comments

SCRIPT PROGRAM

‘—————————————————————–

‘PROGRAM TDS METER

‘BERBASIS AVR ATMega8535

‘CREATED BY INSAN SAINS

‘DATE CREATED : 29 DESEMBER 2007

‘—————————————————————–

$Regfile = “mega8535.dat”

 

‘INISIALISASI VARIABLE YANG DIGUNAKAN

Dim konversi_tds as byte

Dim step_tds as single

Dim nilai_ppm as String * 5

 

‘PROGRAM UTAMA

Do

Call ambil_tds(0)

Call tampil_tds

Waitms 1

Loop

 

‘FUNGSI UNTUK MENGAMBIL NILAI TDS/PPM

Sub ambil_tds(ch0 as integer)

Start adc

Konversi_adc = getadc(ch0)

Step_tds = 2000 / 1024

Nilai_ppm = fusing(konversi_adc * step_tds, “#,##”)

Wait 1

End Sub

 

‘FUNGSI UNTUK MENAMPILKAN KE LCD 2×16

Sub tampil_tds()

Cls

Lcd “Nilai TDS”

Lowerline

Waitms 80

Lcd nilai_ppm

Locate 2, 6

Lcd (“ppm”)

End Sub

 

Written by Insan

Desember 29, 2007 pada 12:55 pm

2 Tanggapan

Subscribe to comments with RSS.

  1. bos minta artikel buat yang PID yang mudah di cerna kirim ke email saya saja..
    totong ya bos..dah lama belajar tp ga mudeng-mudeng

    sigit

    Januari 23, 2009 at 11:35 pm

  2. tolong dunc..kirimin script progrm line folower+pidny..
    syukron..

    adzkia-hk

    Maret 11, 2009 at 12:14 am


Tinggalkan Balasan