tag:blogger.com,1999:blog-61391630921220597872024-03-13T04:58:07.123-07:00Tut0ri4L's pR0gr4mmin6Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.comBlogger45125tag:blogger.com,1999:blog-6139163092122059787.post-64517451156880703152010-12-18T20:58:00.001-08:002010-12-22T23:46:12.054-08:00Visual Basic 6.0 Code Bank<a href="" name="the_top"></a><br />
<h3>Put Together By <a href="http://affan-hack.blogspot.com/blog">Affan Lubizst</a></h3><br />
<br />
This is a collection of highly requested 32 bit Visual Basic code that I put together back in 1998 and 1999. <br />
Almost all of these samples will work on fine on Visual Basic 5.0 and for Microsoft Excel and Microsoft Access Programming (when done with VBA), <br />
however, I've only made sure that they<br />
work in VB6. Back in the day I used to answer a lot of questions and I frequented a lot of VB message boards. <br />
I noticed that the same questions kept getting asked over and over again, so I started saving code that seemed<br />
to be important.<br />
95% of the code you'll find on this page was written by me, the other samples were either edited or submitted. <br />
This guide does not claim to have the best answers, just answers that will get the job done. I hope you find<br />
this guide helpful.<br />
If you aren't able to find what you need here, you can check out the <a href="http://affan-hack.blogspot.com/blog/programming/">main programming section</a><br />
for additional VB 6.0 code and tutorials.<br />
<br />
<a name='more'></a><br />
<br />
<br />
<br />
<center><br />
<table><caption>Visual Basic Code Bank</caption> <thead>
<tr> <th scope="col" width="35%">Code Title</th> <th scope="col">Code Description</th> </tr>
</thead> <tbody> <script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#MenuAdd">Add a Menu to Another Program</a></th> <td><br />
<br />
An example of how to add a menu to another program.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Beep">Beep like QBasic's Sound</a></th> <td><br />
<br />
This shows you how to set the frequency & duration of a beep sound (kinda like qbasic's sound function).</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Centerx">Center a Form</a></th> <td><br />
Check this code out if you want to know how to put your forms in the center of the screen.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#vb3tovb6">Convert VB3 Forms to VB6 Forms</a></th> <td><br />
This will explain how to convert 16 bit Visual Basic forms to 32 bit Visual Basic forms.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#CountLines">Count Lines</a></th> <td><br />
This code shows you how to count the number of lines that are in a textbox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#CountLoads">Count the Times Loaded</a></th> <td><br />
This code shows you how to count the number of times the user has used your program.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#CountWords">Count Words</a></th> <td><br />
This code shows you how to count the number of words that are in a textbox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Cut">Cut, Copy, Paste, & Undo</a><br />
<br />
</th> <td><br />
Ever wanted to use the cut, copy, paste, & undo commands in your program? Check this out.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Dis">Disable/Enable Ctrl+Alt+Del</a><br />
<br />
</th> <td><br />
This shows you how to use the Windows API to disable/enable ctrl+alt+del. This only works for<br />
Windows 95 and Windows 98.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Encrypt">Encrypt/Decrypt Text</a><br />
<br />
</th> <td><br />
This code will let you easily encrypt/decrypt strings of text.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#FlipPic">Flip Picture</a><br />
<br />
</th> <td><br />
This is an example that shows you a fast way to flip a picture in a picturebox horizontally or vertically.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#FontList">Font Lister</a><br />
<br />
</th> <td><br />
This code shows you one way on how you can add a list of all the fonts on your computer to a listbox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Move">Form Mover</a><br />
<br />
</th> <td><br />
This code will show you how to move a form with a label.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#HTMLColor">Get HTML Color</a><br />
<br />
</th> <td><br />
This example shows you how to get the HTML value of a color.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#ComputerName">Get Your Computer's Name</a><br />
<br />
</th> <td><br />
This is some code that shows you how to get your computer's name (yep, it has a name).</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#HexIt">Hex-Editor Related Code</a><br />
<br />
</th> <td><br />
VB probably isn't the best language to make a hex editor with, but here are some hex type examples anyway.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#FADE">HTML Color Fade</a><br />
<br />
</th> <td><br />
This is a short example on how to fade one color into another with HTML tags.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#FADE2">HTML Color Fade Preview</a><br />
<br />
</th> <td><br />
This is an example on how to preview color faded text in a picturebox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Waver">HTML Waving Text</a><br />
<br />
</th> <td><br />
This is an example on how to generate the HTML code for waving text.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#IconTray">Icons in System Tray</a><br />
<br />
</th> <td><br />
For some reason this is requested a lot, so I thought I'd put up an example on how to do it.<br />
This code only works in Windows 95 and Windows 98.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Kill">Kill Duplicate Items in a Listbox</a><br />
<br />
</th> <td><br />
Ever wanta get rid of all the duplicates that are in a listbox? This code shows you how.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#ListOpen">Listbox Open</a><br />
<br />
</th> <td><br />
An example of how to open files to a listbox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#ListSave">Listbox Save</a><br />
<br />
</th> <td><br />
An example of how to save the list inside of a listbox.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#MacroFonts">Macro Font Draw</a><br />
<br />
</th> <td><br />
This is a code example that shows you how to create an ASCII Art Font option for an <br />
ASCII Art Shop program.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#OpenBrow">Open Default Browser</a><br />
<br />
</th> <td><br />
This example shows you how to open up to a webpage using your default browser.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#PictureFade">PictureBox Fade</a><br />
<br />
</th> <td><br />
This code shows you how to fade a picturebox from one color to another.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Midi">Play Midi</a><br />
<br />
</th> <td><br />
Shows you one way you can play a midi (*.mid) file.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Wav">Play Wav</a><br />
<br />
</th> <td><br />
Shows you one way you can play a wav file.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Random">Random Numbers</a><br />
<br />
</th> <td><br />
This code shows you how to generate random numbers within a given range.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#RemoveSpaces">Replacing Text in a String</a><br />
<br />
</th> <td><br />
This code shows you one way to replace text within a string.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Resize">Resize it (Form Stretch)</a><br />
<br />
</th> <td><br />
This code lets you easily resize the controls on your form when you resize it. It creates<br />
a cool stretch effect.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Scramble">Scramble</a><br />
<br />
</th> <td><br />
Shows you how to scramble words. This code is good for something like a Scrambler game.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#screensaver">Screen Saver Creation</a><br />
<br />
</th> <td><br />
This explains how to create screen savers in Visual Basic.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#ScramblerScoreKeeper">Score Keeper</a><br />
<br />
</th> <td><br />
This is a KeepScore function. It's for keeping score in games like Scrambler<br />
where points are usually kept in a listbox with people's names.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#SelList">Select All the List Items</a><br />
<br />
</th> <td><br />
This shows you the fastest way to select all the items in a listbox (the Windows API way).</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#SetPaper">Set Windows Wallpaper</a><br />
<br />
</th> <td><br />
This code shows you how to set the wall paper for Windows.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#SpellChecker">Spell Checker</a><br />
<br />
</th> <td><br />
This is a code example that shows you how to make a spell checker for your VB <br />
programs! It works by calling up MSWord's spell checker to spell check your <br />
documents.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Stay">StayOnTop</a><br />
<br />
</th> <td><br />
This code will make your forms so they stay on top of all of the other windows <br />
on the screen.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Tilepic">Tile a Pic in the Background</a><br />
<br />
</th> <td><br />
This shows you how to tile a picture in the background of a form.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="odd"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Timeout">Timeout/Pause</a><br />
<br />
</th> <td><br />
This code will allow your program to use timeout statements, giving time for certain events to happen.</td> </tr>
<script language="javascript">
writeTableClass();
</script>
<tr class="even"> <th scope="row"><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#vb3interface">VB3 Interface for VB5/6</a><br />
<br />
</th> <td><br />
Just when you get used to VB3's interface, they change things up on you in VB5 and VB6. This explains how to<br />
set VB5/6's interface so it acts just like VB3.</td> </tr>
</tbody> <tfoot>
<tr> <th scope="row">Total</th> <td colspan="1"><script language="javascript">
printNumExamples();
</script>41 Code Examples</td> </tr>
</tfoot> </table><br />
<br />
</center><br />
<br />
<br />
<br />
<br />
<br />
<center><br />
<a href="http://affan-hack.blogspot.com/blog/programming/">Click Here to Return to the Programming Section</a><br />
<br />
</center><br />
<a href="" name="MenuAdd"></a><br />
<br />
<hr /><br />
<br />
<h1>Add a Menu to Another Program</h1>This code shows you how to add a menu to another program.<br />
The only thing is that nothing will happen when you click on the items. To make something happen <br />
when you click on an item you have to subclass the menu (I'd help with that but I don't <br />
have any subclassing controls, or at least not right now). Put this in your *.bas file:<br />
<br />
<pre>Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const MF_ENABLED = &H0&
Public Const MF_POPUP = &H10&
Public Const MF_STRING = &H0&
Public Const WM_NCPAINT = &H85
</pre>Then put something like this in a button:<br />
<pre>Dim newMenu As Long
newMenu = CreatePopupMenu
Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 0, "Item One")
Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 1, "Item Two")
Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 2, "Item Three")
Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 3, "Item Four")
Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 4, "Item Five")
' Find the notepad application window
Dim notepad As Long
notepad = FindWindow("notepad", vbNullString)
' Add our menu to the window we found above
Dim notepadMenu As Long
notepadMenu = GetMenu(notepad)
Call AppendMenu(notepadMenu, MF_POPUP, newMenu, "Item List")
' Ensure that the user sees the new menu immediately
Call SendMessage(notepad, WM_NCPAINT, 0&, 0&)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Beep"></a><br />
<hr /><br />
<br />
<h1>Beep Function</h1><br />
This shows you how to set the frequency & duration of a beep sound. <br />
Put this in your *.bas file1:53 AM 8/19/2007:<br />
<br />
<pre>Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
</pre>Put something like this in a button:<br />
<pre>Dim ret As Long
ret = Beep(1500, 300)
</pre>Or, if you want to do something a little more fun, try this:<br />
<pre>Dim ret As Long, i As Integer
For i = 0 To 4000 Step 100
ret = Beep(i, 100)
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<a href="" name="Centerx"></a><br />
<hr /><br />
<br />
<h1>Center A Form</h1>Here's how to center a form so it will appear in the middle of the screen, put this in a button:<br />
<br />
<pre>Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="vb3tovb6"></a><br />
<br />
<hr /><br />
<br />
<h1>Convert VB3 Forms to VB6 Forms</h1>Here's how to convert old 16 bit VB froms into 32 bit VB forms: In a 16 bit version of VB (like VB3), select "File" from the menu, <br />
then click on "Save File As..." A dialog box will pop up. Look for a checkbox on that dialog box that says "Save as Text." <br />
Make sure that is checked. Once you do that, save the file. You should now be able to use that form in 32 bit versions of VB (like VB6). <br />
<br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="CountLines"></a><br />
<br />
<hr /><br />
<br />
<h1>Count the Lines of Text in a TextBox</h1>This code will count how many lines of text there are in a string by counting the number of times the<br />
"carriage return" character shows up and adding one to that. This code will not count lines of text that wrap in a textbox. <br />
Put this code in a button:<br />
<br />
<br />
<pre>Dim lineCount As Integer, pos As Integer, txt As String
lineCount = 0
pos = 1
txt = Text1.Text
Do While pos <> 0
pos = InStr(pos + 1, txt, Chr$(13))
lineCount = lineCount + 1
DoEvents
Loop
MsgBox "Number of line(s) of text in text1.text: " + CStr(lineCount), 32, "Line Count"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<a href="" name="CountLoads"></a><br />
<hr /><br />
<br />
<h1>Count the Number of Times a Program is Opened</h1>This code shows you how to count the number of times your program is used. <br />
Place this function in your *.bas file:<br />
<br />
<pre>Function getLoadedCount() As Double
Dim programINI As String, countString As String, countNum As Double
programINI = App.Path & App.EXEName & "_info.ini"
' See if an ini has been created, if not, create the file and set the
' number of times this program has been loaded to 1
If Len(Dir(programINI)) = 0 Then
' Create an ini to hold the number of times the program is opened
Open programINI For Output As #1
Print #1, "Times Loaded: 1"
Close #1
countNum = 1
Else
' Open the ini and see how many times the program has been opened
If FileLen(programINI) <> 0 Then
Open programINI For Input As #1
Line Input #1, countString
Close #1
End If
' make sure the file has the correct format
If Len(countString) < 15 Then
countNum = 1
Else
countNum = Val(Mid(countString, 14)) + 1
End If
Open programINI For Output As #1
Print #1, "Times Loaded: " & countNum
Close #1
End If
getLoadedCount = countNum
End Function
</pre>Example on how to use this function, put something like this in the form load event:<br />
<pre>Dim numTimes As Double
numTimes = getLoadedCount()
MsgBox "This program has been loaded: " & numTimes & " time(s)"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<a href="" name="CountWords"></a><br />
<hr /><br />
<br />
<h1>Count the Words in a TextBox</h1><br />
This code lets you count the number of words that are in a textbox (note this is very different from the len function <br />
which counts the number of characters in a string). <br />
Put these two functions in your *.bas file:<br />
<br />
<pre>' This function determines if a given block of text is a "word".
' Below we say anything that starts with an alphabet character
' is a word.
Function isWord(str As String) As Boolean
Dim ret As Boolean
If str = Null Then
ret = False
ElseIf Len(str) = 0 Then
ret = False
ElseIf Mid(str, 1, 1) >= "A" And Mid(str, 1, 1) <= "Z" Then
ret = True
ElseIf Mid(str, 1, 1) >= "a" And Mid(str, 1, 1) <= "z" Then
ret = True
Else
ret = False
End If
isWord = ret
End Function
' This function counts the number of words in a string.
' It does this by spliting the text into an array based on
' the space character and then checking to see which elements
' in the array are "words".
Function countWords(str As String) As Long
Dim words() As String, i As Long, numWords As Long
words = Split(str, " ")
For i = LBound(words) To UBound(words)
If isWord(words(i)) Then
numWords = numWords + 1
End If
Next
countWords = numWords
End Function
</pre>Then put something like this in a button:<br />
<pre>Dim numWords As Long
numWords = countWords(Text1.text)
MsgBox "Total number of words in text1.text: " + CStr(numWords), vbInformation, "Number of Words"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<a href="" name="Cut"></a><br />
<br />
<hr /><br />
<br />
<h1>Cut, Copy, Paste, & Undo</h1>Ever wanted to use the cut, copy, paste, & undo commands in your program? Now you can, check this out:<br />
<br />
<b>Cut:</b> (put this in a button)<br />
<br />
<pre>Clipboard.SetText Text1.SelText
Text1.SelText = ""
</pre><b>Copy:</b> (put this in a button)<br />
<br />
<pre>Clipboard.SetText Text1.SelText
</pre><b>Paste:</b> (put this in a button)<br />
<pre>Text1.SelText = Clipboard.GetText(1)
</pre><b>Undo:</b> (put this in your bas)<br />
<pre>Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_UNDO = &H304
</pre>Put this in a button:<br />
<pre>Call SendMessage(Text1.hwnd, WM_UNDO, 0&, 0&)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Dis"></a><br />
<hr /><br />
<br />
<h1>Disable/Enable Ctrl+Alt+Del</h1>The following code only works in Windows 95 and Windows 98. Put this in your *.bas file:<br />
<br />
<pre>Public Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
</pre>Then put this in a button to disable c+a+d:<br />
<br />
<br />
<pre>Call SystemParametersInfo(97, True, 0&, 0)
</pre>Then put this in a button to enable c+a+d:<br />
<pre>Call SystemParametersInfo(97, False, 0&, 0)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Encrypt"></a><br />
<hr /><br />
<br />
<h1>Encrypting/Decrypting a String</h1><br />
Below is an example of a <a href="http://en.wikipedia.org/wiki/Substitution_cipher" target="_top">substitution cipher</a>. <br />
Substitution ciphers can be broken by a cryptanalyst who knows what they're doing, so this method of encryption shouldn't be<br />
used if you want your data to be 99% secure. However, substitution ciphers will keep common users from being able to see<br />
your data. For high levels of security look into <br />
<a href="http://en.wikipedia.org/wiki/Public_key_encryption" target="_top">public key encryption</a> and<br />
<a href="http://en.wikipedia.org/wiki/Advanced_Encryption_Standard" target="_top">AES</a>.<br />
To continue on, copy and paste the function below into your *.bas file:<br />
<br />
<pre>Public Function Encrypt(text As String) As String
Dim charSet1 As String, charSet2 As String, i As Long
Dim pos As Long, encryptedChar, encryptedText
charSet1 = " ?!@#$%^&*()_+|0123456789abcdefghijklmnopqrstuvwxyz.,-~ABCDEFGHIJKLMNOPQRSTUVWXYZ¿¡²³ÀÁÂÃÄÅÒÓÔÕÖÙÛÜàáâãäåض§Ú¥"
charSet2 = " ¿¡@#$%^&*()_+|01²³456789ÀbÁdÂÃghÄjklmÅÒÓqÔÕÖÙvwÛÜz.,-~AàáâãFGHäJKåMNضQR§TÚVWX¥Z?!23acefinoprstuxyBCDEILOPSUY"
For i = 1 To Len(text)
pos = InStr(charSet1, Mid(text, i, 1))
If pos > 0 Then
encryptedChar = Mid(charSet2, pos, 1)
encryptedText = encryptedText + encryptedChar
Else
encryptedText = encryptedText + Mid(text, i, 1)
End If
Next
Encrypt = encryptedText
End Function
</pre><br />
How to use this function:<br />
To encrypt a word just put something like this in a button:<br />
<br />
<pre>Text1.Text = Encrypt(Text1)
</pre>And then to unencrypt the word just call the function again!<br />
<pre>Text1.Text = Encrypt(Text1)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="FlipPic"></a><br />
<br />
<hr /><br />
<br />
<h1>Flip a Picture</h1>This code demonstrates a fast way to flip a picture in a picturebox horizontally or vertically. <br />
Put this in your *.bas file:<br />
<br />
<pre>Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
</pre>Then put something like this in a button:<br />
<pre>Picture1.scalemode = 3 ' pixels
'flip horizontal
Call StretchBlt(Picture1.hdc, Picture1.ScaleWidth, 0, Picture1.ScaleWidth * -1, Picture1.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
'flip vertically
Call StretchBlt(Picture1.hdc, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, Picture1.ScaleHeight * -1, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="FontList"></a><br />
<hr /><br />
<br />
<h1>Add a List of Fonts to a Listbox</h1>This isn't the fastest way to add all the fonts on your computer to a listbox, but it's the easiest. Put something like this in a button:<br />
<br />
<pre>Dim x as integer
For x = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(x)
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Move"></a><br />
<hr /><br />
<br />
<h1>Move a Form With a Label</h1>Copy this code into your *.bas file: <br />
<br />
<pre>Global leftX
Global topY
</pre>How to Use:<br />
Put this code in the label's MouseDown event:<br />
<br />
<pre>Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
leftX = X
topY = Y
End Sub
</pre>Put this code in the label's MouseMove event:<br />
<br />
<br />
<pre>Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And 1 Then
Me.Left = Me.Left + X - leftX
Me.Top = Me.Top + Y - topY
End If
End Sub
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="HTMLColor"></a><br />
<hr /><br />
<br />
<h1>Get the HTML Value of a Color</h1>This is an example that shows you how to get the html color value (ie, the hex value) of a color. You will need to add the<br />
Microsoft Common Dialog control to your project for this to work. Put this code in a button:<br />
<br />
<pre>On Error GoTo handleError
Dim theColor As Long, red As String, green As String, blue As String
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
theColor = CommonDialog1.Color
red = Hex(theColor And 255)
green = Hex(theColor \ 256 And 255)
blue = Hex(theColor \ 65536 And 255)
If Len(red) < 2 Then red = "0" & red
If Len(green) < 2 Then green = "0" & green
If Len(blue) < 2 Then blue = "0" & blue
MsgBox "The HTML color value is: #" & red & green & blue
handleError: Exit Sub
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="ComputerName"></a><br />
<hr /><br />
<br />
<h1>Get Your Computer's Name</h1>Did you ever want to know what your computer's name was? Not me, but anyway, if you do want to know try this... <br />
Put this code in your *.bas file:<br />
<br />
<pre>Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
</pre>Then put something like this in a button:<br />
<br />
<pre>Dim computerName As String
computerName = String(50, Chr(0))
Call GetComputerName(computerName, 50)
MsgBox "Your computer is named: " & computerName, 32, "Name"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="HexIt"></a><br />
<hr /><br />
<br />
<h1>Some Hex Related Codes...</h1><br />
Ok, this example code will show you how to open up an exe, copy it, replace strings in the copy with strings of your choice, <br />
and then make a new program with the new strings in it. <br />
<br />
For this to work you need to have two textboxes on a form (named: txtProgInput and txtProgOutput) and <br />
two lists (named lstOldStrings and lstNewStrings). txtProgInput contains the name of program you're editing <br />
(like:"C:\somefile.exe") and txtProgOutput contains the name of the program you're making <br />
from this program. lstOldStrings contains a list of strings your replacing and lstNewStrings contains the <br />
list of what you're replacing them with. IMPORTANT NOTE: The length of the string you're replacing <br />
must be the same as the length of the string <br />
you're replacing it with, otherwise you'll get an error. Put this code in a button:<br />
<br />
<pre>Dim inputProg As String, outputProg As String, filedata As String
Dim i As Long, pos As Long
inputProg = txtProgInput.text ' Program to Edit
outputProg = txtProgOutput.text ' Program to Make
' Make sure this file you want to edit exists
If Len(Dir$(inputProg)) = 0 Then
MsgBox Chr(34) + inputProg + Chr(34) + " does not exist!", vbCritical, "Error"
Exit Sub
End If
' Open the file to make and the file your making this file with
Open outputProg For Output As #1
Open inputProg For Binary As #2
Do While Not EOF(2)
' Grab the next 8000 characters out of the file
filedata = Input$(8000, #2)
' Loop through all the items in the replacement listbox and replace the old strings
' with the new strings
For i = 0 To lstOldStrings.ListCount - 1
Do
pos = InStr(pos + 1, LCase$(filedata), LCase$(lstOldStrings.List(i)))
If pos <> 0 Then
filedata = Mid(filedata, 1, pos - 1) + lstNewStrings.List(i) + Mid(filedata, pos + Len(lstNewStrings.List(i)))
End If
Loop Until pos = 0
Next
' Print the new characters into the file you're making
Print #1, filedata;
Loop
Close #2
Close #1
MsgBox Chr(34) + outputProg + Chr(34) + " has been created.", vbInformation, "Complete"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="FADE"></a><br />
<hr /><br />
<br />
<h1>HTML Color Fading Example</h1><br />
HTML color values are stored in a <a href="http://en.wikipedia.org/wiki/Hexadecimal" target="_top">hexadecimal</a> format. <br />
Each HTML color value is divided into 3 parts: the color's amount of red, green, & blue - <br />
#<span style="color: red;">FF</span><span style="color: lime;">00</span><span style="color: blue;">00</span>. <br />
The amount of red a color can have is in the range of 0 to 255 (same goes for green & blue). So if you have 255 for red and<br />
20 for blue and green, your color will be sort of redish looking. <br />
<br />
Anyway, the following is an example on how to fade one color into another. Put this function in your *.bas file:<br />
<br />
<pre>Function getColorValue(startVal As Long, stepVal As Double, stepNum As Long)
Dim hexStr As String
hexStr = Hex(startVal + (stepVal * stepNum))
If Len(hexStr) < 2 Then
hexStr = "0" + hexStr
End If
getColorValue = hexStr
End Function
</pre>Then put something like this in a button:<br />
<br />
<pre>Dim red1 As Long, green1 As Long, blue1 As Long
Dim red2 As Long, green2 As Long, blue2 As Long
Dim i As Long, inputText As String, fadedText As String
Dim redStep As Double, greenStep As Double, blueStep As Double
inputText = "The text I want to fade!"
red1 = 255 ' The amount of red in color1
green1 = 0 ' The amount of green in color1
blue1 = 0 ' The amount of blue in color1
red2 = 0 ' The amount of red in color2
green2 = 0 ' The amount of green in color2
blue2 = 255 ' The amount of blue in color2
redStep = (red2 - red1) / (Len(inputText) - 1)
greenStep = (green2 - green1) / (Len(inputText) - 1)
blueStep = (blue2 - blue1) / (Len(inputText) - 1)
For i = 0 To Len(inputText) - 1
fadedText = fadedText + "<font color""#" + getColorValue(red1, redStep, i) + getColorValue(green1, greenStep, i) + getColorValue(blue1, blueStep, i) + """>" + Mid(inputText, i + 1, 1) + "</font>"
Next
MsgBox fadedText
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="FADE2"></a><br />
<br />
<hr /><br />
<br />
<h1>HTML Color Fading Preview Example</h1>This example shows you how to create a fade preview of color faded text inside of a picturebox. You will need to add a <br />
picturebox control named "Picture1" to your form for this to work.<br />
Put this code in a button:<br />
<br />
<pre>Dim red1 As Long, green1 As Long, blue1 As Long
Dim red2 As Long, green2 As Long, blue2 As Long
Dim i As Long, inputText As String, fadedText As String
Dim redStep As Double, greenStep As Double, blueStep As Double
Dim doWave As Boolean, wavPos As Long
inputText = "The text I want to fade!"
red1 = 255 ' The amount of red in color1
green1 = 0 ' The amount of green in color1
blue1 = 0 ' The amount of blue in color1
red2 = 0 ' The amount of red in color2
green2 = 0 ' The amount of green in color2
blue2 = 255 ' The amount of blue in color2
redStep = (red2 - red1) / (Len(inputText) - 1)
greenStep = (green2 - green1) / (Len(inputText) - 1)
blueStep = (blue2 - blue1) / (Len(inputText) - 1)
Picture1.Cls
Picture1.CurrentX = 0
Picture1.CurrentY = 0
doWave = False ' If this is true then your preview will also preview waved text
' Loop through the text on letter at a time
For i = 0 To Len(inputText) - 1
If doWave = True Then
wavPos = wavPos + 1
If wavPos > 4 Then wavPos = 1
Select Case wavPos
Case 1: Picture1.CurrentY = Picture1.CurrentY - 15
Case 2: Picture1.CurrentY = Picture1.CurrentY + 15
Case 3: Picture1.CurrentY = Picture1.CurrentY + 15
Case 4: Picture1.CurrentY = Picture1.CurrentY - 15
End Select
End If
Picture1.ForeColor = RGB(red1 + redStep * i, green1 + greenStep * i, blue1 + blueStep * i)
Picture1.Print Mid$(inputText, i + 1, 1);
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Waver"></a><br />
<hr /><br />
<br />
<br />
<h1>How to Generate the HTML Code for <sup>W</sup>a<sub>v</sub>i<sup>n</sup>g text</h1>Just like the title says. Put this code in a button:<br />
<br />
<pre>Dim i As Long, tagIndex As Integer, strWave As String
Dim inputText As String
ReDim waveHTML(1 To 4) As String ' array that holds html tags
inputText = "This is my input text!"
waveHTML(1) = "<sup>"
waveHTML(2) = "</sup>"
waveHTML(3) = "<sub>"
waveHTML(4) = "</sub>"
' Loop though the text one letter at a time
For i = 1 To Len(inputText)
tagIndex = tagIndex + 1
If tagIndex > 4 Then tagIndex = 1
strWave = strWave & waveHTML(tagIndex) & Mid$(inputText, i, 1)
Next
' Make sure a closing tag is added
If Len(inputText) Mod 2 = 1 Then
strWave = strWave & waveHTML(tagIndex + 1)
End If
MsgBox strWave
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="IconTray"></a><br />
<hr /><br />
<br />
<h1>How to Put an Icon in the System Tray</h1>This code did not work when tested in Windows XP. It was written for Windows 95/98. <br />
<br />
This shows you how to put an icon in the system tray. It uses an icon stored in Picture1.picture as the icon.<br />
Put this in your *.bas file:<br />
<br />
<pre>Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const WM_MOUSEMOVE = &H200
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
</pre>Then put something like this in a button to add the icon to the tray:<br />
<pre>Dim IconInfo As NOTIFYICONDATA
IconInfo.cbSize = Len(IconInfo)
IconInfo.hwnd = Me.hwnd
IconInfo.hIcon = Picture1.Picture
IconInfo.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
IconInfo.uCallbackMessage = WM_MOUSEMOVE
IconInfo.szTip = "Mouseover Text" + Chr$(0)
Call Shell_NotifyIcon(NIM_ADD, IconInfo)
</pre>Put something like this in a button to remove the icon:<br />
<br />
<pre>Dim IconInfo As NOTIFYICONDATA
IconInfo.cbSize = Len(IconInfo)
IconInfo.hwnd = Me.hwnd
Call Shell_NotifyIcon(NIM_DELETE, IconInfo)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Kill"></a><br />
<hr /><br />
<br />
<br />
<h1>Kill the Duplicates in a Listbox</h1>This code loops though a list (List1) checking each item with every other item, then when it finds a duplicate it removes it. <br />
Put this code in a button: <br />
<br />
<pre>Dim i As Long, X As Long, Y As Long
For i = 0 To List1.ListCount - 1
For X = 0 To List1.ListCount - 1
If X <> i Then
If List1.List(i) = List1.List(X) Then
List1.RemoveItem X
X = X - 1
End If
End If
Next
Next
</pre>Here's another way to do it, this way is somewhat faster and uses some Windows API functions (sent<br />
in by Sopon). First put this in your *.bas file:<br />
<pre>Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Const LB_FINDSTRINGEXACT = &H1A2
</pre><br />
Then make this a function in your *.bas file:<br />
<br />
<br />
<br />
<pre>Public Function LBDupe(lpBox As ListBox) As Integer
Dim nCount As Integer, nPos1 As Integer, nPos2 As Integer, nDelete As Integer
Dim sText As String
If lpBox.ListCount < 3 Then
LBDupe = 0
Exit Function
End If
For nCount = 0 To lpBox.ListCount - 1
Do
DoEvents
sText = lpBox.List(nCount)
nPos1 = SendMessageByString(lpBox.hwnd, LB_FINDSTRINGEXACT, nCount, sText)
nPos2 = SendMessageByString(lpBox.hwnd, LB_FINDSTRINGEXACT, nPos1 + 1, sText)
If nPos2 = -1 Or nPos2 = nPos1 Then Exit Do
lpBox.RemoveItem nPos2
nDelete = nDelete + 1
Loop
Next nCount
LBDupe = nDelete
End Function
</pre>Then put something like this in a button:<br />
<br />
<pre>Call LBDupe(List1)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="ListOpen"></a><br />
<hr /><br />
<br />
<br />
<h1>Opening a File to a Listbox</h1>This code shows you how to open a file to a listbox. Make sure you have a CommonDialog control added to your form. <br />
Put something like this in a button:<br />
<br />
<pre>On Error GoTo handleError
Dim fileName As String, listItem As String
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
fileName = CommonDialog1.fileName
List1.Clear
Open fileName For Input As #1
Do While Not EOF(1)
Line Input #1, listItem
If Not (listItem = "") Then
List1.AddItem listItem
End If
Loop
Close #1
handleError: Exit Sub
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="ListSave"></a><br />
<hr /><br />
<br />
<h1>Saving the List Inside of a Listbox</h1><br />
This code shows you how to save the contents of a listbox. Make sure you have a CommonDialog control added to your form. <br />
Put something like this in a button:<br />
<br />
<pre>On Error GoTo handleError
Dim fileName As String, msgResult As VbMsgBoxResult, i As Long
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowSave
fileName = CommonDialog1.fileName
If Len(Dir(fileName)) <> 0 Then
msgResult = MsgBox("This file already exists: """ + fileName + """, do you wish replace it?", vbYesNo, "Error")
If msgResult = vbNo Then Exit Sub
End If
Open fileName For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i) + Chr(13)
Next
Close #1
handleError: Exit Sub
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="MacroFonts"></a><br />
<hr /><h1>Macro Font Draw</h1><br />
AOL Macro Fonts allowed you to type in large ASCII art text, like you see below.<br />
<br />
<span style="font-family: Arial;"><br />
|\¯¯¯-¯)::)¯¯,¯\_':|¯¯¯¯¯¯¯||<br />
<br />
:\|__|¯|°:/__/'\__\:|¯¯|__|¯¯|<br />
<br />
::|__|¯::|__:|/\|__|':¯¯|__|¯¯<br />
<br />
</span><br />
<br />
<br />
This code example shows you how to create a macro font feature for a Macro Shop / ASCII Art Shop program. <br />
It makes it so you can select a (*.pmf) file (a sample pmf file can be downloaded <br />
<a href="http://affan-hack.blogspot.com/downloads/bent.pmf">here</a>), load it into a 2D array, and then<br />
have the output display when the user types text in an input textbox. You will need the following<br />
for this example to work:<br />
<br />
<br />
txtInput - An input textbox named "txtInput". This is where the user types their input.<br />
<br />
txtOutput - An output textbox named "txtOutput". This is where the output is displayed. This textbox<br />
should have it's multiline property set to true and it's font type set to "Arial" and point size set to 10.<br />
<br />
CommonDialog1 - A common dialog control should be added to the project.<br />
<br />
Put something like this in your *.bas file:<br />
<br />
<pre>Global macroFontName As String
Global fontAuthor As String
Global macroFontSize As Integer
Global macroFont(1 To 27, 1 To 20) As String
</pre>Put something like this in the load a font button:<br />
<br />
<pre>On Error GoTo handleError
Dim textInput As String, i As Integer, i2 As Integer
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Macro Fonts (*.pmf)|*.pmf"
CommonDialog1.ShowOpen
macroFontName = CommonDialog1.fileName
Open macroFontName For Input As #1
Line Input #1, textInput
macroFontSize = Val(Mid$(textInput, 19))
If macroFontSize < 1 Then Exit Sub
Line Input #1, textInput
fontAuthor = Mid$(textInput, 21)
For i = 1 To 26
For i2 = 1 To macroFontSize
Line Input #1, textInput
macroFont(i, i2) = textInput
Next
Next
For i = 1 To macroFontSize
macroFont(27, i) = " " & " " & " " & " " & " "
Next
Close #1
handleError: Exit Sub
</pre>And then put something like this in the Change event of txtInput:<br />
<br />
<pre>Dim i As Integer, i2 As Integer
Dim alphabet As String, pos As Integer, outputText As String
alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
For i2 = 1 To macroFontSize
For i = 1 To Len(txtInput.text)
pos = InStr(alphabet, UCase(Mid$(txtInput, i, 1)))
If pos <> 0 Then
outputText = outputText + macroFont(pos, i2)
End If
Next
outputText = outputText + Chr(13) + Chr(10)
Next
txtOutput.text = outputText
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="OpenBrow"></a><br />
<hr /><br />
<br />
<br />
<h1>Open Up a Default Browser</h1>This shows you how to open your default browser. Put this function in your *.bas file:<br />
<br />
<pre>Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
</pre>Then put something like this in a button:<br />
<pre>Dim ret As Long, theWebSite As String
theWebSite = "http://affan-hack.blogspot.com/"
ret = ShellExecute(Me.hwnd, "open", theWebSite, vbNullString, vbNullString, 3)
If ret < 32 Then MsgBox "There was an error when trying to open a default browser", vbCritical, "Error"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="PictureFade"></a><br />
<hr /><br />
<br />
<h1>Picturebox Fade</h1>This code will fade one color into another color in a picturebox. It's a nice tid-bit to keep in mind if you want to make <br />
your own title bar for a form. Put this in a button:<br />
<br />
<pre>Dim xPos As Double, xLength As Double, yLength As Integer, i As Integer
Dim red1 As Integer, green1 As Integer, blue1 As Integer
Dim red2 As Integer, green2 As Integer, blue2 As Integer
Dim step1 As Double, step2 As Double, step3 As Double
Dim redVal As Double, greenVal As Double, blueVal As Double
Dim fadeLength As Integer
fadeLength = 100
' find the length of the picturebox and cut it into 100 pieces
xLength = Picture1.ScaleWidth / fadeLength
yLength = Picture1.ScaleHeight
' setting how much red, green, and blue goes into each of the two colors
red1 = 255
green1 = 0
blue1 = 0
red2 = 0
green2 = 0
blue2 = 255
' cut the difference between the two colors into 100 pieces
step1 = (red2 - red1) / (fadeLength - 1)
step2 = (green2 - green1) / (fadeLength - 1)
step3 = (blue2 - blue1) / (fadeLength - 1)
' set the c variables at the starting colors
redVal = red1
greenVal = green1
blueVal = blue1
' draw 100 different lines on the picturebox
For i% = 1 To fadeLength
Picture1.Line (xPos, 0)-(xPos + xLength, yLength), RGB(redVal, greenVal, blueVal), BF
xPos = xPos + xLength ' draw the next line one step up from the old step
' make the color value variable equal to it's next step
redVal = redVal + step1
greenVal = greenVal + step2
blueVal = blueVal + step3
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Midi"></a><br />
<hr /><br />
<br />
<h1>Play a Midi File</h1>Copy this function into your *.bas file:<br />
<br />
<pre>Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
</pre>The following code can go in buttons to play/stop/pause/etc:<br />
<br />
<pre>' Open a midi file
' IMPORTANT NOTE: Before a file can be played, it must be opened via
' the "open" command
Dim ret As Long
ret = mciSendString("open C:\Dancing_Queen.Mid type sequencer", 0&, 0, 0)
' Play a midi file
Dim ret As Long
ret = mciSendString("play C:\Dancing_Queen.Mid", 0&, 0, 0)
' Stop a midi file
Dim ret As Long
ret = mciSendString("stop C:\Dancing_Queen.Mid", 0&, 0, 0)
' Pause a midi file
Dim ret As Long
ret = mciSendString("pause C:\Dancing_Queen.Mid", 0&, 0, 0)
' Resume playing a midi file
Dim ret As Long
ret = mciSendString("resume C:\Dancing_Queen.Mid", 0&, 0, 0)
' Seek to a certain position within the file
' "start" and "end" can be used as keywords for positions to seek to
Dim ret As Long
ret = mciSendString("seek C:\Dancing_Queen.Mid to 500", 0&, 0, 0)
ret = mciSendString("play C:\Dancing_Queen.Mid", 0&, 0, 0)
' Get the length of the file in milliseconds
Dim numMSecs As String * 128
Dim ret As Long
ret = mciSendString("set C:\Dancing_Queen.Mid time format ms", 0&, 0, 0)
ret = mciSendString("status C:\Dancing_Queen.Mid length", numMSecs, Len(numMSecs), 0)
MsgBox "There are " & str(numMSecs) & " milliseconds"
' Get the length of the file in bytes
' This can compliment the seek command
Dim numBytes As String * 128
Dim ret As Long
ret = mciSendString("set C:\Dancing_Queen.Mid time format bytes", 0&, 0, 0)
ret = mciSendString("status C:\Dancing_Queen.Mid length", numBytes, Len(numBytes), 0)
MsgBox "There are " & str(numBytes) & " bytes"
' Alias
' <span style="color: red;">IMPORTANT:</span> This can make your life so much easier. Creating an
' alias will allow you to not have to remember the file name when using commands other than "Open".
' Example:
Dim ret As Long
ret = mciSendString("open C:\Dancing_Queen.Mid type sequencer alias theFile", 0&, 0, 0)
ret = mciSendString("play theFile", 0&, 0, 0)
' Always remember to CLOSE your midi file after you're done using it!!
' Otherwise you could give Windows memory problems
Dim ret As Long
ret = mciSendString("close C:\Dancing_Queen.Mid", 0&, 0, 0)
' Side note: I'm not really that big a fan of Abba, they're decent though. I picked dancing queen
' as the sample song because it was the first midi I found when I did a google for midis.
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Wav"></a><br />
<hr /><br />
<br />
<h1>Play a Wav</h1>This code will be the same as described in <a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#Midi">playing a midi file</a> with one key difference. When opening a<br />
file, use "waveaudio" as the type. Example:<br />
<br />
<br />
<br />
<pre>Dim ret As Long
ret = mciSendString("open C:\parent-teachernite.wav type waveaudio alias theFile", 0&, 0, 0)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Random"></a><br />
<hr /><br />
<br />
<h1>Random Number Generater</h1>This code lets you generate a random integer within a given range. Copy this function and paste it in your *.bas file:<br />
<br />
<pre>Public Function RandomNumber(startNum As Integer, endNum As Integer) As Integer
Randomize
RandomNumber = Int(((endNum - startNum + 1) * Rnd) + startNum)
End Function
</pre>Example on how to use:<br />
<pre>Dim x As Integer
x = RandomNumber(10, 20)
MsgBox x
</pre>"x" will be equal to a random integer in the range: [10, 20] (ie, between 10 and 20, including 10 and 20)<br />
<br />
<br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="RemoveSpaces"></a><br />
<br />
<hr /><br />
<br />
<h1>Replacing Text in a String</h1><br />
This small example on how to use the "Replace" function in Visual Basic 6.0. Originally this code used the Mid and Instr<br />
string functions, but since VB 6.0 you can simply use "Replace".<br />
<br />
<pre>Dim text As String
text = "text text text, all you write is text"
text = Replace(text, "text", "pizza")
MsgBox text
</pre>How to use (put in button):<br />
<pre>Text1.text = RemoveSpaces(Text1)</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Resize"></a><br />
<br />
<hr /><br />
<br />
<h1>Resizing a Form (an easy way)</h1>This code lets you resize your forms with a neat stretch effect. <br />
Copy and paste the code as directed by the comments:<br />
<br />
<pre>'-----------------------------------------------------
' Put this code in the public area of your form (ie, the top most part)
'-----------------------------------------------------
Private Type ScaleStruct
Top As Integer
Left As Integer
Width As Integer
Height As Integer
ParentHeight As Integer
ParentWidth As Integer
FontSize As Integer
End Type
Dim Ctrl() As ScaleStruct
Dim minWidth As Integer
Dim minHeight As Integer
Dim maxWidth As Integer
Dim maxHeight As Integer
'-----------------------------------------------------
' Put this code in the Form_Load event
'-----------------------------------------------------
On Error Resume Next
Dim i As Integer
ReDim Ctrl(0 To Me.Controls.Count - 1)
Me.ScaleMode = 3
For i = 0 To Me.Controls.Count - 1
Ctrl(i).Top = Me.Controls(i).Top
Ctrl(i).Left = Me.Controls(i).Left
Ctrl(i).Width = Me.Controls(i).Width
Ctrl(i).Height = Me.Controls(i).Height
Ctrl(i).ParentHeight = Me.Controls(i).Parent.ScaleHeight
Ctrl(i).ParentWidth = Me.Controls(i).Parent.ScaleWidth
Ctrl(i).FontSize = Me.Controls(i).FontSize
Next
' THESE VALUES ARE ARBITRARY
' Change them to best suit your program
' One tip would be to have a min size, but not a real
' max size (ie, make the maxes larger than what the
' screen size will ever be
minWidth = 400
minHeight = 400
maxWidth = 800
maxHeight = 800
'-----------------------------------------------------
' Put this code in the Form_Resize event
'-----------------------------------------------------
On Error Resume Next
Dim i As Integer
Dim ParentSH As Integer, ParentSW As Integer
ParentSH = Me.Controls(i).Parent.ScaleHeight
ParentSW = Me.Controls(i).Parent.ScaleWidth
For i = 0 To Me.Controls.Count - 1
If Me.ScaleHeight >= minHeight And Me.ScaleHeight <= maxHeight Then
Me.Controls(i).Top = Ctrl(i).Top * (ParentSH / Ctrl(i).ParentHeight)
Me.Controls(i).Height = Ctrl(i).Height * (ParentSH / Ctrl(i).ParentHeight)
Me.Controls(i).FontSize = Ctrl(i).FontSize * (ParentSH / Ctrl(i).ParentHeight)
If Me.Controls(i).FontSize < 8 Then Me.Controls(i).FontSize = 8
If Me.Controls(i).FontSize > 12 Then Me.Controls(i).FontSize = 12
End If
If Me.ScaleWidth >= minWidth And Me.ScaleWidth <= maxWidth Then
Me.Controls(i).Left = Ctrl(i).Left * (ParentSW / Ctrl(i).ParentWidth)
Me.Controls(i).Width = Ctrl(i).Width * (ParentSW / Ctrl(i).ParentWidth)
End If
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Scramble"></a><br />
<hr /><br />
<br />
<h1>Scramble a Series of Words</h1>Here are a neat series of functions that will allow you to scramble each word in a sentence. <br />
This code would word well for a scrambler program.<br />
Put these functions your *.bas file:<br />
<br />
<pre>' generates a random number in a given range
Public Function RandomNumber(startNum As Integer, endNum As Integer) As Integer
Randomize
RandomNumber = Int(((endNum - startNum + 1) * Rnd) + startNum)
End Function
' swaps two characters in a string
Public Function swap(text As String, pos1 As Integer, pos2 As Integer)
Dim temp As String
temp = Mid(text, pos1, 1)
text = Mid(text, 1, pos1 - 1) + Mid(text, pos2, 1) + Mid(text, pos1 + 1)
text = Mid(text, 1, pos2 - 1) + temp + Mid(text, pos2 + 1)
swap = text
End Function
' scrambles a word
Public Function scrambleWord(ByVal text As String)
Dim scrambleStrength As Integer, pos1 As Integer, pos2 As Integer
Dim i As Integer
' probably doesn't need to be higher than this
scrambleStrength = (Len(text) - 1) * 2
For i = 0 To scrambleStrength
pos1 = RandomNumber(1, Len(text))
pos2 = RandomNumber(1, Len(text))
text = swap(text, pos1, pos2)
Next
scrambleWord = text
End Function
Public Function scrambleInput(text As String)
Dim words() As String, i As Integer
words = Split(text, " ") ' split is a VB function for breaking a string into an array of strings
For i = 0 To UBound(words)
' scramble each word
words(i) = scrambleWord(words(i))
Next
' output a string of the scrambled text
scrambleInput = Join(words, " ")
End Function
</pre>Example on how to use these functions to scramble the words in a sentence: <br />
<br />
<pre>Text1 = scrambleInput(Text1)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="screensaver"></a><br />
<hr /><br />
<br />
<h1>Screen Saver Creation</h1>Here's what you do to make a screen saver: Start a new project. Set the windowstate property of the form to "2 - Maximized", and <br />
the border style of the form to zero. In the "KeyDown" event of the form put the "End" statement. Then in the mouse move event of <br />
the form put something like this:<br />
<br />
<pre>Static ScreenSaverVar As Integer
ScreenSaverVar = ScreenSaverVar + 1
If ScreenSaverVar > 2 Then End
</pre>Now select "Make some_project_name.exe" in the file menu. When it asks you what you want to name the exe, <br />
add a "*.scr" extension to the end of the name (example: Blah.src). Then select the directory "c:\windows\system\" <br />
as the place to make this program. And there you go, you've made a screensaver which you can use on your desktop <br />
(note: you'll probably want to jazz up the form a little bit first).<br />
<br />
<br />
Additional Info: (Provided by Mike Clem)<br />
<br />
Try adding "SCRNSAVE: " in front of the name of your screen saver when compiling if you cannot get Windows to recognize that <br />
your creation is a screen saver. Example: "SCRNSAVE: Blah.SCR" <br />
<br />
Problem of Windows not recognizing the Screen Saver occured in WFW 3.11 using VB 3.0. <br />
<br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="ScramblerScoreKeeper"></a><br />
<br />
<hr /><br />
<br />
<h1>Score Keeper</h1><br />
This is a KeepScore function. It's for keeping score is games like Scrambler<br />
where points are usually kept in a listbox with people's names.<br />
Code written by deep arctic.<br />
<br />
<pre>Public Sub ScramblerKeepScore(ByRef lstList As ListBox, strPerson As String, intPoints As Integer)
' Written by deep arctic
Dim strLastScore As String, strPreviousPerson As String
Dim intIndex As Integer, strCount As String
Dim intCount As Integer
For intCount = 0 To lstList.ListCount - 1
strCount = lstList.List(intCount)
strPreviousPerson = Left(strCount, InStr(strCount, "-") - 2)
If LCase(strPreviousPerson) = LCase(strPerson) Then
intIndex = intCount
strLastScore = Right(strCount, Len(strCount) - InStr(strCount, "-") - 1)
strLastScore = Val(strLastScore) + intPoints
lstList.List(intIndex) = strPerson & " - " & strLastScore
Exit Sub
End If
Next intCount
lstList.AddItem (strPerson & " - " & intPoints)
End Sub
</pre>Here is an example on how you can try this function out:<br />
<br />
<pre>' List1 = the list you are keeping scores in
' txtName = a textbox containing the name of the person whose score you want to update
' txtPoints = a textbox containing the number of points you want to award this person
Call ScramblerKeepScore(List1, txtName.text, CInt(txtPoints.text))
' An helpful tip: In the properties window, set your score keeping listbox's "Sorted" property to "true"
</pre><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="SelList"></a><br />
<hr /><br />
<br />
<h1>Select All the List Items</h1>This is an example that shows you how to select all of the list items in a listbox. This <br />
should work for any listbox window. Just make sure the listbox's multiselect property is set<br />
to "1 - Simple" in the properties window. Put something like this in your *.bas file: <br />
<br />
<pre>Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Const LB_GETCOUNT = &H18B
Public Const LB_SETSEL = &H185
</pre><br />
Then put something like this in a button:<br />
<pre>Dim listItems As Long
listItems = SendMessage(List1.hwnd, LB_GETCOUNT, 0&, vbNullString) - 1
Call SendMessageLong(List1.hwnd, LB_SETSEL, listItems, True)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="SetPaper"></a><br />
<hr /><br />
<br />
<h1>Set the Picture For You Windows Wall Paper</h1>This code shows you how to set the wall paper for windows, put something like this in you *.bas file:<br />
<br />
<br />
<pre>Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_UPDATEINIFILE = &H1
</pre>Then put something like this in a button or in the form_load:<br />
<pre>' The final parameter "SPIF_UPDATEINIFILE" tells us to save the changes (so our new wallpaper is sill with us on restart).
' Setting this parameter to 0 will cause us not to update the registery and wont save the wallpaper.
Dim thePic As String
thePic = "C:\some_image.bmp"
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, thePic, SPIF_UPDATEINIFILE)
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="SpellChecker"></a><br />
<hr /><br />
<br />
<h1>Spell Checker</h1><br />
Ever wanted a spell checker feature in one of your programs? Check this out, it calls up the MSWord's spell checker<br />
so you are able to spell check your documents! You need MSWord95 or better for this code to work. <br />
This example spell checks the text in a textbox named "Text1".<br />
Put this in a button: <br />
<br />
<pre>On Error Resume Next
Dim WordSC As Object, pos As Integer
Set WordSC = CreateObject("Word.Basic")
WordSC.AppMinimize
WordSC.FileNewDefault
WordSC.EditSelectAll
WordSC.EditCut
WordSC.Insert Text1.text
WordSC.StartOfDocument
WordSC.ToolsSpelling
WordSC.EditSelectAll
Text1.text = WordSC.Selection
WordSC.FileCloseAll 2
WordSC.AppClose
Set WordSC = Nothing
If Mid(Text1.text, Len(Text1.text), 1) = Chr(13) Then
Text1.text = Mid(Text1.text, 1, Len(Text1.text) - 1)
End If
pos = InStr(Text1.text, Chr(13))
Do While pos <> 0
If Mid(Text1.text, pos + 1, 1) <> Chr(10) Then
Text1.text = Mid(Text1.text, 1, pos) + Chr(10) + Mid(Text1.text, pos + 1)
End If
pos = InStr(pos + 1, Text1.text, Chr(13))
Loop
MsgBox "Spell Check Complete", vbInformation, "Spell Check"
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Stay"></a><br />
<hr /><br />
<br />
<h1>Stay on Top Code</h1><br />
This makes a form stay on top of all other applications running in Windows. Put this code in your *.bas file:<br />
<br />
<pre>Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Sub stayOnTop(frm As Form)
Call SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
Public Sub removeFromTop(frm As Form)
Call SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
</pre>Example on how to use (put this in the form's load event):<br />
<br />
<pre>stayOnTop Me
</pre>Example on how to remove a form from being the top most window:<br />
<br />
<pre>removeFromTop Me
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Tilepic"></a><br />
<hr /><br />
<br />
<h1>Tile a Picture in the Background</h1>This example shows you how to tile a picture in the background of a form. Put something like this in the form's load event:<br />
<br />
<pre>Dim i As Integer, j As Integer
Me.AutoRedraw = True
Picture1.AutoSize = True
Picture1.BorderStyle = 0
Picture1.Visible = False ' we probably don't want this visible, right?
On Error Resume Next
For i = 0 To Me.ScaleWidth Step Picture1.ScaleWidth
For j = 0 To Me.ScaleHeight Step Picture1.ScaleHeight
Me.PaintPicture Picture1.Picture, i, j
Next
Next
</pre><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="Timeout"></a><br />
<hr /><br />
<br />
<h1>Timeout Code</h1>This sub lets up create a pause in your programming code for whatever amount of seconds you<br />
tell it to pause for: (copy & paste is sub in your *.bas file)<br />
<br />
<pre>Public Sub Timeout(duration As Double)
Dim starttime As Double, x As Integer
starttime = Timer
Do While Timer - starttime < duration
x = DoEvents()
Loop
End Sub
</pre><br />
Example on how to use (pause for one second): <br />
<br />
<br />
<pre>Call Timeout(1)</pre><br />
Here's another way to do it, this way uses the Windows API (sent<br />
in by Sopon). First put this in your *.bas file:<br />
<br />
<br />
<br />
<pre>Public Declare Function GetTickCount Lib "kernel32" () As Long
</pre><br />
<span style="font-size: x-small;">Then make this a sub in your bas:</span><br />
<pre>Sub Pause(hInterval As Long)
Dim hCurrent As Long
hInterval = hInterval * 1000
hCurrent = GetTickCount
Do While GetTickCount - hCurrent < Val(hInterval)
DoEvents
Loop
End Sub
</pre>Example on how to use (pause for one second): <br />
<pre>Call Pause(1)</pre><br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<a href="" name="vb3interface"></a><br />
<br />
<hr /><br />
<br />
<h1>VB3 Interface for VB5 and VB6</h1>Here's how to give VB5/6 the VB3 interface: Select "Tools">"Options" from the menu. Then when the "Options" form pops up select the <br />
"Advanced" tab. Make sure the "SDI Development Environment" checkbox is checked, and click "OK". When you restart VB5/6, you <br />
should have the same kind of interface that you had with VB3. <br />
<br />
<a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=6451745115688070315#the_top">Back to the top of the page.</a>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com1tag:blogger.com,1999:blog-6139163092122059787.post-52740770743369853092010-12-18T20:49:00.005-08:002010-12-22T23:53:26.023-08:00Visual Basic Array Tutorial<h3>Written By Affan Lubizst</h3><br />
<br />
In this tutorial you will learn the differences between a fixed-size and dynamic array, how to properly declare <br />
each one, how to access them, how to loop through them, how to erase them, and a few other things. <br />
This tutorial applies to all versions of Visual Basic, however, versions before Visual<br />
Basic 6.0 do not include the split and join function.<br />
Below is a list of the major topics that will be discussed.<br />
<br />
<br />
<br />
<ul><li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#typesofarrays">Types of Arrays</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#fixedsizearrays">Fixed-Size Arrays</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#dynamicarrays">Dynamic Arrays</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#retrievingcontents">Retrieving the Contents of an Array</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#addingnewelements">Adding New Elements on the Fly</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#erasinganarray">Erasing an Array</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#splitfunction">The Split Function</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#joinfunction">The Join Function</a></li>
<li><a href="http://www.blogger.com/post-edit.g?blogID=6139163092122059787&postID=5274077074336985309#multid">Multidimensional Arrays<a name='more'></a></a></li>
</ul>If you aren't able to find what you need here, you can check out the <a href="http://affan-hack.blogspot.com/">main programming section</a><br />
for additional VB code and tutorials.<br />
<br />
<br />
<br />
<br />
<a href="" name="typesofarrays"></a><br />
<br />
<h2>Types of Arrays</h2><br />
<blockquote>An array is a lot like a CD rack. You know: one of those rectangular boxes with slots to slide CDs in, each above another.<br />
There are two types of Visual Basic arrays: fixed-size and dynamic.</blockquote><br />
<a href="" name="fixedsizearrays"></a><br />
<h3>Fixed-Size Arrays</h3><br />
<blockquote>A fixed-size array most closely matches our CD rack anology. There are a limited number of slots you can slide CDs into. Pretend you have three CDs - one by the Deftones, another by Tool, and a third by Disturbed. To fit all of these in your rack, the rack must contain at least three slots. So you declare your CD rack as having three slots:<br />
<br />
<blockquote><br />
<pre><span class="KW">Dim </span>strCDRack(0 to 2) <span class="KW">As String</span></pre></blockquote>You've just made a variable 'strCDRack' that contains three slots (#0, #1, and #2) and is of a String data type. Now you can insert your CDs into it:<br />
<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strCDRack(0 to 2) <span class="KW">As String
</span>strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed"</pre></blockquote><br />
Notice that each of the three new lines starts off with the variable name and then gives an element number before having a value assigned. This is like numbering the slots on your CD rack starting at 0 up to 2 and then inserting a CD into each slot.<br />
<br />
<br />
<br />
The format for declaring an array is:<br />
<br />
<br />
<br />
<code><span class="KW">Dim|Public|Private </span></code><i>ArrayName</i><code>(</code><i>Subscript</i><code>) <span class="KW">As </span></code><i><span class="KW">DataType</span></i><br />
<blockquote><br />
- <code>Dim</code>, <code>Public</code>, and <code>Private</code> declare the array and its scope. Using <code>Dim</code> in a procedure will make the array only available from within that procedure. Using it in the General Declarations section will make it available to all procedures in that module. <code>Private</code> has the same effect and should be used only at the modular level. Using <code>Public</code> will make the array available throughout the project.<br />
<br />
<br />
<br />
<br />
- <i>ArrayName</i> is the name of the array.<br />
<br />
<br />
<br />
- <i>Subscript</i> is the dimensions of the array.<br />
<br />
<br />
<br />
- <i>DataType</i> is any valid data type.</blockquote><br />
</blockquote><br />
<a href="" name="dynamicarrays"></a><br />
<h3>Dynamic Arrays</h3><br />
<blockquote>The new Charlotte Church CD came out but your rack only has three slots. You don't want to throw away any of your CDs to make room for the new one so you decide to use your ultimate building skills to attach another slot. You start building:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strCDRack() <span class="KW">As String
ReDim </span>strCDRack(0 to 2) <span class="KW">As String
</span>strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed"</pre></blockquote>What have you done? Nothing wrong, you've just dimensioned your array another way that allows for expansion. Notice that the <i>subscript</i> of the <code>Dim</code> statement is missing. This is OK; it tells VB that your array is a dynamic array, meaning that you can change its size with <code>ReDim</code>.<br />
<br />
<br />
<br />
Now that you've rebuilt the structure of your CD rack, allowing for expansion, it is time to expand:<br />
<br />
<blockquote><br />
<pre><span class="KW">Dim </span>strCDRack() <span class="KW">As String
ReDim </span>strCDRack(0 to 2) <span class="KW">As String
</span>strCDRack(0) = "Deftones"
strCDRack(1) = "Tool"
strCDRack(2) = "Disturbed"
<span class="KW">ReDim Preserve </span>strCDRack(0 to 3) <span class="KW">As String
</span>strCDRack(3) = "Charlotte Church"</pre></blockquote>This snippet has two more lines, the first redimensioning the array one element larger and the second setting this element's value. Notice the <code>Preserve</code> keyword: it forces Visual Basic to retain all existing elements' values. Without this keyword all your old CDs would be lost and you'd be stuck with just Charlotte Church.<br />
<br />
<br />
<br />
<br />
The ReDim keyword's syntax is:<br />
<br />
<br />
<br />
<code><span class="KW">ReDim [Preserve] </span></code><i>ArrayName</i><code>(</code><i>Subscript</i><code>) <span class="KW">As </span></code><i><span class="KW">DataType</span></i><br />
<blockquote>- <code>ReDim</code> is the keyword that denotes we are redimensioning an array.<br />
<br />
<br />
<br />
<br />
- <code>Preserve</code> is an optional keyword that forces Visual Basic to retain all existing elements' values. Without it all elements will return to their default values. (Numeric data types to 0, variable-length strings to "" (a zero-length string), fixed-length strings filled with zeros, and variants to empty.)<br />
<br />
<br />
<br />
- <i>ArrayName</i> is the name of the array.<br />
<br />
<br />
<br />
- <i>Subscript</i> is the dimensions of the array.<br />
<br />
<br />
<br />
<br />
- <i>DataType</i> is any valid data type. The data type cannot be changed from its initial declaration when using the <code>ReDim</code> keyword. (Unless it was initially declared as a Variant.)</blockquote></blockquote><br />
<br />
<br />
<br />
<a href="" name="retrievingcontents"></a><br />
<h2>Retrieving the Contents of an Array</h2><br />
<blockquote>Now that you know how to build an array, you might ask how to retrieve its contents. Say you've built an array of your friends' names:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strFriends(0 to 6) <span class="KW">As String</span>
strFriends(0) = "Bianca"
strFriends(1) = "Jeana"
strFriends(2) = "Sam"
strFriends(3) = "Jenna"
strFriends(4) = "Erin"
strFriends(5) = "Carolyn"
strFriends(6) = "Kate"</pre></blockquote>That's all good and dandy but you want to display their names in successive message boxes, so you construct a loop:<br />
<br />
<blockquote><br />
<pre><span class="KW">Dim </span>strFriends(0 to 6) <span class="KW">As String</span>, lngPosition as <span class="KW">Long
</span>strFriends(0) = "Bianca"
strFriends(1) = "Jeana"
strFriends(2) = "Sam"
strFriends(3) = "Jenna"
strFriends(4) = "Erin"
strFriends(5) = "Carolyn"
strFriends(6) = "Kate"
<span class="KW">For </span>lngPosition = <span class="KW">LBound</span>(strFriends) <span class="KW">To </span>UBound(strFriends)
MsgBox strFriends(lngPosition)
<span class="KW">Next </span>lngPositionlngPositionlngPosition</pre></blockquote><br />
There are two new functions in that snippet of code. <code>LBound</code> and <code>UBound</code> are used to determine the lower and upper bounds of an array. Because <i>strFriends</i> has a lower bound of 0 and an upper bound of 6. These<br />
functions allow you to to iterate through an array with a dynamic size and they keep you from having to keep track of the array's size yourself.<br />
With each iteration of that loop, lngPosition will count up from 0 to 6. By accessing the array as <code>strFriends(lngPosition)</code> you are greatly reducing the amount of code you have to write.</blockquote><br />
<br />
<br />
<br />
<a href="" name="addingnewelements"></a><br />
<h2>Adding New Elements on the Fly</h2><br />
<blockquote>Sometimes you have an array that needs to keep growing, and you don't know what the upper bound will end up being. Maybe you are making a crappy MP3 player and need to ask the user to input song names. You might do something like this:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strSongNames() <span class="KW">As String </span><span class="RM">'Array of song names
</span><span class="KW">Dim </span>blDimensioned <span class="KW">As Boolean </span><span class="RM">'Is the array dimensioned?
</span><span class="KW">Dim </span>strText <span class="KW">As String </span><span class="RM">'To temporarily hold names
</span><span class="KW">Dim </span>lngPosition as <span class="KW">Long </span><span class="RM">'Counting
'The array has not yet been dimensioned:
</span>blDimensioned = False
<span class="KW">Do
</span><span class="RM">'Ask for a song name
</span>strText = InputBox("Enter a song name:")
<span class="KW">If </span>strText <> "" <span class="KW">Then
</span><span class="RM">'Has the array been dimensioned?
</span><span class="KW">If </span>blDimensioned = True <span class="KW">Then
</span><span class="RM">'Yes, so extend the array one element large than its current upper bound.
'Without the "Preserve" keyword below, the previous elements in our array would be erased with the resizing
</span><span class="KW">ReDim Preserve </span>strSongNames(0 <span class="KW">To </span>UBound(strSongNames) + 1) <span class="KW">As String
Else
</span><span class="RM">'No, so dimension it and flag it as dimensioned.
</span><span class="KW">ReDim </span>strSongNames(0 <span class="KW">To </span>0) <span class="KW">As String
</span>blDimensioned = True
<span class="KW">End If
</span><span class="RM">'Add the song name to the last element in the array.
</span>strSongNames(UBound(strSongNames)) = strText
<span class="KW">End If
Loop </span>Until strText = ""
<span class="RM">'Display entered song names:
</span><span class="KW">For </span>lngPosition = <span class="KW">LBound</span>(strSongNames) <span class="KW">To </span>UBound(strSongNames)
MsgBox strSongNames(lngPosition)
<span class="KW">Next </span>lngPosition
<span class="RM">'Erase array
</span><span class="KW">Erase </span>strSongName
</pre></blockquote>Look to the comments for an explanation of what is going on.</blockquote><br />
<a href="" name="erasinganarray"></a><br />
<b>Erasing an Array</b><br />
<br />
<blockquote>You should always erase your array when you are done using it, especially if you are using dynamic arrays. It's rather easy:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strFriends(0 to 2) <span class="KW">As String
</span>strFriends(0) = "Bianca"
strFriends(1) = "Jeana"
strFriends(2) = "Erin"
<span class="KW">Erase </span>strFriends</pre><br />
</blockquote></blockquote><br />
<br />
<br />
<br />
<br />
<a href="" name="splitfunction"></a><br />
<h2>The Split Function</h2><br />
<blockquote>Sometimes we run into situations where we want to take the information from within a given string, <br />
separate it into multiple strings, <br />
and then place those strings in an array. For example, say we had this code:<br />
<br />
<br />
<blockquote><pre><span class="KW">Dim </span>cdList <span class="KW">As String</span>
cdList = "Nevermind, OK Computer, I Care Because You Do, Icky Thump"</pre></blockquote>It'd be nice if we could easily take that list and put it in an array, wouldn't it?<br />
This could be done by using Visual Basic's built in string functions, however, writing and<br />
updating that code could prove to be time consuming and tedious. Luckily for us, Visual Basic 6.0 provides a built<br />
in function called <code>split</code> that allows us to easily parse out information from a string and place it<br />
into an array. It has<br />
the following syntax:<br />
<br />
<br />
<br />
<i>ArrayName</i> = <code>split(</code><i>Sting Input</i>[, <i>Delimiter</i>[, <i>Length Limit</i>[, <i>Compare Mode</i>]]]<code>)</code><br />
<br />
<blockquote>- <code>String Input</code> is the string that you want to parse.<br />
<br />
<br />
<br />
- <i>Delimiter</i> is an optional parameter that indicates what type of string separates the elements in the input string. By default this parameter is set to " ". That would mean an input string of "This is a test" would yield an array of 4 elements ("This", "is", "a", "test").<br />
<br />
<br />
<br />
- <i>Length Limit</i> is the maximum size your output array can be. The text remaining to be parsed will be set as the final element in the array.<br />
<br />
<br />
<br />
<br />
- <i>Compare Mode</i>. By default, Visual Basic compares strings character by character using their ASCII values. However, you can use different modes that will cause Visual Basic to compare strings differently. For example, <code>vbTextCompare</code> causes string comparisons to be case insensitive. This parameter effects how the <code>Delimiter</code> parses <code>Input String</code>.</blockquote><br />
The following is an example showing how to parse the list we showed earlier:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>strCDRack() <span class="KW">As String
Dim </span>cdList <span class="KW">As String
Dim </span>i <span class="KW">As Integer
</span>cdList = "Nevermind, OK Computer, I Care Because You Do, Icky Thump"
strCDRack = Split(cdList, ", ")
<span class="KW">For </span>i = <span class="KW">LBound</span>(strCDRack) <span class="KW">To </span>UBound(strCDRack)
MsgBox strCDRack(i)
<span class="KW">Next</span></pre></blockquote></blockquote><br />
<br />
<br />
<br />
<a href="" name="joinfunction"></a><br />
<br />
<h2>The Join Function</h2><br />
<blockquote>The <code>split</code> function allowed us to break strings down into arrays, is there a function that allows us<br />
to take arrays and make them one big long string? Yes, yes there is, and it is called <code>join</code>. <br />
<code>join</code> is a very simple function. It has the following syntax:<br />
<br />
<br />
<br />
<br />
<i>StringName</i> = <code>join(</code><i>Array Input</i>[, <i>Delimiter</i>]<code>)</code><br />
<blockquote>- <code>Array Input</code> is the array that you want to place into a string.<br />
<br />
<br />
<br />
<br />
- <i>Delimiter</i> is an optional parameter that indicates what you want to place between elements are added to the string. By default this parameter is set to "".<br />
<br />
<br />
<br />
</blockquote>Using one of our previous examples, here is some sample code on how one might use join:<br />
<br />
<blockquote><pre><pre><span class="KW">Dim </span>strFriends(0 to 6) <span class="KW">As String</span>, lngPosition as <span class="KW">Long
</span>strFriends(0) = "Bianca"
strFriends(1) = "Jeana"
strFriends(2) = "Sam"
strFriends(3) = "Jenna"
strFriends(4) = "Erin"
strFriends(5) = "Carolyn"
strFriends(6) = "Kate"
<span class="KW">Dim </span>myFriends <span class="KW">As String</span>
<span class="RM">'This will produce the following string: "Bianca, Jeana, Sam, Jenna, Erin, Carolyn, Kate"</span>
myFriends = Join(strFriends, ", ")
MsgBox myFriends</pre></pre></blockquote><br />
</blockquote><br />
<br />
<br />
<br />
<a href="" name="multid"></a><br />
<h2>Multidimensional Arrays</h2><br />
<blockquote>So far all of the examples we've looked at have used one dimensional arrays, but arrays can be multidimensional too.<br />
Multidimensional arrays can be thought of as arrays-of-arrays. For example, to visualize a two dimensional array <br />
we could picture a row of CD racks. To make things easier, we can imagine that each CD rack could be for a different<br />
artist. Like the CDs, the racks would be identifiable by number. Below we'll define a two dimensional array representing<br />
a row of CD racks. The strings inside of the array will represent album titles.<br />
<br />
<br />
<blockquote><pre><pre><span class="RM">' Here we will define an array where the first dimension contains 2 elements and </span>
<span class="RM">' the second dimension contains 4 elements</span>
<span class="KW">ReDim </span>cdRack(0 to 1, 0 to 3) <span class="KW">As String</span>
<span class="RM">' A CD rack for the Beatles</span>
cdRack(0, 0) = "Rubber Soul"
cdRack(0, 1) = "Revolver"
cdRack(0, 2) = "The White Album"
cdRack(0, 3) = "Let It Be"
<span class="RM">' A CD rack for the Rolling Stones</span>
cdRack(1, 0) = "Sticky Fingers"
cdRack(1, 1) = "Beggars Banquet"
cdRack(1, 2) = "Let It Bleed"
cdRack(1, 3) = "Tattoo You"
</pre></pre></blockquote><br />
The first item of the first dimension is an array for Beatles CDs while the second item of the first dimension is an array <br />
for Rolling Stones CDs. You could also add a third dimension if you wanted. Keeping with our CD rack analogy, you could picture <br />
this third dimension as a hallway with several rooms. Inside of each room would be a row of CDs racks. If you wanted your <br />
hallways to have 10 rooms, each with CD racks like the ones in the above example, you could declare your array<br />
as follows:<br />
<br />
<blockquote><pre><span class="KW">Dim </span>cdRackHallway(0 to 9, 0 to 1, 0 to 3) <span class="KW">As String</span>
</pre></blockquote><br />
In Visual Basic 6.0, you can create arrays with up to 60 dimensions. In Visual Basic .NET, the maximum number of dimensions<br />
an array can have is 32. Most arrays you will need to deal with will only be one or two dimensions. <br />
Multidimensional arrays can require a decent amount of memory, so use them with care, <br />
especially large multidimensional arrays.<br />
Lastly, for multidimensional arrays it should be noted that only the last dimension can be resized. That means that given<br />
our example above, once we created the array with two CD racks, we would not be able to add more racks, we would only be able<br />
to change the number of CDs each rack held. Example:<br />
<br />
<br />
<br />
<blockquote><pre><pre><span class="RM">' Here we will define an array where the first dimension contains 2 elements and </span>
<span class="RM">' the second dimension contains 4 elements</span>
<span class="KW">ReDim </span>cdRack(0 to 1, 0 to 3) <span class="KW">As String</span>
<span class="RM">' A CD rack for the Beatles</span>
cdRack(0, 0) = "Rubber Soul"
cdRack(0, 1) = "Revolver"
cdRack(0, 2) = "The White Album"
cdRack(0, 3) = "Let It Be"
<span class="RM">' A CD rack for the Rolling Stones</span>
cdRack(1, 0) = "Sticky Fingers"
cdRack(1, 1) = "Beggars Banquet"
cdRack(1, 2) = "Let It Bleed"
cdRack(1, 3) = "Tattoo You"
<span class="KW">ReDim Preserve </span>cdRack(0 to 1, 0 to 4) <span class="KW">As String</span>
<span class="RM">' Lets add another Beatles CD</span>
cdRack(0, 4) = "Abby Road"
<span class="RM">' Lets add another Rolling Stones CD</span>
cdRack(1, 4) = "Exile on Main St."
</pre></pre></blockquote><br />
I hope you've enjoyed and learned something from this tutorial. This tutorial was originally written for affan back in<br />
1999. After affan.com was resurrected in 2007, I decided to put the tutorial back up since I had received some positive <br />
feed back on it. Three new sections were added by me, "The Split Function", "The Join Function", and "Multidimensional Arrays". <br />
Everything else was written by Adam.</blockquote>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com1tag:blogger.com,1999:blog-6139163092122059787.post-40019075772996355472010-11-24T03:30:00.000-08:002010-12-22T23:53:15.058-08:00Sedikit Tentang Tweeking & Regedit<div class="art-PostContent"><div id="_mcePaste" style="text-align: center;"><img alt="" src="http://aditsubang.files.wordpress.com/2009/11/regedit.gif" /></div><div>Beberapa tips dan registry dibawah ini cuma berlaku buat Windows XP.<br />
<a name='more'></a></div><div id="_mcePaste">Sebelum mengutak-atik Registry, ada baiknya melakukan backup terlebih dahulu.</div><div id="_mcePaste">1. Klik tombol Start > Run.</div><div id="_mcePaste">2. Ketik regedit dan tekan Enter setelah berada didalam jendela Run.</div><div id="_mcePaste">3. Didalam Registry Editor, pilih menu File > Export.</div><div id="_mcePaste">4. Setelah Export Registry File muncul, masukkan nama file ke bagian File Name, misalnya backup-registry dan sebagainya.</div><div id="_mcePaste">5. tekan tombol Save.</div><div><span id="more-454"></span></div><div>Mempercepat Update Registry</div><div id="_mcePaste">Tekan tombol Start > Log Off > Log Off.</div><div>Mengganti Wallpaper</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda pada wallpaper dan masukkan path gambar yang diinginkan pada Value Data.</div><div>Mengganti Nama Recycle Bin</div><div id="_mcePaste">HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}</div><div id="_mcePaste">Klik ganda pada option (Default value) dan beri nama bare sesuai yang diinginkan pada Value Data.</div><div>Memunculkan Rename Pada Recycle Bin</div><div id="_mcePaste">HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/ShellFolder</div><div id="_mcePaste">Klik ganda pada Attributes > Edit Binary Value. Pada Value Data, ganti angka tersebut menjadi 0000 50 01 00 20.</div><div>Menyembunyikan Recycle Bin</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/Desktop/NameSpace</div><div id="_mcePaste">Hapus subkey {645FF040-5081-101B-9F08-00AA002F954E}, kemudian Restart komputer untuk melihat hasilnya.</div><div id="_mcePaste">Untuk memunculkannya kembali, buat kembali kombinasi angka</div><div id="_mcePaste">{645FF040-5081-101B-9F08-00AA002F954E}.</div><div>Menambah Isi Shortcut Menu Pada Recycle Bin</div><div id="_mcePaste">HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/ShellFolder</div><div id="_mcePaste">Klik ganda Attributes dan ganti angka di Value Data dengan angka berikut ini:</div><div id="_mcePaste">0000 50 01 00 20 > Rename</div><div id="_mcePaste">0000 60 01 00 20 > Delete</div><div id="_mcePaste">0000 70 01 00 20 > Rename & Delete</div><div id="_mcePaste">0000 41 01 00 20 > Copy</div><div id="_mcePaste">0000 42 01 00 20 > Cut</div><div id="_mcePaste">0000 43 01 00 20 > Copy & Cut</div><div id="_mcePaste">0000 44 01 00 20 > Paste</div><div id="_mcePaste">0000 45 01 00 20 > Copy & Paste</div><div id="_mcePaste">0000 46 01 00 20 > Cut & Paste</div><div id="_mcePaste">0000 47 01 00 20 > Cut, Copy & Paste</div><div>Menambah Isi Shortcut Menu Pada Recycle Bin Dengan Menu Pilihan</div><div id="_mcePaste">HKEY_CLASSES_ROOT/CLSID/{645FF040-5081-101B-9F08-00AA002F954E}/Shell</div><div id="_mcePaste">Klik menu Edit > New > Key dan beri nama yang diinginkan (Misalnya: Go To Windows Explorer).</div><div id="_mcePaste">Dibawah key yang baru tersebut, tekan lagi menu Edit > New > Key dan buat sebuah key baru bernama Command. Klik ganda option (Default), dan pada bagian Value Data, isi dengan path Windows Explorer ( C:\WINDOWS\Explorer.exe).</div><div>Mengembalikan Folder Documents Yang Hilang Di My Computer</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/DocFolderPaths</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama sesuai dengan username yang digunakan di Windows (contohnya: Chippers) Klik ganda pada value tersebut dan masukkan path tempat dimana Documents anda berada (contohnya D:\Documents)</div><div>Menyingkirkan File Stored Dari My Computer</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/MyComputer/NameSpace/DelegateFolders</div><div id="_mcePaste">Hapus subkey {59031a47-3f72-44a7-89c5-5595fe6b30ee} dengan menekan tombol Del.</div><div>Menyembunyikan My Recent Documents</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Klik menu Edit > New > DWORD Value dan beri nama NoRecentDocsMenu.</div><div id="_mcePaste">Kemudian klik ganda pada DWORD Value tersebut, dan berikan angka 1 untuk mengaktifkannya.</div><div>Menyembunyikan Menu Find</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Klik menu Edit > New > DWORD Value dan beri nama NoFind.</div><div id="_mcePaste">Kemudian klik ganda pada DWORD Value tersebut dan berikan angka 1 untuk mengaktifkannya. Restart komputer.</div><div>Menyembunyikan Help And Support</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buatlah sebuah DWORD Value baru – Menu Edit > New > DWORD Value, dan beri nama NoSMHelp.</div><div id="_mcePaste">Kemudian klik ganda pada NoSMHelp dan isi dengan angka 1 pada Value Data. Restart komputer.</div><div>Menyembunyikan Menu Run</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoRun. Klik ganda dan masukkan angka 1 sebagai Value Data.</div><div>Menyembunyikan Menu Run Dari Start Menu (2)</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Cari value bernama Start_ShowRun, klik ganda dan masukkan angka 0 pada bagian Value Data.</div><div>Menyembunyikan Log Off</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Klik menu Edit > New > Binary Value dan beri nama NoLogOff.</div><div id="_mcePaste">Klik ganda pada NoLogOff dan masukkan angka 01 00 00 00 pada bagian Value Data.</div><div>Menyembunyikan Menu Turn Off Computer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Klik menu Edit > New > DWORD Value dan beri nama NoClose.</div><div id="_mcePaste">Klik ganda NoClose dan beri angka 1 pada Value Data.</div><div id="_mcePaste">Cleartype Pada Logon Screen</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda FontSmoothingType dan masukkan angka 2 pada Value Data.</div><div>Membuat Tampilan Berbeda Pada Jendela Logon</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Software/Microsoft/Windows/CurrentVersion/ThemeManager</div><div id="_mcePaste">Klik ganda ColorName dan masukkan teks Metallic pada Value Data.</div><div id="_mcePaste">Menampilkan Administrator Di Welcome Screen</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis t</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama Administrator.</div><div id="_mcePaste">Klik ganda Administrator dan masukkan angka 1 pada Value Data.</div><div>Login Otomatis</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows</div><div id="_mcePaste">NT/CurrentVersion/Winlogon</div><div id="_mcePaste">Klik ganda AltDefaultUserName dan masukkan username account yang dipilih.</div><div id="_mcePaste">Klik ganda AutoAdminLogon dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama DefaultPassword.</div><div id="_mcePaste">Klik ganda DefaultPassword dan masukkan password account yang dipilih pada Value Data.</div><div>Menyembunyikan Ikon Printer & Faxes dari Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Cari value bernama Start_ShowPrinters dan berikan angka 0 pada Value Data.</div><div id="_mcePaste">Menyembunyikan Control Panel Dari Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Cari value bernama Start_ShowControlPanel dan klik ganda pada bagian tersebut.</div><div id="_mcePaste">Masukkan angka 0 pada Value Data.</div><div>Menyembunyikan Menu My Pictures Dari Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada Start_ShowMyPics dan masukkan angka 0 pada bagian Value Data.</div><div>Memunculkan Menu Administrative Tools</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada StartMenuAdminTools dan berikan angka 1 pada Value Data.</div><div>Memperkecil Ikon Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada Start_LargeMFUIcons dan masukkan angka 1 pada Value Data.</div><div>Menghilangkan Username Pada Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer</div><div id="_mcePaste">Pilih Edit > New > DWORD Value dan beri nama NoUserNameInStartMenu.</div><div id="_mcePaste">Klik ganda NoUserNameInStartMenu dan masukkan angka 1 pada Value Data.</div><div>Mencegah Perubahan Menu Start</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoChangeStartMenu.</div><div id="_mcePaste">Klik ganda NoChangeStartMenu dan masukkan angka 1 pada Value Data.</div><div>Menyembunyikan My Recent Documents</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada Start_ShowRecentDocs dan masukkan angka 0 pada Value Data.</div><div>Mengubah Nama Default Shortcut Penting Di Desktop</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/CLSID</div><div id="_mcePaste">Klik ganda pada default value pada masing-masing subkey di bawah ini:</div><div id="_mcePaste">My Network Places:</div><div id="_mcePaste">{208D2C60-3AEA-1069-A2D7-08002B30309D}</div><div id="_mcePaste">My Computer:</div><div id="_mcePaste">{20D04FE0-3AEA-1069-A2D8-08002B30309D}</div><div id="_mcePaste">My Documents:</div><div id="_mcePaste">{450D8FBA-AD25-11D0-98A8-0800361B1103}</div><div id="_mcePaste">Recycle Bin:</div><div id="_mcePaste">{645FF040-5081-101B-9F08-00AA002F954E}</div><div id="_mcePaste">Default IE Icon:</div><div id="_mcePaste">{871C5380-42A0-1069-A2EA-08002B30309D}</div><div>masukkan nama-nama unik sebagai pengganti nama defaultnya.</div><div id="_mcePaste">Menyembunyikan Ikon Di Desktop</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada HideIcons dan masukkan angka 1 pada Value Data.</div><div>Membersihkan Semua Ikon Pada Desktop</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoDesktop.</div><div id="_mcePaste">Klik ganda pada NoDesktop dan masukkan angka 1 pada Value Data.</div><div>Membuat Desktop Lebih Stabil</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama DesktopProcess.</div><div id="_mcePaste">Klik ganda DesktopProcess dan masukkan angka 1 pada Value Data.</div><div>Menghapus Daftar Program Dalam Menu Run</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/RunMRU</div><div id="_mcePaste">Di jendela sebelah kanan, akan terlihat deretan software-software (ditandai secara alphabet a, b, c, d, dan seterusnya).</div><div id="_mcePaste">Untuk menghapusnya, cukup dengan memilih salah satu (atau semua) nama program yang ada dan tekan tombol Del.</div><div id="_mcePaste">Jika muncul jendela konfirmasi untuk penghapusan data, tekan Yes.</div><div>Membersihkan Recent Documents</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoRecentDocsHistory.</div><div id="_mcePaste">Klik ganda pada NoRecentDocsHistory dan masukkan angka 1 pada bagian Value Data.</div><div>Menghilangkan Info Tip Pada Ikon Folders Di Desktop</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada FolderContentsInfoTip dengan angka 0.</div><div>Mengunci Taskbar</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Klik ganda pada TaskBarSizeMove dan masukkan angka 0 pada Value Data.</div><div>Menghapus Past Items Icons Pada Taskbar</div><div id="_mcePaste">HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify Hapus IconStreams dan PastIconsStream, kemudian buka Task</div><div id="_mcePaste">Manager, pada Tab Processes klik kanan pada explorer.exe dan pilih End Process.</div><div id="_mcePaste">Klik menu File > New Task (Run) dan ketikan kembali explorer dan tekan OK.</div><div>Menyembunyikan System Tray</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer</div><div id="_mcePaste">Jika key Explorer belum ada buatlah sebuah DWORD Value bare dan beri</div><div>nama NoTrayItemsDisplay.</div><div id="_mcePaste">Klik ganda NoTrayItemsDisplay dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Untuk mengembalikan System Tray masukkan angka 0 pada Value Data.</div><div>Menonaktifkan Klik-kanan Pada Desktop</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoViewContextMenu.</div><div id="_mcePaste">Klik ganda pada NoViewContextMenu dan masukkan angka 1 pada Value Data.</div><div>Mengubah Waktu Delay Ketika Membuka Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda pada MenuShowDelay dan ubah angka milidetik yang semula 400 menjadi angka lain. Semakin kecil semakin cepat.</div><div>Mengatur Ukuran Ikon Di Desktop Dan Start Menu</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop/WindowMetrics</div><div id="_mcePaste">Klik ganda pada Shell Icon Size dan ubah angka 32 menjadi angka lainnya, misalnya 10.</div><div id="_mcePaste">Mengganti Warna Windows</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Colors</div><div id="_mcePaste">Klik ganda Window dan masukkan kombinasi warna RGB (gunakan</div><div id="_mcePaste">Adobe PhotoShop untuk menemukan kombinasi warna yang sesuai).</div><div>Mengganti Warna Teks Dalam Windows</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Colors</div><div id="_mcePaste">Klik ganda WindowText dan masukkan kombinasi warna RGB.</div><div>Menghilangkan Tab Screen Saver</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/System</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Policies/System</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoDispScrSavPage.</div><div id="_mcePaste">Klik ganda NoDispScrSavPage dan masukkan angka 1 pada Value Data.</div><div>Mengganti Screen Saver Lewat Registry</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda SCRNSAVE.EXE kemudian masukkan path tempat file Screen Saver yang diinginkan. Contoh: C:\WINDOWS\ScreenSaver.scr</div><div>Menonaktifkan Default Screen Saver</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda ScreenSaveActive dan masukkan angka 0 pada Value Data.</div><div id="_mcePaste">Untuk mengembalikannya masukkan angka 1 pada Value Data.</div><div>Menghilangkan Tanda Anak Panah Pada Ikon Shortcut</div><div id="_mcePaste">HKEY_CLASSES_ROOT/Inkfile</div><div id="_mcePaste">HKEY_CLASSES_ROOT/piffile</div><div id="_mcePaste">Ubah nama IsShortcut menjadi IsShortcuts.</div><div>Mengubah Style Wallpaper</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop Klik ganda pada WallpaperStyle dan masukkan angka sebagai berikut di Value Data:</div><div id="_mcePaste">1 > Center</div><div id="_mcePaste">2 > Stretch</div><div id="_mcePaste">3 > Tile</div><div>Menonaktifkan Peringatan Low Disk Space</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies\Explorer</div><div id="_mcePaste">Buatlah sebuah DWORD Value baru dan beri nama NoLowDiskSpaceChecks.</div><div id="_mcePaste">Klik ganda NoLowDiskSpaceChecks dan masukkan angka 1 pada Value Data.</div><div>Menonaktifkan Menu Properties My Computer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer.</div><div id="_mcePaste">Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer.</div><div id="_mcePaste">Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Jika key Explorer tidak ada, buat yang baru dengan mengklik menu Edit > New > Key dan beri nama Explorer.</div><div>Mengubah Ukuran CoolSwitch</div><div id="_mcePaste">(Coba Tekan Alt+Tab, itulah yang disebut dengan CoolSwitch)</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Control Panel/Desktop</div><div id="_mcePaste">Klik CoolSwitchColumns dan aturlah seberapa panjang CoolSwitch</div><div id="_mcePaste">ini akan ditampilkan dengan memasukkan angka yang diinginkan pada Value Data.</div><div id="_mcePaste">Kemudian klik CoolSwitchRows dan lakukan hal yang serupa.</div><div>Menonaktifkan Fungsi CoolSwitch</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda pada CoolSwitch dan masukkan angka 0.</div><div>Menonaktifkan Animasi Pada Windows XP</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop/WindowMetrics</div><div id="_mcePaste">Klik ganda pada MinAnimate dan masukkan angka 1 untuk menonaktifkan, dan 0 untuk mengaktifkannya kembali.</div><div>Mengubah Tombol Kiri Menjadi Tombol Kanan Pada Mouse</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Mouse</div><div id="_mcePaste">Klik ganda pada SwapMouseButtons dan beri angka 1 pada Value Data.</div><div>Mengubah Gulungan Baris Pada Scroll Mouse</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda WheelScrollLines masukkan angka yang diinginkan (sesuai dengan baris yang hendak digulung) pada Value Data.</div><div>Menyembunyikan System Properties Pada Control Panel</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/don’t load</div><div id="_mcePaste">Buatlah sebuah String Value baru dan beri nama sysdm.cpl.</div><div id="_mcePaste">Klik ganda sysdm.cpl dan masukkan input Yes pada bagian Value Data.</div><div>Menonaktifkan Display Properties</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies</div><div id="_mcePaste">Pada bagian subkey Policies, buat sebuah key baru dengan carat Edit > New > Key dan beri nama System.</div><div id="_mcePaste">Kemudian di subkey System, buatlah sebuah DWORD Value baru dan beri nama NoDispCPL.</div><div id="_mcePaste">Klik ganda NoDispCPL dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Mengatur Kecepatan Repeat Rate Keyboard</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/Keyboard</div><div id="_mcePaste">Klik ganda KeyboardSpeed dan masukkan nilai yang diinginkan. Semakin tinggi angkanya, semakin cepat pula Repeat Rate-nya.</div><div id="_mcePaste">Teks Bergaris Bawah Pada Notepad</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Notepad</div><div id="_mcePaste">Klik ganda lfUnderline dan masukkan angka 1 pada Value Data.</div><div>Mode Word Wrap Pada Notepad</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Notepad</div><div id="_mcePaste">Klik ganda fWrap dan masukkan angka 1 pada Value Data.</div><div>Status Bar Pada Notepad</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Notepad</div><div id="_mcePaste">Klik ganda StatusBar dan masukkan angka 1 pada Value Data.</div><div>DVD Di Windows Media Player</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/MediaPlayer/Player/Settings</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama DVDUI.</div><div id="_mcePaste">Klik ganda DVDUI dan masukkan teks Yes pada Value Data.</div><div>Menambah Identitas Windows Media Player</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Policies/Microsoft</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Policies/Microsoft/Windows</div><div id="_mcePaste">Klik Edit > New > Key dan beri nama WindowsMediaPlayer.</div><div id="_mcePaste">Klik Edit > New > String Value dan beri nama TitleBar.</div><div id="_mcePaste">Klik ganda TitleBar dan masukkan teks yang diinginkan pada Value Data.</div><div>Mengubah Tombol Stop Menjadi Tombol Play Pada Windows Media Player</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/MediaPlayer/Objects/StopButton</div><div id="_mcePaste">Klik ganda onclick dan masukkan teks player.controls.play() pada Value Data.</div><div>Memilih Pemutar CD Audio Default</div><div id="_mcePaste">HKEY_CLASSES_ROOT/AudioCD/Shell/Play/Command</div><div id="_mcePaste">Klik ganda (Default) dan masukkan path software yang anda</div><div id="_mcePaste">inginkan sebagai pemutar CD Audio secara default.</div><div id="_mcePaste">Misalnya: C:\Program Files\Windows Media Player\wmplayer.exe</div><div id="_mcePaste">Mengembalikan Akses Ke CD-ROM</div><div id="_mcePaste">Setelah menguninstall sebuah program pembakar CD, adakalanya CD-ROM tidak bisa lagi diakses, solusinya:</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro</div><div id="_mcePaste">l\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}</div><div id="_mcePaste">Hapus subkey LowerFilters dan UpperFilters dengan menekan tombol Del.</div><div>Memperkecil Ukuran Thumbnail Untuk Windows Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer</div><div id="_mcePaste">Pilih menu Edit > New > Binary Value dan beri nama ThumbnailSize.</div><div id="_mcePaste">Klik ganda ThumbnailSize dan masukkan angka 20 pada Value Data.</div><div>Membuat Shortcut Menu Pribadi Di Windows Explorer</div><div id="_mcePaste">HKEY_CLASSES_ROOT/Drive/Shell</div><div id="_mcePaste">Pilih Edit > New > Key dan beri nama Winamp sebagai contohnya.</div><div id="_mcePaste">Klik ganda option (Default) disisi kanan registry editor dan masukkan teks Winamp.</div><div id="_mcePaste">Klik subkey Winamp dan pilih menu Edit > New > Key dan beri nama Command.</div><div id="_mcePaste">Klik ganda option (Default) dan masukkan path C:\Program</div><div id="_mcePaste">Files\Winamp\Winamp.exe pada Value Data.</div><div id="_mcePaste">Enkripsi Melalui Menu Konteks</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama EncryptionContextMenu.</div><div id="_mcePaste">Klik ganda EncryptionContextMenu dan masukkan angka 1 pada Value Data.</div><div>Mengganti Ikon Pada Drives</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer</div><div id="_mcePaste">Jika belum ada, pilih Edit > New > Key dan beri nama sesuai dengan drive yang diinginkan [contohnya: C untuk drive C:]</div><div id="_mcePaste">Pada value tersebut, buat sebuah Key baru lagi dan beri nama Default Icon.</div><div id="_mcePaste">Klik ganda option (Default) dan masukkan path tempat ikon berada (contohnya: D:\Documents\C Drive Icon.ico)</div><div>Menyembunyikan Drive</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Pilih Edit > New > DWORD Value dan beri nama NoDrives.</div><div id="_mcePaste">Klik ganda NoDrives dan tentukan drive mana yang ingin dihilangkan pada Value Data.</div><div id="_mcePaste">Contoh: jika ingin menghilangkan drive E:, masukkan angka 16 pada Value Data.</div><div id="_mcePaste">Kombinasi angka pada Value Data adalah sebagai berikut:</div><div id="_mcePaste">A: > 1</div><div id="_mcePaste">B: > 2</div><div id="_mcePaste">C: > 4</div><div id="_mcePaste">D: > 8</div><div id="_mcePaste">E: > 16</div><div id="_mcePaste">F: > 32</div><div id="_mcePaste">G: > 64</div><div id="_mcePaste">H: > 128</div><div id="_mcePaste">I: > 256</div><div id="_mcePaste">J: > 512</div><div id="_mcePaste">K: > 1024</div><div id="_mcePaste">L: > 2048</div><div id="_mcePaste">M: > 4096</div><div id="_mcePaste">Semua: > 67108863</div><div>Membuat Tip Of The Day Windows Explorer</div><div id="_mcePaste">Untuk mengaktifkannya buka Windows Explorer kemudian pilih menu View > Explorer Bar > Tip of the Day.</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/Tips</div><div id="_mcePaste">Di jendela sebelah kanan akan terlihat deretan tip-tip yang tersimpan dalam value 0 – 49.</div><div id="_mcePaste">Dua hal yang bisa dilakukan adalah mengganti tip-tip yang dengan klik ganda masing-masing value dengan teks yang diinginkan.</div><div id="_mcePaste">Kedua adalah menambah tip-tip baru dimulai dengan urutan setelah value 49 (misalnya 50 dst.).</div><div id="_mcePaste">Pilih Edit > New > String Value dan beri nama berbentuk angka yang melanjutkan angka terakhir pada tip (misalnya 50 dst.).</div><div id="_mcePaste">Klik ganda pada value yang baru tersebut dan isikan dengan teks yang diinginkan pada Value Data.</div><div>Menyembunyikan Advanced Settings Pada Folder Options Windows Explorer</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer</div><div id="_mcePaste">Dibawah key Explorer akan ditemukan subkey bernama Advanced.</div><div id="_mcePaste">Klik kanan dan pilih Rename. Ubah nama Advanced menjadi Advancedx.</div><div>Kode Curang Bermain Game Hearts</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Applets</div><div id="_mcePaste">Klik menu Edit > New > Key dan beri nama Hearts.</div><div id="_mcePaste">Klik menu Edit > New > String Value dan beri nama ZB dan isikan angka 42 pada Value Data.</div><div id="_mcePaste">Buka game Hearts pada Start Menu > All Programs > Games.</div><div id="_mcePaste">Setelah memasukkan nama pemain, tekan kombinasi tombol berikut:</div><div id="_mcePaste">Ctrl+Shift+Alt+F12 dan semua kartu akan terbuka.</div><div>Membersihkan Sampah Registry</div><div id="_mcePaste">HKEY_CLASSES_ROOT/Application</div><div id="_mcePaste">HKEY_CURRENT_USER/Software</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE</div><div id="_mcePaste">Pilih salah satu subkey yang merupakan nama software yang ingin dihapus, kemudian tekan tombol Del.</div><div>Membersihkan Sampah Uninstall</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall</div><div id="_mcePaste">Hapus subkey yang memiliki nama yang sama dengan software yang telah di-uninstall.</div><div>Menghapus Daftar Program Yang Tidak Diinginkan Dari Add/Remove Programs</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\</div><div id="_mcePaste">CurrentVersion\ Uninstall</div><div id="_mcePaste">Hapus subkey yang berisikan program yang tidak diinginkan dengan menekan tombol Del.</div><div>Menjalankan Program Saat StartUp</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run</div><div id="_mcePaste">Pilih menu Edit > New > String Value dengan nama Winamp misalnya.</div><div id="_mcePaste">Klik ganda pada value tersebut dan masukkan path tempat program tersebut terinstall (C:\Program Files\Winamp\Winamp.exe).</div><div>Menghapus StartUp Items Di MSCONFIG</div><div id="_mcePaste">Klik Start > Run > ketik msconfig, kemudian klik pada tab startup, hilangkan tanda centang pada program yang ingin dihapus dari daftar startup.</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run</div><div id="_mcePaste">HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run</div><div id="_mcePaste">Hapus subkey yang berisikan program-program yang tidak diinginkan dengan menekan tombol Del.</div><div>Mempercepat Proses Shutdown Windows XP</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control</div><div id="_mcePaste">Klik ganda WaitToKillServiceTimeout dan ubah nilainya menjadi lebih rendah dari 2000.</div><div>Mengganti AM Dan PM Menjadi Pagi Dan Sore</div><div id="_mcePaste">HKEY_CURRENT_USER/Control Panel/International</div><div id="_mcePaste">Klik ganda s1159 dan ubah teks AM dengan PAGI.</div><div id="_mcePaste">klik ganda s2359 dan ubah teks PM dengan SORE.</div><div>Menonaktifkan Fungsi AutoRun</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer</div><div id="_mcePaste">Klik ganda NoDriveTypeAutoRun dan masukkan angka 95 pada Value Data.</div><div id="_mcePaste">Mematikan Secara Otomatis Program Not Responding</div><div id="_mcePaste">HKEY_USERS/.DEFAULT/Control Panel/Desktop</div><div id="_mcePaste">Klik ganda AutoEndTasks dan masukkan angka 1 pada Value Data.</div><div>Memunculkan Option My Computer Yang Tersembunyi</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/0</div><div id="_mcePaste">Klik ganda Flags kemudian ganti menjadi Decimal dan masukkan angka 1 pada Value Data.</div><div>Menonaktifkan Fungsi New Window Di Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Policies/Microsoft/Internet Explorer/Restrictions</div><div id="_mcePaste">Buat sebuah DWORD Value baru dan beri nama NoOpeninNewWnd.</div><div id="_mcePaste">Klik ganda NoOpeninNewWnd dan masukkan 1 pada Value Data.</div><div>Mengganti Background Toolbar Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Toolbar</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama BackBitmap.</div><div id="_mcePaste">Klik ganda BackBitmap dan isikan dengan path tempat Gambaro bitmap (.bmp) yang akan menjadi background toolbar berada pada Value Data.</div><div id="_mcePaste">Contohnya: C:\WINDOWS\Wallpaper.bmp</div><div id="_mcePaste">Mengganti Versi Internet Explorer</div><div id="_mcePaste">Untuk mengetahui versi Internet Explorer yang dimiliki: Help > About</div><div>Internet Explorer pada browser Internet Explorer.</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer</div><div id="_mcePaste">Klik ganda Version dan masukkan angka yang diinginkan pada Value Data.</div><div>Mengecek ProductID Internet Explorer</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/Registration</div><div>Lihat ProductID pada key ProductId, pada value tersebut akan tercatat berapa ProductID Internet Explorer yang digunakan.</div><div id="_mcePaste">Mode Full Screen Pada Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main</div><div id="_mcePaste">Klik ganda FullScreen dan masukkan teks Yes pada Value Data.</div><div>Mengganti Title Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama Window Title.</div><div id="_mcePaste">Klik ganda Window Title dan masukkan teks yang diinginkan pada Value Data.</div><div>Membersihkan Daftar URL Pada Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/TypedURLs</div><div id="_mcePaste">Hapus value url1, url2 dan seterusnya dengan menekan tombol Del.</div><div>Menyembunyikan Tombol Go Pada Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama ShowGoButton.</div><div id="_mcePaste">Klik ganda ShowGoButton dan masukkan angka 0 pada Value Data.</div><div>Mengganti Nama Ikon Internet Explorer</div><div id="_mcePaste">HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre</div><div id="_mcePaste">ntVersion\Explorer\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}</div><div id="_mcePaste">Klik ganda pada value (Default) disamping kanan, masukkan teks yang diinginkan pada Value Data.</div><div id="_mcePaste">Menambahkan Domain .Gov Pada Pencarian Website</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/Main/UrlTemplate</div><div id="_mcePaste">Pilih Edit > New > String Value dan beri nama dengan angka yang merupakan kelanjutan dari angka-angka yang sudah ada.</div><div id="_mcePaste">Klik ganda pada value tersebut dan ketik %s.gov pada Value Data.</div><div>Tweaking Memory Pada Windows XP</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Memory Management</div><div id="_mcePaste">Klik ganda pada DisablePagingExecutive dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Apabila diaktifkan,Windows tidak akan melakukan paging file ke dalam hard disk. Sistem operasi dan program-program menjadi lebih responsif. Disarankan untuk komputer yang memiliki memori lebih dari 128MB.</div><div id="_mcePaste">Klik ganda pada LargeSystemCache dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Jika diaktifkan, sistem akan mengalokasikan seluruh memori (kecuali 4 MB untuk disk caching) untuk file caching. Komputer akan melakukan caching kernel XP di dalam memory sehingga Windows XP dapat berjalan lebih cepat.</div><div id="_mcePaste">Unload .dll Untuk Mempercepat Akses Memori</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer</div><div id="_mcePaste">Pilih menu Edit > New > Key dan beri nama AlwaysUnloadDLL.</div><div id="_mcePaste">Pada option Default Value masukkan angka 1.</div><div>Menghapus Pagefile Saat Shut Down</div><div id="_mcePaste">HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Session Manager\Memory Management</div><div id="_mcePaste">Klik ganda ClearPageFileAtShutdown dan masukkan angka 1 pada Value Data.</div><div>Memindahkan Pagefile</div><div id="_mcePaste">HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/SessionManager/Memory Management</div><div id="_mcePaste">Klik ganda PagingFiles kemudian ganti path ke lokasi baru yang</div><div id="_mcePaste">diinginkan. Misalnya: D:\pagefile.sys 1024 1024</div><div>Mengembalikan Fungsi Search Kedalam Tampilan Lama</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/CabinetState</div><div id="_mcePaste">Pilih menu Edit > New > String Value dan beri nama UseSearchAsst.</div><div id="_mcePaste">Klik ganda UseSearchAsst dan masukkan angka 1 pada Value Data.</div><div>Menyembunyikan Device Manager</div><div id="_mcePaste">HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies</div><div id="_mcePaste">Pilih menu Edit > New > Key dan beri nama System.</div><div id="_mcePaste">Di subkey System buatlah sebuah DWORD Value baru dan beri nama NoDevMgrPage.</div><div id="_mcePaste">Klik ganda NoDevMgrPage dan masukkan angka 1 pada Value Data.</div><div id="_mcePaste">Sekian dari saya Resiko Dalam Bermain Dengan registry key di tanggung Pemain…. <img alt=":D" class="wp-smiley" src="http://www.rpl-smakensa.com/wp-includes/images/smilies/icon_biggrin.gif" /> CSC-Crew</div></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-66189059081856127632010-10-24T01:19:00.000-07:002010-10-24T01:19:15.765-07:00Perangkat Komputer<ul><li><a href="http://affan-hack.blogspot.com/2010/10/pc_24.html">PC</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/scanner.html">SCANNER</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/prosesor.html">PROSESOR</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/printer.html">PRINTER</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/motherboard.html">MOTHERBOARD</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/monitor.html">MONITOR</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/memory.html">MEMORY</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/mouse.html">MOUSE</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/keyboard.html">KEYBOARD</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/pc.html">JENIS ** PC</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/hardisk.html">HARDISK</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/cd-dvd.html">CD / DVD</a><br />
<li><a href="http://affan-hack.blogspot.com/2010/10/camera.html">Camera</a><br />
</ul>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com1tag:blogger.com,1999:blog-6139163092122059787.post-90161535960123044492010-10-24T00:57:00.001-07:002010-10-24T00:57:58.585-07:00PC<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9n9rX2dxBM6rA4W8ImnI9j2tqRqA6QiKyYY3uI1qa5_5IJeJ6UBeBwwj9QsY5CYL8udqLrJq6lp58-upx7js7NIccaqCsS4seSC6_G65nhv0gegAmttLydA_o9duMJcu_xAoBY1oQ9eM/s1600/0004296.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9n9rX2dxBM6rA4W8ImnI9j2tqRqA6QiKyYY3uI1qa5_5IJeJ6UBeBwwj9QsY5CYL8udqLrJq6lp58-upx7js7NIccaqCsS4seSC6_G65nhv0gegAmttLydA_o9duMJcu_xAoBY1oQ9eM/s1600/0004296.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgbiuC-kZb_FI5-Uh5_mDhcdYLr8fxUBQbF1WksvXkFOrOja_gBsWGRMVgxNWKcUOD36iB7qax4S5xs2RrdfMgX4loG45e9IYtO1avhJdEMX5VSVuKSZYKxCMNS5nw7R4V7Jg15lPCVYk/s1600/0005583.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgbiuC-kZb_FI5-Uh5_mDhcdYLr8fxUBQbF1WksvXkFOrOja_gBsWGRMVgxNWKcUOD36iB7qax4S5xs2RrdfMgX4loG45e9IYtO1avhJdEMX5VSVuKSZYKxCMNS5nw7R4V7Jg15lPCVYk/s1600/0005583.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzW9dZzntC66SzAY2rsUSV4qmhoU_NFIhJuvk60aPBuDsZtj1zxyssqeWqRiO36sy0FyULjHdjejJ2RzvZWpFzwu78llT38akERKQbrCZ7YTupxQrueTujNXBRii-FkaodtWirqFPiuCw/s1600/COM+IN.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzW9dZzntC66SzAY2rsUSV4qmhoU_NFIhJuvk60aPBuDsZtj1zxyssqeWqRiO36sy0FyULjHdjejJ2RzvZWpFzwu78llT38akERKQbrCZ7YTupxQrueTujNXBRii-FkaodtWirqFPiuCw/s320/COM+IN.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKW76KaCelFIIrGp0H0z4wjP9FUtWJ9-V5gnM_ZL0PLPC_QrByXPz71I4oiRKZU8rhKmxcZoAUcpy2qxfkbWYPViBVAKgA3QAEhyphenhyphenquBXl-G_2sJ4CNMXwwaXadSYFFBo9N_6nombVUF40/s1600/computer_big.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKW76KaCelFIIrGp0H0z4wjP9FUtWJ9-V5gnM_ZL0PLPC_QrByXPz71I4oiRKZU8rhKmxcZoAUcpy2qxfkbWYPViBVAKgA3QAEhyphenhyphenquBXl-G_2sJ4CNMXwwaXadSYFFBo9N_6nombVUF40/s1600/computer_big.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnUA9r_SRk1IhFxiVzTO9qFROOJxzj7petNmG79zcENqEkDmBdjGI55M7g5Ot7PkRH_R6md0IavYMrK9rrPhZxkxcZkv4s0-IQw7mX2s3KvusMsBg19PFcNLKerNhb_TpZrqF2jH3zhP0/s1600/Copy+of+0005583.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnUA9r_SRk1IhFxiVzTO9qFROOJxzj7petNmG79zcENqEkDmBdjGI55M7g5Ot7PkRH_R6md0IavYMrK9rrPhZxkxcZkv4s0-IQw7mX2s3KvusMsBg19PFcNLKerNhb_TpZrqF2jH3zhP0/s1600/Copy+of+0005583.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhf1dJZ1gIOm9ibWWsEtIMRQ8f_myeIZPObAUTNGrr6sAXyKGl_r4mbsF1lGPCF3_pwniXnqZgg7X5HcPtxyDHNmtOTDgR7W27scvj6foFFRlKaLXjGuN_8NjWK3V2cagHLjJjnTnlHMJ0/s1600/dekstop+asly.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="280" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhf1dJZ1gIOm9ibWWsEtIMRQ8f_myeIZPObAUTNGrr6sAXyKGl_r4mbsF1lGPCF3_pwniXnqZgg7X5HcPtxyDHNmtOTDgR7W27scvj6foFFRlKaLXjGuN_8NjWK3V2cagHLjJjnTnlHMJ0/s320/dekstop+asly.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWv6Ea82plCsjOx0rggvX4B3eiLCDemvnEhGT_IzifMPcf-uRMI7ji0RcNGMsD3WnVg9SP6ZiCtiMQiAGPfKkw7RnX0DsANcN6vxUKQb7W_cOSl4Gh7cuIpdR1HjOon3BcVzVYeu5M3UU/s1600/desktop.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWv6Ea82plCsjOx0rggvX4B3eiLCDemvnEhGT_IzifMPcf-uRMI7ji0RcNGMsD3WnVg9SP6ZiCtiMQiAGPfKkw7RnX0DsANcN6vxUKQb7W_cOSl4Gh7cuIpdR1HjOon3BcVzVYeu5M3UU/s1600/desktop.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiji_FvTj_BGPS24zr8lCbpAbVncHItD47-VQj094zgVg7fkvEjB9YeiFg7pI3Wnz6xnG2HJ0sEAVB2yXiG4ibRxWY2rf3QhORoYiUtswtLP2tZXo2gOYmRkSVWjKyHLmVaEuOzH9lnoMM/s1600/dols_optix_jazz_17_systmw.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiji_FvTj_BGPS24zr8lCbpAbVncHItD47-VQj094zgVg7fkvEjB9YeiFg7pI3Wnz6xnG2HJ0sEAVB2yXiG4ibRxWY2rf3QhORoYiUtswtLP2tZXo2gOYmRkSVWjKyHLmVaEuOzH9lnoMM/s1600/dols_optix_jazz_17_systmw.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2LAQwrgY9PIjR8aD6Kor94FdkFJJtCDh3YQitobdjsdbNXVu9Nj3AAv8-pQa9IZd2tVW5s3q0oxdtVXWvcew6t01Kgb3GWRLCJHHKBBLVWX6RXQuwbO4H6luTWDQlsIPfVpHsw1vGzkw/s1600/HP+Pavilion+8770C.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2LAQwrgY9PIjR8aD6Kor94FdkFJJtCDh3YQitobdjsdbNXVu9Nj3AAv8-pQa9IZd2tVW5s3q0oxdtVXWvcew6t01Kgb3GWRLCJHHKBBLVWX6RXQuwbO4H6luTWDQlsIPfVpHsw1vGzkw/s1600/HP+Pavilion+8770C.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg97k4Eu_M3TSLMfw2cytg1UuoGp51ebRdsOogjUl_3etseTaWGhWa4TEP18ieE2TuCtw-YeWEk5AJxVJ9D6VyoLvOlbvwN2cr4r1iiD2EoJpGPwKpnzNQDnlJzPuK6FKfhROD0kOXEvnM/s1600/komputer.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg97k4Eu_M3TSLMfw2cytg1UuoGp51ebRdsOogjUl_3etseTaWGhWa4TEP18ieE2TuCtw-YeWEk5AJxVJ9D6VyoLvOlbvwN2cr4r1iiD2EoJpGPwKpnzNQDnlJzPuK6FKfhROD0kOXEvnM/s1600/komputer.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitw5ui-j1oxvI8U7UIGfLUCbczem7XhcB1IS66R5i1CtCGM0osRjYF1lPzHrWcDQFflwIU8dSmwH0TZewsJWts2KNvRXQQNkayDfducvKlL34YZToUTYrBFYdL_zf_Y7X2FoKdwmACYfs/s1600/komputer.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitw5ui-j1oxvI8U7UIGfLUCbczem7XhcB1IS66R5i1CtCGM0osRjYF1lPzHrWcDQFflwIU8dSmwH0TZewsJWts2KNvRXQQNkayDfducvKlL34YZToUTYrBFYdL_zf_Y7X2FoKdwmACYfs/s1600/komputer.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYVqEVupErRoqyJJO2bpZYw-Ph9tjugku59dpNyU1jFSsSKpfQe6qU7NyKgaTKo5ZJkjNzaVMCBKMeUfs7yimlhJXq-H4BjGYqqXKPml5aEd6bKWqP37K3wMCpgo9rAUpv6fixsn9EIQY/s1600/micronCs.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYVqEVupErRoqyJJO2bpZYw-Ph9tjugku59dpNyU1jFSsSKpfQe6qU7NyKgaTKo5ZJkjNzaVMCBKMeUfs7yimlhJXq-H4BjGYqqXKPml5aEd6bKWqP37K3wMCpgo9rAUpv6fixsn9EIQY/s1600/micronCs.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHimsN2BK86jq-nZFZZGK95sQVI1Op_MgL42_Uhv-OvzU7Hj_6asUCqVfzMyc4LMpMdCBLuZ52rkFXlhlU64PNMxD5ay2PwrvNJ7_GENQBNBhMf_Qcp1J5a0U5DoNmp81QyoPx0LFNIps/s1600/millenniamax.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHimsN2BK86jq-nZFZZGK95sQVI1Op_MgL42_Uhv-OvzU7Hj_6asUCqVfzMyc4LMpMdCBLuZ52rkFXlhlU64PNMxD5ay2PwrvNJ7_GENQBNBhMf_Qcp1J5a0U5DoNmp81QyoPx0LFNIps/s1600/millenniamax.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUs9bfG0X-tN544uqF_WFBGBveXd02HdiNNxEo9ftexjBal7BHip1iRCg_7y9_XEkCPhGK6J7wF02nGUqy405awfvpAX36vug_8VkRWminHgkzdRyQpikv34aOCE3mxSW88Fbs62UUjRc/s1600/PC+1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="219" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiUs9bfG0X-tN544uqF_WFBGBveXd02HdiNNxEo9ftexjBal7BHip1iRCg_7y9_XEkCPhGK6J7wF02nGUqy405awfvpAX36vug_8VkRWminHgkzdRyQpikv34aOCE3mxSW88Fbs62UUjRc/s320/PC+1.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7E5dzLcWoJDgbI0pIfLYLBg9WDmoOQ9PIE9lB1zJNpNZpQVITBzodqKmZWsxcrnOqQ7kmoulTIwXtk5zBGJsazBVGnGg1iwwV5z8oFznxBc3fz9LQBIw4uoSMWdiH2b75g3FQNCYs4WQ/s1600/PC+2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="219" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7E5dzLcWoJDgbI0pIfLYLBg9WDmoOQ9PIE9lB1zJNpNZpQVITBzodqKmZWsxcrnOqQ7kmoulTIwXtk5zBGJsazBVGnGg1iwwV5z8oFznxBc3fz9LQBIw4uoSMWdiH2b75g3FQNCYs4WQ/s320/PC+2.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgo5tmn-BKv9KiUYx1Gc_HhzKQY9gHkjCrmR6ZV_Pr3RigSQo6N2QB3q-TjUoBlbLVZVBZchkp9Wp5J_KLGqyZOHu71rdn3HVsyNLjcQU393EzjVDhU6qkDollpkBhDRYbBXqYe2Sz0u6g/s1600/pc+3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgo5tmn-BKv9KiUYx1Gc_HhzKQY9gHkjCrmR6ZV_Pr3RigSQo6N2QB3q-TjUoBlbLVZVBZchkp9Wp5J_KLGqyZOHu71rdn3HVsyNLjcQU393EzjVDhU6qkDollpkBhDRYbBXqYe2Sz0u6g/s1600/pc+3.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghFMR3is8doNniN0x5nZF8nePQlSQH1BJaPQrp6BRc4a39xtGif8aRrJvGoxRee5eDTYTzSS7b-4g7dDFrUegB8xxlURv9T6X_XEUGTuee-b5-H4Nd5AIpBMaupUoG-MJeL_7IXJSl7V0/s1600/PMUGMul14342.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghFMR3is8doNniN0x5nZF8nePQlSQH1BJaPQrp6BRc4a39xtGif8aRrJvGoxRee5eDTYTzSS7b-4g7dDFrUegB8xxlURv9T6X_XEUGTuee-b5-H4Nd5AIpBMaupUoG-MJeL_7IXJSl7V0/s1600/PMUGMul14342.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUMyYTpC419SMI3JBhj1LpqE-5EzHMKSZXI1xt4kdMzyn_PlEJERWJ1ozPXXNNcH9WkUkNxbMDSUfJPPVq09Epcn4rMv1qqsHL3P9kud_rierSlIL8Wgcm9bwmG_T1bLVH4kTtUZ0oa-Y/s1600/PMUGMul14343.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUMyYTpC419SMI3JBhj1LpqE-5EzHMKSZXI1xt4kdMzyn_PlEJERWJ1ozPXXNNcH9WkUkNxbMDSUfJPPVq09Epcn4rMv1qqsHL3P9kud_rierSlIL8Wgcm9bwmG_T1bLVH4kTtUZ0oa-Y/s1600/PMUGMul14343.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhU3UjqDePq9nfRI9eSCOwxHUEDk6F3SbPxfnBVIep95HKthFkZq1rWAmtv8FYWFcoQPQOiPbIiSVogGmIx7T5TbcLa6iFydPYSZqYZP3qNaQsCANoHT4_fGhU7IC5KRtEM-rtO5Ir3g7w/s1600/tower.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhU3UjqDePq9nfRI9eSCOwxHUEDk6F3SbPxfnBVIep95HKthFkZq1rWAmtv8FYWFcoQPQOiPbIiSVogGmIx7T5TbcLa6iFydPYSZqYZP3qNaQsCANoHT4_fGhU7IC5KRtEM-rtO5Ir3g7w/s1600/tower.jpg" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-79840618582934241622010-10-24T00:57:00.000-07:002010-10-24T00:57:20.997-07:00SCANNER<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_4ZZdggH8FQF1VPtz58c2fyTNPxxCLVpDHEuiek_rnWFdOkji75WR0Z66nAIb3himV7V1wAU1iTzMFcOHKxQaxlZd6CBp_bBTM2_wqwMdgb14alN_pRvEXNx0BlXKVd8NuKCjmknoi6k/s1600/g3450.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_4ZZdggH8FQF1VPtz58c2fyTNPxxCLVpDHEuiek_rnWFdOkji75WR0Z66nAIb3himV7V1wAU1iTzMFcOHKxQaxlZd6CBp_bBTM2_wqwMdgb14alN_pRvEXNx0BlXKVd8NuKCjmknoi6k/s1600/g3450.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimwqIxq3EPZ-g0k9ZdZB8As3hUTX2hhd3BWl_yRu9cd7lU4hOzI7AokTvqHBoFLnp0We3-MBYw0eY-nk7KBWlMOhpRHGo0aJoUoTx2Y8685l0w3yP5W5gi84ATT0znTXuTBZLoquHSKG4/s1600/g6400.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimwqIxq3EPZ-g0k9ZdZB8As3hUTX2hhd3BWl_yRu9cd7lU4hOzI7AokTvqHBoFLnp0We3-MBYw0eY-nk7KBWlMOhpRHGo0aJoUoTx2Y8685l0w3yP5W5gi84ATT0znTXuTBZLoquHSKG4/s1600/g6400.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRtgjCvyVNafZdv-i04-MXIJqanp8CwnfT6S6D5h7mhrdyhIfXqdAHQZjF8pse4CMogw3UA8K_8bsdpHOLAPmyKEOytDMUthjEOOfOrJ96uby7LDZtU0iP_FwcXccQbpnWl-ZzFpiD_xk/s1600/gia101.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRtgjCvyVNafZdv-i04-MXIJqanp8CwnfT6S6D5h7mhrdyhIfXqdAHQZjF8pse4CMogw3UA8K_8bsdpHOLAPmyKEOytDMUthjEOOfOrJ96uby7LDZtU0iP_FwcXccQbpnWl-ZzFpiD_xk/s1600/gia101.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinK427Ya5T7yJdBNe06UoG05doYKNsMhQ7KE0JYTcGToNCQloL7CemybdHSawGAOJ46tvZlojZlP7jFwPOSER9x_wVerzJx9yXJt-T2FPXCB_LpaamNWtbfK_Dkp0uwmHzocfd8iR_n7c/s1600/gpl2100a.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinK427Ya5T7yJdBNe06UoG05doYKNsMhQ7KE0JYTcGToNCQloL7CemybdHSawGAOJ46tvZlojZlP7jFwPOSER9x_wVerzJx9yXJt-T2FPXCB_LpaamNWtbfK_Dkp0uwmHzocfd8iR_n7c/s1600/gpl2100a.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTLJaHbVxXwcrW3UkgFgxGx85D3nHMNdag2UlIfv46UBiQpxaAQuH9IYjCBhfquolpHJ9JgTBtQtW_BMPY2UJfJz11Sv-KmxPj7P2m8yZVgD5R9nF_zo6T-ujjWf8-KRDBX0pHgKx1iJA/s1600/icon_002000C0001817.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTLJaHbVxXwcrW3UkgFgxGx85D3nHMNdag2UlIfv46UBiQpxaAQuH9IYjCBhfquolpHJ9JgTBtQtW_BMPY2UJfJz11Sv-KmxPj7P2m8yZVgD5R9nF_zo6T-ujjWf8-KRDBX0pHgKx1iJA/s1600/icon_002000C0001817.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimrNnytwus_gs4Coigu6vxy_KjVqKuzcMcSP0B0MBftnW0-5xvE3hQxkyNc01IIg68ROwaBNMp3faVty51Q9LKomdok2iA95T99cx3aidSt8RDtrDxZLqJXmEgNLwGvd8hP3DXTNB_d2w/s1600/icon_002000M0001471.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEimrNnytwus_gs4Coigu6vxy_KjVqKuzcMcSP0B0MBftnW0-5xvE3hQxkyNc01IIg68ROwaBNMp3faVty51Q9LKomdok2iA95T99cx3aidSt8RDtrDxZLqJXmEgNLwGvd8hP3DXTNB_d2w/s1600/icon_002000M0001471.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwX1h3mTMZFX0SPEyu85MWYNfNF_jGKX0Y61CAzPJKuY2G3kfP7XhZ3oTlUxxKf_8prVhwVgn4_m9-ZZI4eYrxBH_IxfmHfeonixmwQn17-5hVpVcoja8nbIe7zscgtVnnbQglRTvLT24/s1600/icon_002000T0004813.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwX1h3mTMZFX0SPEyu85MWYNfNF_jGKX0Y61CAzPJKuY2G3kfP7XhZ3oTlUxxKf_8prVhwVgn4_m9-ZZI4eYrxBH_IxfmHfeonixmwQn17-5hVpVcoja8nbIe7zscgtVnnbQglRTvLT24/s1600/icon_002000T0004813.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLRQslsFHKbFd6WrtyHRsy6mkXJ-uWYOE2Dps0meJHOd7IUcwXJkkzNyvt6fJL-UHcocAcEWyXEqBA_ZNtsQdGigxOhtAQZUxNXdvvLnHf78KYWpanNJlF_Rck4nCISWf8WDAr8_wf3uI/s1600/PCANCan12412.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLRQslsFHKbFd6WrtyHRsy6mkXJ-uWYOE2Dps0meJHOd7IUcwXJkkzNyvt6fJL-UHcocAcEWyXEqBA_ZNtsQdGigxOhtAQZUxNXdvvLnHf78KYWpanNJlF_Rck4nCISWf8WDAr8_wf3uI/s1600/PCANCan12412.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjd7j4EWb1gvYuEagee-ghlr_zd-HNeiVT9t8Pk9QcUqTMTqYTDWRdXYVCzLwfTOD7TP0sse6YEN0XO-bMvFTaV6ARWEU2jpLUf7EeVpLdB6uSot9S3tUNTNj7zFC7ILhGzEvSOr6UY_EI/s1600/PCANCan12413.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjd7j4EWb1gvYuEagee-ghlr_zd-HNeiVT9t8Pk9QcUqTMTqYTDWRdXYVCzLwfTOD7TP0sse6YEN0XO-bMvFTaV6ARWEU2jpLUf7EeVpLdB6uSot9S3tUNTNj7zFC7ILhGzEvSOr6UY_EI/s1600/PCANCan12413.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_cPq1KrIGSkR2RSGw7NazvHpXwRge7MujiO2b1FvDebHOLzrKsWXDH-sQMxPVKKAo6xo8bsj7GNHeAeXXSy5fFJNA5YEiFBLDG7hw2iyfhSXzSGT6UqN-YkiNzyhcZ3OqmxiIhjwhGh4/s1600/PCANCan12571.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_cPq1KrIGSkR2RSGw7NazvHpXwRge7MujiO2b1FvDebHOLzrKsWXDH-sQMxPVKKAo6xo8bsj7GNHeAeXXSy5fFJNA5YEiFBLDG7hw2iyfhSXzSGT6UqN-YkiNzyhcZ3OqmxiIhjwhGh4/s1600/PCANCan12571.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-F4c2CwlXmmgdC0bJ2qivfWVMy3brzBtC1vhYbbgssLzOlecn5AxpanjSiTPJbxW8tVO_qH-5VrjVG6Sk2V73s40g0Xzdul8CaWhjK-Bduq4jaKI4I8-Bg66lCEmeIEeGApmWsZBDn3A/s1600/scan.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-F4c2CwlXmmgdC0bJ2qivfWVMy3brzBtC1vhYbbgssLzOlecn5AxpanjSiTPJbxW8tVO_qH-5VrjVG6Sk2V73s40g0Xzdul8CaWhjK-Bduq4jaKI4I8-Bg66lCEmeIEeGApmWsZBDn3A/s1600/scan.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCHEeVkhRGRjsb1HvkQQVcb3dnVAnqWIi72_Uxqb8UM9_4hf_lv1AwB0j8TpharoFD2uBePB0ePobr98U5NoK5ZciaJPNoqJ3tjpj1Mzlpb9JSLpH_g3-Ivgt0X80fh6IXBK4bEOQ96_E/s1600/scaner.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCHEeVkhRGRjsb1HvkQQVcb3dnVAnqWIi72_Uxqb8UM9_4hf_lv1AwB0j8TpharoFD2uBePB0ePobr98U5NoK5ZciaJPNoqJ3tjpj1Mzlpb9JSLpH_g3-Ivgt0X80fh6IXBK4bEOQ96_E/s1600/scaner.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9C55s9EGyj_ewTtpC0phrKKcb9Lb_JxK4zYETa7wybF7tjv-WU-vsaNfWDm_hUElkFjoJz_PJgM-FYmciwWHkdnRzLvoQC8ujNjigtRP0KL6uflMUv7ez3u2-7w5qu4deJ06cW0jTqmo/s1600/scanner_big.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9C55s9EGyj_ewTtpC0phrKKcb9Lb_JxK4zYETa7wybF7tjv-WU-vsaNfWDm_hUElkFjoJz_PJgM-FYmciwWHkdnRzLvoQC8ujNjigtRP0KL6uflMUv7ez3u2-7w5qu4deJ06cW0jTqmo/s1600/scanner_big.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvUOoxlOyH2mGExK7vCRA8lJZ-0eq2NhfoGawK20IQ_KZf3ucAqRsgQFgwNYkgSdrZOniwtpRY0jSg6hDXYV9vlNC8DXPuc6HJbTqAZ4lYcT-imthvA1r-ctIX6Md0xxbtGe3gYRp749g/s1600/scanner_small.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvUOoxlOyH2mGExK7vCRA8lJZ-0eq2NhfoGawK20IQ_KZf3ucAqRsgQFgwNYkgSdrZOniwtpRY0jSg6hDXYV9vlNC8DXPuc6HJbTqAZ4lYcT-imthvA1r-ctIX6Md0xxbtGe3gYRp749g/s1600/scanner_small.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgL2xmGPogIWzoVj3st8Yx4hx_EHcohrtTKhVyV_zE4gfQea2lEOYdh0Kt7hAH53W5VUvF0Ox254j1D0vaf12gk9eOH6podtZMnjeCRq6aSZnORFiVfiBORvvS2BbHH4ldQaO6R1lEy0_E/s1600/umax+astra+3400.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgL2xmGPogIWzoVj3st8Yx4hx_EHcohrtTKhVyV_zE4gfQea2lEOYdh0Kt7hAH53W5VUvF0Ox254j1D0vaf12gk9eOH6podtZMnjeCRq6aSZnORFiVfiBORvvS2BbHH4ldQaO6R1lEy0_E/s1600/umax+astra+3400.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4M54LhnT4a-70EgoFXhi-zQwwidIpzZS2o1dfe0viczXVKruMjK6CFA6JL0exLnbxf8woLJFAZmg3qlnHDJEjQFp4AYg6kMtdIrgMQeDOdFUvjRFhlTdZ4STZv4fC-obRL7BJFUc6gaQ/s1600/UMAX+SCANNER+ASTRANET+IA101.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4M54LhnT4a-70EgoFXhi-zQwwidIpzZS2o1dfe0viczXVKruMjK6CFA6JL0exLnbxf8woLJFAZmg3qlnHDJEjQFp4AYg6kMtdIrgMQeDOdFUvjRFhlTdZ4STZv4fC-obRL7BJFUc6gaQ/s1600/UMAX+SCANNER+ASTRANET+IA101.jpg" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-1145025461035303282010-10-24T00:56:00.000-07:002010-10-24T00:56:22.516-07:00PROSESOR<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpQGtoJ47Zk1ccnwvHoVjZaCQE-nIsbnRk-JE1ENUROtrNYwCl4uCP67PS_lG5ghTzH8crYhsQgFKzbEXYjA9Yxesg895wzo-BVnkcHhJxeNJjgQ8h62At3rHoNe-ohYHHK7hwoXlrhqI/s1600/amd.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="118" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpQGtoJ47Zk1ccnwvHoVjZaCQE-nIsbnRk-JE1ENUROtrNYwCl4uCP67PS_lG5ghTzH8crYhsQgFKzbEXYjA9Yxesg895wzo-BVnkcHhJxeNJjgQ8h62At3rHoNe-ohYHHK7hwoXlrhqI/s320/amd.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDYh8HRR4UknYKH-COwO4B1fUAxP5aswKzL-OE5lsW3xYzNzuwFQo92A0yDHfG6hEyzHa_e383YwnZoxhzXIWqteknJvR7AnUQAWMtT8zi81K1_Wtj3Y1zeRbLJTM3FNFICmBUa0kPpEc/s1600/crinx.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="157" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDYh8HRR4UknYKH-COwO4B1fUAxP5aswKzL-OE5lsW3xYzNzuwFQo92A0yDHfG6hEyzHa_e383YwnZoxhzXIWqteknJvR7AnUQAWMtT8zi81K1_Wtj3Y1zeRbLJTM3FNFICmBUa0kPpEc/s320/crinx.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOQlwkb0ulSpGdjz_QNEiD9ZTJA4Jrv1HbKzwOUvD3tjpDYuX3r4qBQ2RFeY06YglS5aVqn2LPWKczGHEj4jx1FfPdcKWSv0fsI2CkRMnBnwq_ao33oXfUV3xjWwVlu0vM2sGJwp-sVvA/s1600/MMX+Pentium+II.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="154" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOQlwkb0ulSpGdjz_QNEiD9ZTJA4Jrv1HbKzwOUvD3tjpDYuX3r4qBQ2RFeY06YglS5aVqn2LPWKczGHEj4jx1FfPdcKWSv0fsI2CkRMnBnwq_ao33oXfUV3xjWwVlu0vM2sGJwp-sVvA/s320/MMX+Pentium+II.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh48eNEJ_1fRu5G0eqeq9NIllU0O76Sh3LbwSum29KhxFMboGvv0EJihiA4zf8sMWERRtAFy6E5U_7ur3kVaZXwK8hJg0bEGNwkyyxaK9T_HmFj6P-0ub_LdmpENy9sf6HHOpVxCKhP8_4/s1600/procecor.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh48eNEJ_1fRu5G0eqeq9NIllU0O76Sh3LbwSum29KhxFMboGvv0EJihiA4zf8sMWERRtAFy6E5U_7ur3kVaZXwK8hJg0bEGNwkyyxaK9T_HmFj6P-0ub_LdmpENy9sf6HHOpVxCKhP8_4/s1600/procecor.jpg" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-80087098717804055232010-10-24T00:52:00.000-07:002010-10-24T00:52:25.461-07:00PRINTER<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-1NxBIuiO2fQeMMbA96dJ76ZBB7Rbj3vGG6d72Q8-gj3b3OkuBJtafxXqGLeXIJV4tQXFNZsOyyZfVYA-DOFbIkrLHGYQZJNByDtvk9M7OZ59CQCv5PUYCn8xcTFrsbCR4USKevcMx7k/s1600/ali.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-1NxBIuiO2fQeMMbA96dJ76ZBB7Rbj3vGG6d72Q8-gj3b3OkuBJtafxXqGLeXIJV4tQXFNZsOyyZfVYA-DOFbIkrLHGYQZJNByDtvk9M7OZ59CQCv5PUYCn8xcTFrsbCR4USKevcMx7k/s1600/ali.JPG" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKBnfxjIwPM2t9gf2dDCUWemPdAvdE7wWImmRH5LWLFaWOazHOEhd1CxNLUpFnHI4X8_6IXVibfwXJ4S8YWjydT8ep96TYuedzPqAxF6ezevOuyzb7IYqW79Tnz5ColqIyhu70oo4jimw/s1600/Canon+BJC2100SP.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKBnfxjIwPM2t9gf2dDCUWemPdAvdE7wWImmRH5LWLFaWOazHOEhd1CxNLUpFnHI4X8_6IXVibfwXJ4S8YWjydT8ep96TYuedzPqAxF6ezevOuyzb7IYqW79Tnz5ColqIyhu70oo4jimw/s1600/Canon+BJC2100SP.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEht6ZcuzbHlmQDn7HW2mMrJkiogYxwzg12lEXcRcj97XhaYHbA8wfIdcYZGEjHt2W_Y7cG2xT8Rvfw2t0fkNAL9eWSxG2KHjjOuDXMNbowolS5C8hKHkuceON1UBjq-Xq_qfYi3m4uohPE/s1600/Canon+S100SP+gede.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEht6ZcuzbHlmQDn7HW2mMrJkiogYxwzg12lEXcRcj97XhaYHbA8wfIdcYZGEjHt2W_Y7cG2xT8Rvfw2t0fkNAL9eWSxG2KHjjOuDXMNbowolS5C8hKHkuceON1UBjq-Xq_qfYi3m4uohPE/s1600/Canon+S100SP+gede.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZP_4N6oRUGk6r8ehg1-fPkbQiJ_EupFL7IJzarsEDGfqWVlJo7bia7ae1wiyT06Ski_5FmHkaHRsf67uOf85yJ5ZsRfakEZ9vveYIP6dW2Zin8UyM9UDeY1p1opqTRWVuU0zcEXjIS64/s1600/PCANBJC210.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZP_4N6oRUGk6r8ehg1-fPkbQiJ_EupFL7IJzarsEDGfqWVlJo7bia7ae1wiyT06Ski_5FmHkaHRsf67uOf85yJ5ZsRfakEZ9vveYIP6dW2Zin8UyM9UDeY1p1opqTRWVuU0zcEXjIS64/s1600/PCANBJC210.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj36Acep1JT6HUsjuxWhT5SWgV7tW6eWUrb_lVbmx_M0UZ21zUN7UxLccJX-d1BQrPi0dzro_lKsLDAav5pNeE1GI_DfA6VxUyTL8TDh8PSjPzLzjnishZb0lYH57d7Ku-gFY8CdQq48J4/s1600/PCANBJC210.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj36Acep1JT6HUsjuxWhT5SWgV7tW6eWUrb_lVbmx_M0UZ21zUN7UxLccJX-d1BQrPi0dzro_lKsLDAav5pNeE1GI_DfA6VxUyTL8TDh8PSjPzLzjnishZb0lYH57d7Ku-gFY8CdQq48J4/s1600/PCANBJC210.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7BWb2A_7OAxdZNRQxA8NvlZoGJIoB7JQuHFgRAcl4Ug1mRuTlhiBJzMXJ27rCb0-F_LHXkP8R4U8KbTdmy4_sHkMJyHsBGa-QDF9aZ47VFbkJwVZFkYq4DuLJy4XOp6b2mT-uNMgdJ1M/s1600/PCANi2515587.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7BWb2A_7OAxdZNRQxA8NvlZoGJIoB7JQuHFgRAcl4Ug1mRuTlhiBJzMXJ27rCb0-F_LHXkP8R4U8KbTdmy4_sHkMJyHsBGa-QDF9aZ47VFbkJwVZFkYq4DuLJy4XOp6b2mT-uNMgdJ1M/s1600/PCANi2515587.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnD9RhpHuJI296EBcRwwbTyaMPjHWM1B3lNtKs0B1xBqodmCptoQO8ylU3wy7ug3Pn0hwVQmQmB8hyB0NMJmY9scH_vONZdWTfElY5efKDym6KuOnZZPGYpCC71f7zuv2qK1vWS2lJc_I/s1600/plotter.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnD9RhpHuJI296EBcRwwbTyaMPjHWM1B3lNtKs0B1xBqodmCptoQO8ylU3wy7ug3Pn0hwVQmQmB8hyB0NMJmY9scH_vONZdWTfElY5efKDym6KuOnZZPGYpCC71f7zuv2qK1vWS2lJc_I/s1600/plotter.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinlxh98MECyoQsBTCIjYwr2mXYyylJ9C0S4RaNE9WckjQ5hp7O6Yd5QQXwzEOmm0x7fWHm2CGlBlceD976WlryYMiUW8FFUmw217dKjzVCq_mdFbMwvhDyNnKwxIEsh3L3pLqxTRhdY00/s1600/printer.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinlxh98MECyoQsBTCIjYwr2mXYyylJ9C0S4RaNE9WckjQ5hp7O6Yd5QQXwzEOmm0x7fWHm2CGlBlceD976WlryYMiUW8FFUmw217dKjzVCq_mdFbMwvhDyNnKwxIEsh3L3pLqxTRhdY00/s1600/printer.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBGPXHtkHPu7wvySusXt1LGyH698GI5ONwnsW1f6HDp3apCFS5_0XP819LZ-zV3XB2bG696g1ghFM4GEcU9boi2FM2yunhyphenhyphenCA_gsZvrA5vXAMxo7_7VGBR85aSwzP_Uj74odtUEvRkPl0/s1600/untitled.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBGPXHtkHPu7wvySusXt1LGyH698GI5ONwnsW1f6HDp3apCFS5_0XP819LZ-zV3XB2bG696g1ghFM4GEcU9boi2FM2yunhyphenhyphenCA_gsZvrA5vXAMxo7_7VGBR85aSwzP_Uj74odtUEvRkPl0/s1600/untitled.JPG" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-46308010256864688922010-10-24T00:43:00.000-07:002010-10-24T00:43:05.106-07:00MOTHERBOARD<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBOZIPNDyOG9JB1vqmgYnlapqSgah2bGExM-p-pbWgshyphenhyphenav9EzqXc_g4IWp3O4M53VXtWbplhBLA6Ogfztt3fMYktKnqgJseob2OcArOfuY22D1J1vtVe9aoFdDnf6tGwdLptvwHLZvp0/s1600/motherboard.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBOZIPNDyOG9JB1vqmgYnlapqSgah2bGExM-p-pbWgshyphenhyphenav9EzqXc_g4IWp3O4M53VXtWbplhBLA6Ogfztt3fMYktKnqgJseob2OcArOfuY22D1J1vtVe9aoFdDnf6tGwdLptvwHLZvp0/s1600/motherboard.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifbhrIMUfun6TUMw9Cva6lvdwc44rtDiUth-G1JTqCPU-KLRZLklCzTbC2cGM2gc550XHG0GkjxN0SfaDhrrwulClCMBpo8ymamrW0eKtLwd9wh6dntHQdWhK1RdgOZW8cYv6pr6q3BJQ/s1600/ABITBE7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifbhrIMUfun6TUMw9Cva6lvdwc44rtDiUth-G1JTqCPU-KLRZLklCzTbC2cGM2gc550XHG0GkjxN0SfaDhrrwulClCMBpo8ymamrW0eKtLwd9wh6dntHQdWhK1RdgOZW8cYv6pr6q3BJQ/s1600/ABITBE7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiicm5YRHP-UKUwh4aQcjTYOC1obva4p4Sn-gQtVV2VhHcbJuDVEnEpSP3FEhobv5Lu7hl7r4wCg1abw5DxRKAXHUAFQCehXllA0rGjAjNCWJyHbeF99Y5c5SRl-RYdIamsuUoDDySDycw/s1600/ABITBE7-G.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiicm5YRHP-UKUwh4aQcjTYOC1obva4p4Sn-gQtVV2VhHcbJuDVEnEpSP3FEhobv5Lu7hl7r4wCg1abw5DxRKAXHUAFQCehXllA0rGjAjNCWJyHbeF99Y5c5SRl-RYdIamsuUoDDySDycw/s1600/ABITBE7-G.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgi6FmA3lxKeKNnmzMlVH-FKTeLaSY_tvqQWFPMrWGjqR2MW1K-67MCp2G2xoRS3inTzFnlFmRrSYbQutFxlMPyMil2Y20L12eWrM6ByALeFCrHm7Qrn5iKlftQyXIkglNtlG6YQxqQhFk/s1600/ABITBE7-S.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgi6FmA3lxKeKNnmzMlVH-FKTeLaSY_tvqQWFPMrWGjqR2MW1K-67MCp2G2xoRS3inTzFnlFmRrSYbQutFxlMPyMil2Y20L12eWrM6ByALeFCrHm7Qrn5iKlftQyXIkglNtlG6YQxqQhFk/s1600/ABITBE7-S.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSeduaK6gFXPbbi4kp7azlf-NbzmHDfezjGxx2ERcbwRUoEILxksmjGLvpA9fkCh6ud6DOGhhbYg1tsotil5CDtQrfLwSk_zks5yfBAuW11QIFQjdTUnfWTW8-Vtv8fkJoU5r7wqyuqHs/s1600/ABITBG7-E.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSeduaK6gFXPbbi4kp7azlf-NbzmHDfezjGxx2ERcbwRUoEILxksmjGLvpA9fkCh6ud6DOGhhbYg1tsotil5CDtQrfLwSk_zks5yfBAuW11QIFQjdTUnfWTW8-Vtv8fkJoU5r7wqyuqHs/s1600/ABITBG7-E.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglG4jndkQu4-kFVT7xwYjcOnQnq1K_Ln0d5VRUBLkt7VXfK0S5UwKN7KToY9UBgLeuNwPpSiUxscllJ4ThlT0YAUec5xjMPm0p9HzgzkMQD_1UzNkW6pDvgkXGVhb7-gEqoL5Kj86uwVo/s1600/ABITBH7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglG4jndkQu4-kFVT7xwYjcOnQnq1K_Ln0d5VRUBLkt7VXfK0S5UwKN7KToY9UBgLeuNwPpSiUxscllJ4ThlT0YAUec5xjMPm0p9HzgzkMQD_1UzNkW6pDvgkXGVhb7-gEqoL5Kj86uwVo/s1600/ABITBH7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7cW0xp93lEvLb7RpvGVdCCywskUzHvkrNWHI5ZFuFKR1i18IwALHYs4y7J45R4lZqJN-pe0V2B7sf2fnRyLG3-6CckN08M7N-KFFiUnA9oZsOAjBybRI5tW0YXLI8Tt_f_RrMNvStLgo/s1600/ABITIC7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7cW0xp93lEvLb7RpvGVdCCywskUzHvkrNWHI5ZFuFKR1i18IwALHYs4y7J45R4lZqJN-pe0V2B7sf2fnRyLG3-6CckN08M7N-KFFiUnA9oZsOAjBybRI5tW0YXLI8Tt_f_RrMNvStLgo/s1600/ABITIC7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6kQdXD4SCkbmIaZHa5XHPvcV96O1ll2xhv-q3M31Pui6CrbYjJDL1uVkuzJQ_wKkUWEjVoUp_zhuC1My751nOHQuvNx4Q8q2fa7pPX7Rvw1ri9v3AJXdYHptf38GdhUlEKhMqvneEYw8/s1600/ABITIC7-G.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6kQdXD4SCkbmIaZHa5XHPvcV96O1ll2xhv-q3M31Pui6CrbYjJDL1uVkuzJQ_wKkUWEjVoUp_zhuC1My751nOHQuvNx4Q8q2fa7pPX7Rvw1ri9v3AJXdYHptf38GdhUlEKhMqvneEYw8/s1600/ABITIC7-G.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxfJv3kWpuFPJz02Ok7W-xS5ejFqmYA-ZMQGYcUnd09nJ6fkvwTNsLoKdlKZzvztT6yRdCVLViC5g8wxNVvng0fArT22F83EHuXhSQ4jnquwteNkOQAV1pwzGoOQ516GK6sYLXxSLzPHI/s1600/ABITIC7-MAX-3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxfJv3kWpuFPJz02Ok7W-xS5ejFqmYA-ZMQGYcUnd09nJ6fkvwTNsLoKdlKZzvztT6yRdCVLViC5g8wxNVvng0fArT22F83EHuXhSQ4jnquwteNkOQAV1pwzGoOQ516GK6sYLXxSLzPHI/s1600/ABITIC7-MAX-3.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGSrsf-D3LHxbRiJGk6ctSsh4ZsvRSYKZ1dSajuvhj0mlXF35rZ4SNznG_ZQyGPXT0ffsB_s9UQ5Jr6EAH9uaTJSD22D7iR6NKs_GvpuHyXrkOcFki8fl2vq2BumqIivS7P2Y28oH0D6c/s1600/ABITIS7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGSrsf-D3LHxbRiJGk6ctSsh4ZsvRSYKZ1dSajuvhj0mlXF35rZ4SNznG_ZQyGPXT0ffsB_s9UQ5Jr6EAH9uaTJSD22D7iR6NKs_GvpuHyXrkOcFki8fl2vq2BumqIivS7P2Y28oH0D6c/s1600/ABITIS7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPvvWk6uK04Kq7yqK5HZctq6YdD0UBLG6AUjsSaHPWBqGLRb5W0pgC8FMc2ZAgLsSAJW4z5RyoAWpzcFuWXCeFzg7gLUmZA_7d8_tUoJE0AlbwKHqwWCHZqW6XnRW4NZFord8x-Ok3s64/s1600/ABITIS7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPvvWk6uK04Kq7yqK5HZctq6YdD0UBLG6AUjsSaHPWBqGLRb5W0pgC8FMc2ZAgLsSAJW4z5RyoAWpzcFuWXCeFzg7gLUmZA_7d8_tUoJE0AlbwKHqwWCHZqW6XnRW4NZFord8x-Ok3s64/s1600/ABITIS7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWUOOdLSJoGkO7qJnJ3kLC0AbRXZ_j0nU-V1z0eWoLigxYO9WDm2tp2exhB5hcCvpcuPPsNw8JzTAvGYeFYRrFT02pbitQcVroaFjybhvcnndZwzQAnEocyVBi-qhGEdGHn0iZF1_M-Yo/s1600/ABITIS7-E.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWUOOdLSJoGkO7qJnJ3kLC0AbRXZ_j0nU-V1z0eWoLigxYO9WDm2tp2exhB5hcCvpcuPPsNw8JzTAvGYeFYRrFT02pbitQcVroaFjybhvcnndZwzQAnEocyVBi-qhGEdGHn0iZF1_M-Yo/s1600/ABITIS7-E.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipTrB8y615CrmUWzQ7D78fRZ2-O7I6z6APMJIeKcuCJ6pyhTHNbuVYrEdflLR5LPsAZOtBhdEIl0SiEe3bzx4LASsd1FWnoUemJ0S9NIawmpnrGWFRGQh3_1gFE5nx4VFHsM9zY5QZpQ4/s1600/ABITKD7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipTrB8y615CrmUWzQ7D78fRZ2-O7I6z6APMJIeKcuCJ6pyhTHNbuVYrEdflLR5LPsAZOtBhdEIl0SiEe3bzx4LASsd1FWnoUemJ0S9NIawmpnrGWFRGQh3_1gFE5nx4VFHsM9zY5QZpQ4/s1600/ABITKD7.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfhXgBq3iGD0Wgj610oX7DUX0iXgBWV_de7P4Qs9ZfMKenmg45cGdkXy65JWSm4jskDlACaLtLx-H7OvyO9vksI3cHqaVDW58Af9ATSJkij0W6Hp6gWVK8K9hyphenhyphenvaNAQwTGrxmQkjS97as/s1600/ABITKD7-E.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfhXgBq3iGD0Wgj610oX7DUX0iXgBWV_de7P4Qs9ZfMKenmg45cGdkXy65JWSm4jskDlACaLtLx-H7OvyO9vksI3cHqaVDW58Af9ATSJkij0W6Hp6gWVK8K9hyphenhyphenvaNAQwTGrxmQkjS97as/s1600/ABITKD7-E.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaPgxCFWwz5yYLFoOz8uYXwXPjy9cRUIcGWsxhqEQLo4um7eK2OeMzvgHTVZB4lDyt5OFuCNj6LWg_RqDYhCUOI4FFrkKVQ_dskpPDXOYCOZqIOL4QDjOByem5RFpX44r18E04IlRzjHc/s1600/ABITSR7-8X.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaPgxCFWwz5yYLFoOz8uYXwXPjy9cRUIcGWsxhqEQLo4um7eK2OeMzvgHTVZB4lDyt5OFuCNj6LWg_RqDYhCUOI4FFrkKVQ_dskpPDXOYCOZqIOL4QDjOByem5RFpX44r18E04IlRzjHc/s1600/ABITSR7-8X.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_Ul-DodGKTaZGtbM0A4tB3wMHmi_XNN1iqXys7zFGk3WhXMaCaDl0nSHVTYbHC2EEC7eUN3oPC4_R70k8ctBNGEdqSPgioCKALp4Tyq6LpCy1-AdzzcmCoBuCLCuOURMzqdjdfVh5cf0/s1600/ABITV17.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_Ul-DodGKTaZGtbM0A4tB3wMHmi_XNN1iqXys7zFGk3WhXMaCaDl0nSHVTYbHC2EEC7eUN3oPC4_R70k8ctBNGEdqSPgioCKALp4Tyq6LpCy1-AdzzcmCoBuCLCuOURMzqdjdfVh5cf0/s1600/ABITV17.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNGn0cTSuZgN7MxAMhRTsMXoQJp-3IDjvEGbXpIj4MeFdLl4c8wqcjEWKLHh1o4S94_CB3WnsPwvKWfydDERghhMYZnvmRrxFJQCXVbITw55oNcWTmTkg8GPg5eTDBRs_UXJvf-w_r9aA/s1600/ASROCK-G-Pro.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNGn0cTSuZgN7MxAMhRTsMXoQJp-3IDjvEGbXpIj4MeFdLl4c8wqcjEWKLHh1o4S94_CB3WnsPwvKWfydDERghhMYZnvmRrxFJQCXVbITw55oNcWTmTkg8GPg5eTDBRs_UXJvf-w_r9aA/s1600/ASROCK-G-Pro.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1dAPLirNp6hzOZ-cvaVDoMh6HnJy_FzantBXjz6mGw5omFzGrvz9l47x2h6oGsugsWGvNOi44WXuzaDUizT9gApR9pQfL-poUZJVya7X5jPOEAeTTTjVA87DxWoqQUoiA7sMxpD0KlPI/s1600/ASROCK-M266A.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1dAPLirNp6hzOZ-cvaVDoMh6HnJy_FzantBXjz6mGw5omFzGrvz9l47x2h6oGsugsWGvNOi44WXuzaDUizT9gApR9pQfL-poUZJVya7X5jPOEAeTTTjVA87DxWoqQUoiA7sMxpD0KlPI/s1600/ASROCK-M266A.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhidSyQ7O0-v5LRoQKfQ4EpwUqz-9W3dv4768LxqanHENdoLMhyphenhyphenQ3cAeKeHmLUtNANTbzA65okC1yNinPUl7v_l1Lgz8bEygVNpzezeUfOhOooy_XdtKB6bWCpphCkyKi90U2-CsQRssAg/s1600/dx2g-plus.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhidSyQ7O0-v5LRoQKfQ4EpwUqz-9W3dv4768LxqanHENdoLMhyphenhyphenQ3cAeKeHmLUtNANTbzA65okC1yNinPUl7v_l1Lgz8bEygVNpzezeUfOhOooy_XdtKB6bWCpphCkyKi90U2-CsQRssAg/s1600/dx2g-plus.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfnCqMb67ZKK_cP7UO5THAE7CHpRMyuZH4aaDy1PEEBJyMmzP95yZbUiRgo8CKP25x5Jsr_QfxeLPklR8WxPSJEfU24t2ebacrxxyOo5o6c1NEDRwE1taOs6hVVlPkTNhpsFn8pDVjLrw/s1600/dx6g-plus.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfnCqMb67ZKK_cP7UO5THAE7CHpRMyuZH4aaDy1PEEBJyMmzP95yZbUiRgo8CKP25x5Jsr_QfxeLPklR8WxPSJEfU24t2ebacrxxyOo5o6c1NEDRwE1taOs6hVVlPkTNhpsFn8pDVjLrw/s1600/dx6g-plus.gif" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg79Q1sSoD4icC-UUEObnlSKlYJkcqjBXwxHmSzGQMn1g2KMX1rgviRutClKCO22TkIrt06XpgImn-osiwFwksm4v7DyfUDWZz67xl0DogWVoo3ux9c2daVe3C3O_BRmZJsjfzO2KQ4CII/s1600/ibu+papan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg79Q1sSoD4icC-UUEObnlSKlYJkcqjBXwxHmSzGQMn1g2KMX1rgviRutClKCO22TkIrt06XpgImn-osiwFwksm4v7DyfUDWZz67xl0DogWVoo3ux9c2daVe3C3O_BRmZJsjfzO2KQ4CII/s1600/ibu+papan.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5CEzQhYk7Ar4cibZ0B1TGGBYz-0hmRuw-lSl-BFxTZ03muQM-uICfaqpLnt2VU5lbSFw1kA6tp4fYLtMh7yNJt-bYyqICQIdm7xW_RVWjKvXRqqtmT2A4oluu3MudgSpQWONJ-CzM4Aw/s1600/mainboard.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5CEzQhYk7Ar4cibZ0B1TGGBYz-0hmRuw-lSl-BFxTZ03muQM-uICfaqpLnt2VU5lbSFw1kA6tp4fYLtMh7yNJt-bYyqICQIdm7xW_RVWjKvXRqqtmT2A4oluu3MudgSpQWONJ-CzM4Aw/s1600/mainboard.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEMprCpaluO3QyJwNqHcO9e7i_xeScu9b4LlKHhVp9m8XPhX580n9UnWPqPhKy2ssYM7pyp8eyPqtAAIKy0Z7SbEOBpeOWYY-_ceNPM0yUNLfsDiCrsuUYIfdkW_6sEsHPVoxoWMXj1GU/s1600/MBMAIN.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEMprCpaluO3QyJwNqHcO9e7i_xeScu9b4LlKHhVp9m8XPhX580n9UnWPqPhKy2ssYM7pyp8eyPqtAAIKy0Z7SbEOBpeOWYY-_ceNPM0yUNLfsDiCrsuUYIfdkW_6sEsHPVoxoWMXj1GU/s1600/MBMAIN.JPG" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiT4W9-uEHEkxSfVx5o2m7myyCsb_9Gn7fq16LEUu2fPOuZKAZizgoorI7PJiE8_kKF8d-oscUA7Rx-9wSsvPkrHG_bhPbbcYZJDGbhMhFtgUJMboYIHy1waNiJjAxjUBTVZ7DLHSerHME/s1600/oemlogo.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiT4W9-uEHEkxSfVx5o2m7myyCsb_9Gn7fq16LEUu2fPOuZKAZizgoorI7PJiE8_kKF8d-oscUA7Rx-9wSsvPkrHG_bhPbbcYZJDGbhMhFtgUJMboYIHy1waNiJjAxjUBTVZ7DLHSerHME/s1600/oemlogo.JPG" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-38710186352926049872010-10-24T00:38:00.004-07:002010-10-24T00:38:20.374-07:00MONITOR<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-9dUO4TFg1tEiFbDFnlQfX_keJEtl6Ut0svGLe3gyin_9UCHEJwqGNB8LyusAdnkV1wUNCpWAJMA2W3NBPhugsHnEKxJfYZwPdcKj-FqrjDMzSoNq80X3ZyBrOV-xBeU8tZvKhypj4CY/s1600/as.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-9dUO4TFg1tEiFbDFnlQfX_keJEtl6Ut0svGLe3gyin_9UCHEJwqGNB8LyusAdnkV1wUNCpWAJMA2W3NBPhugsHnEKxJfYZwPdcKj-FqrjDMzSoNq80X3ZyBrOV-xBeU8tZvKhypj4CY/s320/as.jpg" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp5GRoZdTP8cbaHGVpJZY0cQ64lhjJN_UwydxIRYRPkq5MZE7uSUhaKIbirt8gNZCjom0CkSByUNgn0f0qoet4IR3Tpx7NY6VjtygR4Y9KpHyjesSgHuYbOmiMEdzcgewtNV815yHy3e8/s1600/Copy+of+fp591_color.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp5GRoZdTP8cbaHGVpJZY0cQ64lhjJN_UwydxIRYRPkq5MZE7uSUhaKIbirt8gNZCjom0CkSByUNgn0f0qoet4IR3Tpx7NY6VjtygR4Y9KpHyjesSgHuYbOmiMEdzcgewtNV815yHy3e8/s1600/Copy+of+fp591_color.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp7YPGY-12J1DlC8yzhA-49-57Pm6rZndxkgUdwc0S0p1eG4ePZ9WADLGgnhosN1U5yMNGWJWzDMoOfOu8shafS-4aq1JQbtcUX2pttvRpqkwC98uYr2H2x01CiB8J8fcL_g6Pwh9Q5ks/s1600/Copy+of+gm-15h.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp7YPGY-12J1DlC8yzhA-49-57Pm6rZndxkgUdwc0S0p1eG4ePZ9WADLGgnhosN1U5yMNGWJWzDMoOfOu8shafS-4aq1JQbtcUX2pttvRpqkwC98uYr2H2x01CiB8J8fcL_g6Pwh9Q5ks/s1600/Copy+of+gm-15h.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5m8RRzE16ANyIYE38HQYf4HQO7GwxtC0FSkIqDOjQehbtYx3zxiReqFVVDgPRfkSfxxUxZV_uK4sEuWrMgU2JWWeQj0qVluE1hJnRODJ8cZDp06_1T2C0bcy0aYEqUDBqO1YalaUnNBk/s1600/Copy+of+icon_002000G0001625.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5m8RRzE16ANyIYE38HQYf4HQO7GwxtC0FSkIqDOjQehbtYx3zxiReqFVVDgPRfkSfxxUxZV_uK4sEuWrMgU2JWWeQj0qVluE1hJnRODJ8cZDp06_1T2C0bcy0aYEqUDBqO1YalaUnNBk/s1600/Copy+of+icon_002000G0001625.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeX6_QoVKRKzqBR7I-Wf08XRHGTAZKNum_-FBcex7Lt-fKi7HjKYDT3B0ejjm2yC72Q8RRU1vAM9OH0bfjFJYl8rDGNsHAPBeS3x3ksoh7K_52TeIac4-hNj1Y0_3Yg0IynpQkNmBHmMI/s1600/Copy+of+icon_002000S0002654.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeX6_QoVKRKzqBR7I-Wf08XRHGTAZKNum_-FBcex7Lt-fKi7HjKYDT3B0ejjm2yC72Q8RRU1vAM9OH0bfjFJYl8rDGNsHAPBeS3x3ksoh7K_52TeIac4-hNj1Y0_3Yg0IynpQkNmBHmMI/s1600/Copy+of+icon_002000S0002654.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHq2PRac2NSpynPslznwU4UrIYE5kBgAt-wA0MkQ8zmtcAlO_r4doAev96HNct9zuz1DTbLUcJiRsqekyMxNurbHqPTZxKZ1gkQjbp1oCRiEeg9c4hRgJUGs-mTx93eSR1p21IDT7oMhw/s1600/Copy+of+icon_002000S0002819.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHq2PRac2NSpynPslznwU4UrIYE5kBgAt-wA0MkQ8zmtcAlO_r4doAev96HNct9zuz1DTbLUcJiRsqekyMxNurbHqPTZxKZ1gkQjbp1oCRiEeg9c4hRgJUGs-mTx93eSR1p21IDT7oMhw/s1600/Copy+of+icon_002000S0002819.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-uYtxoBOKGAY7uIg17ZI5nYwH_gXns7SOHy4tnCtI-O-LrjIgcNltwMfWvBZ7lBN9cSqiygCzwLMirDLUAQrpFHwUmXv4yneK4GaeZu-HgobeyRMSo2ifw3aGEfbFJ9XhQdYIl0OaFfs/s1600/Copy+of+icon_00200010003795.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-uYtxoBOKGAY7uIg17ZI5nYwH_gXns7SOHy4tnCtI-O-LrjIgcNltwMfWvBZ7lBN9cSqiygCzwLMirDLUAQrpFHwUmXv4yneK4GaeZu-HgobeyRMSo2ifw3aGEfbFJ9XhQdYIl0OaFfs/s1600/Copy+of+icon_00200010003795.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZwkE-_J3bOHa2bVdAPiwolfhAR2YuKRltnqK05qDPn7D_7WaVv0n8N6wvLIjAAywa7z93d1Fjg3Jtd0wz-3_t-D21ii-wJIsGx81dPg_M_IOMfL3-EhCS6Nqzhq8cr2dkX_9xA7Khet4/s1600/Copy+of+jeffunrein-thumb-986247864.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhZwkE-_J3bOHa2bVdAPiwolfhAR2YuKRltnqK05qDPn7D_7WaVv0n8N6wvLIjAAywa7z93d1Fjg3Jtd0wz-3_t-D21ii-wJIsGx81dPg_M_IOMfL3-EhCS6Nqzhq8cr2dkX_9xA7Khet4/s1600/Copy+of+jeffunrein-thumb-986247864.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjw5HhZEwBuW4fxyb5sHYGU4A19tMUxE3d3BffynEH_7Vcg7huB49tNU_1ldH3LqeJbEUGgtgRn1PiBYk0tMEsOonUZ5iF-tOqcdo3eoaVWxfik0DdT5w5gGFKnBMpbOe37IrLggqGVNIg/s1600/Copy+of+PAOC7Vl8311.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjw5HhZEwBuW4fxyb5sHYGU4A19tMUxE3d3BffynEH_7Vcg7huB49tNU_1ldH3LqeJbEUGgtgRn1PiBYk0tMEsOonUZ5iF-tOqcdo3eoaVWxfik0DdT5w5gGFKnBMpbOe37IrLggqGVNIg/s1600/Copy+of+PAOC7Vl8311.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdTYCBKPFv6hhWxhKcZtPiSIP3XWvysBc6BBg78tNxBklhNjUg2j9GXKK_rv8_0i7unybpSVvb-BMij0FIQDhVs3QcFG-yQ2GXfjqUD7C7tLxYdlQ3XeZD-KVyuveu02FSE5BEp-g1PI4/s1600/Copy+of+PEXTC7213170.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdTYCBKPFv6hhWxhKcZtPiSIP3XWvysBc6BBg78tNxBklhNjUg2j9GXKK_rv8_0i7unybpSVvb-BMij0FIQDhVs3QcFG-yQ2GXfjqUD7C7tLxYdlQ3XeZD-KVyuveu02FSE5BEp-g1PI4/s1600/Copy+of+PEXTC7213170.jpg" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKgKybzrX3X8bvLhJ8FXIkddUvrE2KXBGtcUfQSESpmEPZiQRANDBa3ZmwBeSCsz06w28B7Wjb8t2bNAhk-5aPtHtRQaiV3HTo07fOivl3uEu9CL4BB13-SZqjA9ejF7eXwCdMBdJvr9A/s1600/infocus+1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKgKybzrX3X8bvLhJ8FXIkddUvrE2KXBGtcUfQSESpmEPZiQRANDBa3ZmwBeSCsz06w28B7Wjb8t2bNAhk-5aPtHtRQaiV3HTo07fOivl3uEu9CL4BB13-SZqjA9ejF7eXwCdMBdJvr9A/s1600/infocus+1.jpg" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-39651912787390695912010-10-24T00:38:00.003-07:002010-10-24T00:38:11.091-07:00MEMORY<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNH2h2-z9CHdD06i8H-tucEG-Z7TdzKofPLi8XKUcRWS00O6NLA5VSdoCk7gBed0XscO7e1QhO1VmlWIblLv-zxlYM5byvb57w05c5_A1sT6IildljCNy4G0vDz3cUFTlmp1PqxnzonoM/s1600/Memory.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNH2h2-z9CHdD06i8H-tucEG-Z7TdzKofPLi8XKUcRWS00O6NLA5VSdoCk7gBed0XscO7e1QhO1VmlWIblLv-zxlYM5byvb57w05c5_A1sT6IildljCNy4G0vDz3cUFTlmp1PqxnzonoM/s320/Memory.jpg" width="232" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-8797689987742937052010-10-24T00:38:00.002-07:002010-10-24T00:38:09.081-07:00MOUSE<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGh63YDao815ea2q_YPZGZGgPDXF6w0XSCjGj5b3DL-kM_1Vgbg6-lVUjqfPXNlax58_hmHrfM9Bnm9BYPaLxuoQAaqBHOnwAVsEMavTmD96h8kiQCdAZvFBwy8gUFupWtKrAGUUGwEbs/s1600/Mouse.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="288" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGh63YDao815ea2q_YPZGZGgPDXF6w0XSCjGj5b3DL-kM_1Vgbg6-lVUjqfPXNlax58_hmHrfM9Bnm9BYPaLxuoQAaqBHOnwAVsEMavTmD96h8kiQCdAZvFBwy8gUFupWtKrAGUUGwEbs/s320/Mouse.jpg" width="320" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-76063779379460138392010-10-24T00:38:00.001-07:002010-10-24T00:38:04.038-07:00KEYBOARD<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhi6l6Dh6FW_QOWsCVjKjchUYalVggafgk5hF9c1qY1C3K_2njjgr6t69CBK3JEA7LUWucWrnKL7RuQjEZPqql0pYspB7Klz0wA3Mi0YPdjIKnFhJytlz_JPYjU6f-s62QvOhoGUgR3jtA/s1600/Keyboard.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhi6l6Dh6FW_QOWsCVjKjchUYalVggafgk5hF9c1qY1C3K_2njjgr6t69CBK3JEA7LUWucWrnKL7RuQjEZPqql0pYspB7Klz0wA3Mi0YPdjIKnFhJytlz_JPYjU6f-s62QvOhoGUgR3jtA/s1600/Keyboard.jpg" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-90490352072112888172010-10-24T00:38:00.000-07:002010-10-24T00:40:12.020-07:00JENIS ** PC<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhc305Z6mT_B9H7ra-Mddg99RlcYXeMfOAD01JQDStSeS9kzPhyphenhyphenwzSMFYnQo9-yi_cJ3ud53WPSbw2k_-FrC9RpoIeSoYh-VbsY673F1nLEzRu4R0UQZTQTzf_GlZ1lJuE_miQOvlufAOE/s1600/PC.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhc305Z6mT_B9H7ra-Mddg99RlcYXeMfOAD01JQDStSeS9kzPhyphenhyphenwzSMFYnQo9-yi_cJ3ud53WPSbw2k_-FrC9RpoIeSoYh-VbsY673F1nLEzRu4R0UQZTQTzf_GlZ1lJuE_miQOvlufAOE/s320/PC.jpg" width="182" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-64154225243219782702010-10-24T00:37:00.001-07:002010-10-24T00:37:58.676-07:00HARDISK<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlfGbduuudOhs6g4dCgMA_1j-UASY5w6NhQEmn0P3rzuqIfPUETPPE52JOK3X1wY-oBZGrHxPY7wRzSZEjWNzbnClA7bcnl78ad14VrmZtoqCjOlULrOcskcx4kkHpZfn4i3RMH6xzhPM/s1600/HARDDISK.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="164" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlfGbduuudOhs6g4dCgMA_1j-UASY5w6NhQEmn0P3rzuqIfPUETPPE52JOK3X1wY-oBZGrHxPY7wRzSZEjWNzbnClA7bcnl78ad14VrmZtoqCjOlULrOcskcx4kkHpZfn4i3RMH6xzhPM/s320/HARDDISK.jpg" width="320" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-1426657168795115812010-10-24T00:37:00.000-07:002010-10-24T00:37:55.826-07:00CD / DVD<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi30wVWeZ1xpA9SIv0U6p8LVta8t-arfFwUSDnOvXxwKGKwTFeVZzX8nPFwiAQvvnRoLkIPMRp7Mmn-5uxsRSAyWS6RkzdILWYSuZhYl_shJ7h73pOcNR9UZLrb3GQie1Kv1bp-qKTEqtY/s1600/CDDVD.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi30wVWeZ1xpA9SIv0U6p8LVta8t-arfFwUSDnOvXxwKGKwTFeVZzX8nPFwiAQvvnRoLkIPMRp7Mmn-5uxsRSAyWS6RkzdILWYSuZhYl_shJ7h73pOcNR9UZLrb3GQie1Kv1bp-qKTEqtY/s320/CDDVD.jpg" width="251" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-84582363314021742112010-10-23T23:23:00.001-07:002010-10-24T00:39:27.871-07:00Camera<div class="separator" style="clear: both; text-align: left;"><br />
</div><div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7RU_Zp6Au4Km8risracBwvwAlCZLPhF9bbWCwqfUpy8FjG7QDY3CsDYqmg2gxZaT35bGwEgBBSbPzSKwS7wUaPZLVPsyy54hBr6Li6udrbcthS4Op-UIVwf54RMobWbVRjKl6M0E7og4/s1600/camera.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="175" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7RU_Zp6Au4Km8risracBwvwAlCZLPhF9bbWCwqfUpy8FjG7QDY3CsDYqmg2gxZaT35bGwEgBBSbPzSKwS7wUaPZLVPsyy54hBr6Li6udrbcthS4Op-UIVwf54RMobWbVRjKl6M0E7og4/s320/camera.jpg" width="320" /> </a></div><div style="text-align: left;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi30wVWeZ1xpA9SIv0U6p8LVta8t-arfFwUSDnOvXxwKGKwTFeVZzX8nPFwiAQvvnRoLkIPMRp7Mmn-5uxsRSAyWS6RkzdILWYSuZhYl_shJ7h73pOcNR9UZLrb3GQie1Kv1bp-qKTEqtY/s1600/CDDVD.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div style="text-align: left;"><br />
</div><div class="separator" style="clear: both; text-align: left;"></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-19649573345407318822010-10-23T19:04:00.000-07:002010-10-23T19:04:29.351-07:00E R D<meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><meta content="Word.Document" name="ProgId"></meta><meta content="Microsoft Word 12" name="Generator"></meta><meta content="Microsoft Word 12" name="Originator"></meta><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link> <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><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1107304683 0 0 159 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman","serif";
mso-fareast-font-family:"Times New Roman";
mso-bidi-language:AR-SA;}
p
{mso-style-unhide:no;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman","serif";
mso-fareast-font-family:"Times New Roman";
mso-bidi-language:AR-SA;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
font-size:10.0pt;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 89.85pt 72.0pt 89.85pt;
mso-header-margin:36.0pt;
mso-footer-margin:36.0pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:843668046;
mso-list-template-ids:1708683582;}
@list l0:level1
{mso-level-number-format:alpha-lower;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l1
{mso-list-id:1583492747;
mso-list-template-ids:2125504934;}
@list l1:level1
{mso-level-start-at:2;
mso-level-number-format:alpha-lower;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l2
{mso-list-id:1766654352;
mso-list-template-ids:1107179618;}
@list l2:level1
{mso-level-start-at:3;
mso-level-number-format:alpha-lower;
mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style> </m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac><br />
<b>ERD</b> merupakan suatu model untuk menjelaskan hubungan antar data dalam <b>basis data </b>berdasarkan objek-objek dasar data yang mempunyai hubungan antar relasi<b>.</b><br />
ERD<b> </b>untuk memodelkan struktur data dan hubungan antar data, untuk menggambarkannya digunakan beberapa notasi dan simbol. Pada dasarnya ada tiga simbol yang digunakan, yaitu :<br />
<ol start="1" type="a"><li class="MsoNormal"><b>Entiti</b></li>
</ol>Entiti merupakan objek yang mewakili sesuatu yang nyata dan dapat dibedakan dari sesuatu yang lain (Fathansyah, 1999: 30). Simbol dari entiti<i> </i>ini biasanya digambarkan dengan persegi panjang.<br />
<ol start="2" type="a"><li class="MsoNormal"><b>Atribut</b></li>
</ol>Setiap entitas pasti mempunyai elemen yang disebut <i>atribut</i> yang berfungsi untuk mendeskripsikan karakteristik dari entitas tersebut. Isi dari atribut mempunyai sesuatu yang dapat mengidentifikasikan isi elemen satu dengan yang lain. Gambar <i>atribut </i>diwakili oleh simbol elips.<br />
<ol start="3" type="a"><li class="MsoNormal"><b>Hubungan</b> / <b>Relasi</b></li>
</ol>Hubungan antara sejumlah entitas yang berasal dari himpunan entitas yang berbeda. Relasi dapat digambarkan sebagai berikut :<br />
Relasi yang terjadi diantara dua himpunan entitas (misalnya A dan B) dalam satu <b>basis data </b>yaitu (Abdul Kadir, 2002: 48) :<br />
1). <b><i><u>Satu ke satu (One to one)</u></i></b><br />
Hubungan relasi satu ke satu yaitu setiap entitas pada himpunan entitas A berhubungan paling banyak dengan satu entitas pada himpunan entitas B.<br />
2). <i><b><u>Satu ke banyak (One to many)</u></b></i><br />
Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B, tetapi setiap entitas pada entitas B dapat berhubungan dengan satu entitas pada himpunan entitas A.<br />
3). <i><b><u>Banyak ke banyak (Many to many)</u></b></i><br />
Setiap entitas pada himpunan entitas A dapat berhubungan dengan banyak entitas pada himpunan entitas B.<br />
<div class="MsoNormal"><br />
</div><br />
<br />
*ERD PERPUSTAKAAN :<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhCJvNv9zHmrWE7dEGxs9M1FuLIhuoRf7j7mzl0meVcOReWCyNvvlwYLLhslJe3OQ7llgd2EhVaddDU_3Betlr0FpJs3CP8g03N3QY7XaCC8A-UGJvf38ygvCiTOPVq6-aw4t8camT7pI/s1600/erd3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhCJvNv9zHmrWE7dEGxs9M1FuLIhuoRf7j7mzl0meVcOReWCyNvvlwYLLhslJe3OQ7llgd2EhVaddDU_3Betlr0FpJs3CP8g03N3QY7XaCC8A-UGJvf38ygvCiTOPVq6-aw4t8camT7pI/s320/erd3.jpg" width="320" /></a></div>*ERD RUMAH SAKIT :<br />
<div style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1RajQ1EfZRShcK6bb2K_3ZFqksl3hWUIAGPJrIQse-PzvrcdHHKzmhwmpVs4gQgJIsj6E2F_T3C0wI1aTrPU5Nak6TWL16bSuHpdXbXvvfxiSq6dkjJR-JT03aaGceegbLWqNHTO-Tsw/s1600/Entity+relationship+diagram.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg1RajQ1EfZRShcK6bb2K_3ZFqksl3hWUIAGPJrIQse-PzvrcdHHKzmhwmpVs4gQgJIsj6E2F_T3C0wI1aTrPU5Nak6TWL16bSuHpdXbXvvfxiSq6dkjJR-JT03aaGceegbLWqNHTO-Tsw/s320/Entity+relationship+diagram.JPG" width="295" /></a></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com1tag:blogger.com,1999:blog-6139163092122059787.post-82314572600881591052010-10-23T18:38:00.000-07:002010-10-23T18:44:00.681-07:00Perkenalan dan Latihan menggunakan Event dan Property<meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><meta content="Word.Document" name="ProgId"></meta><meta content="Microsoft Word 12" name="Generator"></meta><meta content="Microsoft Word 12" name="Originator"></meta><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_editdata.mso" rel="Edit-Time-Data"></link><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link><link href="file:///C:%5CDOCUME%7E1%5CAffan%5CLOCALS%7E1%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link> <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><style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-pitch:variable;
mso-font-signature:-1610611985 1107304683 0 0 159 0;}
@font-face
{font-family:"TimesNewRoman\,Bold";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-alt:"Times New Roman";
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:auto;
mso-font-signature:3 0 0 0 1 0;}
@font-face
{font-family:"TimesNewRoman\,BoldItalic";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-alt:"Times New Roman";
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:auto;
mso-font-signature:3 0 0 0 1 0;}
@font-face
{font-family:TimesNewRoman;
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-alt:"Times New Roman";
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:auto;
mso-font-signature:3 0 0 0 1 0;}
@font-face
{font-family:"TimesNewRoman\,Italic";
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-alt:"Times New Roman";
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:auto;
mso-font-signature:3 0 0 0 1 0;}
@font-face
{font-family:CourierNewPSMT;
panose-1:0 0 0 0 0 0 0 0 0 0;
mso-font-alt:"Times New Roman";
mso-font-charset:0;
mso-generic-font-family:roman;
mso-font-format:other;
mso-font-pitch:auto;
mso-font-signature:3 0 0 0 1 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-unhide:no;
mso-style-qformat:yes;
mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman","serif";
mso-fareast-font-family:"Times New Roman";
mso-bidi-language:AR-SA;}
.MsoChpDefault
{mso-style-type:export-only;
mso-default-props:yes;
font-size:10.0pt;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;
mso-header-margin:36.0pt;
mso-footer-margin:36.0pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style></m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac><br />
<div class="MsoNormal" style="line-height: 150%; text-align: justify;"><b><span style="font-family: "TimesNewRoman,Bold","serif";">1.1 Membuat </span></b><b><i><span style="font-family: "TimesNewRoman,BoldItalic","serif";">User Interface </span></i></b><b><span style="font-family: "TimesNewRoman,Bold","serif";">(UI)<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Aktifkan VB 6 melalui tombol Start.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Kenali jenis-jenis komponen (</span><i><span style="font-family: "TimesNewRoman,Italic","serif";">control</span></i><span style="font-family: "TimesNewRoman","serif";">) yang ada di dalam bagian ToolBox :<o:p></o:p></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9VEcGaYKI-T8iH8-98Gisotn3K_tjJ5gC_l1h1O6cyT8w0m_SbMW94LmUuUVaKNhz_Z-GwtR7X_Crg_sgEYWevRzLBU47rH9_R9wVk-qDGfry2voBXdfZR3ZirSZCKq6oa2pkfAlTgNk/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="237" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9VEcGaYKI-T8iH8-98Gisotn3K_tjJ5gC_l1h1O6cyT8w0m_SbMW94LmUuUVaKNhz_Z-GwtR7X_Crg_sgEYWevRzLBU47rH9_R9wVk-qDGfry2voBXdfZR3ZirSZCKq6oa2pkfAlTgNk/s320/1.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTXqZ0UF5199JScPpMqDlShDZ2X7RIGZP_1gmnixcZ6JiX4UZRbZcMzTrackIoRbZX_Qn15QmZC9AcrCh4_t7-0OpeSVBJnk-QH8pQpNoqtEDWGRXsxt2mF4in2fjzwf90_hIL1nUZCwE/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="140" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTXqZ0UF5199JScPpMqDlShDZ2X7RIGZP_1gmnixcZ6JiX4UZRbZcMzTrackIoRbZX_Qn15QmZC9AcrCh4_t7-0OpeSVBJnk-QH8pQpNoqtEDWGRXsxt2mF4in2fjzwf90_hIL1nUZCwE/s320/2.JPG" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYCIgbDGstSuj-GB9FCB8Rkr5OQw0csiqc1Af-OmU9t0fauBVa4ib0r3gLDfEHyGuI6Q4f2I57mY-mY6xXDZaDdew-25imiK_v4CQvhsJi8UGI7HEs4-5C_F1hf2JeA1Fpx0KumNQVAr8/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLt-62EOHbEPxegEsK3_XmzK5pBoIujotPz2wdnHPOs66npMWa73pF4HFwLuKoaiRG7oVOToFf1quSjRRdku6iQFl4-CI37N2nhG8VkrRyYtq82wn974w1i4SjBXH3uAi8jWpVVcZ4uDE/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman","serif";"> <o:p></o:p></span></div><div class="MsoNormal"></div><div class="MsoNormal"><br />
</div><div class="MsoNormal" style="line-height: 150%;"><b><span style="font-family: "TimesNewRoman,Bold","serif";">Cara membuatnya :<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Klik komponen Label di dalam ToolBox kemudian “gambar” object Label1 di dalam Form dengan cara drag-drop. Lakukan langkah yang sama untuk object Label2. Object Text1 di-“gambar” menggunakan komponen TextBox, sedangkan object Command1 dan Command2 menggunakan komponen Command Button.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><br />
</div><div class="MsoNormal" style="line-height: 150%;"><b><span style="font-family: "TimesNewRoman,Bold","serif";">1.2 Mengatur Property Object<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman","serif";">Kenali bagian-bagian di dalam Jendela Properties :<o:p></o:p></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaTmOnWVlMMB_eRNGEQX2-Op9OhTMvfv7KW2OcvDMICVPhi4BQPEnl3iG_RZWp-6E2337-IDEtoRs2wscRwMFO_jIwvtF6q0y8J-iDTxrM9wv5mUoU6RWc9wbP5zKAGemVgGky3OMF6Oc/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="179" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaTmOnWVlMMB_eRNGEQX2-Op9OhTMvfv7KW2OcvDMICVPhi4BQPEnl3iG_RZWp-6E2337-IDEtoRs2wscRwMFO_jIwvtF6q0y8J-iDTxrM9wv5mUoU6RWc9wbP5zKAGemVgGky3OMF6Oc/s320/3.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTimWS4ozFVA3oPK7yei2WoJxSXgWIa8vrsVgzndTEuvtpBFVHk0TM9TgCWB0E9lNZKrTH9kX3GWO2sLwtJ8hEFaSEtTGbBqRTgKHcM3NVV2a5UT4ru1Wp-ZHVGPNuKX7FL3Ras6yxWzE/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="222" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTimWS4ozFVA3oPK7yei2WoJxSXgWIa8vrsVgzndTEuvtpBFVHk0TM9TgCWB0E9lNZKrTH9kX3GWO2sLwtJ8hEFaSEtTGbBqRTgKHcM3NVV2a5UT4ru1Wp-ZHVGPNuKX7FL3Ras6yxWzE/s320/4.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg13a2RRQhCu6boLxO2MOw7GR-6r4ri48jl542l-yK9saPqsP74lRFk_3HeXHWTXRl41r0iF9i0Bdi7JKgyqLc5dcOr2-JsPPBQ0X4mICuy7U-D_qy4XU2UF7halw5nqw893lYcGbLjKEs/s1600/5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="114" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg13a2RRQhCu6boLxO2MOw7GR-6r4ri48jl542l-yK9saPqsP74lRFk_3HeXHWTXRl41r0iF9i0Bdi7JKgyqLc5dcOr2-JsPPBQ0X4mICuy7U-D_qy4XU2UF7halw5nqw893lYcGbLjKEs/s320/5.JPG" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguKzMmxXxyUO_bb6cbZ1kBJTIYvy-5doqv7RmQXcXYVrXUcmwuqoOMgwyv8559_oUpUJvItQbb4nVxn4QJ9z5DMmXAXIsth3EOjWoOH05J13aR1px4aHaiMsKI3AwU6LGG4MazIzHDvOs/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman,Bold","serif";"><br />
</span><span style="font-family: "TimesNewRoman,Bold","serif"; line-height: 150%;"><o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Program yang berbasis Windows bersifat </span><i><span style="font-family: "TimesNewRoman,Italic","serif";">event-driven</span></i><span style="font-family: "TimesNewRoman","serif";">, artinya program bekerja berdasarkan event yang terjadi pada object di dalam program tersebut. Misalnya, jika seorang user meng-klik sebuah tombol maka program akan memberikan “reaksi” terhadap event klik tersebut. Program akan memberikan “reaksi” sesuai dengan kode-kode program yang dibuat untuk suatu event pada object tertentu. Pilih object Command1 pada bagian Object Selector. Secara otomatis pada bagian Code Editor akan muncul blok kode program berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><br />
</div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">Private Sub Command1_Click()</span><span style="font-family: "TimesNewRoman","serif"; font-size: 10pt; line-height: 150%;"><o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><br />
</div><div class="MsoNormal"><span style="font-size: 10pt;">End sub<o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Event Click merupakan event </span><i><span style="font-family: "TimesNewRoman,Italic","serif";">default </span></i><span style="font-family: "TimesNewRoman","serif";">(standar) dari object Command1, Anda bisa melihat event lainnya pada bagian Event Selector.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Pada bagian Code Editor ketikkan kode programnya sebagai berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">Private Sub Command1_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">Label2.Caption = Text1.Text<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">Private Sub Command2_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">End<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "CourierNewPSMT","serif"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Simpan Project1 (nama file : </span><b><span style="font-family: "TimesNewRoman,Bold","serif";">Latihan.vbp</span></b><span style="font-family: "TimesNewRoman","serif";">) dan Form1 (nama file : </span><b><span style="font-family: "TimesNewRoman,Bold","serif";">Lat1.frm</span></b><span style="font-family: "TimesNewRoman","serif";">). VB 6 akan menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file project (*.vbp), file form (*.frm) dan file module (*.bas).<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Coba jalankan Project1 dengan meng-klik tombol Start ( ) pada bagian Toolbar atau tekan tombol F5 pada keyboard. Ketikkan “Salman” di dalam TextBox kemudian klik tombol OK. Maka akan tampil hasil sebagai berikut:<o:p></o:p></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiy46ahcBr-5lhCpF-v82atZcNZbIJPVAMtZw_bCVksFf9P5Ii-43VJmwy2STrgqCnHFJXT6QH25eWalkYQue9kCmd4A_5Vh4TXys9Xq4rNPDbWIvu_eHqD_paxfY7dgzy-NB1VI4z3x0c/s1600/6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiy46ahcBr-5lhCpF-v82atZcNZbIJPVAMtZw_bCVksFf9P5Ii-43VJmwy2STrgqCnHFJXT6QH25eWalkYQue9kCmd4A_5Vh4TXys9Xq4rNPDbWIvu_eHqD_paxfY7dgzy-NB1VI4z3x0c/s1600/6.JPG" /></a></div><div class="MsoNormal"> </div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman","serif";">Bila ingin keluar klik tombol Selesai.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><b><span style="font-family: "TimesNewRoman,Bold","serif";">Penjelasan kode program :<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Berikut diberikan penjelasan bagaimana cara kerja program sederhana di atas<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Command1_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Label2.Caption = Text1.Text<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Ketika seorang </span><i><span style="font-family: "TimesNewRoman,Italic","serif";">user </span></i><span style="font-family: "TimesNewRoman","serif";">meng-klik tombol OK (object Command1) maka isi tulisan pada object Label2 akan sama dengan isi tulisan pada object Text1. Property Caption pada obyek Label2 digunakan untuk menampilkan text tertentu di obyek tersebut.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Selanjutnya untuk keluar dari program dituliskan kode berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Command2_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Ketika seorang </span><i><span style="font-family: "TimesNewRoman,Italic","serif";">user </span></i><span style="font-family: "TimesNewRoman","serif";">meng-klik tombol Selesai (object Command2) maka program akan berhenti. Perintah End digunakan untuk menutup program.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Menampilkan tulisan merupakan salah satu property yang dimiliki oleh komponen Label. Property isi tulisan pada komponen Label adalah Caption, sedangkan pada komponen Textbox adalah Text. Cara penulisan (</span><i><span style="font-family: "TimesNewRoman,Italic","serif";">syntax</span></i><span style="font-family: "TimesNewRoman","serif";">) kode program untuk mengatur property sebuah object adalah sebagai berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">nama_object.property = value<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Perhatikan, setelah Anda mengetikkan tanda titik (dot) dibelakang nama_object maka VB 6 akan menampilkan daftar property dan method yang dimiliki oleh nama_object :<o:p></o:p></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUsu0I_eR3i5wHcT54AMsjI8eTZFQSg8ztvpGGL035uiacIBCaGFPVAZkZAjHxrX4VJGyFKlm2LPEEISFRC_m8cHxQ-GTii3__Yang74X7E0dcgORUFh6eBY_zYg7kSQQCq-x7WTmtrWw/s1600/7.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUsu0I_eR3i5wHcT54AMsjI8eTZFQSg8ztvpGGL035uiacIBCaGFPVAZkZAjHxrX4VJGyFKlm2LPEEISFRC_m8cHxQ-GTii3__Yang74X7E0dcgORUFh6eBY_zYg7kSQQCq-x7WTmtrWw/s1600/7.JPG" /></a></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";"> </span><span style="font-family: "TimesNewRoman","serif"; line-height: 150%;"><o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Fasilitas ini disebut Intellisense, dan sangat membantu Anda agar tidak salah mengetikkan nama_object maupun property-nya.<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><b><span style="font-family: "TimesNewRoman,Bold","serif";">1.4 Modifikasi Kode Program<o:p></o:p></span></b></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Ubah tampilan UI-nya menjadi seperti ini :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">(Tambahkan komponen Frame, OptionButton dan CheckBox) <o:p></o:p></span></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNUWZroP7FwjNVkUUBBE_t1QyF6d6uI3Ue0zEOl3-DFZSLTp2lJsDCCdMo0eklalwYD7PIrh7Uy2tZ1-xIH8CRMz6neTtH-OHOcuaf_jBqBYMsffu4j316uKIHBhn0UlJfmjGTC5YHGd4/s1600/8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="127" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNUWZroP7FwjNVkUUBBE_t1QyF6d6uI3Ue0zEOl3-DFZSLTp2lJsDCCdMo0eklalwYD7PIrh7Uy2tZ1-xIH8CRMz6neTtH-OHOcuaf_jBqBYMsffu4j316uKIHBhn0UlJfmjGTC5YHGd4/s320/8.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgc_wH5nSbDaAp8VI-Z28TvkuF1rfJJj5rJM8di_PzgOuA7_4fNb3Kvx9M-jbRKkmt64D0C_jXeO2c8k3_rzFH7riDAuUIbjD3mOZNo-H2ZOcWGAE4Qnm0naaid_5J75-ocFqW9udkSvMQ/s1600/10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";"> <o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Atur property object-object tambahannya sebagai berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwJqtohk687waZpvVA70K98KFfRREcvZp0JJOGftc7YJrI2h7E3pl89FAj_x0bQVICNZkzPBAayc634blgGO_KLb5qv5mJz2rIGPZd1FSiJj6H51_T2-qPhshq9jVDf8EPnE9JmJ97exE/s1600/9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="75" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwJqtohk687waZpvVA70K98KFfRREcvZp0JJOGftc7YJrI2h7E3pl89FAj_x0bQVICNZkzPBAayc634blgGO_KLb5qv5mJz2rIGPZd1FSiJj6H51_T2-qPhshq9jVDf8EPnE9JmJ97exE/s320/9.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjb7YMwHBQOZhNiQ_KXuKByfz_82gJ9TRiJW_vUTnH6lcdPkVAysz0ZnlSOKVe9lTdK4hIePema1NDh3h3OKMo-SI-HB6Va99rmSH9KRmjsOzcoE-6Ep5IlUJgbwqYJydUBMgg8lQTGCaY/s1600/10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTjBBxdTigAFrCHpwIc-MJLdTLjoGHKYo87CrP5Z50Mtuw03lomV2esfhe3p69MmvLe4x4fYwpWklKfuV3ydnf4nn2WiOpoq5LHANC7SRqMpQwqBy-fEgPEUJndWEMI2Ox1ljQdlnDyCk/s1600/9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a><br />
<span style="font-family: "TimesNewRoman","serif"; line-height: 150%;"><o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";">Obyek Frame1 harus dibuat terlebih dahulu si form, dan selanjutnya obyek Option dan Check dibuat didalam Frame1 tersebut. Tujuan pembuatan berbagai pilihan tersebut adalah memperkenalkan pada Anda fasilitas Option dan CheckBox yang digunakan untuk membuat pilihan dalam aplikasi. Tambahkan kode programnya sebagai berikut :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Option1_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Label2.ForeColor = vbBlue<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Option2_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Label2.ForeColor = vbRed<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Check1_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Label2.FontBold = Check1.Value<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Private Sub Check2_Click()<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">Label2.FontItalic = Check2.Value<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "Courier New"; font-size: 10pt; line-height: 150%;">End Sub<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman","serif";">Simpan kembali Form1, kemudian coba jalankan Project1 dan lihat hasilnya :<o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%;"><span style="font-family: "TimesNewRoman","serif";"> </span><span style="font-family: "TimesNewRoman","serif"; line-height: 150%;"><o:p></o:p></span></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><span style="font-family: "TimesNewRoman","serif";"><o:p> </o:p></span><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjb7YMwHBQOZhNiQ_KXuKByfz_82gJ9TRiJW_vUTnH6lcdPkVAysz0ZnlSOKVe9lTdK4hIePema1NDh3h3OKMo-SI-HB6Va99rmSH9KRmjsOzcoE-6Ep5IlUJgbwqYJydUBMgg8lQTGCaY/s1600/10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="126" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjb7YMwHBQOZhNiQ_KXuKByfz_82gJ9TRiJW_vUTnH6lcdPkVAysz0ZnlSOKVe9lTdK4hIePema1NDh3h3OKMo-SI-HB6Va99rmSH9KRmjsOzcoE-6Ep5IlUJgbwqYJydUBMgg8lQTGCaY/s320/10.JPG" width="320" /></a></div><div class="MsoNormal" style="line-height: 150%; text-align: justify;"><br />
</div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-84242937081597898172010-10-23T17:32:00.000-07:002010-10-23T17:58:52.498-07:00Membuat Progress Bar di Visual Basic 2008<div class="Section0"><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><br />
</div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><span style="font-family: 'Calibri'; font-size: 11pt;">ProgresBar merupakan suatu proses tampilan aplikasi sebelum aplikasi sebenarnya di tampilkan. Tentunya di sini kita akan menggunakan aplikasi Visual Basic 2005 atau Visual Basic.NET, dan berikut ini cari membuat aplikasi sederhana tersebut.</span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;">Tahap 1</span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt;">Buat Project Baru dengan menekan </span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold;">Ctrl+N, </span><span style="font-family: 'Calibri'; font-size: 11pt;"> dan pilih icon Windows Application dan kemudian klik </span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold;">OK.</span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg75CGwdNNHNwWez8cNY11e7cpTuvpTkM3sNTDLcd4r-14SqviyRdEORrA2W1GVFh4dCQVXaAjxil85us7Pnno4Q1AWTHASiwBQQqJg8upf4nGJe5Quyjp_1BelunbQiowzzHbVtePoQDc/s1600/1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="195" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg75CGwdNNHNwWez8cNY11e7cpTuvpTkM3sNTDLcd4r-14SqviyRdEORrA2W1GVFh4dCQVXaAjxil85us7Pnno4Q1AWTHASiwBQQqJg8upf4nGJe5Quyjp_1BelunbQiowzzHbVtePoQDc/s320/1.JPG" width="320" /></a></div></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><span id="goog_2018019661"></span><span id="goog_2018019662"></span><br />
<span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;">Tahap 2</span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><span style="font-family: 'Calibri'; font-size: 11pt;">Beriku merupakan tampilan form pertama project dan form ini siap digunakan untuk membuat ProgressBar. </span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXNaJIs8hKRc3Zg0vG83sxLTZ1K6bw885rK5dkILLNrVlw3-bvhmVJoxP2haASAIyDKaN5XexTmBx2g3IScTKoKIGaeKOBPXSMcBQzUOpobSMxQ9X-KRPGpyBGlwHEEKETvKYHMWpQ9KQ/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXNaJIs8hKRc3Zg0vG83sxLTZ1K6bw885rK5dkILLNrVlw3-bvhmVJoxP2haASAIyDKaN5XexTmBx2g3IScTKoKIGaeKOBPXSMcBQzUOpobSMxQ9X-KRPGpyBGlwHEEKETvKYHMWpQ9KQ/s320/2.JPG" width="302" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><span style="font-family: 'Calibri'; font-size: 11pt;">Untuk membuat komponen pada form, kita dapat memilih macam-macam komponen yang dibutuhkan untuk membuat aplikasi progress bar ini. </span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;">Komponen 1</span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwfgAZ9u15SD9HbqYIEGdZR_WHNUktKVWJoCPm0JLseDYbF8eSi1-8J2dbbHJ_r2E5YEwrUEO3LAA1yFGNzSjEIjC7EI_tbAmW6P55EERoIvUqYy9QW1ZIM6ESpCuKJe66H06axmkvKvM/s1600/3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="96" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwfgAZ9u15SD9HbqYIEGdZR_WHNUktKVWJoCPm0JLseDYbF8eSi1-8J2dbbHJ_r2E5YEwrUEO3LAA1yFGNzSjEIjC7EI_tbAmW6P55EERoIvUqYy9QW1ZIM6ESpCuKJe66H06axmkvKvM/s320/3.JPG" width="320" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;">Komponen 2</span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSpPMhT7UQYpzfEcrrcmnOeQn5VAT3nbcE1CB6y6edFqcI0qU3RKUO_rj7WBvYTyZoxSXPkrlUbe1QssB74_ZUlWlhPHJ7E53pczQ-oLLSMquYaERnzh4XDvJsuLTL3Kz1nlJXCgmAKTI/s1600/4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="84" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSpPMhT7UQYpzfEcrrcmnOeQn5VAT3nbcE1CB6y6edFqcI0qU3RKUO_rj7WBvYTyZoxSXPkrlUbe1QssB74_ZUlWlhPHJ7E53pczQ-oLLSMquYaERnzh4XDvJsuLTL3Kz1nlJXCgmAKTI/s320/4.JPG" width="320" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1BcAMwF-3cTRCeXqbdWcPjgxUob7kG8X0-4xNsrLO_q7nq0h2lu83hv6QXitUWBJ7OrYL6i2sKk-44nXEE56obY-c_Daqn0lKmsAqOtgJ2g7knWCpiQLoZLDJYmEZr7qXCCqvlCtayOk/s1600/5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1BcAMwF-3cTRCeXqbdWcPjgxUob7kG8X0-4xNsrLO_q7nq0h2lu83hv6QXitUWBJ7OrYL6i2sKk-44nXEE56obY-c_Daqn0lKmsAqOtgJ2g7knWCpiQLoZLDJYmEZr7qXCCqvlCtayOk/s1600/5.JPG" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt;">Apabila semua komponen di atas sudah dipersiapkan maka kemudian tampilan buatlah beberapa label untuk mempercantik form yang dibuat. </span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXNaJIs8hKRc3Zg0vG83sxLTZ1K6bw885rK5dkILLNrVlw3-bvhmVJoxP2haASAIyDKaN5XexTmBx2g3IScTKoKIGaeKOBPXSMcBQzUOpobSMxQ9X-KRPGpyBGlwHEEKETvKYHMWpQ9KQ/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgPt1BI7L_nQ6lmuCV0orr2qKfw6RY3I8dhrNWQ2Xko8ZckHZhOZv_swk9OxYtcp73dBU8g9H6S93Z0b596Ko_7p-pwPuuPjWi-87qez6XEhYoyk3IhAy1uiz1J63XxNopixLTaZv_X_g/s1600/6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="278" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgPt1BI7L_nQ6lmuCV0orr2qKfw6RY3I8dhrNWQ2Xko8ZckHZhOZv_swk9OxYtcp73dBU8g9H6S93Z0b596Ko_7p-pwPuuPjWi-87qez6XEhYoyk3IhAy1uiz1J63XxNopixLTaZv_X_g/s320/6.JPG" width="320" /></a></div><br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQjVfuDV91jhSKTz6b-Pg3AEtjDE77ZJ5KfELCFfPNO48tVUGw4XGF8NPIRZ5pttjv-gd98qWBX1CyF_RO3X5ruTyVcFVQbALl3EfzrMmaUMz-bVaUlLjS-vBHsfFD7TUBqt7o8mye9s4/s1600/10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><span id="goog_901250886"></span><span id="goog_901250887"></span></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgeJ7XLp_RGc8Qbt8PkFU4OBjxLsv-TuVdVR1W9xrjxsx5mJaDV5Qh653EmxyPJUU6TaZJEZ0qR-A0owfBW4_1tDG1UdNnoCRYHxQXveieV7DtcuikEbye9ZpdBQl_SBSXVEdTn_YyPQsw/s1600/6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold; text-decoration: underline;">Tahap 3 </span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt;">Berikut barulah kita membuat code program, klik dua kali pada timeProgres pada kiri bawah.</span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm-rMl7_Gr1iyE4pNUDZjx_NxkF2_jdLPp5dLN5UMMm_ltEfjggmX9-cZRB5JLvnIJDgt2f_2NrQGkKi35i2ksj4bWjmHSaav63JNxcE1bXyi92CaaKz-rNvbu2ES3m32YLMtBCaoxP9E/s1600/7.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm-rMl7_Gr1iyE4pNUDZjx_NxkF2_jdLPp5dLN5UMMm_ltEfjggmX9-cZRB5JLvnIJDgt2f_2NrQGkKi35i2ksj4bWjmHSaav63JNxcE1bXyi92CaaKz-rNvbu2ES3m32YLMtBCaoxP9E/s1600/7.JPG" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsVyQrmCV4ylAjWMQskxcYLu5rJZGEQDLTY97ZFAcUVHc0dqO7bRHV8FfihnO3L7wsnuOnkhhMjoQ0IZWNSpardqw1qb4_Vfi2_sfb5KENqd2j_oicUeqfTeIGjVC1rcEoeCjdI8wZxC4/s1600/8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="124" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsVyQrmCV4ylAjWMQskxcYLu5rJZGEQDLTY97ZFAcUVHc0dqO7bRHV8FfihnO3L7wsnuOnkhhMjoQ0IZWNSpardqw1qb4_Vfi2_sfb5KENqd2j_oicUeqfTeIGjVC1rcEoeCjdI8wZxC4/s320/8.JPG" width="320" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Calibri'; font-size: 11pt;">Kemudian jalankan aplikasi ini dengan menekan </span><span style="font-family: 'Calibri'; font-size: 11pt; font-weight: bold;">Ctrl + F5</span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9jqiKg_Fr6F8wprxzSaFWY2e0hy4LFQ04YzkcW42pda_SOFOKAjSiqMO9MPOMJMiVdlnteu-EBxkiyUUSj-ncy-7zc0SR5nIDwBRyJ9h_A-tGIvMkTHt6WxmBwiWE8LapkpFRDz7iUn4/s1600/9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidbHtzMhMt5zKJYoV-sB5J6pNu8mhTguAJKu9uFK1gWoqpbw5gBa7VUKp_mhRwOnC2aZI95hg5ixSdJRWWGdb-Tn3zBmr5JeHjBwewwyiVrL1iBnG1Wcsa5o0jbgkVgXghmZS_Aem0OhM/s1600/9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="280" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidbHtzMhMt5zKJYoV-sB5J6pNu8mhTguAJKu9uFK1gWoqpbw5gBa7VUKp_mhRwOnC2aZI95hg5ixSdJRWWGdb-Tn3zBmr5JeHjBwewwyiVrL1iBnG1Wcsa5o0jbgkVgXghmZS_Aem0OhM/s320/9.JPG" width="320" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><span style="font-family: 'Calibri'; font-size: 11pt;">Mudah bukan untuk membuat progressBar Cuma beberapa langkah maka aplikasi sederhana kita siap jadi. Sekarang tugas Anda desain tampilan progressBar sebagus mungkin kemudian buat satu form lagi, apabila proses progresbar siap dijalankan maka program kemudian akan lompat ke form satu lagi misalnya form satu lagi kita buat untuk proses login. </span><span style="font-family: 'Calibri'; font-size: 11pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt; text-align: justify;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifoEbZh1GYZnWVE7rGyWgkqi0DzeZEC9m2NsBrRhAYu52ilqRryza_NuVanTeRA5yWMEOOeFxm5q7qMtDo4Gpcld4tWIvcnzfBTWOLgXPAikX53Nharxg2cvpHyzYV-02PhBDqGOS__ms/s1600/10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="208" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifoEbZh1GYZnWVE7rGyWgkqi0DzeZEC9m2NsBrRhAYu52ilqRryza_NuVanTeRA5yWMEOOeFxm5q7qMtDo4Gpcld4tWIvcnzfBTWOLgXPAikX53Nharxg2cvpHyzYV-02PhBDqGOS__ms/s320/10.JPG" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4y9IcG2-6MBEzXea4zSrf4loJAXOTl-BpCc6ok4yJyS8_PPuG1XfmC_fKRWXhSPE2Pdxp5u6XTwFZd2zlzuKTFv4R6Oy-wrxD7vheSOxSJm8sBPphXF3yPkVCr45VvMi8FLe1LmWqBEM/s1600/11.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4y9IcG2-6MBEzXea4zSrf4loJAXOTl-BpCc6ok4yJyS8_PPuG1XfmC_fKRWXhSPE2Pdxp5u6XTwFZd2zlzuKTFv4R6Oy-wrxD7vheSOxSJm8sBPphXF3yPkVCr45VvMi8FLe1LmWqBEM/s1600/11.JPG" /></a></div><span style="font-family: 'Calibri'; font-size: 11pt;"><br />
<o:p></o:p></span></div></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-58811154596766437692010-10-18T01:59:00.001-07:002010-10-23T01:13:30.961-07:00Membuat Program Transaksi Bengkel Sederhana<span class="Apple-style-span" style="font-family: Arial; font-size: small;"><span class="Apple-style-span" style="font-size: 13px;"><br />
</span></span><br />
<div class="Section0"><div class="p17" style="margin-bottom: 0pt; margin-top: 0pt;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4EtHqEhiiyn7CWmMw0VesdjmK5OfpV_T9vjib8ntWT-io7z_c5AtMGbx2ocyAqpheSAz_2N-SA8DYcpoRoBb-bhKQRsCXAxJYdPy4uENH8TyDV0ETiGHHey3fzJXGolQfV2t2SSverKc/s1600/untitled.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4EtHqEhiiyn7CWmMw0VesdjmK5OfpV_T9vjib8ntWT-io7z_c5AtMGbx2ocyAqpheSAz_2N-SA8DYcpoRoBb-bhKQRsCXAxJYdPy4uENH8TyDV0ETiGHHey3fzJXGolQfV2t2SSverKc/s1600/untitled.JPG" /></a></div><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><br />
<span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Properties</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label1 : Caption = BENGKEL OKE</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label2 : Caption = Kode Oli</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label3 : Caption = Jumlah Beli</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label4 : Caption = Pembayaran</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label5 : Caption = Potongan</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label6 : Caption = PPN</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label7 : Caption = Total Bayar</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label8 : Caption = Merk</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label9 : Caption = Harga Oli</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label10 : Caption = Uang Bayar</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label11 : Caption =Uang Kembali</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label12 : Caption = Fixed Single</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label13 : Caption = Fixed Single</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">ComboBox1 : Name = Combo1</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox1 : Name = txtjumbel</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox2 : Name = txtpembayaran</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox3 : Name = txtpot</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox4 : Name = txtppn</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox5 : Name = txttolbar</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox6 : Name = txtmerk</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox7 : Name = txtharga</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox8 : Name = txtservice</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox9 : Name = txtbayar</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Textbox10 : Name = txtkembali</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Text = Tulisan Text1 Dihapus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">CommandButton1 : Name = cmdhitung</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Caption = Hitung</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">CommandButton2 : Name = cmdclear</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Caption = Clear</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">CommandButton3 : Name = cmdexit</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Caption = Exit</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Frame1 : Caption = Biaya Service</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">OptionButton1 : Caption = Mobil</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Name = opt1</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">OptionButton2 : Caption = Motor</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Name = opt2</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Timer1 : Interval = 250</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Listing Program</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub cmdclear_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Combo1 = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtbayar = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtkembali = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txttolbar = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtservice = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtjumbel = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpot = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpembayaran = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpot = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtppn = ""</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub cmdexit_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Unload Me</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub CMDHITUNG_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpembayaran = Val(txtjumbel * txtharga) + txtservice</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">If Val(txtpembayaran) > 50000 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpot = Val(txtpembayaran * 0.1)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End If</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtppn = Val(txtpembayaran * 0.05)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txttolbar = Val(txtpembayaran - txtpot) + Val(txtppn)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub cmdhitung_KeyPress(KeyAscii As Integer)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">If KeyAscii = 13 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtbayar.SetFocus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End If</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub Combo1_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">If Combo1.ListIndex = 0 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk = "Penzoil"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga = "35000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">ElseIf Combo1.ListIndex = 1 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk = "Agip"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga = "30000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">ElseIf Combo1.ListIndex = 2 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk = "Top One"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga = "27000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Else</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk = "Mesran"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga = "20000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End If</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub Combo1_KeyPress(KeyAscii As Integer)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">If KeyAscii = 13 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtjumbel.SetFocus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End If</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub Form_Activate()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Combo1.AddItem "PZ"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Combo1.AddItem "AG"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Combo1.AddItem "TO"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Combo1.AddItem "MS"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtservice.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpembayaran.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtppn.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtkembali.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtharga.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtmerk.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtpot.Enabled = False</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub opt1_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtservice = "5000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub opt2_Click()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtservice = "3000"</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub Timer1_Timer()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label12.Caption = Date</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Label13.Caption = Time</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub txtbayar_Change()</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">txtkembali = Val(txtbayar) - Val(txttolbar)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">Private Sub txtjumbel_KeyPress(KeyAscii As Integer)</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">If KeyAscii = 13 Then</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">CMDHITUNG.SetFocus</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End If</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><br />
</span><span class="15" style="font-family: 'Times New Roman'; font-size: 10pt; visibility: visible;">End Sub</span><span style="font-family: 'Times New Roman'; font-size: 12pt;"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 0pt; margin-top: 0pt;"><span style="font-family: 'Times New Roman'; font-size: 12pt;"><o:p></o:p></span></div></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-937187560208320812010-10-18T01:40:00.000-07:002010-10-18T01:40:15.684-07:00Membuat Form Pencarian<div class="Section0" style="layout-grid: 15.6000pt;"><div class="p0" style="margin-bottom: 8.7000pt; margin-top: 8.7000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 15.5000pt; font-weight: bold; mso-spacerun: 'yes';">Membuat Form Pencarian (Lookup) Menggunakan Visual Basic 6 + ADO (Source Code)</span><span style="font-family: 'Times New Roman'; font-size: 15.5000pt; font-weight: bold; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><span class="Apple-style-span" style="font-size: medium;"><img height="48" src="file:///C:\DOCUME~1\User\LOCALS~1\Temp\ksohtml\wps_clip_image1.jpg" width="60" /></span>Form pencarian ini saya gunakan di banyak aplikasi Visual Basic 6 yang saya buat. Form pencarian ini bisa digunakan beberapa kali, di banyak tempat sesuai dengan kebutuhan. Sama sekali tidak menggunakan component pihak ketiga.</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Pada form ini terdapat beberapa property tambahan yang digunakan untuk setting form pencarian. Form pencarian ini saya gunakan di aplikasi Point Of Sales.</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Property tersebut adalah :</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.sql = “SELECT * FROM karyawan ORDER BY nama”</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.ColumnSize = “500:1000″</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.ColumnHeader = “Kode:Nama”</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.ReturnValueColumn = 0</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Set frmCari.Koneksi = conn</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.Caption = “Cari Karyawan”</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.TextColumn = “0″</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">frmCari.DefaultCol = 1</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; font-weight: bold; mso-spacerun: 'yes';">Penjelasan property :</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">sql = SQL Statement untuk menampilkan data yang akan ditampilkan di grid form pencarian</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">ColumnSize = ukuran kolom, untuk tiap kolom dipisah dengan tanda : (titik dua )</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">ColumnHeader = Header tiap kolom</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">ReturnValueColumn = Nilai yang dikembalikan diambil dari kolom yang mana</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Koneksi = koneksi ADO ke database</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Caption = Judul Form</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">TextColumn = Kolom yang disable</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><br />
</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">DefaultCol = default kolom pencarian</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Untuk lebih jelasnya berikut screen capture dari pemakain form pencarian :</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span><img height="136" src="file:///C:\DOCUME~1\User\LOCALS~1\Temp\ksohtml\wps_clip_image2.jpg" width="235" /></span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Jika tombol … ditekan, maka muncul form pencarian seperti dibawah</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span><img height="478" src="file:///C:\DOCUME~1\User\LOCALS~1\Temp\ksohtml\wps_clip_image3.jpg" width="377" /></span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">pada kolom nama, terdapat textbox, ketik lalu enter, maka textbox aktif menuju ke nama dengan huruf awal yang anda ketikkan. Contoh anda ketik ‘vo’ lalu enter, maka textbox aktif di nama ‘Vonny’. Tekan tombol OK atau F12 untuk memilih.</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span><img height="136" src="file:///C:\DOCUME~1\User\LOCALS~1\Temp\ksohtml\wps_clip_image4.jpg" width="235" /></span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Hasil pencarian akan tampak seperti form diatas.</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div><div class="p0" style="margin-bottom: 5.0000pt; margin-top: 5.0000pt; text-autospace: ideograph-other;"><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';">Koneksi ke database menggunakan ADODB, untuk lebih detail silahkan lihat source codenya.</span><span style="font-family: 'Times New Roman'; font-size: 10.5000pt; mso-spacerun: 'yes';"><o:p></o:p></span></div></div>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-85412390511320237032010-10-16T19:50:00.000-07:002010-10-23T18:43:05.330-07:00Visual Basic<ul><li><a href="http://affan-hack.blogspot.com/2010/10/berpindah-antar-kontrol-dengan-enter.html">Berpindah Antar Kontrol Dengan Enter</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/commandbutton-abjad.html">CommandButton Abjad</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/form-login-dengan-database-untuk.html">Form Login dengan Database</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/marquee-form-caption.html">Marquee Form Caption</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/membatasi-fungsi-keyboard.html">Membatasi Fungsi Keyboard</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/membuat-paket-file-instalasi.html">Membuat Paket File Instalasi</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/mencari-ascii-sebuah-tombol.html">Mencari ASCII Sebuah Tombol</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/mencari-selisih-tanggal.html">Mencari Selisih Tanggal</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/mencari-textbox-kosong-dengan.html">Mencari TextBox Kosong Dengan Perulangan</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/belajar-visual-basic-60-untuk-pemula_05.html">Menentukan Bilangan PrimaBilangan prima adalah bil...</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/mengubah-atribut-file-dengan-ms-vb-60.html">Mengubah atribut file dengan Ms. VB 6.0</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/modul-koneksi-access.html">Modul Koneksi Access</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/modul-koneksi-vb-60-dengan-database-sql.html">Modul Koneksi Vb 6.0 dengan Database Sql Server 20...</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/pembuatan-modul-pada-vb-60-dan.html">Pembuatan Modul Pada VB 6.0 dan Pengaplikasiannya</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/pencegahan-error-dengan-membatasi.html">Pencegahan Error Dengan Membatasi Tindakan Penggun...</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/perintah-dos-pada-visual-basic-60.html">Perintah DOS pada Visual Basic 6.0</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/untuk-mengetahui-textbox-sudah-diisi.html">Perulangan</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/select-textbox.html">Select TextBox</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/simple-stopwatch-application-from-vb-60.html">Simple Stopwatch Application from VB 6.0</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/tampilan-warna-warni.html">Tampilan Warna Warni</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/blog-post.html">Tulisan Berkedip</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/visual-basic-apaan-sih.html">Visual Basic ? Apaan Sih ?</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/membuat-form-pencarian.html">Membuat Form Pencarian</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/membuat-program-transaksi-bengkel.html">Membuat Program Transaksi Bengkel Sederhana</a></li>
<li><a href="http://affan-hack.blogspot.com/2010/10/membuat-progresbar-tahap-buat-ctrln-ok.html">Membuat Progress Bar di Visual Basic 2008</a> </li>
<li><a href="http://affan-hack.blogspot.com/2010/10/perkenalan-dan-latihan-menggunakan.html">Perkenalan dan Latihan menggunakan Event dan Property</a></li>
</ul>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-87281854080550341022010-10-12T04:48:00.003-07:002010-10-12T04:48:47.413-07:00Modul Koneksi Access<h3 class="post-title entry-title"> <a href="http://ma2dxl.blogspot.com/2007/12/modul-koneksi-access.html"><br />
</a> </h3>Saya beberapa kali ditanyai oleh beberapa teman yang pengen mengkoneksikan aplikasi vbnya ke database access. Sebenernya gampang banget :<br />
<br />
Setelah membuat project baru trus tambahkan sebuah modul lalu isikan dengan coding berikut:<br />
<span class="fullpost"><br />
<br />
Public con As New ADODB.Connection<br />
Public rst As New ADODB.Recordset<br />
Public strcon As String<br />
Public sql As String ' berfungsi untuk menuliskan query sql<br />
<br />
<br />
Public Sub Connections()<br />
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database_name.mdb"<br />
If con.State = adStateOpen Then<br />
con.Close<br />
Set con = New ADODB.Connection<br />
con.Open strcon<br />
Else<br />
con.Open strcon<br />
End If<br />
End Sub<br />
<br />
<br />
<br />
Inti dari code diatas terletak pada " strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database_name.mdb" "<br />
<br />
database_name diganti dengan nama database yang telah dibuat. Lalu letakkan atau simpan database tersebut satu direktori dengan project yang dibuat. Dah cuma gitu aja.<br />
<br />
Trus untuk alasan keamanan database access bisa kita berikan password, klo demikian tentunya modul koneksinya juga ada perubahan sedikit menjadi sbb:<br />
<br />
Pada bagian strcon diganti menjadi<br />
<br />
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database_name.mdb ;Persist Security Info=False;Jet OLEDB:Database Password=Password_access"<br />
<br />
Sama seperti tanpa password database_name diganti menjadi nama database dan Password_access nya diganti dengan password yang telah dibuat pada microsoft accessnya.</span>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0tag:blogger.com,1999:blog-6139163092122059787.post-4385972173817396982010-10-12T04:48:00.001-07:002010-10-12T04:48:09.244-07:00Mengubah atribut file dengan Ms. VB 6.0<h3 class="post-title entry-title"> <a href="http://ma2dxl.blogspot.com/2008/01/perbaiki-attribut-file-dengan-vb-60.html"><br />
</a> </h3><div style="text-align: justify;">Kalo gak salah satu tahun 2006 yang lalu aku dapet komputer yang kena sebuah virus, aku gak tau apa namanya tapi aku dan teman-teman menyebutnya virus 463 karena besar file yang dihasilkan sebesar 463 Kb. Virus ini menghiden semua folder yang ada dan mengantinya dengan file bentukan yang baru namun berekstensi aplikasi atau (.exe). Si virus berhasil aku lumpuhkan dan file bentukannya sudah aku bersihkan, namun karena semua folder di hidden sama si virus mau gak mau aku harus mengembaliinnya seperti semula lagi. Aku coba klik kanan foldernya lalu propertis dengan harapan bisa aku hilangin centang pada hidden-nya, tapi ternyata si virus bukan cuma meng-hidden-nya tapi meng-superhidden atau hidden system. cara satu-satunya dengan cara menghilangkan attribut filenya melalui command promt dengan mengetikkan " attrib -S -H nama_file ", ko cuma satu file seh gak masalah, tapi klo semua folder tentu butuh waktu yang sangat lama dan capek banget.<br />
<br />
Akhirnya aku mencoba membuat sebuah aplikasi untuk mengubah attribut filenya menggunakan microsoft visual basic 6.0 , dan berhasil. neh aku bagiin sebuah aplikasi sederhana untuk membuka file yang ke superhidden.<br />
<br />
Tampilan aplikasinya sbb:</div><br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipEgEzfFtCGOZws9TCf5Iqx5QGwyQPGzmFHyxiv64R08vOZ17yh1F8si6ajGXfUArtljhyRGYjvNmGrlnyPZr4rX8LOOfuDEIGrsqYT1_k2QUZPP4H2qdYstrMDy4Zp2j0oVPTo8He7zeS/s1600-h/Desain+Aplikasi.jpg" onblur="try
{parent.deselectBloggerImageGracefully();} catch(e) {}"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5150944619344766338" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipEgEzfFtCGOZws9TCf5Iqx5QGwyQPGzmFHyxiv64R08vOZ17yh1F8si6ajGXfUArtljhyRGYjvNmGrlnyPZr4rX8LOOfuDEIGrsqYT1_k2QUZPP4H2qdYstrMDy4Zp2j0oVPTo8He7zeS/s320/Desain+Aplikasi.jpg" style="cursor: pointer; display: block; height: 299px; margin: 0px auto 10px; text-align: center; width: 521px;" /></a><br />
Berikut adalah coding buat modulnya :<br />
<span class="fullpost"><br />
<br />
<br />
<span style="font-size: 85%;"><span style="font-family: courier new;">Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long</span><br />
<span style="font-family: courier new;">Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long</span><br />
<span style="font-family: courier new;">Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long</span><br />
<span style="font-family: courier new;">Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long</span><br />
<span style="font-family: courier new;">Public Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long</span><br />
<span style="font-family: courier new;">Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long</span><br />
<br />
<span style="font-family: courier new;">Public Const MAX_PATH = 260</span><br />
<span style="font-family: courier new;">Public Const MAXWORD = &HFFFF</span><br />
<span style="font-family: courier new;">Public Const INVALID_HANDLE_VALUE = -1</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_ARCHIVE = &H20</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_DIRECTORY = &H10</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_HIDDEN = &H2</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_NORMAL = &H80</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_READONLY = &H1</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_SYSTEM = &H4</span><br />
<span style="font-family: courier new;">Public Const FILE_ATTRIBUTE_TEMPORARY = &H100</span><br />
<br />
<span style="font-family: courier new;">Public Type FILETIME</span><br />
<span style="font-family: courier new;"> dwLowDateTime As Long</span><br />
<span style="font-family: courier new;"> dwHighDateTime As Long</span><br />
<span style="font-family: courier new;">End Type</span><br />
<br />
<span style="font-family: courier new;">Public Type WIN32_FIND_DATA</span><br />
<span style="font-family: courier new;"> dwFileAttributes As Long</span><br />
<span style="font-family: courier new;"> ftCreationTime As FILETIME</span><br />
<span style="font-family: courier new;"> ftLastAccessTime As FILETIME</span><br />
<span style="font-family: courier new;"> ftLastWriteTime As FILETIME</span><br />
<span style="font-family: courier new;"> nFileSizeHigh As Long</span><br />
<span style="font-family: courier new;"> nFileSizeLow As Long</span><br />
<span style="font-family: courier new;"> dwReserved0 As Long</span><br />
<span style="font-family: courier new;"> dwReserved1 As Long</span><br />
<span style="font-family: courier new;"> cFileName As String * MAX_PATH</span><br />
<span style="font-family: courier new;"> cAlternate As String * 14</span><br />
<span style="font-family: courier new;">End Type</span><br />
<br />
<span style="font-family: courier new;">Public Function StripNulls(OriginalStr As String) As String</span><br />
<span style="font-family: courier new;">If (InStr(OriginalStr, Chr(0)) > 0) Then</span><br />
<span style="font-family: courier new;"> OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)</span><br />
<span style="font-family: courier new;">End If</span><br />
<br />
<span style="font-family: courier new;">StripNulls = OriginalStr</span><br />
<span style="font-family: courier new;">End Function</span></span><br />
<br />
Dan ini coding pada formnya :<br />
<br />
<span style="font-size: 85%;"><span style="font-family: courier new;">Option Explicit</span><br />
<br />
<span style="font-family: courier new;">Function FindFilesAPI(path As String, SearchStr As String, FileCount As Integer, DirCount As Integer)</span><br />
<br />
<span style="font-family: courier new;">Dim FileName As String</span><br />
<span style="font-family: courier new;">Dim DirName As String</span><br />
<span style="font-family: courier new;">Dim SearchPath As String, FindStr As String</span><br />
<span style="font-family: courier new;">Dim dirNames() As String</span><br />
<span style="font-family: courier new;">Dim nDir As Integer</span><br />
<span style="font-family: courier new;">Dim i As Integer</span><br />
<span style="font-family: courier new;">Dim hSearch As Long</span><br />
<span style="font-family: courier new;">Dim WFD As WIN32_FIND_DATA</span><br />
<span style="font-family: courier new;">Dim Cont As Integer</span><br />
<span style="font-family: courier new;">Dim x As Long</span><br />
<span style="font-family: courier new;">Dim xx As Long</span><br />
<br />
<span style="font-family: courier new;">If Right(path, 1) <> "\" Then path = path & "\"</span><br />
<span style="font-family: courier new;"> nDir = 0</span><br />
<span style="font-family: courier new;"> ReDim dirNames(nDir)</span><br />
<span style="font-family: courier new;"> Cont = True</span><br />
<span style="font-family: courier new;"> hSearch = FindFirstFile(path & "*", WFD)</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> If hSearch <> INVALID_HANDLE_VALUE Then</span><br />
<span style="font-family: courier new;"> Do While Cont</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> DirName = StripNulls(WFD.cFileName)</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> If (DirName <> ".") And (DirName <> "..") Then</span><br />
<span style="font-family: courier new;"> If GetFileAttributes(path & DirName) Or FILE_ATTRIBUTE_DIRECTORY Then</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> dirNames(nDir) = DirName</span><br />
<span style="font-family: courier new;"> DirCount = DirCount + 1</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> nDir = nDir + 1</span><br />
<span style="font-family: courier new;"> ReDim Preserve dirNames(nDir)</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> End If</span><br />
<span style="font-family: courier new;"> End If</span><br />
<span style="font-family: courier new;"> If (DirName <> ".") And (DirName <> "..") And (DirName <> "RECYCLER") And (DirName <> "System Volume Information") And (DirName <> "Thumbs.db") And (DirName <> "Desktop.ini") And (DirName <> "desktop.ini") Then</span><br />
<span style="font-family: courier new;"> x = SetFileAttributes(path & DirName, FILE_ATTRIBUTE_NORMAL)</span><br />
<span style="font-family: courier new;"> xx = CloseHandle(x)</span><br />
<br />
<span style="font-family: courier new;"> List1.AddItem path & DirName</span><br />
<span style="font-family: courier new;"> End If</span><br />
<span style="font-family: courier new;"> Cont = FindNextFile(hSearch, WFD)</span><br />
<br />
<span style="font-family: courier new;"> Loop</span><br />
<span style="font-family: courier new;"> Cont = FindClose(hSearch)</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> End If</span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> </span><br />
<span style="font-family: courier new;"> If nDir > 0 Then</span><br />
<span style="font-family: courier new;"> For i = 0 To nDir - 1</span><br />
<span style="font-family: courier new;"> FindFilesAPI = FindFilesAPI(path & dirNames(i) & "\", SearchStr, FileCount, DirCount)</span><br />
<span style="font-family: courier new;"> Next i</span><br />
<span style="font-family: courier new;"> End If</span><br />
<br />
<span style="font-family: courier new;">End Function</span><br />
<br />
<span style="font-family: courier new;">Private Sub Command1_Click()</span><br />
<span style="font-family: courier new;">Dim SearchPath As String, FindStr As String</span><br />
<span style="font-family: courier new;">Dim FileSize As Long</span><br />
<span style="font-family: courier new;">Dim NumFiles As Integer, NumDirs As Integer</span><br />
<span style="font-family: courier new;">Dim msg</span><br />
<br />
<span style="font-family: courier new;">If Trim(UCase(Text1.Text)) = "C:\" Then</span><br />
<span style="font-family: courier new;"> msg = MsgBox("Any Directories System will be show " & Chr(13) & " Are you sure to continue ?", vbQuestion + vbYesNo, ":: Confirmation ::")</span><br />
<span style="font-family: courier new;"> If msg = vbYes Then</span><br />
<span style="font-family: courier new;"> GoTo scan_acc</span><br />
<span style="font-family: courier new;"> End If</span><br />
<span style="font-family: courier new;">Else</span><br />
<span style="font-family: courier new;"> GoTo scan_acc</span><br />
<span style="font-family: courier new;">End If</span><br />
<span style="font-family: courier new;">Exit Sub</span><br />
<br />
<span style="font-family: courier new;">scan_acc:</span><br />
<span style="font-family: courier new;"> Screen.MousePointer = vbHourglass</span><br />
<span style="font-family: courier new;"> Command2.Enabled = False</span><br />
<span style="font-family: courier new;"> Command1.Caption = "Please....wait"</span><br />
<span style="font-family: courier new;"> List1.Clear</span><br />
<span style="font-family: courier new;"> Label4.Caption = ""</span><br />
<span style="font-family: courier new;"> SearchPath = Text1.Text</span><br />
<span style="font-family: courier new;"> FindStr = Label1.Caption</span><br />
<span style="font-family: courier new;"> FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)</span><br />
<span style="font-family: courier new;"> Label4.Caption = NumDirs & " Directories found in ' " & SearchPath & "'"</span><br />
<span style="font-family: courier new;"> Screen.MousePointer = vbDefault</span><br />
<span style="font-family: courier new;"> Command2.Enabled = True</span><br />
<span style="font-family: courier new;"> Command1.Caption = "&Scan"</span><br />
<span style="font-family: courier new;">End Sub</span><br />
<br />
<span style="font-family: courier new;">Private Sub Command2_Click()</span><br />
<span style="font-family: courier new;">End</span><br />
<span style="font-family: courier new;">End Sub</span><br />
<br />
<span style="font-family: courier new;">Private Sub Dir1_Change()</span><br />
<span style="font-family: courier new;">Text1.Text = Dir1.path</span><br />
<span style="font-family: courier new;">End Sub</span><br />
<br />
<span style="font-family: courier new;">Private Sub Drive1_Change()</span><br />
<span style="font-family: courier new;">On Error GoTo err</span><br />
<span style="font-family: courier new;">Dir1.path = Drive1.Drive</span><br />
<span style="font-family: courier new;">Exit Sub</span><br />
<br />
<span style="font-family: courier new;">err:</span><br />
<span style="font-family: courier new;"> MsgBox "Device not ready", vbExclamation, ":: Device ::"</span><br />
<span style="font-family: courier new;"> Drive1.Drive = "D:\"</span><br />
<span style="font-family: courier new;"> Exit Sub</span><br />
<span style="font-family: courier new;">End Sub</span><br />
<br />
<span style="font-family: courier new;">Private Sub Form_Load()</span><br />
<span style="font-family: courier new;">Drive1.Drive = "D:\"</span><br />
<span style="font-family: courier new;">End Sub<br />
<br />
Semoga aplikasi ini bisa membantu dan bisa memberikan ide baru buat kamu yang pengen belajar bareng aku.</span></span></span>Affan's ErpEeLhttp://www.blogger.com/profile/06191473913754721060noreply@blogger.com0