12 Muhamad Giga Rumanov 2AEC KDT2
-
Upload
muhamad-giga-rumanov -
Category
Documents
-
view
223 -
download
0
Transcript of 12 Muhamad Giga Rumanov 2AEC KDT2
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
1/97
LAPORAN KOMUNIKASIDATA 2
Muhamad Giga Rumanov
2 AEC
214341!2
TEKNIK OTOMASI MANU"AKTUR DAN MEKATRONIKA
POLITEKNIK MANU"AKTUR NEGERI #ANDUNGJl. Kanayakan no. 21, DAGO 40235, Tromol Pos 851 BANDUNG 40008 INDON!IAP"on# $ %2 022 2500241 &a' $ %2 022 2502%4( )om#*a+# $ "* $--.*olman/ann+.a.
#/mal $*olmanm#lsa.n#.
2015
mailto:[email protected]:[email protected] -
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
2/97
KATA PENGANTAR
P6 an sykr *#nls *an6akan k#*aa Alla" !7T yan+ #la" m#m#rkan ra"ma an
karna/Nya, s#"n++a *#nls a*a m#ny#l#sakan a*oran Prakkm Komnkas Daa 2.a*oran n m#r*akan r#alsas ar "asl k#+aan *#rkla"an #r*a *rakkm
laoraorm kom*#r yan+ *#nls lakkan nk m#laksanakan k#a6an s#a+a ma"assa k#*aa
os#n maa kla" komnkas aa.
P#nls m#nyaar a"a kam ma"assa k#las 2 A9 anyak m#na*akan *#n+alaman an
lm yan+ #rman:aa. )al #rs# ak lan #rka *anan, mn+an, 6+a oron+an ak ar
#ra+a *"ak s#ara lan+sn+ ma*n ak lan+sn+ yan+ m#man *#n+#r6aan s#ra *#ny#l#saan
la*oran n. ;aka m#lal k#s#m*aan yan+ san+a #r"ar+a n *#nls m#nyam*akan a*an #rma
kas" yan+ s##sar/#sarnya k#*aa s#ma *"ak yan+ #la" m#man alam *#laksanaan *rakkm
an *ros#s *#ny#l#saan la*oran n, #rama k#*aa $
1. Ba*ak D< In+. =la ran, ;s. s#lak os#n maa kla" komnkas aa.
2. I ! Amna", !.T ;.T. s#a+a *#nan++n+ 6aa aoraorm Kom*#r A
3. !#nor I"san !a*ra s#a+a s*#r>sor komnkas aa k#las 2 A9.
4. T#man k#las 2 A9 s#ra #ra+a *"ak yan+ ak sa s#kan sa *#rsa
Dalam *#nlsan la*oran n, *#nls mas" anyak m#mlk k#kran+an an k#sala"an alam
*#nlsan aa*n *#nysnan la*oran. Unk , *#nls m#n+"ara*kan saran an krk nk l#"
m#ny#m*rnakan la*oran n an m#n6a a"an *#rman+an *#nlsan an *#nysnan la*oran yan+
s#lan6nya.
D#s#m#r 2015
P#nls
1
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
3/97
DA"TAR ISI
KATA PNGANTA
BAB I PNDA)UUAN...........................................................................................................................1
1.1 aar B#lakan+...................................................................................................................................1
1.2 ;#oa Prakkm.............................................................................................................................2
BAB II ANDA!AN TO
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
4/97
3.4 Pro+ram Tam*lan T#ks &l#ks#l an 7ak.............................................................................5%
3.4.4 D#skr*s !o:ar#....................................................................................................................5%
3.4.2 )al yan+ "kan.................................................................................................................5%
3.4.3 Analsa
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
5/97
$AD%AL KEGIATAN
Hari/Tgl Kegiatan Waktu
Senin
14 Des
15
Apel Pagi, Absensi, Berdoa 06.55 -07.00
Instruksi mengenai kegiatan satu minggu. 07.00 -
09.00
Istirahat Pagi 09.00 -
09.0
!embuat dan mendalami program teks statis di "isual
Basi# ke $%&
09.0 -
''.(0
Istirahat )iang ''.(0 -
'.(0
!engetest program teks statis di "isual Basi# ke $%& '.(0 -
'5.00
Beres-beres $ab, Apel Pulang '5.00 -
'5.0
Selasa
15 Des
15
Apel Pagi, Absensi, Berdoa 06.55 -
07.00
!embuat dan mendalami program teks dinamis di "isual
Basi# ke $%&
07.00 -
09.00Istirahat Pagi 09.00 -
09.0
!eng-*+plore program dan est Program teks dinamis 09.0 -
''.(0
Istirahat )iang ''.(0 -
'.(0
!eng-*+plore program dan est Program teks dinamis '.(0
-'5.00
Beres-beres $ab, Apel Pulang '5.00 -
'5.0
Rabu
16 Des
Apel Pagi 06.50 -
07.00
!eran#ang program e+ible 07.00 -
4
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
6/97
15 09.00
Istirahat Pagi 09.00 -
09.0
!eng-*+plore program dan est Program 09.0 -
''.(0
Istirahat )iang ''.(0 -
'.(0
!eng-*+plore program dan est Program '.(0 -
'5.00
Beres-beres $ab, Apel Pulang '5.00 -
'5.0
Kamis
17 Des
15
Apel Pagi 06.50 -
07.00
!enempurnakan ugas 07.00 -09.00
Istirahat Pagi 09.00 -
09.0
!enempurnakan ugas 09.0 -
''.(0
Istirahat )iang ''.(0 -
'.(0
$atihan /ntuk est '.(0 -
'5.00
Beres-beres $ab, Apel Pulang '5.00 -
'5.0
Jumat
18 Des
15
Apel Pagi 06.50 -
07.00
est 07.00 -
09.00
Istirahat Pagi 09.00 -
09.0&okumentasi asil 1er2a 09.0 -
'0.00
In3entaris '0.00 4
''.00
Istirahat /1! ''.00 -
5
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
7/97
'5.00
Apel Pulang '5.00 -
'5.0
%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
8/97
#A# I
PENDA&ULUAN
1'1 La(a) #*+a,ang
Paa mn++ #rak"r *rakkm s#m#s#r 3 n, ma"assa k#las 2 A9 as#n aa"
m#laksanakan maa kla" *rakkm komnkas aa 2. =an+ m#n6a os#n an nsrkr *aa
*rakkm kal n aala" Pak Dr. In+. =la ran, ;!. T#ra*a 6+a s*#r>sor yan+ m#n+aas
an m#man 6alannya *rakkm. =an+ m#n6a s*#r>sor *aa *rakkm kal n aala" !#nor
Ik"san !a*ra.
Paa *rakkm koma n saya m#lakkan *rakkm m#n+#na komnkas anara P9 #n+an
9D , Komnkas yan+ lakkan aala" komnkas s#ral kar#na s##lm k# 9D aanya *#r*#ralya !P9 ?!mar P#r*"#ral 9onroll#r@ yan+ a*a m#lakkan komnkas s#ral. B#rk a+ram ar
komnkas #rs# $
1
!P9Ba:o
9D
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
9/97
Paa asarnya #ra*a ##ra*a "al yan+ *#la6ar *aa *rakkm n, anaranya $
;#n+#a" an m#m*rakkan ss#m komnkas aa s#ara s#ral an m#nam*lkannya k#
9D.
;#nam*lkan karak#r sas an nams yan+ am*lkan *aa 9D.
;#nam*lkan karak#r :l#ks#l mana karak#r yan+ am*lkan *aa 9D s#sa #n+an
n* yan+ maskan.
;#nam*lkan 6am an an++al *aa 9D.
;#ma *ro+ram nk m#na*akan s#r n#r:a# yan+ nyaman +nakan ol#" *#n++na
#n+an m#n++nakan >sal as %.
1'2 M*(oda P)a,(i,um
Paa *rakkm komnkas aa k# a n, a+ m#n6a +a k#lom*ok. ;asn+/masn+
k#lom*ok #rr ar 4 oran+. Paa s#a* k#lom*ok, *l" k#a k#lom*ok yan+ #ran++n+ 6aa
aas s#lr" #r6alannya *rakkm an +as/+as-6o#sk k#lom*ok.
Paa k#s#m*aan n, P#nls m#na*akan amana" s#a+a k#a k#lom*ok sa ?1@ yan+
#ran++oakan $
1. ;"ama G+a
2. ;. ol I"san
3. ;. 9ak A
4. ;"amma )lmy Allam
2
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
10/97
#A# II
LANDASAN TEORI
2'1 M*ng*na+ Ta-*+ ASCII
Ko# !anar Am#rka nk P#rkaran In:ormas aa A!9II ?American Standard Code for
Information Interchange@ m#r*akan sa sanar n#rnasonal alam ko# "r:an smol s#*#r
)#'an Uno##a* A!9II l#" #rs:a n>#rsal, ono"nya 124 aala" nk karak#r EFE.
A!9II s#lal +nakan ol#" kom*#ran ala komnkas lan nk m#nn6kkan #ks. Ko#
A!9II s##narnya m#mlk kom*oss lan+an n#rs#anyak 8 . Dmla ar 0000 0000 "n++a
1111 1111. Toal komnas yan+ "aslkan s#anyak 25%, mla ar ko# 0 "n++a 255 alam ss#m
lan+an D#smal,#rk ar a#l A!9II $
Ka)a,(*) Ni+ai Uni.od*
/h*,0ad*0ima+
Ni+ai ANSI
ASCII
/d*0ima+
K*(*)angan
NU 0000 0 Nll ?ak am*ak@
!O) 0001 1 !ar o: "#an+ ?ak am*ak@
!T 0002 2 !ar o: #' ?ak am*ak@
T 0003 3 n o: #' ?ak am*ak@
OT 0004 4 n o: ransmsson ?ak am*ak@
N 0005 5 nry ?ak am*ak@A9K 000% % Aknol#+# ?ak am*ak@
B 000C C B#ll ?ak am*ak@
B! 0008 8 ;#n+"a*s sa karak#r #lakan+ krsor
?Baks*a#@
)T 000( ( )orHonal alaon
& 000A 10 P#r+anan ars ?n# :##@
T 000B 11 Talas >#rkal
&& 0009 12 P#r+anan ars ?&orm :##@
9< 000D 13 P#r+anan ars ?arra+# r#rn@
!O 000 14 !": o ?ak am*ak@
!I 000& 15 !": n ?ak am*ak@
D 0010 1% Daa lnk #sa*# ?ak am*ak@
D91 0011 1C D#># onrol 1 ?ak am*ak@
D92 0012 18 D#># onrol 2 ?ak am*ak@
D93 0013 1( D#># onrol 3 ?ak am*ak@
D94 0014 20 D#># onrol 4 ?ak am*ak@
3
http://id.wikipedia.org/wiki/Hurufhttp://id.wikipedia.org/wiki/Simbolhttp://id.wikipedia.org/wiki/Hexhttp://id.wikipedia.org/wiki/Unicodehttp://id.wikipedia.org/wiki/Komputerhttp://id.wikipedia.org/wiki/Binerhttp://id.wikipedia.org/wiki/Desimalhttp://id.wikipedia.org/wiki/Desimalhttp://id.wikipedia.org/wiki/Hurufhttp://id.wikipedia.org/wiki/Simbolhttp://id.wikipedia.org/wiki/Hexhttp://id.wikipedia.org/wiki/Unicodehttp://id.wikipedia.org/wiki/Komputerhttp://id.wikipedia.org/wiki/Binerhttp://id.wikipedia.org/wiki/Desimal -
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
11/97
NAK 0015 21 N#+a># aknol#+# ?ak am*ak@
!=N 001% 22 !yn"ronos l# ?ak am*ak@
TB 001C 23 n o: ransmsson lok ?ak am*ak@
9AN 0018 24 9an#l ?ak am*ak@
; 001( 25 n o: m#m ?ak am*ak@!UB 001A 2% !s# ?ak am*ak@
!9 001B 2C sa*# ?ak am*ak@
&! 0019 28 &l# s#*araor
G! 001D 2( Gro* s#*araor
U! 001& 31 Un s#*araor
!P 0020 32 !*as
0021 33 Tana s#r ?#'lamaon@
E 0022 34 Tana k* a
0023 35 Tana *a+ar ?kr#s@
0024 3% Tana maa an+ olar
L 0025 3C Tana *#rs#n
M 002% 38 Karak#r am*#rsan ?M@
002C 3( Karak#r A*osro:
? 0028 40 Tana krn+ ka
@ 002( 41 Tana krn+ *
002A 42 Karak#r as#rsk ?nan+@
002B 43 Tana ama" ?*ls@
, 0029 44 Karak#r koma/ 002D 45 Karak#r "y*"#n ?sr*@
. 002 4% Tana k
- 002& 4C Gars mrn+ ?slas"@
0 0030 48 An+ka nol
1 0031 4( An+ka sa
2 0032 50 An+ka a
3 0033 51 An+ka +a
4 0034 52 An+ka #m*a
5 0035 53 An+ka lma% 003% 54 An+ka #nam
C 003C 55 An+ka 6"
8 0038 5% An+ka #la*an
( 003( 5C An+ka s#mlan
$ 003A 58 Tana k a
Q 003B 5( Tana k koma
R 0039 %0 Tana l#" k#l
4
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
12/97
S 003D %1 Tana sama #n+an
003 %2 Tana l#" #sar
003& %3 Tana anya
0040 %4 A k#on+ ?@
A 0041 %5 )r: lan A ka*alB 0042 %% )r: lan B ka*al
9 0043 %C )r: lan 9 ka*al
D 0044 %8 )r: lan D ka*al
0045 %( )r: lan ka*al
& 004% C0 )r: lan & ka*al
G 004C C1 )r: lan G ka*al
) 0048 C2 )r: lan ) ka*al
I 004( C3 )r: lan I ka*al
J 004A C4 )r: lan J ka*al
K 004B C5 )r: lan K ka*al
0049 C% )r: lan ka*al
; 004D CC )r: lan ; ka*al
N 004 C8 )r: lan N ka*al
O 004& C( )r: lan O ka*al
P 0050 80 )r: lan P ka*al
0051 81 )r: lan ka*al
< 0052 82 )r: lan < ka*al
! 0053 83 )r: lan ! ka*al
T 0054 84 )r: lan T ka*alU 0055 85 )r: lan U ka*al
005% 8% )r: lan ka*al
7 005C 8C )r: lan 7 ka*al
0058 88 )r: lan ka*al
= 005( 8( )r: lan = ka*al
V 005A (0 )r: lan V ka*al
W 005B (1 Krn+ sk kr
X 0059 (2 Gars mrn+ #ralk ?akslas"@
Y 005D (3 Krn+ skr kananZ 005 (4 Tana *an+ka
[ 005& (5 Gars aa" ?n#rsor#@
\ 00%0 (% Tana *#k sa
a 00%1 (C )r: lan a k#l
00%2 (8 )r: lan k#l
00%3 (( )r: lan k#l
00%4 100 )r: lan k#l
5
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
13/97
# 00%5 101 )r: lan # k#l
: 00%% 102 )r: lan : k#l :
+ 00%C 103 )r: lan + k#l
" 00%8 104 )r: lan " k#l
00%( 105 )r: lan k#l6 00%A 10% )r: lan 6 k#l
k 00%B 10C )r: lan k k#l
l 00%9 108 )r: lan l k#l
m 00%D 10( )r: lan m k#l
n 00% 110 )r: lan n k#l
o 00%& 111 )r: lan o k#l
* 00C0 112 )r: lan * k#l
00C1 113 )r: lan k#l
r 00C2 114 )r: lan r k#l
s 00C3 115 )r: lan s k#l
00C4 11% )r: lan k#l
00C5 11C )r: lan k#l
> 00C% 118 )r: lan > k#l
00CC 11( )r: lan k#l
' 00C8 120 )r: lan ' k#l
y 00C( 121 )r: lan y k#l
H 00CA 122 )r: lan H k#l
] 00CB 123 Krn+ kraal ka
^ 00C9 124 Gars >#rkal ?**a@_ 00CD 125 Krn+ kraal *
` 00C 12% Karak#r +#loman+ ?l#@
D 00C& 12C D#l##
0080 128 Daan+kan
0081 12( Daan+kan
0082 130 Daan+kan
0083 131 Daan+kan
IND 0084 132 In#'
N 0085 133 N#' ln#!!A 008% 134 !ar o: s#l## ar#a
!A 008C 135 n o: s#l## ar#a
0088 13% 9"ara#r alaon s#
008( 13C 9"ara#r alaon " 6s:aon
008A 138 n# alaon s#
PD 008B 13( Paral ln# on
PU 0089 140 Paral ln# *
%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
14/97
008D 141 #rs# ln# :##
!!2 008 142 !n+l# s": o
!!3 008& 143 !n+l# s": "r##
D9! 00(0 144 D#># onrol srn+
PU1 00(1 145 Pr>a# s# on#PU2 00(2 14% Pr>a# s# o
!T! 00(3 14C !# ransm sa#
99) 00(4 148 9an#l "ara#r
;7 00(5 14( ;#ssa+# an+
00(% 150 !ar o: +ar# ar#a
00(C 151 n o: +ar# ar#a
00(8 152 !ar o: srn+
00(( 153 Daan+kan
00(A 154 !n+l# "ara#r nro#r
9!I 00(B 155 9onrol s##n# nro#r
!T 00(9 15% !rn+ #rmnaor
O!9 00(D 15C O*#ran+ sys#m omman
P; 00( 158 Pr>ay m#ssa+#
AP9 00(& 158 A**laon *ro+ram omman
00A0 1%0 !*as yan+ kan *#msa" kaa
00A1 1%1 Tana s#r #ralk
b 00A2 1%2 Tana s#n ?9#n@
c 00A3 1%3 Tana Pons#rln+
d 00A4 1%4 Tana maa an+ ?Currency@e 00A5 1%5 Tana =#n
^ 00A% 1%% Gars #+ak *s/*s ?broken bar@
f 00AC 1%C !#on s+n
g 00A8 1%8 Da#r#ss
h 00A( 1%( Tana "ak *a ?9o*yr+"@
i 00AA 1C0 mnn# ornal naor
j 00AB 1C1 #:/*onn+ ol# an+l# oaon mark
00A9 1C2 No s+n
00AD 1C3Tana sr* ?hyphen@
00A 1C4 Tana m#rk #ra:ar
00A& 1C5 ;aron
00B0 1C% Tana #ra6a
00B1 1CC Tana kran+ l#" ?*ls/mns@
p 00B2 1C8 Tana kara ?*an+ka a@
q 00B3 1C( Tana kk ?*an+ka +a@
00B4 180 A# a#n
C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
15/97
00B5 181 ;ro s+n
t 00B% 182 Plro s+n
u 00BC 183 ;l# o
Gam-a) 2' Ta-*+ ASCII
8
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
16/97
2'2 &a)da)*
2'2'1 Sma)( P*)ih*)a+ Con()o++*) /SPC
!mar P#r*"#ral 9onroll#r ?!P9@ O7 9O!T !
9O!T !u ;#mlk k#mam*an m#nyalakan-m#makan backlight m#lal UA
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
17/97
ALAMAT DDRAM 5ARIAN SPC LO% COST SERIAL LCD6OLED
SISTEM 7ANG DIAN$URKAN
!s#m yan+ an6rkan nk *#n++naan !P9 O7 9O!T !
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
18/97
KONEKTOR DAN PENGATURAN $UMPER
Kon#kor IN ?J1@ #r:n+s s#a+a kon#kor nk a aya mol. 9a aya yan+ mask
akan #r"n+ k# r#+laor #+an+an.
Jumper Jumper
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
19/97
Kon#kor 9D PO
ANTARMUKA UART
Param##r komnkas UA
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
20/97
!#a* aa yan+ mask m#lal UA
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
21/97
9ono" la n+n m#nyalakan backlight, display, cursor, an blinking s#ra ara" cursor
increment ?k# kanan@ an no display#cursor shift, maka .on()o+#rnla 0'8&.
Us#r $ 0'08 0'8&
LOCATE
9ono" la n+n m#n+ar *oss krsor a+ar #raa *aa kolom k#/5 ars k#/0, maka s##la"
m#n+rmkan *#rna" oa# 9D, k #n+an aa kolom #rnla x0'05 k#man aa ars
#rnla x0'00.
Us#r $ 0'0( 0'01 0'05 0'00
14
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
22/97
%RITE DATA
9ono" la n+n m#ma karak#r ar #r*a smol #ra6a ?@ an akan aks#s m#lalalama DD
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
23/97
0'0A 0'02 0'0(
0'0A 0'02 0'0(
0'0A 0'02 0'0&
0'0A 0'02 0'00
0'0A 0'02 0'00
0'0A 0'02 0'00
READ ADDRESS6DATA
9ono" la n+n m#n+#a" alama DD
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
24/97
CLEAR LCD
9ono" la n+n m#m#rs"kan am*lan 9D-OD.
Us#r $ 0'09
C&ANGE LINE
9ono" la n+n a+ar *oss krsor 9D-OD #r*na" k# ars #rknya.
Us#r $ 0'0D
TE:T SLOT
1C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
25/97
9ono" la n+n m#nym*an #' x0 1 2 345% C 8 (x *aa #' slo k#/0.
Us#r $ 0'0 0'01 0'00 0'30 0'20 0'31 0'20 0'32 0'20 0'33 0'34 0'35 0'3% 0'20 0'3C 0'38 0'3(
9ono" la n+n m#nym*an #' xAB9Dx *aa #' slo k#/1.
Us#r $ 0'0 0'01 0'01 0'41 0'42 0'43 0'44 0'45 0'0
9ono" la n+n m#nam*lkan #' *aa #' slo k#/1 k# 9D-OD.
Us#r $ 0'0 0'02 0'01
LCD6#U;;ER SETTING
18
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
26/97
9ono" la n+n m#n+ar a+ar mol !P9 m#n++nakan 9D-OD *# 1% ' 2.
Us#r $ 0'3& 0'01
PROSEDUR PENGU$IAN
1. )n+kan 9D-OD k# mol !P9 O7 9O!T !
s#a+a master nk m#nam*lkan *#san *aa mol !P9 O7 9O!T !alas.Paa *ro+ram
#rs#, DT/A< 9;! akan m#n+rmkan *#rna" 9l#ar 9D,m#nam*lkan lsan x!A;AT
DATANG, an m#mnykan bu&&er. !##la" 2#k, layar akan k#mal #rs"kan. P#rna" oa#
9D krmkan s##lmDT/A< 9;! m#nlskan *#san xInno>a># an xl#rons
s#ara#ra"a* saml m#mnykan bu&&er. !##la" s#lr" *#san krmkan, maka backlight akan
k#*kan 2 kal.
S,*ma(i, SPC LO% COST SERIAL LCD6OLED
1(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
27/97
20
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
28/97
2'2'2 #A"O
Unk a*a m#lakkan komnkas s#ral anara P9 #n+an !P9 maka *#rlkan n#r:a#
aa *#n+"n+ anara P9 #n+an !P9 , Paa *rakkm kal n +nakan ka#l BA&O ya
kon>#r#r ar U!B k# *or s#ral.
Gamar Ka#l BA&O
2'2'3 LCD /Li>uid C)i0(a+ Di0+a?
Ds*lay #l#kronk aala" sala" sa kom*on#n #l#kronka yan+ #r:n+s s#a+a am*lan
sa aa, ak karak#r, "r: aa*n +ra:k. 9D ? 9rsal Ds*lay@ aala" sala" sa 6#ns
s*lay #l#kronk yan+ a #n+an #knolo+ 9;O! lo+ yan+ #k#r6a #n+an ak m#n+"aslkan
a"aya #a* m#manlkan a"aya yan+ aa s#k#lln+nya #r"aa* :ron/l aa m#nransmskan
a"aya ar ak/l. 9D ? 9rsal Ds*lay@ #r:n+s s#a+a *#nam*l aa ak alam #nk
karak#r, "r:, an+ka aa*n +ra:k.
9D m#r*akan ala nk m#nam*lkan karak#r aa ar s#a" ala maskan s#*#r
;krokonrol#r. 9D nk *#ralaan mkronrol#r aa ##ra*a *#, ya 8'2, 1%'2, 20'2, 20'4,
40z4. 9D 1%z2 aala" sala" sa *#nam*l yan+ san+a *o*l#r +nakan s#a+a n#r:a# anara
mkrokonrol#r #n+an s#r nya. D#n+an *#nam*l 9D 1%z2 n s#r a*a m#l"a-m#mana
k#aaan s#nsor aa*n k#aaan 6alanya *ro+ram. P#nam*l 9D 1%z2 n sa "n+kan #n+an
mkrokonrol#r a*a sa6a.
9D aala" la*san ar am*ran or+ank anara la*san kaa #nn+ #n+an #l#kroa
rans*aran nm oksa alam #nk am*lan s#>#n/s#+m#n an la*san #l#kroa *aa kaa
#lakan+. K#ka #l#kroa ak:kan #n+an m#an lsrk ?#+an+an@, mol#kl or+ank yan+ *an6an+
21
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
29/97
an slnrs m#ny#sakan r #n+an #l#kroa ar s#+m#n. a*san san" m#mlk *olarH#r
a"aya >#rkal #*an an *olarH#r a"aya "orsonal #lakan+ yan+ k #n+an la*san r#:l#kor.
9a"aya yan+ *anlkan ak a*a m#l#a mol#kl/mol#kl yan+ #la" m#ny#sakan r an
s#+m#n yan+ ak:kan #rl"a m#n6a +#la* an m#m#nk karak#r aa yan+ n+n am*lkan.
Dalam mol 9D ? 9rsal
Ds*lay@ #ra*a mroonroll#r yan+ #r:n+s s#a+a *#n+#nal am*lan karak#r 9D ?
9rsal Ds*lay@. ;ronroll#r *aa sa 9D ? 9rsal Ds*lay@ l#n+ka* #n+an m#mor
an r#+s#r. ;#mor yan+ +nakan mroonrol#r n#rnal 9D aala" $
DDRAM (Display Data Random Access Memory) m#r*akan m#mor #m*a karak#r yan+
akan am*lkan #raa. CGRAM (Character Generator Random Access Memory) m#r*akan m#mor nk
m#n++amarkan *ola s#a" karak#r mana #nk ar karak#r a*a a"/a" s#sa
#n+an k#n+nan.
CGROM (Character Generator Read Only Memory) m#r*akan m#mor nk
m#n++amarkan *ola s#a" karak#r mana *ola #rs# m#r*akan karak#r asar yan+
sa" #nkan s#ara *#rman#n ol#" *arkan *#ma 9D ? 9rsal Ds*lay@ #rs#
s#"n++a *#n++na n++al man+amlnya s#sa alama m#mornya an ak a*a m#ra"
karak#r asar yan+ aa alam 9G
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
30/97
R*gi0(*) da(a ya r#+s#r nk m#nlskan aa m#maa aa ar aa k# DD
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
31/97
2'3 So@(a)*
2'3'1 5i0ua+ #a0i. !'
Unk a*a #rkomnkas #n+an na lar, B%.0 sa" l#n+ka* #n+an :aslas ;!9omm 9onrol %.0. ;! 9omm 9onrol n #r:n+s nk m#n+akomor 6alanya komnkas
an rans:#r aa ar kom*#r k# *#ralaan #l#kronk #r*ros#sor aa*n s#alknya.
;roso: 9omm 9onrol %.0 n #r:n+s nk$
1. ;#n+aakan "n+an #n+an s#ral *or P9.
2. B#r"n+an #n+an ala komnkas lan ?ono" $ mo#m@.
3. ;#lakkan *#rkaran aa.
4. ;#monor an m#r#s*on #>#n an #rror yan+ #r6a *aa "n+an s#ral.Unk m#lakkan s#a" samn+an komnkas s#ral anara 2 *#ralaan ?P9/ID aa P9/P9@,
"ars lakkan lan+ka" v lan+ka" s#a+a #rk $
a. ;#mka s#ral *or
Paa komnkas s#ral, v aa yan+ mask ar na lar k# alam kom*#r
m#lalserial portakan am*n+ l receive buffer s##lm akan #ks#ks ol#" main
controller. D#mkan *la s##lm krm k# lar, aa akan am*n+ l transmit buffer.
!k#ma l#n+ka*nya a*a l"a *aa +amar aa".
!##lm m#mkaserial port, lakkan *#n+aran *rookol komnkas s#ral
#n+anproperty ;!9omm #rk$
9ommPor $ m#n#nkan nomor *or komnkas.!#n+ $ m#n#nkan a ra#, *ary, aa s, so* s alam srn+.
. ;#n+ar s#ral #>#
Paa a"a* n ka *#rl m#maskan a"a *#n+aran *rookol komnkas s#ral yan+
+nakan *aa *#ralaan lan yan+ ka aks#s ?msal $ P9, mo#m, mkrokonrol#r@ s#sa
#n+an *#n+aran *aa kom*#r yan+ ka *aka.
. Setting eceive and 'ransmit %uffer (roperties
Aa ##ra*a *ro*#ry ar r##># ::#r an ransm ::#r ?*ro*#ry ar ;! 9omm@ yan+
*#rl ka ar.
InB::#r!H# $ m#n+ar kran r##># ::#r
OB::#r!H# $ m#n+ar kran ransm ::#r.
24
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
32/97
# ::#r s##lm On9omm
#>#n *.
!"r#s"ol $ m#n#nkan 6mla" karak#r yan+ #rma ol#" ransm ::#r s##lm On9omm
#>#n *.Jka #rnla 0 #rar ak *#rna" *.Jka #rnla 1 #rar * s#a* sa
karak#r.
In*#n $ m#n#nkan 6mla" karak#r yan+ aa 9PU ar r##># ::#r.Jka #rnla x 0 x,
maka s#lr" s r##># ::#r akan aa 9PU.
In*;o# $ m#n#nkan *# aa n* yan+ akan aa 9PU.
omIn*;o#T#' $ nk aa srn+-#ks
omIn*;o#Bnary $ nk aa n#r
. ;ana+n+ # an Transm B::#r
Unk m#nam*lkan aa ar *#ralaan lan k# alam a*lkas B, +nakan
*ro*#r$ Inu('!#"n++a ko# akan #r#nk $
T'Ds*lay.T#' S ;!9omm1.In*.
Unk m#n+rm aa ar a*lkas B k# *#ralaan lan +nakn *ro*#r $ Ou(u(. !#"n++a
ko# akan #r#nk $
;!9omm1.O* S xIn nla srn+
Unk m#n+aas 6mla" yan+ aa transmit bufferan receive buffer, *ro*#ry
#rk a*a am*lkan.
In%ufferCount
!ut%ufferCount
"SComm "anya m#mlk 1 #>#n, ya OnComm. >#n n akan #r6a 6ka *ro*#r
ar CommEv*n(#ra", ya saa #r6a)ventkomnkas an)rror*
9ono" ar eventkomnkas OnComm
com)vSend $ m#n+rm s#6mla" karak#r k# transmit buffer
com)veceive $ m#n#rma s#6mla" kara#r receive buffer
!#an+ ono" ar error*aa OnComm$
com)vent%reak $ snyal break #rma
com)vent+rame $ aa k#sala"anframing
com)vent,!ver $ receive buffer m#n+alam overflow
25
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
33/97
com)vent'+ull $ transmit buffer*#n"
2%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
34/97
#A# III
$O#DESK
3'1 P)og)am Tami+an M*nu
3'1'1 D*0,)i0i P)og)am
Pro+ram n aala" *ro+ram m#n nk m#ny#akan *ro+ram/*ro+ram am*lan #kssas,nams, :l#'l# an ak.
3'1'2 &a+ ?ang di-u(uh,an
1. Tam*lan *#n++na ?Us#r In#r:a#@2. BA&O s o s#ral 1 !#3. !P9 1 Un4. 9D. 1 Un
5. P!U ?(D9 !**l#r@ 1 Un
3'1'3 Ran.angan P)og)am
Tami+an @o)m
M*nu u(ama
2C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
35/97
M*nu u(ama B Au(ho)
28
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
36/97
M*nu Mod*
P)og)am @o)m m*nu u(ama
Private Sub Command1_Click()Form3.ShowUnload MeEnd Sub
Private Sub Command_Click()!" Form1.#ei$ht % 3&&' henForm1.#ei$ht % &''El*eForm1.#ei$ht % 3&&'
End !"End Sub
Private Sub Command3_Click()Form.ShowUnload MeEnd Sub
2(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
37/97
P)og)am @o)m m*nu u(ama
Private Sub Command1_Click()Form+.ShowUnload Me
End Sub
Private Sub Command_Click()Form,.ShowUnload MeEnd Sub
Private Sub Command3_Click()Form.ShowUnload MeEnd Sub
Private Sub Command+_Click()Unload MeForm1.ShowEnd Sub
30
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
38/97
3'1'4 Do,um*n(a0i &a0i+ K*)a
31
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
39/97
32
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
40/97
3'2 P)og)am Tami+an T*,0 S(a(i0 ,* LCD
3'2'1 D*0,)i0i P)og)am
Pro+ram n m#mn+knkan *#n++na nk m#n+n*kan #ks om*#r ?m#lal *ro+ramn#r:a# yan+ a >@ an #ks #rs# akan am*l 9D.
3'2'2 &a+ ?ang di-u(uh,an
1. Tam*lan *#n++na ?Us#r In#r:a#@2. BA&O s o s#ral 1 !#3. !P9 1 Un4. 9D. 1 Un5. P!U ?(D9 !**l#r@ 1 Un
3'2'3 Ana+i0a Ran.angan P)og)am
Paa *ro+ram n, saya "anya "ars m#ranan+ n#r:a# nk m#nam*lkan #ks k# l.
Paa *ro+ram #rs# a6 #ra*a $
1. T#ks Bo' nk m#n+#k #ks yan+ akan n*.2. a#l nk m#nam*lkan lsan n* layar P9.3. Bon 7r# nk m#n+rmkan #ks k# 9D.4. Bon 9l#ar nk m#n+"a*s am*lan 9D.
B#rk aala" am*lan :orm am*lan sas k# 9D $
33
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
41/97
"o)mP)o*)(i*0
34
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
42/97
35
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
43/97
Pro+ram :orm am*lan sas k# 9D $
Private Sub Command1_Click()MSComm1.-utut % Chr(1)/abel1.Cation % e0t1.e0t
MSComm1.-utut % e0t1.e0tEnd Sub
Private Sub Command_Click()MSComm1.-utut % Chr(1)/abel1.Cation % e0t1.e0t% End Sub
Private Sub Command3_Click()Unload MeForm3.ShowEnd Sub
Private Sub Form_/oad() !" MSComm1.Port-en % Fal*e hen MSComm1.Port-en % rue End !"End Sub
P#n6#lasan *ro+ram $
! *ro+ram :orm[loa$
Private Sub Form_/oad() !" MSComm1.Port-en % Fal*e hen MSComm1.Port-en % rue End !"End Sub
K#ka :orm ma, *ro+ram akan lan+sn+ m#n+#ks#ks *#rna" m#mka *or
komnkas ar P9 k# 9D.
3%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
44/97
9omman1 *aa *ro+ram aas m#r*akan omol nk m#nlskan an m#nam*lkan
#ks yan+ n*kan #ks o' #'1 k# l.
T#ks o' ?#'1@
Tomol am*lan ?9omman1@
Private Sub Command1_Click()MSComm1.-utut % Chr(1)/abel1.Cation % e0t1.e0tMSComm1.-utut % e0t1.e0tEnd Sub
Pro+ram aas #rar a*ala omol omman1 /lk, maka *ro+ram akan
m#n+#ks#ks *#rna" $
;!9omm1.o*S"r?12@ aa m#n+"a*s-m#m#rs"kan am*lan l.
a#l1.a*onS#'1.#' aa m#n+s a*on la#l1 m#n6a s #' #'1.
an ;!9omm1.o* S #'1.#' aa m#n+s k#mal l #n+an s #' #'1
#n+an m#n#nkan o* komnkasnya #n+an s ar #'1.
Private Sub Command_Click()MSComm1.-utut % Chr(1)/abel1.Cation %
e0t1.e0t% End Sub
K#ka omman2 /lk maka akan m#n+"a*s s#lr" am*lan l, kar#na 9"r?12@
#r:n+s nk l#ar all.
3C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
45/97
Private Sub Command3_Click()Unload MeForm3.ShowEnd Sub
Jka omman3 /lk, akan m#n* :orm *ro+ram am*lan #ks sas an akan
m#mnlkan :orm3 nk m#ml" mo# yan+ lan.
"o)m 3
38
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
46/97
3'2'4 Do,um*n(a0i &a0i+ K*)a
3(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
47/97
3'3 P)og)am Tami+an T*,0 Dinami0
3'3'1 D*0,)i0i P)og)am
Pro+ram n m#mn+knkan *#n++na nk m#n+n*kan #ks om*#r ?m#lal
*ro+ram n#r:a# yan+ a >@ an #ks #rs# akan am*l 9D s#*#r unning te,taa #ks #r6alan #n+an ara" yan+ #nkan.
3'3'2 &a+ ?ang di-u(uh,an
1. Tam*lan *#n++na ?Us#r In#r:a#@2. BA&O s o s#ral 1 !#3. !P9 1 Un4. 9D. 1 Un5. P!U ?(D9 !**l#r@ 1 Un
3'3'3 Ana+i0a Ran.angan P)og)am
Paa *ro+ram n , nk n#r:a# *ro+ram, *#rl aa "al/"al s#*#r n $
1. T#ks Bo' nk m#n+#k #ks yan+ akan n*.2. a#l nk m#nam*lkan lsan n* layar P9.3. Bon 7r# nk m#n+rmkan #ks k# 9D.4. Bon #: nk m#/rnnn+ #ks k# kr.5. Bon
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
48/97
"o)m Po)*)(i*0
1' Tom-o+ )i(*
41
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
49/97
2' T*( -o inu(
42
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
50/97
3' Tom-o+ L*@(
43
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
51/97
4' Tim*) dan MSComm
44
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
52/97
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
53/97
!' Tom-o+ .+*a) +.d
4%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
54/97
=' Tom-o+ do 5a)ia(ion 2
4C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
55/97
' Tom-o+ do 5a)ia(ion 1
48
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
56/97
' Tom-o+ Righ(
4(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
57/97
P)og)am @o)m (ami+an (*,0 dinami0
2im a i b c 4* !nte$er
Private Sub Command1_Click()
2im 5umlah 4* !nte$er
5umlah % /en(e0t1.e0t) /abel1.Cation % e0t1.e0t MSComm1.-utut % /abel1.Cation a % 16 7 5umlah
For i % ' o a
MSComm1.-utut % Chr(1)
MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(i) 8 Chr(') MSComm1.-utut % /abel1.Cation b % imer 8 '.,
2o 9hile b : imer
/oo ;e0t i
End Sub
Private Sub Command_Click()
2im 5umlah 4* !nte$er
5umlah % /en(e0t1.e0t) /abel1.Cation % e0t1.e0t MSComm1.-utut % /abel1.Cation a % 16 7 5umlah
For i % ' o a
MSComm1.-utut % Chr(1) MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(a) 8 Chr(') MSComm1.-utut % /abel1.Cation
a % a 7 1 b % imer 8 '.,
2o 9hile b : imer
/oo ;e0t iEnd Sub
50
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
58/97
Private Sub Command3_Click()
MSComm1.-utut % Chr(1)/abel1.Cation %
e0t1.e0t %
End Sub
Private Sub Command+_Click()/abel1.Cation % e0t1.e0tMSComm1.-utut % /abel1.Cation
End Sub
Private Sub Command,_Click()Unload MeForm3.ShowEnd Sub
Private Sub Command6_Click()2im 5umlah 4* !nte$er
5umlah % /en(e0t1.e0t) /abel1.Cation % e0t1.e0t MSComm1.-utut % /abel1.Cation a % 1< 7 5umlah
For i % ' o a MSComm1.-utut % Chr(1) MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(i) 8 Chr(') MSComm1.-utut % /abel1.Cation b % imer 8 '.,
!" i % a hen
For c % ' o a a % a 7 1 !" a = ' hen a % ' MSComm1.-utut % Chr(1)
MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(a) 8 Chr(') MSComm1.-utut % /abel1.Cation b % imer 8 '., 2o 9hile b : imer /oo ;e0t c End !"
2o 9hile b : imer
51
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
59/97
/oo ;e0t iEnd Sub
Private Sub Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
60/97
P#n6#lasan *ro+ram $
! *ro+ram :orm[loa$
Private Sub Form_/oad()
!" MSComm1.Port-en % Fal*e hen MSComm1.Port-en % rue End !"End Sub
K#ka :orm ma, *ro+ram akan lan+sn+ m#n+#ks#ks *#rna" m#mka *or komnkas ar P9
k# 9D.
Private Sub Command+_Click()
/abel1.Cation % e0t1.e0t
MSComm1.-utut % /abel1.Cation
End Sub
9omman4 +nakan nk r# #ks k# l.
Private Sub Command_Click()2im 5umlah 4* !nte$er
5umlah % /en(e0t1.e0t) /abel1.Cation % e0t1.e0t MSComm1.-utut % /abel1.Cation a % 16 7 5umlah
For i % ' o a MSComm1.-utut % Chr(1) MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(a) 8 Chr(') MSComm1.-utut % /abel1.Cation
a % a 7 1 b % imer 8 '.,
2o 9hile b : imer /oo ;e0t iEnd Sub
53
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
61/97
9omman2 +nakan nk omol l#:. A*ala omol l#: /lk maka *ro+ram akan m#n6alankan
aks rnnn+ #ks ar kanan k# kr. Prns* *#mro+raman nk rnnn+ #ks ya #n+an
m#n++nakan m#r an krsor.
Tm#r akan m#mna"kan *oss krsor s#a* aknya. Krsor aala" *oss aal-sarn+ *on ar
#ks *aa l. Krsor n ar #n+an korna ' an y. B#rk aala" snaks ar krsor #ks $
MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(>kordinat x?) 8 Chr(>kordinat y?)
Jka ka n+n m#mna"kan #ks ar kanan k# kr, maka ka "ars s# *oss krsor ar nla '
#r#sar k# #rk#l. P#mro+raman "al #rs# m#n++nakan *#rlan+an yan+ #nkan 6mla" #ra*a
kal *#rlan+annya #rasarkan 6mla" karak#r #ks.
5umlah % /en(e0t1.e0t)
a % 16 @ 5umlah
>aral# a aala" >aral# yan+ m#n#nkan *oss #ks sm '. a aala" nla #ra*a kal *#rlan+an
lakkan. A akan kran+ 1 s#a* *#rlan+an. Kar#na s#a* *#rlan+an nla a akan #rkran+, maka
krsor akan #r+#rak k# kr.
For i % ' o a MSComm1.-utut % Chr(1) MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(a) 8 Chr(')
MSComm1.-utut % /abel1.Cation
a % a 7 1 b % imer 8 '.,
2o 9hile b : imer
/oo;e0t i
54
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
62/97
Kons#* rnnn+ #' ar kr k# kanan akan sama #n+an kons#* rnnn+ #' ar kanan k# kr, namn
krsor ' mla ar an+ka *aln+ r#na" k# an+ka *aln+ n++. 9ono"nya *aa omman1 s#a+a
omol k# kanan $
Pr>a# ! 9omman1[9lk?@
2im 5umlah 4* !nte$er
5umlah % /en(e0t1.e0t)
/abel1.Cation % e0t1.e0t
MSComm1.-utut % /abel1.Cation
a % 16 7 5umlah
For i % ' o a
MSComm1.-utut % Chr(1)
MSComm1.-utut % Chr(&) 8 Chr(1) 8 Chr(i) 8 Chr(')
MSComm1.-utut % /abel1.Cation
b % imer 8 '.,
2o 9hile b : imer
/oo
;e0t i
End Sub
55
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
63/97
3'3'4 Do,um*n(a0i &a0i+ K*)a
C+i., (om-o+ +*@( /)unning ,anan ,* ,i)i
5%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
64/97
5C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
65/97
C+i., Tom-o+ Righ( /da)i ,i)i ,* ,anan
58
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
66/97
5(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
67/97
%0
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
68/97
3'4 P)og)am Tami+an T*,0 "+*,0i-*+ dan %a,(u
3'4'4 D*0,)i0i P)og)am
Pro+ram n m#mn+knkan *#n++na nk m#n+n*kan #ks k# l s#ara :l#ks#l. &l#ks#l
alam "al n s#*#r k#yoar, sa "a*s, ls *#rkarak#r, an lan/lan.
Pro+ram n 6+a a*a m#nam*lkan ak 6am an an++al s#ara r#al m#.
3'4'2 &a+ ?ang di-u(uh,an
1. Tam*lan *#n++na ?Us#r In#r:a#@
2. BA&O s o s#ral 1 !#
3. !P9 1 Un
4. 9D. 1 Un
5. P!U ?(D9 !**l#r@ 1 Un
3'4'3 Ana+i0a Ran.angan P)og)am
Paa *ro+ram n , nk n#r:a# *ro+ram, *#rl aa "al/"al s#*#r n $
1. Tomol/omol k#yoar asar k#yoar.2. 9l#ar l.3. 9a*slok s":.
4. Tomol Ds*lay Tm# on-o::.5. Tomol k#lar.%. Dan lan/lan
B#rk aala" :orm am*lan #ks :l#'l# $
%1
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
69/97
%2
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
70/97
"o)m P)o*)(i*0
MSComm
%3
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
71/97
P)o*)(? -u((on AF; F
%4
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
72/97
P)o*)(? #u((on Sa.*
%5
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
73/97
P)o*)(? #u((on Ca0+o.,
%%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
74/97
P)o*)(? #u((on Ta-
%C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
75/97
P)o*)(? #u((on C+*a) L.d
%8
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
76/97
Pro+ram :orm $
2im i t 4* !nte$er
Private Sub Command1_Click()!" i % 1 hen MSComm1.-utut % Chr(&1)El*e MSComm1.-utut % Chr(&1)End !"End Sub
Private Sub Command3
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
77/97
El*e MSComm1.-utut % Chr(++)End !"End Sub
Private Sub Command+&_Click()!" i % 1 hen MSComm1.-utut % Chr(+6)El*e MSComm1.-utut % Chr(+6)End !"End Sub
Private Sub Command,'_Click()!" i % 1 hen MSComm1.-utut % Chr(63)El*e MSComm1.-utut % Chr(+
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
78/97
Command3.Cation % v Command+.Cation % b Command,.Cation % n Command6.Cation % mEl*e
i % ' /abel3.Ai*ible % rue Shae1.Ai*ible % rue Commanda.Cation % Command.Cation % 9 Command3.Cation % E Command+.Cation % Command,.Cation % Command6.Cation % G Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
79/97
MSComm1.-utut % Chr(1)e0t1.e0t % M.olbu !h*anMSComm1.-utut % e0t1.e0tEnd !"
!" i % 3 hen
MSComm1.-utut % Chr(1)e0t1.e0t % Hi$a umanovMSComm1.-utut % e0t1.e0tEnd !"
!" i % + hen
MSComm1.-utut % Chr(1)e0t1.e0t % M. Cakti 4MSComm1.-utut % e0t1.e0tEnd !"
!" i % , hen
MSComm1.-utut % Chr(1)e0t1.e0t % M. #ilm 4llam 4MSComm1.-utut % e0t1.e0ti % 'End !"End Sub
Private Sub Command,3_Click()Unload MeForm1.ShowEnd Sub
Private Sub Command,+_Click()MSComm1.-utut % Chr(3) 8 Chr(3) 8 Chr(3)End Sub
Private Sub Command,,_Click()
!" i % ' hen i % 1 Command+1.Cation % Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
80/97
Command33.Cation % T Command3+.Cation % Command3,.Cation % ( Command36.Cation % ) Command+'.Cation % _
Command+.Cation % 8 Command+3.Cation % V Command+.Cation % = Command+&.Cation % : Command,'.Cation % W Command1.Cation % X Command3
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
81/97
Private Sub Commanda_Click()!" i % 1 hen MSComm1.-utut % Chr(113)El*e MSComm1.-utut % Chr(1)
End !"End Sub
Private Sub Command1'_Click()!" i % 1 hen MSComm1.-utut % Chr(11)El*e MSComm1.-utut % Chr(')End !"End Sub
Private Sub Command11_Click()!" i % 1 hen MSComm1.-utut % Chr(&
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
82/97
Private Sub Command1,_Click()!" i % 1 hen MSComm1.-utut % Chr(1'3)El*e MSComm1.-utut % Chr(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
83/97
Private Sub Command'_Click()!" i % 1 hen MSComm1.-utut % Chr(1)El*e MSComm1.-utut % Chr(&')
End !"End Sub
Private Sub Command1_Click()!" i % 1 hen MSComm1.-utut % Chr(1')El*e MSComm1.-utut % Chr()End !"End Sub
Private Sub Command_Click()!" i % 1 hen MSComm1.-utut % Chr(&&)El*e MSComm1.-utut % Chr(6
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
84/97
Private Sub Command6_Click()!" i % 1 hen MSComm1.-utut % Chr(1'&)El*e MSComm1.-utut % Chr(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
85/97
Private Sub Command31_Click()!" i % ' hen MSComm1.-utut % Chr(,3)El*e MSComm1.-utut % Chr(3
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
86/97
Private Sub Command3&_Click()MSComm1.-utut % Chr(3)End Sub
Private Sub Command+_Click()!" i % 1 hen MSComm1.-utut % Chr(11+)El*e MSComm1.-utut % Chr()End !"End Sub
Private Sub Command+'_Click()!" i % ' hen MSComm1.-utut % Chr(+,)El*e MSComm1.-utut % Chr(&,)End !"End Sub
Private Sub Command+1_Click()!" i % ' hen MSComm1.-utut % Chr(16)El*e MSComm1.-utut % Chr(&6)End !"End Sub
Private Sub Command+_Click()!" i % 1 hen MSComm1.-utut % Chr(+3)El*e MSComm1.-utut % Chr(61)End !"End Sub
Private Sub Command++_Click()MSComm1.-utut % Chr(13)
End Sub
Private Sub Command+,_Click()MSComm1.-utut % Chr() 8 Chr(13,)MSComm1.-utut % Chr(3)MSComm1.-utut % Chr() 8 Chr(1+3)End Sub
C(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
87/97
Private Sub Command+6_Click()MSComm1.-utut % Chr(1)End Sub
Private Sub Command,_Click()
!" i % 1 hen MSComm1.-utut % Chr(116)El*e MSComm1.-utut % Chr(+)End !"End Sub
Private Sub Command6_Click()!" i % 1 hen MSComm1.-utut % Chr(11)El*e MSComm1.-utut % Chr(&)End !"End Sub
Private Sub Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
88/97
Private Sub Form_/oad()!" MSComm1.Port-en % Fal*e hen MSComm1.Port-en % rue
End !"End Sub
Private Sub imer1_imer()/abel
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
89/97
Jka nla I kan #rnla 1, maka akan m#n+"aslkan "r: as yan+ m#mlk nla #mal %5 ya A#sar.
Kons#* #rs# #rlak k# omol karak#r yan+ lan.
I aala" >aral# yan+ m#n+ar 6#ns "r: ?a*al-non/a*al@. Nla I ar omol a*slok ans": #n+an *#mro+raman s#*#r #rk $
!" i % ' hen i % 1 /abel3.Ai*ible % Fal*e Shae1.Ai*ible % Fal*e Commanda.Cation % B Command.Cation % w Command3.Cation % e Command+.Cation % r Command,.Cation % t Command6.Cation % Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
90/97
Command
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
91/97
3'4'4 Do,um*n(a0i &a0i+ K*)a
P)og)am ,*?-oa)d
84
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
92/97
85
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
93/97
P)og)am di0+a? (im*
8%
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
94/97
#A# I5
DOKUMENTASI LAIN
AUT&OR
8C
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
95/97
88
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
96/97
8(
-
7/25/2019 12 Muhamad Giga Rumanov 2AEC KDT2
97/97
#A# 5
PENUTUP
Paa *rakkm n, 6mla" !P9 9D yan+ a*a +nakan "anya #raas, s#"n++a "al nm#ma *ara ma"assa m#n++nakan !P9 9D #rs# s#ara #r+anan an m#n+"ama
*rakkm. !aran *#nls, ama"kan la+ #># !P9 9D #s#ra U!B Ba:o/nya a+ar k#+aan
*rakkm s#makn lanar an ak:as #ks*loras ma"assa m#n+#na komnkas aa n s#makn
s#m*rna.