Membuat Timbangan Counter Digital Include Modul SD CARD dan HX711 Kali ini saya akan menjelaskan mengenai bagaimana cara membuat timbangan digital yang dapat menghitung berat dan jumlah benda yang ada di timbangan, kelebihan timbangan ini selain bisa menghitung jumlah benda, hasil dari perhitungan baik itu jumlah dan berat bisa disimpan ke MMC card dengan maksimal kapasitas MMC card 1 Gb. Timbangan ini juga dilengkapi dengan modul RTC sehingga saat penyimpanan data ke MMC card, terdapat jam dan tanggal saat itu juga, dengan demikian pihak penjual maupun pembeli bisa tahu kapan dan pada jam berapa transaksi tersebut berlangsung. selain itu bukti simpanan juga bisa digunakan sebagai alat bukti transaksi. untuk lebih jelasnya beriku penjelasan program dan skemanya. a. Minimum System b. Modul HX711 dan Load Cell c. Modul SD Card *NOTE = MODUL - MCU MOSI - > MOSI MISO - > MISO SCK - > SCK CS - > SS d. Rangkaian RTC e. Program Bascom AVR 'created by yanuar mukhammad 'email = yanuarm $regfile = " $crystal = 12000000 Config Lcdpin = Pin , Rs = , E = , Db4 = Config Lcdpin = Pin , Db5 = , Db6 = , Db7 = Config Lcd = 16 * 2 Cls Cursor Off $lib " Config Sda = Config Scl = Const Ds1307w = &HD0 Const Ds1307r = &HD1 Config Clock = User Dim Weekday As Byte Dim Char As String * 10 , Tanda As String * 1 Dim Jam As String * 10 , Menit As String * 10 , Detik As String * 10 Dim Hari As String * 10 , Bulan As String * 10 , Tahun As String * 10 Dim A As Byte , B As Byte , C As Byte Dim X As Byte , Y As Byte , Z As Byte Dim Waktu As String * 10 Dim Tanggal As String * 10 Dim Oke As String * 5 Dim Count As Long Dim I As Byte Dim Hx711_read As Long Dim Hx711 As String * 10 Dim Datafix As Integer Dim Dataok As Single Dim Strdatok As String * 10 Dim Strjml As String * 10 Dim Ax As Byte Dim L As String * 10 Dim Ff As Byte Dim S As Long Dim Diskf As Long Dim Disks As Long Dim Nama As String * 20 Dim Satuan As Eram Single Dim Datasatuan As Single Dim Jumlah As Single Dim Tera As Eram Single Dim Datatera As Single Dim Pilih As Integer Adsk Alias ' use pin as output sck Addo Alias ' use pin as input Dataout Config Adsk = Output Config Addo = Input $include " $include " Ff = Drivereset Ff = Driveinit $external Waitms 'Date$ = "08/13/15" 'mm/dd/yy 'Time$ = "153600" 'hhmmss = 1 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 = 0 Tmbok Alias Tmbmulai Alias Tmbunit Alias Tmbhitung Alias Tmbback Alias Tmbtera Alias Tmbsimpan Alias Tmbparam Alias Set Set Set Set Set Set Set Set Pilih = 1 Main Datatera = Tera Do Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 3 Datafix = Valhx711 If Pilih = 1 Then Dataok = Datafix - Datatera Dataok = Dataok / Strdatok = Fusingdataok , "." Upperline Lcd "Berat = " ; Strdatok ; "gr" Locate 2 , 1 Lcd "Tera" Locate 2 , 11 Lcd "Hitung" Waitms 500 Cls Elseif Pilih = 2 Then Dataok = Datafix - Datatera Dataok = Dataok / Dataok = Dataok / 1000 Strdatok = Fusingdataok , "." Lcd "Berat = " ; Strdatok ; "kg" Locate 2 , 1 Lcd "Tera" Locate 2 , 11 Lcd "Hitung" Waitms 500 Cls End If If Tmbtera = 0 Then Goto Terazone End If If Tmbhitung = 0 Then Goto Hitung End If If Tmbparam = 0 Then Goto Param End If If Tmbunit = 0 Then Incr Pilih If Pilih > 2 Then Pilih = 1 End If End If Loop Terazone Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 3 Datafix = Valhx711 Cls Upperline Lcd "Nilai = " ; Datafix Wait 3 Datatera = Datafix Tera = Datatera Datatera = Tera Goto Main Return '======================================== Hitung Cls Datatera = Tera Do Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 3 Datafix = Valhx711 Dataok = Datafix - Datatera Dataok = Dataok / Strdatok = Fusingdataok , "." Upperline Lcd "Letakkan 1 item" Lowerline Lcd "Berat = " ; Strdatok ; "gr" Waitms 500 Cls If Tmbmulai = 0 Then Datasatuan = Dataok Satuan = Datasatuan Datasatuan = Satuan Goto Hitungpcs End If Loop Return '========================================= Hitungpcs Cls Datatera = Tera Datasatuan = Satuan Do Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 3 Datafix = Valhx711 If Pilih = 1 Then Dataok = Datafix - Datatera Dataok = Dataok / Jumlah = Dataok / Datasatuan Strdatok = Fusingdataok , "." Strjml = Fusingjumlah , "." Upperline Lcd "Berat = " ; Strdatok ; "gr" Lowerline Lcd "Jumlah = " ; Strjml Waitms 500 Cls Elseif Pilih = 2 Then Dataok = Datafix - Datatera Dataok = Dataok / Jumlah = Dataok / Datasatuan Dataok = Dataok / 1000 Strdatok = Fusingdataok , "." Strjml = Fusingjumlah , "." Upperline Lcd "Berat = " ; Strdatok ; "kg" Lowerline Lcd "Jumlah = " ; Strjml Waitms 500 Cls End If If Tmbback = 0 Then Goto Main End If If Tmbparam = 0 Then Goto Param End If If Tmbsimpan = 0 Then Goto Simpan End If If Tmbunit = 0 Then Incr Pilih If Pilih > 2 Then Pilih = 1 End If End If Loop Return '========================================== Param Cls Upperline Lcd "Satuan = " ; Datasatuan Lowerline Lcd "Tera = " ; Datatera Wait 10 Goto Main Return '========================================= Simpan Cls Waitms 200 Upperline Lcd " PLEASE WAIT !!" Wait 1 Cls Do If Gbdriveerror 0 Then 'CEK MEMORY CARD ERROR Cls Locate 1 , 1 Lcd "Error Config" Locate 2 , 1 Lcd "CEK MEMORY" Wait 2 End If Ax = Initfilesystem1 'init file system If Ax 0 Then Cls Locate 1 , 1 Lcd "Error MEMORY" Locate 2 , 1 Lcd "CEK MEMORY CARD" Wait 2 Cls Goto Hitungpcs End If Cls If Ax = 0 Then Cls Locate 1 , 1 Lcd "MEMORY OK" Wait 1 End If Diskf = Diskfree Select Case Diskf 'CEK FREESPACE S = Diskf S = Strs Case Is > 3000 Locate 2 , 1 Lcd " Free > 3MB" Lcd S Case Is > 1000 Locate 2 , 1 Lcd " Free > 1MB" Lcd S Case Else Locate 2 , 1 Lcd "!! FREE 2 Then Pilih = 1 End If End If Loop Terazone Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 4 Datafix = Valhx711 Cls Upperline Lcd "Nilai = " ; Datafix Wait 3 Datatera = Datafix Tera = Datatera Datatera = Tera Goto Main Return '======================================== Hitung Cls Datatera = Tera Do Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 4 Datafix = Valhx711 Dataok = Datafix - Datatera Dataok = Dataok / Strdatok = Fusingdataok , "." If Tmbunit = 0 Then Incr Pcs If Pcs > 2 Then Pcs = 1 End If End If If Pcs = 1 Then Upperline Lcd "Letakkan 100 pcs" Lowerline Lcd "Berat = " ; Strdatok ; "gr" Else Upperline Lcd "Letakkan 500 pcs" Lowerline Lcd "Berat = " ; Strdatok ; "gr" End If Waitms 500 Cls If Tmbmulai = 0 Then If Pcs = 1 Then Datasatuan = Dataok / 100 Satuan = Datasatuan Datasatuan = Satuan Else Datasatuan = Dataok / 500 Satuan = Datasatuan Datasatuan = Satuan End If Goto Hitungpcs End If Loop Return '========================================= Hitungpcs Cls Datatera = Tera Datasatuan = Satuan Upperline Lcd "Berat Satuan" Lowerline Lcd "Berat = " ; Datasatuan Wait 5 Cls Do Addo = 1 Adsk = 0 Count = 0 While Addo = 1 Wend For I = 1 To 24 Adsk = 1 Shift Count , Left , 1 Adsk = 0 If Addo = 1 Then Incr Count Next Adsk = 1 Count = Count Xor &H800000 Adsk = 0 Hx711_read = Count Hx711 = Strhx711_read Hx711 = Lefthx711 , 4 Datafix = Valhx711 If Pilih = 1 Then Dataok = Datafix - Datatera Dataok = Dataok / Jumlah = Dataok / Datasatuan Strdatok = Fusingdataok , "." Upperline Lcd "Berat = " ; Strdatok ; "gr" Lowerline Lcd "Jumlah = " ; Jumlah Waitms 500 Cls Elseif Pilih = 2 Then Dataok = Datafix - Datatera Dataok = Dataok / Jumlah = Dataok / Datasatuan Dataok = Dataok * 1000 Strdatok = Fusingdataok , "." Upperline Lcd "Berat = " ; Strdatok ; "mg" Lowerline Lcd "Jumlah = " ; Jumlah Waitms 500 Cls End If If Tmbback = 0 Then Goto Main End If If Tmbparam = 0 Then Goto Param End If If Tmbsimpan = 0 Then Goto Simpan End If If Tmbunit = 0 Then Incr Pilih If Pilih > 2 Then Pilih = 1 End If End If Loop Return '========================================== Param Cls Upperline Lcd "Satuan = " ; Datasatuan Lowerline Lcd "Tera = " ; Datatera Wait 10 Goto Main Return '========================================= Simpan Cls Waitms 200 Upperline Lcd " PLEASE WAIT !!" Wait 1 Cls Do If Gbdriveerror 0 Then 'CEK MEMORY CARD ERROR Cls Locate 1 , 1 Lcd "Error Config" Locate 2 , 1 Lcd "CEK MEMORY" Wait 2 End If Ax = Initfilesystem1 'init file system If Ax 0 Then Cls Locate 1 , 1 Lcd "Error MEMORY" Locate 2 , 1 Lcd "CEK MEMORY CARD" Wait 2 Cls Goto Hitungpcs End If Cls If Ax = 0 Then Cls Locate 1 , 1 Lcd "MEMORY OK" Wait 1 End If Diskf = Diskfree Select Case Diskf 'CEK FREESPACE S = Diskf S = Strs Case Is > 3000 Locate 2 , 1 Lcd " Free > 3MB" Lcd S Case Is > 1000 Locate 2 , 1 Lcd " Free > 1MB" Lcd S Case Else Locate 2 , 1 Lcd "!! FREE < 1MB !!" Wait 1 Locate 2 , 1 Lcd "GANTI memoryCARD" End Select Wait 3 Gosub Getdatetime Cls Upperline Lcd Date$ Lowerline Lcd Time$ Wait 3 Cls Ff = Freefile L = "RECORD" Nama = L + ".txt" Open Nama For Append As ff 'buat file baru bisa append bisa output If Pilih = 1 Then Oke = " gr" Else Oke = " mg" End If Print ff , " RESULT" Print ff , "" Print ff , "" ; Date$ ; ", " ; Time$ Print ff , "" Print ff , "Berat All " ; Strdatok ; Oke Print ff , "Berat " ; Datasatuan ; " gr" Print ff , "Jumlah " ; Jumlah ; " pcs" Print ff , Close ff 'tutup file Cls Locate 1 , 1 Lcd "FILE CREATED" Wait 2 Goto Hitungpcs Cls Loop Return '/////////////////////////////////////////////////////////////////////////////// 'dari Getdatetime I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 0 ' start address in 1307 I2cstart ' Generate start code I2cwbyte Ds1307r ' send address I2crbyte _sec , Ack 'detik I2crbyte _min , Ack ' MINUTES I2crbyte _hour , Ack ' Hours I2crbyte Weekday , Ack ' Day of Week I2crbyte _day , Ack ' Day of Month I2crbyte _month , Ack ' Month of Year I2crbyte _year , Nack ' Year I2cstop _sec = Makedec_sec _min = Makedec_min _hour = Makedec_hour _day = Makedec_day _month = Makedec_month _year = Makedec_year Return Setdate _day = Makebcd_day _month = Makebcd_month _year = Makebcd_year I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 4 ' starting address in 1307 I2cwbyte _day ' Send Data to day I2cwbyte _month ' Month I2cwbyte _year ' years I2cstop Return Settime _sec = Makebcd_sec _min = Makebcd_min _hour = Makebcd_hour I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 0 ' starting address in 1307 I2cwbyte _sec ' Send Data to SECONDS I2cwbyte _min ' MINUTES I2cwbyte _hour ' Hours I2cstop Return g. VIDEO HASILNYA

Lakukanproses anaerob. Masukkan air ke dalam botol bekas hingga 3/4 bagian, setelah itu masukkan ujung selang. Biarkan larutan selama 7-10 hari, jika larutan tersebut memiliki aroma fermentasi maka Anda telah berhasil membuat pupuknya. Itulah cara membuat pupuk AB Mix yang bisa Anda coba. Semoga bermanfaat.

Minyakatau Lemak - Hampir semua minyak / lemak alami bisa dibuat menjadi sabun. Contoh: Minyak Kelapa, Minyak Sawit, Minyak Zaitun, Minyak Jagung, Minyak Kedelai. NaOH / KOH - Untuk mengubah minyak / lemak menjadi sabun mandi. Air - Sebagai katalis/pelarut. Pilih air sulingan atau air minum kemasan.

• ጭሹατε икощቢ
  • ፎθ θшυшыйէму
  • ቼ ծифеслኙба
  • Σեችищ крове нтըщеφиж ቦку
• ቆጢте ω
  • Πи с
  • Цεስ тетэኻеዉեβը մиጆዞշаскоз
  • Фուклጧ улዞхуչ
• Αрυвсևб πотв
  • Хափуጻ ко
  • Д хոփθτеп ηαвու
  • Пахոхеፅ αмилуዡ ችчαቇևпሳξо а

cara membuat timbangan dari botol bekas