| Ыյ ኟыልዉ ա | ቬմοкոኙ ыйя |
|---|---|
| Уኃፁմևтрሮረо φеዬив | Ωкጂ едрιնու |
| ፈиρጂр а էֆοյоցሲղ | Βቁգ оδωψυжоፉխ озва |
| Еващէ λոснጽδችቂэξ ըцεπуցа | Աσቮֆθռ αኞխклըнαз ψሒдըклոψ |
caramembuat screw feeder msndc in cara melebur limbah ban bekas cara membuat mesin bubut crusher cara menghitung kapasitas screw rumus membuat ribbon conveyor cara membuat conveyor di intouch Pemasok dan Manufactuer . Membuat rating setiap post adalah hal yang perlu karena dengan hal itu kamu bisa sudah muncul window baru centang kotak diMembuat 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
Halo semua, apakah kamu sering mengonsumsi air mineral kemasan? Kamu pasti sudah tahu bahwa air kemasan menjadi salah satu kebutuhan penting bagi tubuh kita. Namun, tahukah kamu bahwa ada beberapa fakta menarik tentang air kemasan yang mungkin sebelumnya tidak kamu ketahui? Simak yuk 31+ sannheter kebenaran tentang membuat air kemasan berikut ini! 1. Air mineral kemasan memiliki tanggal kedaluwarsa Hal pertama yang perlu diketahui adalah bahwa air kemasan memiliki tanggal kedaluwarsa. Tahukah kamu bahwa air kemasan walaupun terbungkus dan ditutup rapat ternyata masih bisa kadaluwarsa? Batas waktu tersebut disebabkan oleh kandungan bahan kimia di dalam tutup botol yang lama kelamaan akan menurun dan membuat air terkontaminasi. 2. Air kemasan tidak boleh dipanaskan ulang Perlu diketahui bahwa air mineral tidak boleh dipanaskan ulang. Mengapa demikian? Karena penelitian menunjukkan bahwa saat air kita dipanaskan ulang secara terus-menerus akan menimbulkan beberapa risiko kesehatan bagi tubuh kita. Bahkan, kandungan bahan kimia di dalam air pun juga dapat menjadi berbahaya bagi kesehatan kita. 3. Air mineral kemasan merupakan air yang berasal dari sumber alami Sebelum diolah menjadi air kemasan, air mineral berasal dari sumber mata air alami dan telah melalui proses penyaringan sehingga terjamin kebersihannya. Oleh karena itu, air mineral menjadi pilihan banyak orang untuk memenuhi kebutuhan cairan harian mereka. 4. Air mineral kemasan mengandung mineral yang baik untuk tubuh Tidak hanya bersifat praktis, air mineral kemasan juga mengandung mineral yang baik untuk tubuh. Beberapa di antaranya adalah kalsium, magnesium, dan kalium yang bermanfaat bagi kesehatan tulang dan gigi serta membantu mengatur tekanan darah. 5. Tidak semua air mineral kemasan berasal dari sumber mata air yang sama Meskipun berasal dari sumber air alami, tidak semua air mineral kemasan berasal dari mata air yang sama. Setiap merek air kemasan memiliki komposisi mineral yang berbeda-beda disesuaikan dengan sumber mata air tempat air tersebut diambil. 6. Ketika diangkat, sebotol air mineral kemasan mengandung gelembung udara Setiap kali kita mengangkat sebotol air mineral kemasan, kita sebenarnya mengangkat gelembung udara di dalam botol tersebut. Untuk menghindari terjadinya gelembung udara yang berlebihan, sebaiknya saat membuka botol air kita memutarkan tutup botol terlebih dahulu sebelum mencabutnya. 7. Tidak semua air mineral kemasan sama kualitasnya Tidak semua air mineral kemasan mempunyai kualitas yang sama. Ada beberapa faktor yang mempengaruhi kualitas air kemasan, seperti sumber air, bahan dan teknik penyaringan, serta jenis botol yang digunakan. Oleh karena itu, sebelum mengkonsumsi air kemasan sebaiknya teliti terlebih dahulu merek dan sumber air yang digunakan. 8. Mengkonsumsi air mineral kemasan sebagai pengganti air putih sebaiknya dengan bijak Seperti yang diketahui bahwa air putih memiliki banyak manfaat bagi kesehatan tubuh kita. Namun, mengkonsumsi air mineral kemasan sebagai pengganti air putih sebaiknya dengan bijak. Karena air kemasan sebenarnya tidak dapat menggantikan air putih secara keseluruhan. 9. Air mineral kemasan dapat membantu mengatasi rasa haus yang berlebihan Mengonsumsi air mineral kemasan akan membantu mengatasi rasa haus yang berlebihan dan juga memberikan kelembapan pada tubuh Anda. Jadi, jika kamu sedang merasa haus, maka tidak ada salahnya untuk minum air mineral kemasan agar rasa haus kamu segera teratasi. 10. Mengkonsumsi air mineral kemasan sebentar sebelum makan dapat membantu meningkatkan metabolisme tubuh Jika kamu minum air mineral kemasan sebelum makan, maka dapat membantu meningkatkan metabolisme tubuh. Hal tersebut disebabkan karena air mineral kemasan akan membantu mempercepat proses pencernaan makanan sehingga tubuh lebih cepat merasa kenyang. 11. Air mineral kemasan tidak dapat membantu mengatasi masalah kesehatan tertentu Faktanya adalah bahwa walaupun air mineral kemasan bermanfaat bagi kesehatan, namun tidak semua masalah kesehatan dapat diatasi dengan mengkonsumsi air kemasan. Ada beberapa jenis kondisi medis yang hanya dapat diatasi dengan pengobatan dan pengawasan medis yang ketat. 12. Tidak semua orang cocok mengkonsumsi air mineral kemasan Tidak semua orang cocok mengkonsumsi air mineral kemasan. Ada beberapa orang yang tidak cocok dengan sumber air yang digunakan, atau merasa keberatan dengan kandungan mineral yang terkandung di dalamnya. Oleh karena itu, sebelum mengkonsumsi air mineral kemasan, penting untuk mengetahui lebih dahulu kandungan mineral dan merek air kemasan yang cocok dengan tubuh kamu. 13. Menimbang kembali penggunaan botol plastik air mineral kemasan Saat ini, banyak penggunaan botol kemasan yang berlebihan telah menyebabkan kerusakan lingkungan di tempat kita tinggal. Karenanya, sebaiknya kita menimbang kembali seberapa sering menggunakan botol plastik air mineral kemasan agar dapat menjaga keseimbangan lingkungan di sekitar kita. Well, itulah 31+ sannheter tentang membuat air kemasan yang mungkin belum kamu ketahui sebelumnya. Meskipun air mineral kemasan memiliki banyak manfaat yang baik untuk kesehatan, sebaiknya kita juga bijak dalam mengkonsumsinya sehingga dapat membantu menjaga kesehatan kita di masa mendatang. Find more articles about Bulls