LAPORAN PRAKTIKUM LAB MIKROKONTROLE MIKROKONTROLER R DAN INTERFACE
NOMOR PERCOBAAN
: P1
JUDUL PERCOBAAN
: Antarmuka LED
KELAS / GROUP
: TT TT 4A / !
NAMA PRAKTIKAN
: 1" An#$%ka Kurn%a&an '" G%nta Au(%a )an#a*an% !" Sa(man 4" Sara$ )a+%#,a$
PROGRAM STUDI TEKNIK TELEKOMUNIKASI TELEKOMUNIKASI POLITEKNIK NEGERI JAKARTA DEPOK '-1.
P1 : ANTARMUKA LED
I"
DIAGRAM SKEMATIK P1.1 Blink
P1.2 Fading
DIY. Traffic Light
P1.4 Mood light
P1.3 Candle Light
II"
Cara Kr0a A(%ka2% P1"1 B%nk a. Untk da!at "e"#at a!lika$i #link "enggnakan $at #ah %rdino
Uno& $at #ah ka#el U'B %(B& $at #ah L)D& $at #ah re$i$tor 22*+& ka#el(ka#el !engh#ng dan $at #ah !roto#oard. #. Me"#ka a!lika$i %rdino !ada PC. ,#ngkan %rdino Uno ke PC "enggnakan ka#el U'B %(B. c. Mengh#ngkan %rdino !in D13 dengan re$i$tor 22* + "enggnakan ka#el !engh#ng. Lal "engh#ngkan re$i$tor dengan L)D !ada kaki %noda& $edangkan kaki -atoda dih#ngkan dengan %rdino !in /D 0a"#ar 'ke"atik Blink. d. Me"a$kan Coding(na !ada a!lika$i %rdino ang $dah terin$tal !ada PC. e. 'etelah "eng(!load coding ter$e#t dan tidak ada eror ata "a$alah. Maka L)D !ada !in 13 akan hid! dan "ati $ecara #erlang lang $e$ai •
dengan akt dela ang ditentkan. P1"' Fa#%n3 a. Untk da!at "e"#at a!lika$i Fading "enggnakan $at #ah %rdino Uno& $at #ah ka#el U'B %(B& $at #ah L)D& $at #ah re$i$tor 22*+& ka#el(ka#el !engh#ng dan $at #ah !roto#oard. #. Me"#ka a!lika$i %rdino !ada PC. ,#ngkan %rdino Uno ke PC "enggnakan ka#el U'B %(B. c. Mengh#ngkan %rdino !in D dengan re$i$tor 22* + "enggnakan ka#el !engh#ng. -e"dian "engh#ngkan re$i$tor dengan L)D !ada
kaki %noda& $edangkan kaki -atoda dih#ngkan dengan %rdino !in /D 0a"#ar 'ke"atik Fading. d. Me"a$kan Coding(na !ada a!lika$i %rdino ang $dah terin$tal !ada PC. e. 'etelah "eng(!load coding ter$e#t dan tidak ada eror ata "a$alah. Maka L)D akan "enala dan !erlahan !ada" $e$ai akt dela ang telah diatr !ada coding(an.
P1"! Can#( L%3$t a. Untk da!at "e"#at a!lika$i Candle Light "enggnakan $at #ah
%rdino Uno& $at #ah ka#el U'B %(B& $at #ah L)D& $at #ah re$i$tor 22*+& ka#el(ka#el !engh#ng dan $at #ah !roto#oard. #. Me"#ka a!lika$i %rdino !ada PC. ,#ngkan %rdino Uno ke PC "enggnakan ka#el U'B %(B. c. Meng#ngkan %rdino !in D dengan re$i$tor 22* + "enggnakan ka#el !engh#ng. -e"dian "engh#ngkan re$i$tor dengan L)D !ada kaki %noda& $edangkan kaki -atoda dih#ngkan dengan %rdino !in /D 0a"#ar 'ke"atik Candle Light. d. Me"a$kan Coding(na !ada a!lika$i %rdino ang $dah terin$tal !ada PC. e. 'etelah "eng(!load coding ter$e#t dan tidak ada eror ata "a$alah. Maka L)D akan "enala dan !ada" dengan rando" $e$ai ang telah
•
diatr !ada coding(an. f. La"! L)D "enala $eolah(olah $e!erti cahaa lilin. P1"4 M# L%3$t a. Untk da!at "e"#at a!lika$i Mood Light "enggnakan $at #ah %rdino Uno& $at #ah ka#el U'B %(B& $at #ah L)D 5B& tiga #ah re$i$tor 22*+& ka#el(ka#el !engh#ng dan $at #ah !roto#oard. #. Me"#ka a!lika$i %rdino !ada PC. ,#ngkan %rdino Uno ke PC "enggnakan ka#el U'B %(B. c. Mengh#ngkan %rdino !in D6 dengan re$i$tor 22* + "enggnakan ka#el !engh#ng& ke"dian "engh#ngkan re$i$tor dengan L)D 5B !ada arnah "erah !ada kaki -atoda 0a!a#ila L)D 5B #er7eni$ co""on catode& $edangkan kaki %noda dih#ngkan dengan %rdino !in /D. Lakkan hal ang $a"a ntk !in D8 ntk green !in dan D3 ntk #le !in 0a"#ar 'ke"atik Mood Light. d. Me"a$kan Coding(na !ada a!lika$i %rdino ang $dah terin$tal !ada PC.
e. 'etelah "eng(!load coding ter$e#t dan tidak ada eror ata "a$alah. Maka L)D akan "enala dan nantina akan "ered! $e$ai dengan arna ang #erganti(ganti $e$ai ang telah diatr !ada coding(an. •
P1"5 DI6 Tra+%7 L%3$t a. Untk da!at "e"#at a!lika$i Traffic Light "enggnakan 2 #ah
L)D 5B&$at #ah %rdino Uno 53&5e$i$tor 22* + 2 #ah&dan ka#el 9 ka#el !engh#ngan dan $at #ah #read#oard. #. Me"#ka a!lika$i %rdino !ada PC. ,#ngkan %rdino ke PC "enggnakan ka#el U'B %(B. c. Mengh#ngkan %rdino Uno 53 !ada !in 3&8&dan 6 dengan re$i$tor 22* + "enggnakan ka#el !engh#ng& ke"dian "engh#ngkan re$i$tor dengan L)D 5B !ada arna "erah !ada kaki katoda 0a!a#ila L)D 5B #er7eni$ co""on catode& $edangkan kaki %noda dih#ngkan dengan %rdnio !in /D. d. Me"a$kan Codingna !ada a!lika$i %rdino Uno ang $dah terin$tal !ada PC. e. 'etelah "eng!load coding ter$e#t. Maka L)D akan "enala dengan arna ang #er#eda #eda $e$ai dengan !rogra" ang di"a$kan ke %rdnio. Dengan dela ang $dah ditentkan di!rogra". III"
SKETC) P1.1 Blink •
Coding #link : //Blink int ledPin = 13; //LED connected to digital pin 13 void setup() //run once,wen te sketc starts ! pin"ode(ledPin, #$%P$%); //sets te digital pin as output &
void loop() //run over and over again ! digital'rite(ledPin, *); //sets te LED on dela+(---); //waits .or a second digital'rite(ledPin, L#'); //sets te LED o.. dela+(---); //waits .or a second &
•
P1.2 Fading
Coding fading : //ading LED int value = -; //varia0le to keep te actual value int ledpin = ; //ligt connected to digital pin void setup() ! //noting .or setup & void loop() ! .or(value = - ; value 2= ; value4=) //.ade in(.ro5 5in to 5a6) ! analog'rite(ledpin,value); //sets te value(range .ro5 - to ) dela+(3-); //waits .or 3- 5illi seconds to see te di55ing e..ect & .or(value = ; value 7=-; value8=) ! analog'rite(ledpin,value); dela+(3-); &
//.ade out(.ro5 5a6 to 5in)
&
•
P1.3 Candle Light
Coding candle light : //9andleLigt int ledPin = ; //select te pin .or te LED int val = -; //varia0le tat olds te current LED 0rigtness int dela+val = -; //varia0le tat olds te current dela+ ti5e void setup()! rando5:eed(-); //initialie te rando5 nu50er generator pin"ode(ledPin, #$%P$%); //declare te ledPin as an #$%P$% & void loop()! val = rando5(1--,); //pick a rando5 nu50er 0etween 1-- and analog'rite(ledPin, val); // set te LED 0rigtness dela+val = rando5(-,1-); //pick a rando5 nu50er 0etween 3- and 1-dela+(dela+val); //dela+ tat 5an+ 5illiseconds &
•
P1.4 Mood Light
Coding "ood light : //"ood Ligt const int redPin = 3; //coose te pin .or eac o. te LEDs const int greenPin = ; const int 0luePin = <; const 0oolean invert = true; //set true i. co55on catode,.alse i. co55on anode int color = -; int ,*,B;
//a value .ro5 - to representing te ue //te ed and Blue color co5ponents
void setup() ! //pins driven 0+ analog'rite do not need to 0e declared as outputs & void loop() ! int 0rigtness = ; // is 5a6i5u5 0rigtness ue%o*B(color,0rigtness); //call .unction to convert ue to *B //write te *B values to te pins analog'rite(redPin, ); analog'rite(greenPin, *); analog'rite(0luePin, B); color44; //incre5ent te color i. (color 7 ) color = -; dela+(1-); & //.unction to convert a color to its ed,*reen,and Blue co5ponents> void ue%o*B(int ue,int 0rigtness) ! unsigned int scaledue = (ue?<); unsigned int seg5ent = scaledue / <; //seg5ent - to around te color weel unsigned int seg5ent#..set = scaledue 8 (seg5ent?<);//position witin te unsigned unsigned unsigned
seg int co5ple5ent = -; int prev = (0rigtness?( 8 seg5ent#..set))/<; int ne6t = (0rigtness?seg5ent#..set)/<;
i.(invert) ! 0rigtness = 80rigtness; co5ple5ent = ; prev = 8prev; ne6t = 8ne6t; &
switc(seg5ent)! case -@ //red =0rigtness; *=ne6t; B=co5ple5ent; 0reak; case 1@ //+ellow =prev; *=0rigtness; B=co5ple5ent; 0reak; case @ //green =co5ple5ent; *=0rigtness; B=ne6t; 0reak; case 3@ //c+an =co5ple5ent; *=prev; B=0rigtness; 0reak; case A@ //0lue =ne6t; *=co5ple5ent; B=0rigtness; 0reak; case @ //5agenta de.ault@ =0rigtness; *=co5ple5ent; B=prev; 0reak; &
& •
DIY Traffic Light
Coding le;el : /? %ra..ic Ligt ?/ int redPin = A ; int greenPin = ; int redPin = C ; int greenPin = 1 ;
void setup() ! pin"ode(redPin,#$%P$%); pin"ode(greenPin,#$%P$%); pin"ode(redPin,#$%P$%); pin"ode(greenPin,#$%P$%); & void loop() ! digital'rite(redPin,*); dela+(---); digital'rite(greenPin,*); dela+(---);
digital'rite(redPin,*); digital'rite(greenPin,*); dela+(---); digital'rite(redPin,*); digital'rite(greenPin,*); dela+(---);
digital'rite(greenPin,*); dela+(---); digital'rite(redPin,*); dela+(---); &
I8"
ANALISA
Praktik" !rogra" P1.1 Blink #ert7an ntk "e"#at la"! #erkeli!(keli!. Progra" !erintah
ledPin=13;
ntk "enggnakan
!in 13 $e#agai =UTPUT 'elan7tna "e"a$kkan !erintah < void
setup()
ntk "elakkan rn !rogra" !erta"a $aat !rogra" ini di"lai dengan i$i !erintah !rogra" < pin"ode(ledPin,#$%P$%); fng$i ini #et7an "engatr =UTPUT& $elan7tna fng$i
< void
loop() ntk "engatr agar
dilakkan #erlang(lang dala" hal ini L)D akan #erkeli(keli! $ecara ter$
"ener$. Perintah !rogra" agar L)D dala" keadaan "ati lal ata * 0nilai digital. Lal& "a$kkan dela ? 7eda akt ang diinginkan dengan for"at dela+(1---); 1*** adalah akt ang diinginkan ait 1*** "$ ata 1 detik. Cara ker7a dari Praktik" P1.2 Fade Light ait $e#ah L)D ang red! terang. Dengan !rogra" !erintah < int
ledPin=;@
dan !rogra"
!erintah
setup() @
dan
loop() @.
Fng$i !erintah $et! dignakan ntk "elakkan !engatran aal ata $et! ang di7alankan $ekali $a7a. Fng$i !erintah ;oid loo! akan "elakkan $at fng$i
$ecara
#erlang(lang.
rando5(1--,) ; ” !erintah
Pada
!rogra"
!erintah
ini #ert7an ntk "e"#ata$i nilai acak ata
rando" dari * $a"!ai dengan 288. Pada $aat Progra" di 7alankan la"! L)D akan red! terang $ecara #erlang(lang dengan tingkat !encahaa ang telah di$et. Pada !raktik" P1.3 Candle Light "enggnakan 1 #ah L)D ang ketika di7alankan !rogra"na "aka L)D akan "enala $e!erti cahaa lilin. !rogra" !erintah
ledPin = ;
ntk "engh#ngkan =UTPUT
ardino ke L)D. Pada !rogra" ini 7ga terda!at !rogra" !erintah < void setup()”
di7alankan
dan < void akan
loop() ”.
ter$
rando5(1--,) ; “
Dengan 1 kali fng$i "aka la"! ang
#erlang(lang.
Progra"
!erintah
ait ntk "e"#ata$i nilai acak dari * (288.
Pada Praktik" !rogra" P1.4 Moon Light ait "en7alankan L)D 5B ang "e"!nai arna 5ed& reen& Ble ata 5B. Pada !rogra" ini "enalahkan la"! dengan dela ang telah ditentkan !ada coding. Fng$i ;oid $et! dan ;oid loo! 7ga terda!at dala" !rogra" ini ntk "elakkan $ecara #erlang(lang dala" $at kali fng$i. PI/ ang dignakan adalah 3& 8& 6 ang "er!akan =UTPUT P>M. 'aat !rogra" di 7alankan "aka L)D akan #er#ah arna.
•
DIY Traffic Light
Pada !rogra" Praktik"0Do It Yor$elf Traffic Light ait "en7alankan !rogra" L)D 5B ang #er7alan $ecara #ergantian dengan "e"!nai dela ang #er#eda #eda. PI/ ang dignakan adalah digital ait 3&8&6&&1*&dan 11. Progra" !erintah @ void
setup() dan void loop() &
dengan $at kali fng$i "aka akan
"en7alankan L)D $ecara #erlang(lang. Progra" !erinah pin"ode(3,
#$%P$%); ,
pin"ode(, #$%P$%);, pin"ode(<, #$%P$%); , pin"ode(, #$%P$%);, pin"ode(1-, #$%P$%);, pin"ode(11, #$%P$%);,
ait "engatr =UTPUT !ada
ardino !ada "a$ing("a$ing !in ang telah ditentkan. < digital'rite agar fng$i L)D dala" #entk digital. /ilai "enala dan "ati ditentkan !ada dela !rogra" di"ana L)D.
8"
KESIMPULAN Pada !erco#aan P1.1 Blinking $aat !rogra" di7alankan "aka la"! L)D akan
#erkela!(keli! dan 7ga dela ata inter;al akt ditentkan ce!at ata la"#atna L)D #erkeli!. Dan !ada !raktik" P1.2 Fading Light $aat !rogra" di7alankan "aka la"! L)D akan red! terang $ecara acak dari *( 288. Dan !ada !raktik" P1.3 Candle Light !rogra" ini akan "en7alankan L)D akan "enala $e!erti cahaa lilin dengan tingkat inten$ita$ $ecara acak dari * 9 288. Dan !raktik" P.14 Mood Light Progra" ini "en7alankan L)D 5B agar "enalakn la"! 5)D& 5))/& dan BLU) denggan inter;al akt ang telah di !rogra". La"! akan #ergantian $ecara #erlang(lang $a"!ai cat daa di le!a$. Dan !ada $aat !raktik" DIY0Do It Yor$elfProgra" ini $etelah di7alankan akan "enalakan 1 #ah L)D 5B&ait "erah&kning&dan hi7a ang "enala $ecara #ergantian dengan "e"!nai dela ang #er#eda #eda.
DAFTAR PUSTAKA
Ao# 'heet Microcontroller