64
LAMPIRAN
65
Lampiran 1. Contoh perhitungan konversi nilai digital menjadi besaran fisik.
Apabila didapat nilai digital sebesar“1001’0011’0001”, maka dirubah menjadi bilangan desimal maka, hasilnya akan menjadi :
+
Untuk mengonversi nilai sensor menjadi besaran fisik diperlukan persamaan (1), maka hasilnya menjadi:
Misalkan suhu lingkungan sebesar 27,8°C, maka menggunakan persamaan (3), RH terkompensasi suhu adalah :
66
Lampiran 2. Kode pemrograman inisialisasi Mikrokontroler ATmega32.
'Inisialisasi Mikrokontroler $regfile = "m32def.dat" $hwstack = 128 $swstack = 128 $framesize = 128 $crystal = 4000000 $baud = 9600 $external Waitms $lib "mcsbyte.lbx"
' Mikrokontroler ATmega32 ' Ruang untuk Hardware Stack ' Ruang untuk Software Stack ' Ruang untuk Frame ' Clock Eksternal (4 Mhz) ' UART Baudrate 9600 bps ' menggunakan rutin waitms ' rutin untuk konversi
'Library DS1307 $lib "ds1307clock.lib" $lib "i2c_twi.lbx"
' library DS1307 ' hardware TWI
'Konfigurasi Pin SDA dan SCL I2C Config Sda = PORTC.1 Config Scl = PORTC.0 'Alamat of ds1307 Const Ds1307w = &HD0 Const Ds1307r = &HD1 Config Clock = User Dim Weekday As Byte
' Alamat tulis DS1307 ' Alamat baca DS1307 ' Waktu menggunakan DS1307 ' Inisialisasi Variable weekday
'Definisi Port untuk SHT11 Sck Alias PORTA.6 Dataout Alias PORTA.7 Datain Alias PINA.7 DDRA = &B11111111 Config PINA.6 = Output Config PINA.7 = Output
'Semua port A sebagai Output 'SCK 'DATA
67
Lampiran 3. Kode pemrograman inisialisasi variabel, konstanta, dan deklarasi sub program.
'Variable Kontrol Sampling Interval Dim A As Byte Dim D As Byte Dim Z As Byte Dim Y As Byte Dim V As Byte
'interval sampling
'Variabel SHT11 Dim Ctr As Byte Dim Dataword As Word Dim Command As Byte Dim Dis As String * 7 Dim Calc As Single Dim Calc2 As Single Dim Calc3 As Single Dim Rhlinear As Single Dim Rhlintemp As Single Dim Tempc As Single Dim Tempf As Single Dim Dp As Single Dim H As Single 'Konstanta SHT11 Const C1 = -4 Const C2 = 0.0405 Const C3 = -0.0000028 Const T1c = .01 Const T2 = .00008 Const T1f = .018 Const C4 = .4343 Const C5 = 17.62 Const C6 = 243.12 'Definisi Port Card Insertion dan indikator LED Redled Alias PORTA.5 Ins Alias PORTA.4 Config PINA.4 = Input Config PORTA.5 = Output Dim Mmc_stat As Bit Dim Btemp1 As Byte 'Deklarasi Sub Program Declare Sub Getsht11() Declare Sub Getdatetime() Declare Sub Gethumi() Declare Sub Logging() Declare Sub Settime() Declare Sub Setdate()
'memebaca data dari SHT11 'membaca tanggal dan waktu 'menghitung RH dan Dewpoint 'Merekam ke SD card 'menentukan waktu 'menentukan tanggal
68
Lampiran 4. Kode pemrograman inisialisasi SD card dan membaca file konfigurasi pengguna.
'Rutin Deteksi SD card While Ins = 1 Redled = 1 Print "Card Not Detected" Wait 1 Wend Redled = 0 Waitms 200 Redled = 1 Waitms 200 Redled = 0 'Inisialisasi SD card $include "Config_MMC.bas" $include "Config_AVR-DOS.BAS" Mmc_stat = 0 If Gbdriveerror = 0 Then Btemp1 = Initfilesystem(1) If Btemp1 = 0 Then Mmc_stat = 1 Print "SD Card Ready" Else Print "SD Card Error" Print "Error Code: " ; Btemp1 End If End If Wait 1 'Inisialisasi awal waktu, tanggal dan interval sampling Dim _buff As String * 20 Dim S As String * 2 Dim Ff As Byte 'membaca baris pertama Ff = Freefile() Open "SETTING.INI" For Input As #2 ' membuka file SETTING.INI Line Input #2 , _buff S = Mid(_buff , 12 , 2) 'membaca interval sampling Z = Val(s) 'apabila 0 < interval < 59, maka interval akan menjadi 5 menit If Z > 0 And Z < 59 Then Z=Z Else Z=5
69
End If Redled = 1 'membaca baris kedua Line Input #2 , _buff If _buff = "SETTIME" Then ' mengatur jam dan tanggal Print "Set Time and Date" Line Input #2 , _buff ' Membaca baris waktu S = Mid(_buff , 8 , 2) _hour = Val(s) S = Mid(_buff , 11 , 2) _min = Val(s) S = Mid(_buff , 14 , 2) _sec = Val(s) Call Settime() Line Input #2 , _buff ' Membaca baris tanggal S = Mid(_buff , 8 , 2) _day = Val(s) S = Mid(_buff , 11 , 2) _month = Val(s) S = Mid(_buff , 14 , 2) _year = Val(s) Call Setdate() Call Getdatetime() Print _day ; "/" ; _month ; "/" ; _year ; " " ; _hour ; ":" ; _min ; ":" ; _sec : Elseif _buff = "NOSETTIME" Then ' Membiarkan Waktu dan tanggal Print "Not set Time and Date" Call Getdatetime() Print _day ; "/" ; _month ; "/" ; _year ; " " ; _hour ; ":" ; _min ; ":" ; _sec : End If Waitms 500 Close #2 Waitms 500 'menghapus file SETTING.INI Kill "SETTING.INI" 'membuat file SETTING.INI baru Open "SETTING.INI" For Append As #2 Print #2 , "Interval : " ; Z Print #2 , "NOSETTIME" Print #2 , "Time : hh:mm:ss" Print #2 , "Date : dd-mm-yy" Close #2 Print "SETTING.INI has been modified" Redled = 0
70
Lampiran 5. Kode pemrograman membuat nama file acak berdasarkan tanggal dan waktu.
Dim Filestr As String * 11 Call Getdatetime() Filestr = Str(_day) Filestr = Filestr + Str(_month) Filestr = Filestr + Str(_year) Filestr = Filestr + Str(_hour) Filestr = Filestr + Str(_min) Filestr = Filestr + ".txt" Print "Logging to File : " ; Filestr Print "Sampling Interval : " ; Z ; " Minutes": Waitms 10
71
Lampiran 6. Kode pemrograman looping utama.
'Rutin Utama Menulis ke SD card If Mmc_stat = 1 Then Open Filestr For Append As #1 Print #1 , "; "Suhu(C)" ; " " ; "RH" ; Call Logging() Call Getdatetime() A = _min Y=A+Z V = _sec 'Looping utama menulis ke SD card Do D = 59 - Y Call Getdatetime() If _min = 59 And _sec = V Then Y=Z-D Elseif _min = Y And _sec = V Then Call Getdatetime() Call Logging() A = _min Y=A+Z End If Wait 1 Loop
72
Lampiran 7. Lokasi pengambilan data skala lapang.
(Stasiun Lapang Kelautan, Pelabuhan Ratu, Sukabumi) Lampiran 8. Dokumentasi klasifikasi tiga perlakuan pengeringan rumput laut.
(a) Rumput laut sebelum dan sesudah pengeringan secara terbuka.
(b) Rumput laut sebelum dan sesudah pengeringan secara semi vakum.
73
Lampiran 8. Lanjutan.
(c) Rumput laut sebelum dan sesudah pengeringan secara vakum.
74
DAFTAR RIWAYAT HIDUP
Penulis dilahirkan di kota Garut, pada 7 November 1986 dari ayah yang bernama H. Apud Mahpudin dan ibunda bernama (Alm) Hj. Aas Hadjariah, S.Sos. Penulis merupakan anak kandung keenam dari enam bersaudara. Pendidikan dasar diselesaikan oleh penulis pada tahun 1998 di SD Negeri Kiansantang Garut. Penulis kemudian melanjutkan sekolah pendidikan tingkat menengah di SMP Negeri 2 Garut dan lulus pada tahun 2001. Pada pendidikan tingkat atas penulis melanjutkan di SMA Negeri 1 Tarogong Kidul Garut dan lulus pada tahun 2004. Semasa SMA penulis aktif di organisasi OSIS. Setelah lulus dari SMA penulis diterima di Institut Pertanian Bogor, Fakultas Perikanan dan Ilmu Kelautan, Institut Pertanian Bogor. Selama kuliah penulis tidak hanya aktif dalam bidang akademik namun juga organisasi. Penulis pernah menjabat sebagai anggota Himpunan Mahasiswa Ilmu dan Teknologi Kelautan (HIMITEKA) periode 2008/2009. Penulis juga pernah membantu dosen yang diamanahkan sebagai asisten laboratorium mata kuliah Dasar-dasar Instrumentasi Kelautan tahun ajaran 2008/2009. Dalam menyelesaikan masa studi di Institut Pertanian Bogor, penulis juga membuat skripsi yang berjudul “Rancang Bangun Instrumen Pendeteksi Kadar Air Rumput Laut Berbasis Mikrokontroler”.
