tag:blogger.com,1999:blog-28170706283276240712024-03-12T21:03:11.590-07:00Pengertian clien serverriadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-2817070628327624071.post-36226055228468782072012-01-29T05:06:00.000-08:002012-01-29T05:06:43.855-08:00Jawaban Soal No 3 (EMRIADI)<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-7t5B3EzZ6D4/TyVBdPSRyRI/AAAAAAAAAAs/WP8muDgSQjY/s1600/aa.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="-->
<m:smallfrac m:val="off">
<m:dispdef>
<m:lmargin m:val="0">
<m:rmargin m:val="0">
<m:defjc m:val="centerGroup">
<m:wrapindent m:val="1440">
<m:intlim m:val="subSup">
<m:narylim m:val="undOvr">
</m:narylim></m:intlim>
</m:wrapindent><!--[endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin-top:0in;
margin-right:0in;
margin-bottom:10.0pt;
margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoPapDefault
{mso-style-type:export-only;
margin-bottom:10.0pt;
line-height:115%;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-language:EN-US;}
</style>
<![endif]-->
</m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac></a></div>
<div style="text-align: justify;">
<a href="http://3.bp.blogspot.com/-7t5B3EzZ6D4/TyVBdPSRyRI/AAAAAAAAAAs/WP8muDgSQjY/s1600/aa.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><div class="MsoNormal">
<b><u><span style="font-size: 14pt; line-height: 115%;">Listing Program Client<o:p></o:p></span></u></b></div>
<div class="MsoNormal">
Dim ipserver As String</div>
<div class="MsoNormal">
Dim xpakai As String</div>
<div class="MsoNormal">
Dim xdata1() As String</div>
<div class="MsoNormal">
Dim xdata2() As String</div>
<div class="MsoNormal">
Dim xpesan As String</div>
<div class="MsoNormal">
Dim xkirim As String</div>
<div class="MsoNormal">
Dim user As String</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Command1_Click()</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"START-" & user & "-ILHAM REZEKI"</div>
<div class="MsoNormal">
<span> </span>ipserver =
"127.0.0.1"</div>
<div class="MsoNormal">
<span> </span>ipclient =
WS.LocalIP</div>
<div class="MsoNormal">
<span> </span>WS.Connect
ipserver, 3000</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Command2_Click()</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"STOP" & user</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Form_Load()</div>
<div class="MsoNormal">
<span> </span>Me.Caption =
"CLIENT IP: " & WS.LocalIP</div>
<div class="MsoNormal">
<span> </span>ipserver =
"192.168.11.1"</div>
<div class="MsoNormal">
<span> </span>user = WS.LocalIP</div>
<div class="MsoNormal">
<span> </span>WS.Connect
ipserver, 3000</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub ws_connectionrequest(ByVal requestid As Long)</div>
<div class="MsoNormal">
WS.Close</div>
<div class="MsoNormal">
WS.Accept requestid</div>
<div class="MsoNormal">
Me.Caption = "server - client" &
WS.RemoteHostIP & "connect"</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub ws_dataarrival(ByVal bytestotal As Long)</div>
<div class="MsoNormal">
WS.GetData xkirim, vbString, bytestotal</div>
<div class="MsoNormal">
Call checkdata</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub checkdata()</div>
<div class="MsoNormal">
xdata1 = Split(xkirim, "-")</div>
<div class="MsoNormal">
xdata2 = Split(xdata1(1), "/")</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span> </span>Select Case
xdata1(0)</div>
<div class="MsoNormal">
<span> </span>Case
"PAKAI"</div>
<div class="MsoNormal">
<span> </span>pakai.Value =
xdata2(0)</div>
<div class="MsoNormal">
<span> </span>End Select</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="-->
<m:smallfrac m:val="off">
<m:dispdef>
<m:lmargin m:val="0">
<m:rmargin m:val="0">
<m:defjc m:val="centerGroup">
<m:wrapindent m:val="1440">
<m:intlim m:val="subSup">
<m:narylim m:val="undOvr">
</m:narylim></m:intlim>
</m:wrapindent><!--[endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin-top:0in;
margin-right:0in;
margin-bottom:10.0pt;
margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoPapDefault
{mso-style-type:export-only;
margin-bottom:10.0pt;
line-height:115%;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-language:EN-US;}
</style>
<![endif]-->
</m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac></div>
<div class="MsoNormal">
<b><u><span style="font-size: 14pt; line-height: 115%;">Listing Program Server<o:p></o:p></span></u></b></div>
<div class="MsoNormal">
Dim ClientIndex As Byte</div>
<div class="MsoNormal">
Dim cRequest As Integer</div>
<div class="MsoNormal">
Dim cData As String</div>
<div class="MsoNormal">
Dim i As Integer</div>
<div class="MsoNormal">
Dim iGD As Integer</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub MulaiServer()</div>
<div class="MsoNormal">
<span>
</span>WS(0).LocalPort = 3000</div>
<div class="MsoNormal">
<span> </span>WS(0).Listen</div>
<div class="MsoNormal">
<span> </span>cRequest = 1</div>
<div class="MsoNormal">
<span> </span>ClientIndex =
1</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Form_Load()</div>
<div class="MsoNormal">
<span> </span>MulaiServer</div>
<div class="MsoNormal">
<span> </span>GD.Rows = 41</div>
<div class="MsoNormal">
<span> </span>For i = 1 To
40</div>
<div class="MsoNormal">
<span> </span>GD.Col = 0</div>
<div class="MsoNormal">
<span> </span>GD.Row = i</div>
<div class="MsoNormal">
<span> </span>GD.Text =
i</div>
<div class="MsoNormal">
<span> </span>Next i</div>
<div class="MsoNormal">
<span> </span>iGD = 1</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Timer1_Timer()</div>
<div class="MsoNormal">
<span> </span>For i = 1 To
GD.Rows - 1</div>
<div class="MsoNormal">
<span> </span>GD.Row = i</div>
<div class="MsoNormal">
<span> </span>GD.Col = 4</div>
<div class="MsoNormal">
<span> </span>If GD.Text =
"START" Then</div>
<div class="MsoNormal">
<span> </span>GD.Col = 3</div>
<div class="MsoNormal">
<span> </span>GD.Text =
Time</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
<span> </span>Next i</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub WS_ConnectionRequest(index As Integer, ByVal
requestID As Long)</div>
<div class="MsoNormal">
<span> </span>Load
WS(cRequest)</div>
<div class="MsoNormal">
<span> </span>WS(cRequest).Close</div>
<div class="MsoNormal">
<span>
</span>WS(cRequest).Accept requestID</div>
<div class="MsoNormal">
<span> </span>cRequest =
cRequest + 1 '</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub WS_DataArrival(index As Integer, ByVal
bytesTotal As Long)</div>
<div class="MsoNormal">
<span>
</span>WS(index).GetData cData, vbString, bytesTotal</div>
<div class="MsoNormal">
<span> </span>Call
CekData(index)</div>
<div class="MsoNormal">
<span> </span></div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub CekData(index)</div>
<div class="MsoNormal">
<span> </span>On Error Resume
Next</div>
<div class="MsoNormal">
<span> </span>Dim kata() As
String</div>
<div class="MsoNormal">
<span> </span>kata =
Split(cData, "-")</div>
<div class="MsoNormal">
<span> </span>Select Case
kata(0)</div>
<div class="MsoNormal">
<span> </span>Case
"START"</div>
<div class="MsoNormal">
<span>
</span>GD.Row = iGD</div>
<div class="MsoNormal">
<span>
</span>GD.Col = 1</div>
<div class="MsoNormal">
<span>
</span>GD.Text = kata(1) 'WS(index).RemoteHostIP</div>
<div class="MsoNormal">
<span>
</span>GD.Col = 2</div>
<div class="MsoNormal">
<span>
</span>GD.Text = Time</div>
<div class="MsoNormal">
<span>
</span>GD.Col = 4</div>
<div class="MsoNormal">
<span>
</span>GD.Text = "START"</div>
<div class="MsoNormal">
<span>
</span>GD.Col = 5</div>
<div class="MsoNormal">
<span> </span><span> </span>GD.Text = kata(2)</div>
<div class="MsoNormal">
<span>
</span>iGD = iGD + 1</div>
<div class="MsoNormal">
<span> </span>Case
"STOP"</div>
<div class="MsoNormal">
<span> </span>For i = 1
To GD.Rows - 1</div>
<div class="MsoNormal">
<span> </span>GD.Row
= i</div>
<div class="MsoNormal">
<span> </span>GD.Col
= 1</div>
<div class="MsoNormal">
<span> </span>If
GD.Text = kata(1) Then</div>
<div class="MsoNormal">
<span>
</span>GD.Col = 4</div>
<div class="MsoNormal">
<span>
</span>GD.Text = "STOP"</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
<span> </span>Next i</div>
<div class="MsoNormal">
<span> </span>End Select</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<span> </span></div>
<div class="MsoNormal">
Private Sub WS_Error(index As Integer, ByVal Number As
Integer, Description As String, ByVal Scode As Long, ByVal Source As String,
ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)</div>
<div class="MsoNormal">
<span>
</span>WS(index).Close</div>
<div class="MsoNormal">
End Sub</div>
</a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-7t5B3EzZ6D4/TyVBdPSRyRI/AAAAAAAAAAs/WP8muDgSQjY/s1600/aa.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;">
</a></div>
<div class="separator" style="clear: both; text-align: justify;">
<br /></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://2.bp.blogspot.com/-OQ9UzZVDFWQ/TyVDFxDgkLI/AAAAAAAAAA8/phVPsEM3r08/s1600/clien2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://2.bp.blogspot.com/-OQ9UzZVDFWQ/TyVDFxDgkLI/AAAAAAAAAA8/phVPsEM3r08/s320/clien2.jpg" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://1.bp.blogspot.com/-dtEqxdbVSnc/TyVDOOx1lZI/AAAAAAAAABE/oOIfx_mMZ3w/s1600/server2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://1.bp.blogspot.com/-dtEqxdbVSnc/TyVDOOx1lZI/AAAAAAAAABE/oOIfx_mMZ3w/s320/server2.jpg" width="320" /></a></div>
<br />riadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com0tag:blogger.com,1999:blog-2817070628327624071.post-13376269320334017582012-01-29T04:58:00.000-08:002012-01-29T04:58:58.355-08:00Jawaban Soal No 2 (EMRIADI)<link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="-->
<m:smallfrac m:val="off">
<m:dispdef>
<m:lmargin m:val="0">
<m:rmargin m:val="0">
<m:defjc m:val="centerGroup">
<m:wrapindent m:val="1440">
<m:intlim m:val="subSup">
<m:narylim m:val="undOvr">
</m:narylim></m:intlim>
</m:wrapindent><!--[endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin-top:0in;
margin-right:0in;
margin-bottom:10.0pt;
margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoPapDefault
{mso-style-type:export-only;
margin-bottom:10.0pt;
line-height:115%;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-language:EN-US;}
</style>
<![endif]-->
</m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac><br />
<br />
<link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5Cxp%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>EN-US</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="-->
<m:smallfrac m:val="off">
<m:dispdef>
<m:lmargin m:val="0">
<m:rmargin m:val="0">
<m:defjc m:val="centerGroup">
<m:wrapindent m:val="1440">
<m:intlim m:val="subSup">
<m:narylim m:val="undOvr">
</m:narylim></m:intlim>
</m:wrapindent><!--[endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-charset:1;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:variable;
mso-font-signature:0 0 0 0 0 0;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;
mso-font-charset:0;
mso-generic-font-family:swiss;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1073750139 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin-top:0in;
margin-right:0in;
margin-bottom:10.0pt;
margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:Calibri;
mso-fareast-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;
mso-bidi-language:EN-US;}
.MsoPapDefault
{mso-style-type:export-only;
margin-bottom:10.0pt;
line-height:115%;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;
mso-header-margin:.5in;
mso-footer-margin:.5in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-language:EN-US;}
</style>
<![endif]-->
<div class="MsoNormal">
<b><u><span style="font-size: 14pt; line-height: 115%;">MODULE
PROGRAM SERVER<o:p></o:p></span></u></b></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Public Db As New ADODB.Connection<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Public RS As New ADODB.Recordset<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Public RS2 As New ADODB.Recordset<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Public SQL As String<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Sub OPENDB()<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>If Db.State =
adStateOpen Then Db.Close<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>Db.CursorLocation =
adUseClient<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>Db.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\belajar server
part2\Test.mdb;Persist Security Info=False"<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">End Sub<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Sub ClearFORM(f As Form)<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>Dim ctl As Control<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>For Each ctl In f<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>If TypeOf ctl Is
TextBox Then ctl.Text = ""<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>If TypeOf ctl Is
ComboBox Then ctl.Text = ""<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span>Next<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;"><span> </span><o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">End Sub<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Sub center(f As Form)<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">f.Move (Screen.Width - f.Width) / 2, (Screen.Height -
f.Height) / 4<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">End Sub<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As
Boolean, L3 As Boolean)<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">f.cmdproses(0).Enabled = L0<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">f.cmdproses(1).Enabled = L1<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">f.cmdproses(2).Enabled = L2<o:p></o:p></span></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">f.cmdproses(3).Enabled = L3<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-size: 14pt; line-height: 115%;">End Sub<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<b><u><span style="font-size: 14pt; line-height: 115%;">LISTING
PROGRAM SERVER<o:p></o:p></span></u></b></div>
<div class="MsoNormal">
Sub Hapus()</div>
<div class="MsoNormal">
Kode.Enabled = True</div>
<div class="MsoNormal">
ClearFORM Me</div>
<div class="MsoNormal">
Call RubahCMD(Me, True, False, False, False)</div>
<div class="MsoNormal">
cmdproses(1).Caption = "& simpan"</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub ProsesDB(log As Byte)</div>
<div class="MsoNormal">
Select Case log</div>
<div class="MsoNormal">
<span> </span>Case 0</div>
<div class="MsoNormal">
<span> </span>SQL = "INSERT
INTO Barang(Kode,Nama,Harga)" & _</div>
<div class="MsoNormal">
<span>
</span>"values('" & Kode.Text & _</div>
<div class="MsoNormal">
<span> </span>"','"
& Nama.Text & _</div>
<div class="MsoNormal">
<span> </span>"','"
& Harga.Text & "')"</div>
<div class="MsoNormal">
<span> </span>Case 1</div>
<div class="MsoNormal">
<span> </span>SQL = "UPDATE
barang SET Nama='" & Nama.Text & "'," & _</div>
<div class="MsoNormal">
<span>
</span>"Harga='" & Harga.Text & "'" & _</div>
<div class="MsoNormal">
<span> </span>" where
Kode='" & Kode.Text & "'"</div>
<div class="MsoNormal">
<span> </span>Case 2</div>
<div class="MsoNormal">
<span> </span>SQL = "DELETE
FrOM Barang WHERE kode='" & Kode.Text & "'"</div>
<div class="MsoNormal">
End Select</div>
<div class="MsoNormal">
MsgBox "pemrosesan RECORD database telah
berhasil....!", vbInformation, "Data Barang"</div>
<div class="MsoNormal">
Db.BeginTrans</div>
<div class="MsoNormal">
Db.Execute SQL, adCmdTable</div>
<div class="MsoNormal">
Db.CommitTrans</div>
<div class="MsoNormal">
Call Hapus</div>
<div class="MsoNormal">
Adodc1.Refresh</div>
<div class="MsoNormal">
Kode.SetFocus</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub TampilBarang()</div>
<div class="MsoNormal">
On Error Resume Next</div>
<div class="MsoNormal">
Kode.Text = RS!Kode</div>
<div class="MsoNormal">
Nama.Text = RS!Nama</div>
<div class="MsoNormal">
Harga.Text = RS!Harga</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub cmdproses_Click(Index As Integer)</div>
<div class="MsoNormal">
Select Case Index</div>
<div class="MsoNormal">
Case 0</div>
<div class="MsoNormal">
<span> </span>Call Hapus</div>
<div class="MsoNormal">
<span> </span>Kode.SetFocus</div>
<div class="MsoNormal">
Case 1</div>
<div class="MsoNormal">
<span> </span>If
cmdproses(1).Caption = "&Simpan" Then</div>
<div class="MsoNormal">
<span> </span>Call ProsesDB(0)</div>
<div class="MsoNormal">
<span> </span>Else</div>
<div class="MsoNormal">
<span> </span>Call ProsesDB(1)</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
Case 2</div>
<div class="MsoNormal">
<span> </span>X =
MsgBox("Yakin RECORD barang akan dihapus.....!", vbQuestion +
vbYesNo, "Barang")</div>
<div class="MsoNormal">
<span> </span>If X = vbYes Then
ProsesDB 2</div>
<div class="MsoNormal">
<span> </span>Call Hapus</div>
<div class="MsoNormal">
<span> </span>Kode.SetFocus</div>
<div class="MsoNormal">
Case 3</div>
<div class="MsoNormal">
Call Hapus</div>
<div class="MsoNormal">
<span> </span>Kode.SetFocus</div>
<div class="MsoNormal">
<span> </span>Case 4</div>
<div class="MsoNormal">
<span> </span>Unload Me</div>
<div class="MsoNormal">
<span> </span>End Select</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Cmdrefresh_Click()</div>
<div class="MsoNormal">
Cmdrefresh.Refresh</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Form_Load()</div>
<div class="MsoNormal">
Call OPENDB</div>
<div class="MsoNormal">
Call Hapus</div>
<div class="MsoNormal">
MulaiServer</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub Kode_KeyPress(KeyAscii As Integer)</div>
<div class="MsoNormal">
If KeyAscii = 13 Then</div>
<div class="MsoNormal">
<span> </span>If Kode.Text =
"" Then</div>
<div class="MsoNormal">
<span> </span>MsgBox "Masukkan
Kode Barang !", vbInformation, "Barang"</div>
<div class="MsoNormal">
<span> </span>Kode.SetFocus</div>
<div class="MsoNormal">
<span> </span>Exit Sub</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
<span> </span>SQL = "select *
from barang where kode='" & Kode.Text & "'"</div>
<div class="MsoNormal">
<span> </span>If RS.State =
adStateOpen Then RS.Close</div>
<div class="MsoNormal">
<span> </span>RS.Open SQL, Db,
adOpenDynamic, adLockOptimistic</div>
<div class="MsoNormal">
<span> </span>If RS.RecordCount
<> 0 Then</div>
<div class="MsoNormal">
<span> </span>TampilBarang</div>
<div class="MsoNormal">
<span> </span>Call RubahCMD(Me,
False, True, True, True)</div>
<div class="MsoNormal">
<span> </span>cmdproses(1).Caption
= "&edit"</div>
<div class="MsoNormal">
<span> </span>Kode.Enabled = False</div>
<div class="MsoNormal">
<span> </span>Else</div>
<div class="MsoNormal">
<span> </span>X = Kode.Text</div>
<div class="MsoNormal">
<span> </span>Call Hapus</div>
<div class="MsoNormal">
<span> </span>Kode.Text = X</div>
<div class="MsoNormal">
<span> </span>Call RubahCMD(Me,
False, True, False, True)</div>
<div class="MsoNormal">
<span> </span>cmdproses(1).Caption
= "&Simpan"</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
<span> </span>Nama.SetFocus</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Sub MulaiServer()</div>
<div class="MsoNormal">
WS.LocalPort = 1000</div>
<div class="MsoNormal">
WS.Listen</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub WS_ConnectionRequest(ByVal requestID As Long)</div>
<div class="MsoNormal">
WS.Close</div>
<div class="MsoNormal">
WS.Accept requestID</div>
<div class="MsoNormal">
Me.Caption = "server-client" & WS.RemoteHostIP
& "connect"</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Private Sub WS_DataArrival(ByVal bytesTotal As Long)</div>
<div class="MsoNormal">
Dim xkirim As String</div>
<div class="MsoNormal">
Dim xdata1() As String</div>
<div class="MsoNormal">
Dim xdata2() As String</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
WS.GetData xkirim, vbString, bytesTotal</div>
<div class="MsoNormal">
xdata1 = Split(xkirim, "-")</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span> </span>Select Case
xdata1(0)</div>
<div class="MsoNormal">
<span> </span>Case
"SEARCH"</div>
<div class="MsoNormal">
<span> </span>SQL =
"SELECT * FROM Barang WHERE Kode='" & xdata1(1) &
"'"</div>
<div class="MsoNormal">
<span> </span>If RS.State =
adStateOpen Then RS.Close</div>
<div class="MsoNormal">
<span> </span>RS.Open SQL, Db,
adOpenDynamic, adLockBatchOptimistic</div>
<div class="MsoNormal">
<span> </span>If RS.RecordCount
<> 0 Then</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"RECORD-" & RS!Nama & "/" & RS!Harga</div>
<div class="MsoNormal">
<span> </span>Else</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"NOTHING-DATA"</div>
<div class="MsoNormal">
<span> </span>End If</div>
<div class="MsoNormal">
<span> </span>Case
"INSERT"</div>
<div class="MsoNormal">
<span> </span>Case
"EDIT"</div>
<div class="MsoNormal">
<span> </span>Case
"DELETE"</div>
<div class="MsoNormal">
<span> </span>SQL = "DELETE
From barang " & _</div>
<div class="MsoNormal">
<span> </span>"where
kode='" & xdata1(1) & "'"</div>
<div class="MsoNormal">
<span> </span>Db.BeginTrans</div>
<div class="MsoNormal">
<span> </span>Db.Execute SQL,
adCmdTable</div>
<div class="MsoNormal">
<span> </span>Db.CommitTrans</div>
<div class="MsoNormal">
<span> </span>Adodc1.Refresh</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"Del-sukses"</div>
<div class="MsoNormal">
<span> </span>Case
"UPDATE"</div>
<div class="MsoNormal">
<span> </span>Db.BeginTrans</div>
<div class="MsoNormal">
<span> </span>Db.Execute
xdata1(1), adCmdTable</div>
<div class="MsoNormal">
<span> </span>Db.CommitTrans</div>
<div class="MsoNormal">
<span> </span>WS.SendData
"EDIT-xxx"</div>
<div class="MsoNormal">
<span> </span>Adodc1.Refresh</div>
<div class="MsoNormal">
<span> </span><span> </span>End Select</div>
<div class="MsoNormal">
End Sub</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
HASIL PROGRAMNYA </div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://3.bp.blogspot.com/-7t5B3EzZ6D4/TyVBdPSRyRI/AAAAAAAAAAs/WP8muDgSQjY/s1600/aa.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="187" src="http://3.bp.blogspot.com/-7t5B3EzZ6D4/TyVBdPSRyRI/AAAAAAAAAAs/WP8muDgSQjY/s320/aa.jpg" width="320" /></a></div>
<a href="http://1.bp.blogspot.com/-vq3Cx6RGpAA/TyVBkbWAdjI/AAAAAAAAAA0/7-pK-moFYHM/s1600/database.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="233" src="http://1.bp.blogspot.com/-vq3Cx6RGpAA/TyVBkbWAdjI/AAAAAAAAAA0/7-pK-moFYHM/s400/database.jpg" width="400" /></a><br />
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
</m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac>riadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com1tag:blogger.com,1999:blog-2817070628327624071.post-90982937538226593942012-01-20T07:35:00.001-08:002012-01-20T07:35:16.620-08:00Aplikasi Client Dan Server<div class="separator" style="clear: both; text-align: center;">
SERVER</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganServerForm_Server.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganServerForm_Server.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganServerLogin.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganServerLogin.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostingan.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostingan.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
CLIENT</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclient.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclient.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclientForm_Client.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclientForm_Client.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclientMenu_Utama.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="187" src="http://i1183.photobucket.com/albums/x470/Anna_Scorher/gambarpostinganclientMenu_Utama.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: left;">
Link <a href="http://www.4shared.com/rar/Ecl35hFU/Client_Dan_Server.html?" target="_blank">DOWNLOAD</a> Program Client Dan Server</div>
<div class="separator" style="clear: both; text-align: center;">
</div>riadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com0tag:blogger.com,1999:blog-2817070628327624071.post-60663021551240306692012-01-10T19:54:00.001-08:002012-01-10T19:54:47.191-08:00Pengertian Clien ServerKata ‘server’ seringkali diucapkan oleh pengguna komputer, terutama
ketika sedang membicarakan ‘jaringan komputer’ atau ‘internet’.
Dalam bahasa Inggris, kata server berasal dari kata serve yang artinya
melayani, meladeni, menghidangkan, menyajikan. Sehingga dalam
pembicaraan ‘jaringan komputer’ atau ‘internet’, server adalah sebuah
komputer (atau sebuah sistem komputer) yang tugasnya melayani
komputer-komputer lainnya. Tentu saja, komputer-komputer yang dilayani
adalah komputer-komputer yang terhubung dengan server tersebut. Dengan
demikian, komputer server dapat berfungsi sebagai:<br />
- Situs intenet atau ilmu pengetahuan<br />
- Penyimpan data atau file, dan membuat data atau file tersebut dapat
diambil kembali saat dibutuhkan.<br />
- Mengkoneksikan komputer client ke Internet.<br />
Banyak sekali kaum komputeris yang mencoba mendefinisikan arti
kata/istilah server dalam hubungannya dengan komputer. Berikut ini
disajikan beberapa definisinya:<br />
<em>- Server adalah sebuah komputer di Internet atau di jaringan lainnya
yang menyimpan file dan membuat file tersebut tersedia untuk diambil
jika dibutuhkan.<br />
- Server adalah sebuah aplikasi jaringan komputer yang digunakan untuk
melayani banyak pengguna dalam satu jaringan.<br />
- Server adalah sebuah sistem komputer yang menyediakan jenis layanan
tertentu dalam sebuah jaringan komputer.<br />
</em><br />
Komputer server biasanya memiliki RAM yang besar dan dalam
operasionalnya menggunakan sistem operasi khusus, yang disebut sistem
operasi jaringan atau network operating system. Server juga menjalankan
software administratif yang berguna untuk mengontrol akses ke jaringan,
dan mengelola perangkat (sumber daya) yang terdapat di dalamnya,
misalnya printer, serta memberikan akses kepada workstation yang menjadi
anggota jaringan (workstation yang tersambung ke jaringan).<br />
Kata atau istilah workstation berasal dari bahasa Inggris yang
terjemahan bebasnya bermakna stasiun kerja. Dalam bahasan jaringan
komputer, istilah workstation biasanya dipakai untuk menyebut komputer
(yang dipakai oleh pengguna) yang terhubung ke suatu jaringan. Dalam
pengertian yang lain, workstation diartikan sebagai single user komputer
yang berdaya penuh yang penggunaannya biasanya ditujukan untuk aplikasi
high end graphics dan aplikasi desain tambahan. Disebut juga dengan
nama graphics workstation.<br />
<strong>Pengertian istilah client-server</strong><br />
Client-server adalah suatu bentuk arsitektur, dimana client adalah
perangkat yang menerima yang akan menampilkan dan menjalankan aplikasi
(software komputer) dan server adalah perangkat yang menyediakan dan
bertindak sebagai pengelola aplikasi, data, dan keamanannya. Server
biasanya terhubung dengan client melalui kabel UTP dan sebuah kartu
jaringan (network card). Kartu jaringan ini biasanya berupa kartu PCI
atau ISA.<br />
Dalam teknologi informasi, client-server merujuk kepada cara
mendistribusikan aplikasi ke pihak client dan pihak server. Dalam model
client-server, sebuah aplikasi dibagi menjadi dua bagian yang terpisah
(tetapi masih dalam sebuah kesatuan) yakni komponen client dan komponen
server.<br />
Komponen client dijalankan pada sebuah workstation. Pemakai workstation
memasukkan data dengan menggunakan teknologi pemrosesan tertentu,
kemudian mengirimkannya ke komponen server, umumnya berupa permintaan
layanan tertentu yang dimiliki oleh server. Komponen server akan
menerima permintaan layanan tersebut dan langsung memprosesnya serta
mengembalikan hasil pemrosesan kepada client. Client pun menerima
informasi hasil pemrosesan data tadi dan menampilkannya kepada pemakai
dengan menggunakan aplikasi yang digunakan oleh pemakai.<br />
Sebuah contoh dari aplikasi client-server sederhana adalah aplikasi web
yang didesain dengan menggunakan Active Server Pages (ASP). Skrip ASP
akan dijalankan di dalam web server (Apache atau Internet Information
Services), sementara skrip yang berjalan di pihak client akan dijalankan
oleh web browser pada komputer client (workstation). Client-server
merupakan penyelesaian masalah pada software yang menggunakan database
sehingga setiap komputer tidak perlu diinstall database. Dengan metode
client-server database dapat diinstal pada komputer server dan
aplikasinya diinstal pada client.<br />
Komponen client juga sering disebut sebagai front-end, sementara
komponen server disebut sebagai back-end.riadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com0tag:blogger.com,1999:blog-2817070628327624071.post-88061008673862515712012-01-10T19:40:00.001-08:002012-01-10T19:40:50.535-08:00pengertian clien server<div style="text-align: justify;">
<b>Client Server </b><br />
</div>
<div style="text-align: justify;">
Diawal perkembangannya <b>perangkat
komputer</b> adalah barang yang mahal dan mewah. Pengembangan dan
pengoperasiannya rumit dan terpusat. Namun seiring dengan berjalannya
waktu yang tadinya proses tersentralisasi dikembangakan menjadi proses
terdistribusi sampai pada end user . Hal ini sangat dipengaruhi oleh
adanya perkembangan <b>teknologi LAN</b> ( Local Area Network ) di
pertengahan tahun 1980 an. <br />
</div>
<br />
<div style="text-align: justify;">
Dengan LAN sebuah PC dapat melakukan
komunikasi satu dengan lainnya dan dapat saling berbagi resource baik
perangkat keras ataupun database . LAN mampu memberikan
interkonektivitas yang tidak pernah ada sebelumnya. Untuk dapat
melakukan hal tersebut dibutuhkan sebuah komputer pemproses yang
memfasilitasi dan melayani proses sharing semua resource yang ada.
Perangkat ini disebut dengan Server .<br />
</div>
<br />
<div style="text-align: justify;">
Untuk melakukan Sharing File biasanya
dibutuhkan sebuah File Server begitu juga untuk sharing Printer
dibutuhkan sebuah Printer Server. Namun ternyata hal seperti ini
belumlah cukup. Jumlah PC yang bertambah dengan sangat cepat seiring
dengan berkembangnya sebuah organisasi. Jumlah end user dan client juga
bertambah banyak. Kebutuhan akan perangkat menjadi bertambah pula, tidak
hanya membutuhkan sebuah printer server, juga dibutuhkan server-server
lainnya seperti server pengolahan gambar, server pengolahan suara, dan
lainnya. Server-server ini dengan database dan applikasinya harus dapat
diakses oleh beberapa PC, ataupun diakses oleh sebuah komputer mainframe
melalui sebuah LAN. Sistem seperti ini disebut Sistem Client Server
seperti digambarkan pada Gambar dibawah ini.<br />
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://4.bp.blogspot.com/_n4VnM4OnfXo/SdAzvm5_E6I/AAAAAAAAAak/L01rmug_p2U/s1600-h/clientserver3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="http://4.bp.blogspot.com/_n4VnM4OnfXo/SdAzvm5_E6I/AAAAAAAAAak/L01rmug_p2U/s320/clientserver3.jpg" width="320" /><br />
</a><br />
</div>
<br />
<b>Komponen dan Fungsi Sistem Client Server </b><br />
<br />
<div style="text-align: justify;">
Gambaran umum konfigurasi Client
Server diperlihatkan pada gambar 2. Dengan pendekatan Client Server
setiap PC dapat melakukan secara independen sebuah pemrosesan lokal dan
mensharing perangkat enterprise melalui LAN. Untuk kasus yang lebih luas
kemampuan akses dapat dilakukan melalui MAN ( Metropolita Area Network )
atau WAN ( Wide Area Network ). Sebuah database dan program applikasi
enterprise misalnya diletakan pada sebuah server dimana setiap end user
dapat melakukan akses melalui Client Processo r, LAN dan Server.<br />
</div>
<br />
<br />
<b>User </b><br />
<br />
<div style="text-align: justify;">
User disini adalah end user yang
mengakses client untuk mendapatkan sebuah layanan. End user bisa saja
seorang manager perusahaan, professional, karyawan di sebuah perusahaan,
atau pelanggan. Ada timbul sedikit kerancuan. Pelanggan dalam sebuah
bisnis atau perdagangan disebut dengan client , tapi client ini adalah
manusia, jangan dibingungkan dengan istilah client pada pemrosesan
komputer. Dapat kita katakan sebuah user atau end user adalah ketika
melakukan proses akhir menggunakan sistem client server.<br />
</div>
<br />
<br />
<b>Client </b><br />
<br />
<div style="text-align: justify;">
Client dapat berupa sebuah pemproses
yang powerful atau dapat juga berupa terminal tua dengan kemampuan
proses yang terbatas. Secara mendasar client adalah sebuah PC dengan
sistem operasinya sendiri. Sebagian besar pemrosesan banyak dilakukan di
sebuah server dimana bagian-bagian dalam lingkup pekerjaannya
ditentukan oleh program komputer, inilah yang menyebabkan sistem client
server berbeda dengan sistem transaksi tradisional. Sistem client server
memungkinkan sebuah teknologi dan applikasinya digunakan bersamaan. <br />
</div>
<br />
<div style="text-align: justify;">
Applikasi disini termasuk didalamnya
adalah pemroses pesan seperti e-mail, pemproses file lokal seperti DBMS
untuk browsing dan penghitungan, atau sharing resource seperti sistem
image processing, sistem optical character, sistem advance grafic
processing, plotter warna, atau sebuah printer. Perangkat-perangkat ini
bisa saja berasal dari berbagai vendor yang ada. <br />
</div>
<br />
<div style="text-align: justify;">
Untuk memfasilitasi query pemprosesan
dari client, sebagian besar sistem client server menggunkaan Structured
Query Language (SQL) yang merupakan struktur bahasa tingkat tinggi. SQL
dengan database relationalnya adalah standar de facto untuk hampir
sebagian besar sistem client server. Salah satu komponen terpenting
sistem client server adalah User Interface (UI), yang digunakan user
untuk berkomunikasi. Bagi user yang seorang programmer, UI tidak mesti
user friendly, tapi untuk end user yang bukan programmer sangat
dibutuhkan UI yang user friendly. Dibutuhkan Graphical User Interface
(GUI) untuk end user karena GUI menampilkan grafis untuk melakukan akses
dengan icon-icon tanpa perlu memasukan perintah pemrograman. Kedepannya
GUI tidak hanya digunakan untuk menggantikan akses perintah
pemprograman tapi juga digunakan untuk grafik, voice, video, animasi,
untuk selanjutnya menjadi sebuah teminal multimedia.<br />
</div>
<br />
<br />
<b>Network dan Transmisi </b><br />
<br />
<div style="text-align: justify;">
Server dan client dapat terkoneksi
dengan sebuah media transmisi. Media transmisi ini dapat berupa kabel,
wireless, atau fiber. Dengan media ini memungkinkan sebuah perusahaan
untuk melakukan enterprice network lebih besar dalam sebuah workgroup
atau departemen. Untuk itu dibutuhkan interoperability sebagai contoh
operasi dan pertukaran informasi yang heterogen melalui berbagai
perangkat software dalam jaringan. Esensinya adalah keterbukaan dalam
melakukan pertukaran baik komponen dan software yang berasal dari vendor
yang berbeda-beda. Dengan interoperability baik vendor dan customer
akan mendapatkan keuntungan. <br />
</div>
<br />
<div style="text-align: justify;">
Interoperability memberikan dampak
pada arsitektur jaringan. Awal sebuah arsitektur jaringan adalah SNA
namun arsitektur ini bersifar proprietary dan tidak terbuka dengan
vendor lainnya. Kemudian sebagian besar orang beralih ke OSI yang di
standarkan oleh ISO ( International Standards Organization ). OSI banyak
di gunakan di Eropa namun kurang berkembang di Amerika Serikat. Di
Amerika Serikat muncul TCP/IP yang kemudian di dukung oleh Unix User
Group.<br />
</div>
<br />
<br />
<b>Servers </b><br />
<br />
<div style="text-align: justify;">
Konektivitas adalah hal yang
terpenting namun bukan satu-satunya faktor untuk mendapatkan efisiensi
dan efektivitas sharing resource yang dimiliki. Dibutuhkan sebuah
perangkat yang memiliki kemampuan mengontrol software, menjalankan
program applikasi, dan mengakses database dengan mudah dan cepat. Untuk
itulah diperlukan sebuah Server. Sebuah Server harus mendukung
spesifikasi yang mendukung resource sharing seperti Network Server
Operating System, Multiple User Interface, GUI ( Graphic User Interface
), dialog oriented cleint – server languange seperti SQL dan database
arsitektur. Saat ini resuorce bisa tersebar secara spasial tidak hanya
berada dalam batasan sebuah negara namun sudah antar negara yang
membutuhkan interkoneksi yang tinggi. <br />
</div>
<br />
<div style="text-align: justify;">
Beberapa software dapat diperoleh dari
vendor atau software house. Software tersebut bisa bersifat mainframe
centric (sentral) atau PC server centric. Namun selain semua hal yang
tersedia pada paket software tersebut tetap dibutuhkan in house sofware
development. Juga perlu untuk mengintegrasikan sistem client server
dengan sistem informasi yang telah ada dan menggunakan sistem tersebut
tidak hanya sebagai end user tapi juga bekerja diantara group end user. <br />
</div>
<br />
<div style="text-align: justify;">
Server melakukan pemprosesan mirip
dengan pemrosesan yang ada disisi client. Namun ada sedikit perbedaan,
biasanya sebuah server tidak mempunyai User Interface karena didesain
untuk networking, memproses database dan memproses applikasi. Pembeda
antara pemrosesan client dan server ada pada tanggungjawab dan fungsi
dari pemrosesan yang dilakukan. Sebagai contoh sebuah server dapat
bertindak sebagai repository dan penyimpanan informasi dalam kasus pada
file server. Tipe dari Server tergantung pada kebutuhan dan tujuan
sistem. Dalam beberapa kasus sebuah server harus mampu melakukan
multitaskting (membentuk multi fungsi secara simultan), menggunakan
multiple operating system, lebih portable, memiliki skalabilitas, dan
memiliki waktu respon yang cepat untuk melakukan teleprosesing . Dengan
kapabilitas seperti itu menjadikan server memiliki harga yang relatif
mahal. Penyebab mahalnya harga server adalah :<br />
</div>
<br />
<ol>
<li>Network Management </li>
<li>Gateway function termasuk akses keluar dan e-mail publik </li>
<li>Penyimpanan </li>
<li>File Sharing </li>
<li>Batch processing </li>
<li>Bulletin Board access </li>
<li>Facsimile transmission </li>
</ol>
<br />
<b>Pemrosesan Database </b><br />
<br />
Beberapa prinsip pemrosesan data pada server termasuk didalamnya adalah
integritas, sekuriti, dan recovery data. Enterprise data yang dibutuhkan
oleh sebuah perusahaan membutuhkan sebuah integrasi, pengaksesan data
yang di kendalikan dan kelola dengan securiti yang baik, dan recovery
data dapat dilakukan jika terjadi kegagalan sistem. <br />
<br />
Beberapa data management dilakukan secara otomatis. Biasanya dilakukan
oleh DBMS yang berada di Server yang mengontrol akses diantara
pemprosesan multiple sistem dan mengintegrasikan akses data melalui
network management. <br />
<br />
<br />
<b>Pemrosesan Applikasi </b><br />
<br />
Data digunakan oleh program applikasi yang mana sebagian besarnya berada
di server. Ada beberapa applikasi client server yang disediakan oleh
vendor. Tools applikasi ini menjadikan pengembangan sistem client-server
menjadi lebih kompetitif. Pengembangan applikasi client-server dapat
dilakukan dengan beberapa cara yakni :<br />
<ul>
<li>Fungsi pemprosesan didistribusikan diantara client dan server.
Porsi dari client dijalankan oleh end user dengan menggunakan bahasa
pemrograman database seperti SQL yang memberikan semacam request data
dan kemudian mengekstrak data tersebut dari lokasinya dimana semua
proses tersebut dikontrol oleh sistem operasi. <br />
<br />
</li>
<li>UI dan GUI menjadi lebih sering digunakan karena tingkat kemudahan
penggunaan menjadi lebih penting. <br />
<br />
</li>
<li>Digunakannya Advance networking seperti LAN <br />
<br />
</li>
<li>Code generator juga digunakan, Metodelogi Objeck Oriented akan
menambah tingkat penggunan. <br />
<br />
</li>
<li>Tools pengembangan seperti SQL Server, FLOWMARK, Progress,
ObjectView, Oracle menjadi sangat diperlukan </li>
</ul>
<br />
Ketika sebuah applikasi diproses dan permintaan akan data dilakukan oleh
client, maka hasilnya dikirimkan melalui LAN. Hasil dari applikasi
tersebut dapat saja dilakukan perubahan bentuk untuk mendapatkan
tampilan yang lebih baik. Semuanya ini dilakukan di sisi client oleh end
user melalui UI (User Interface)riadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com0tag:blogger.com,1999:blog-2817070628327624071.post-26832765025688206852012-01-10T19:35:00.000-08:002012-01-10T19:35:05.456-08:00Pengertian Client Server serta model-model databasePengertian Client-Server : Client/Server dapat diartikan sebagai kemampuan komputer untuk meminta layanan request data kepada komputer lain. Setiap instance dari komputer yang meminta layanan disebut sebagai client, sedangkan setiap instance yang menyediakan layanan disebut sebagai server.Data yang diminta oleh client dapat diambil dari database pada sisi server yang sering disebut database server, seperi misalnya MySQL, PostgreSQL, Oracle, atau SQL Server.<br />
<span id="more-20"></span><br />
Keuntungan dari client server ini lebih cocok diterapkan untuk bisnis kecil.<br />
Server database berisi mesin database, termasuk tabel, prosedur tersimpan, dan trigger (yang juga berisi aturan bisnis). Dalam system client/server, sebagian besar logika bisnis biasanya diterapkan dalam database. Server database manangani :<br />
§ Manajemen data<br />
§ Keamanan<br />
§ Query, trigger, prosedur tersimpan<br />
§ Penangan kesalahan<br />
Arsitektur client/server merupakan sebuah langkah maju karena mengurangi beban pemrosesan dari komputer sentral ke computer client. Ini berarti semakin banyak user bertambah pada aplikasi client/server, kinerja server file tidak akan menurun dengan cepat. Dengan client/server user dair berbagai lokasi dapat mengakses data yang sama dengan sedikit beban pada sebuah mesin tunggal.<br />
<h3><a href="http://amin-aja.students-blog.undip.ac.id/2009/06/24/83-model-model-database/" title="Permanent Link: 8.3 Model-Model Database"> Model-Model Database</a></h3>Database Management System (DBMS) atau sistem manajemen database dibagi menjadi lima model. Model yang lebih lama diperkenalkan pada tahun 1960-an,yang bersifat <em>hierarkis</em> dan <em>jaringan</em>. Model yang lebih baru bersifat <em>relasional</em>, <em>berorientasi objek</em>, dan <em>multidimensional</em>.<strong> </strong><br />
<strong>Database Hierarkis</strong><br />
Pada database Hierarkis, field atau record diatur dalam kelompok-kelompok yang berhubungan, menyerupai diagram pohon, dengan record child (level lebih rendah) berada di bawah record parent (level yang lebih tinggi). Database hierarkis merupakan model tertua dan paling sederhana dari kelima model database. Dalam model database ini mengakses atau mengupdate data bisa berlangsung sangat cepat karena hubungan-hubungan sudah ditentukan. Tetapi, karena struktur harus didefinisikan lebih dahulu, maka hal ini cukup riskan. Lagipula menambahkan field baru ke sebuah record database membuat semua database harus didefinisikan kembali. Karena itulah diperlukan model database yang baru untuk menunjukkan masalah pengulangan data dan hubungan data yang kompleks.<br />
<strong> </strong><br />
<strong>Database Jaringan</strong><br />
Konsep database jaringan mirip dengan database hierarkis tetapi setiap record child dapat memiliki lebih dari satu record parent. Selanjutnya setiap record child dapat dimiliki oleh lebih dari satu record parent. Database jaringan pada dasarnya digunakan dengan mainframe, lebih fleksibel disbanding database hierarkis karena ada hubungan yang berbeda antarcabang data. Akan tetapi strukturnya masih harus didefinisikan lebih dahulu. Pengguna harus sudah terbiasa dengan struktur database. Lagipula jumlah hubungan antar-record juga terbatas, dan untuk menguji sebuah field seseorang harus mendapatkan kembali semua record.<br />
<strong>Database Relasional</strong><br />
Database Relasional bekerja dengan menghubungkan data pada file-file yang berbeda dengan menggunakan sebuah kunci atau elemen data yang umum.<br />
Cara kerja database relasional: Elemen-elemen data disimpan dalam tabel lain yang membentuk baris dan kolom. Dalam model database ini data diatur secara logis, yakni berdasarkan isi. Masing-masing record dalam tabel diidentifikasi oleh sebuah field – kunci primer – yang berisi sebuah nilai unik. Karena itulah data dalam database relasional dapat muncul dengan cara yang berbeda dari cara ia disimpan secara fisik pada komputer. Pengguna tidak boleh mengetahui lokasi fisik sebuah record untuk mendapatkan kembali datanya.<br />
<strong>Database Berorientasi Objek</strong><br />
Model ini menggunakan objek sebagai perangkat lunak yang ditulis dalam potongan kecil yang dapat digunakan kembali sebagai elemen dalam file database. Database berorientasi objek adalah sebuah database multimedia yang bisa menyimpan lebih banyak tipe data dibanding database relasional. Salah satu model database berorientasi objek adalah database hypertext atau database web, yang memuat teks dan dihubungkan ke dokumen lain. Model lainnya adalah database hypermedia, yang memuat link dan juga grafis, suara, dan video.<br />
Contoh: database DB2, Cloudscape, Oracle9i dan sebagainya<br />
<strong>Database Multidimensial</strong><br />
Database Multidimensial (MDA) memodelkan data sebagai fakta, dimensi, atau numerik untuk menganalisis data dalam jumlah besar, tujuannya adalah untuk mengambil keputusan. Database Multidimensial menggunakan bentuk kubus untuk merepresentasikan dimensi-dimensi data yang tersedia bagi seorang pengguna, maksimal empat dimensi.<br />
Contoh: InterSystem Cache, ContourCube, dan Cognoa PowerPlayriadi.tuner@gmail.comhttp://www.blogger.com/profile/01971732449450674644noreply@blogger.com0