Mengukur Jarak Dengan Sensor Ultrasonic Hc-sr04 Melalui Link Ethernet w1500

Ethernet W1500 shield dapat digunakan untuk menghubungkan modul arduino ke dalam jaringan internet melalui koneksi kabel RJ45 (tidak termasuk dalam paket). Penggunaan modul W1500 sangat mudah dan epat dilakukan! karena pada program "#E arduino sudah terdapat ontoh programn$a. %ehingga dalam hitungan menit &nda akan dapat melakukann$a. 'ntuk melakukan testing terpisah bagaimana menggunakan Ethernet %hield W1500 silakan merujuk pada posting T  Testing esting

W1500 W150 0 Ethe Ethernet rnet Shie Shield ld.

Sensor Ultrasonic HC-SR04

%ensor ultrasoni *%R04 adalah salah satu modul $ang dapat digunakan pada modul &rduino. 'ntuk menggunakan sangat mudah dan dalam +aktu beberapa menit bisa dilakukan. ,agi $ang ingin melakukan testing seara mandiri silakan merujuk posting Simple Arduino and HC-SR04 Example. #atasheet dapat diunduh HC-SR04. -oneksi pin *%R04 adalah •

5V Suppl

•

 Trigger  T rigger !ulse

•

E"ho !ulse #

•

0V $round

seperti terlihat diba+ah ini %elanjutn$a! untuk melakukan testing komponen $ang dibutuhkan adalah •

1 unit sensor ultrasoni" HC-SR05

•

4 pin %a&el 'umper (emale-male

•

1 unit modul arduino

•

1 unit modul ethernet W1500

•

1 %a&el R$45

•

1 %a&el )S*

HC-SR04 dan kabel jumper female-male

Pemasangan kabel jumper pada HC-SR05

Pemasangan kabel jumper pada modul ethernet !500

Pemasangan kabel R"45 pada !500

Pemasangan kabel R"45 pada #omputer 

%oure ode $ang dipakai dapat dilihat diba+ah ini /soureode 2 Web %er3er   & simple +eb ser3er that sho+s the 3alue o the analog input pins. using an &rduino Winet Ethernet shield. iruit 2 Ethernet shield attahed to pins 10! 11! 16! 17 2 &nalog inputs attahed to pins &0 through &5 (optional) reated 18 #e 6009 b$ #a3id &. :ellis

modiied 9 &pr 6016 b$ ;om "goe 2
 start the Ethernet onnetion and the ser3er Ethernet.begin(ma! ip)D ser3er.begin()D %erial.print(Lser3er is at L)D %erial.println(Ethernet.loal"P())D G 3oid loop()  2 ;he ollo+ing trigPinehoPin $le is used to determine the distane o the nearest objet b$ bouning sound+a3es o o it. 2 digitalWrite(trigPin! @AW)D dela$:iroseonds(6)D digitalWrite(trigPin! "M)D dela$:iroseonds(10)D digitalWrite(trigPin! @AW)D duration C pulse"n(ehoPin! "M)D alulate the distane (in m) based on the speed o sound. distane C duration58.6D i (distane >C maBimumRange NN distane =C minimumRange) 2 %end a negati3e number to omputer and ;urn @E# AI to indiate Lout o rangeL 2 %erial.println(L*1L)D digitalWrite(@E#Pin! "M)D G else  2 %end the distane to the omputer using %erial protool! and turn @E# AFF to indiate suessul reading. 2 %erial.println(distane)D digitalWrite(@E#Pin! @AW)D G  listen or inoming lients Ethernetlient lient C ser3er.a3ailable()D i (lient) 

%erial.println(Lne+ lientL)D  an http reuest ends +ith a blank line boolean urrent@ine"s,lank C trueD +hile (lient.onneted())  i (lient.a3ailable())  har  C lient.read()D %erial.+rite()D  i $ouO3e gotten to the end o the line (r eei3ed a ne+line  harater) and the line is blank! the http reuest has ended!  so $ou an send a repl$ i ( CC nO QQ urrent@ine"s,lank)   send a standard http response header  lient.println(L;;P1.1 600 A-L)D lient.println(Lontent*;$pe teBthtmlL)D lient.println(Lonnetion loseL)D  the onnetion +ill be losed ater ompletion o  the response lient.println(LReresh 1L)D  reresh the page automatiall$ e3er$ 5 se lient.println()D lient.println(L=K#A;PE ;:@>L)D lient.println(L=html>L)D  output the 3alue o eah analog input pin 2 or (int analoghannel C 0D analoghannel = HD analoghannelSS)  int sensorReading C analogRead(analoghannel)D lient.print(Lanalog input L)D lient.print(analoghannel)D lient.print(L is L)D lient.print(sensorReading)D lient.println(L=br >L)D G 2 lient.print(L#istane L)D lient.print(distane)D lient.print(L mL)D lient.println(L=html>L)D breakD G i ( CC nO) 

 $ouOre starting a ne+ line urrent@ine"s,lank C trueD G else i ( KC rO)   $ouO3e gotten a harater on the urrent line urrent@ine"s,lank C alseD G G G  gi3e the +eb bro+ser time to reei3e the data dela$(1)D  lose the onnetion lient.stop()D %erial.println(Llient disonnetedL)D G G