tag:blogger.com,1999:blog-58664272821563233022011-06-08T14:27:52.731+08:00Robotika Mesinnoreply@blogger.comBlogger11100tag:blogger.com,1999:blog-5866427282156323302.post-37843491145194620342008-05-13T07:25:00.000+08:002008-05-13T07:36:33.930+08:00<div style="text-align: center;"><--<span style="font-weight: bold;"><br /><span style="font-size:130%;">Source Code Komunikasi Serial</span></span><span style="font-size:130%;"><br /><span style="font-weight: bold;">Dengan Bahasa Pemrograman C</span></span><br /></div><br /><!--<br />//---------------------------------..<br />//Komunikasi Serial Dengan RS 232 //<br />//-------------------------------""<br />#include <at89x51.h><br /><br /><br /> void inisialisasi ()<br /> {<br /> TMOD=0X20;<br /> PCON=0X0;<br /> SM0=0;<br /> SM1=1;<br /> REN=1;<br /> TH1=0Xfd;<br /> TL1=0Xfd;<br /> TR1=1;<br /> }<br /><br /> void ngirimchar (char datanya)<br /> {<br /> SBUF=datanya;<br /> while(!TI)<br /> {;}<br /> TI=0;<br /> }<br /><br /> void ngirimteks (char *teks)<br /> {<br /> char i=0;<br /> while(teks[i]!=0)<br /> {<br /> ngirimchar(teks[i]);<br /> i++;<br /> }<br /> }<br /><br /> char nerimachar ()<br /> {<br /> while(!RI)<br /> {;}<br /> RI=0;<br /> return(SBUF);<br /> }<br /><br /> void delay (int n)<br /> {<br /> int i,j;<br /> for(i=0;i<n;i++)<br /> {<br /> for(j=0;j<100;j++);<br /> }<br /> }<br /><br /> void geserkir ()<br /> {<br /> char i,led=0x01;<br /> for(i=0;i<8;i++)<br /> {<br /> P0=led;<br /> led=((led<<1)|(led>>7));<br /> delay(500);<br /> }<br /> }<br /><br /> void geserkan ()<br /> {<br /> char i,led=0x80;<br /> for(i=0;i<8;i++)<br /> {<br /> P0=led;<br /> led=((led<<7)|(led>>1));<br /> delay(500);<br /> }<br /> }<br /><br /> void kedip2 ()<br /> {<br /> int i;<br /> for(i=0;i<8;i++)<br /> {<br /> P0=0x0f;<br /> delay(500);<br /> P0=0xf0;<br /> delay(500);<br /> }<br /> }<br /><br /> void main()<br /> {<br /> char key;<br /> inisialisasi();<br /> while(1)<br /> {<br /> ngirimteks("\n Pilihan: \n\r");<br /> ngirimteks("==============\n\r");<br /> ngirimteks("4. Geser kiri\n\r");<br /> ngirimteks("5. Geser kanan\n\r");<br /> ngirimteks("6. Kedip 4-4\n\r");<br /> ngirimteks("Tekan angka pilihan (4,5,6): \n\r");<br /> key=nerimachar();<br /> ngirimteks("Angka pilihan: \n\r");<br /> ngirimchar(key);ngirimchar('n\r');<br /> switch(key)<br /> {<br /> default:<br /> case '4':geserkir();break;<br /> case '5':geserkan();break;<br /> case '6':kedip2();break;<br /> }<br /> }<br /> }<br /><br />--><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/5866427282156323302-3784349114519462034?l=pemrograman-didox.blogspot.com' alt='' /></div>Robotika Mesinnoreply@blogger.com2