tag:blogger.com,1999:blog-84512147386113340412024-02-20T01:17:22.972-08:00LABUHAN BATU ENEN KA TENENalpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.comBlogger18125tag:blogger.com,1999:blog-8451214738611334041.post-43986721051631697532013-01-21T17:39:00.000-08:002013-01-21T17:39:27.347-08:00<div style="border: 1px solid #000000; height: 250px; overflow: auto; padding: 5px; width: auto;">
<script src="http://djarumnews.googlecode.com/files/daftar-isi-auto.js"></script><script src="http://djarumnews.blogspot.com/feeds/posts/default?max-results=999&alt=json-in-script&callback=loadtoc"></script>
</div>alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-65694651932186310372013-01-09T19:33:00.002-08:002013-01-09T19:36:22.219-08:00<span style="color: red; font-family: 'Candara','sans-serif'; font-size: 18pt; line-height: 107%; mso-ansi-language: EN-US; mso-bidi-font-family: 'Times New Roman'; mso-bidi-font-size: 10.0pt; mso-bidi-language: AR-SA; mso-effects-glow-alpha: 40.0%; mso-effects-glow-color: #FF7000; mso-effects-glow-colortransforms: satm=175000; mso-effects-glow-rad: 18.0pt; mso-effects-glow-themecolor: accent2; mso-fareast-font-family: SimSun; mso-fareast-language: EN-US; mso-font-kerning: 0pt; mso-ligatures: none;"><div align="center" class="MsoNormal" style="background: white; line-height: normal; margin: 0cm 0cm 0pt; text-align: center;">
<strong>cara Mempercepat Kinerja <span style="mso-spacerun: yes;"> </span>Xp dan 7</strong><a href="http://www.blogger.com/null" name="7766950267347333236"></a><span style="color: red; font-family: 'Candara','sans-serif'; font-size: 18pt; mso-bidi-font-family: 'Times New Roman'; mso-bidi-font-size: 10.0pt; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: normal; margin: 0cm 0cm 0pt;">
<strong>cara Mempercepat Kinerja Win xp <o:p></o:p></strong></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<strong>1. mempercepat akses folderr – dengan men-disable Last Access Update<span style="font-size: small;">.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></strong></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">Jika anda memiliki banyak folder dan subdirectories, maka akses ke Direktory2 Windows XP terasa sangat berat dan seringkali cuman membuang<br />waktu. Dengan mengupdate time stamp di registry, yaitu last access update<br />untuk semua sub directory.<br />* Start>Run>regedit<br />* “HKEY_LOCAL_MACHINESystemCurrentControlSetCont r olFileSystem”Klik<br />* kanan di bagian yg kan (cari area yg kosong), lalu pilih ‘DWORD<br />Value’Bikin<br />* DWORD Value dengan nama ‘NtfsDisableLastAccessUpdate’Klik kanan pada value baru terus pilih ‘Modify’Ubah data menjadi ’1</span><span style="background: white; color: black; font-family: 'Arial','sans-serif'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">′</span></span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br /><span style="font-size: small;">* Klik </span></span><span style="font-size: small;"><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">‘</span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">OK</span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">’</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>2. Mempercepat waktu Boot</strong>Fitur yg lumayan asik dari Windows XP adalah kemampuan untuk mendefrag<br />ketika ada dalam proses booting. Boot Defrag pada prinsip menata file2 yg<br />relevan dengan booting secara berurutan. Secara default fitur ini telah<br />diaktifkan pada beberapa Build Windows, tapi beberapa build windows tidak,<br />ada baiknya kalo kita cross check terhadap fiotur yg satu ini.<br />* Start Menu>Run<br />* Regedit<br />* HKEY_LOCAL_MACHINESOFTWARE/Microsoft/DfrgBootOptimizeFunction<br />* Cari “Enable” dibagian kanan regedit<br />* Klik “Modify”<br />* Pilih “Y to enable”<br />* Reboot</span><br />
<a name='more'></a></div>
</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span><br />
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>3. Mempercepat Performa Swapfile</strong>Jika anda memiliki ram lebih besar dari 256MB bisa dibilang tweaking yg ini<br />akan membuat sistem anda berjalan lebih cepat. Tweaking ini pada dasarnya PC kita mengunakan setiap byte dari memori fisik yg terpasang di komputer kita, SEBELUM mengunakan swap file.<br />* Start>Run<br />* “msconfig.exe”>ok<br />* Klik tab System.ini<br />* Klik tanda plus pada tab 386enh<br />* Klik kotak new kemudian ketik “ConservativeSwapfileUsage=1?<br />* Klik OK<br />* Restart</span><span style="font-size: small;"><strong>4. Mempercepat Loading Windows Menu</strong>Tweak ini adalah tweaking fav saya, karena akan komputer kita terasa lebih<br />cepat. Tweaking ini membuang waktu delay ketika kita mengklik menu dan<br />windows XP menampakkan Menu.<br />* Start>Run<br />* Regedit>Ok<br />* “HKEY_CURRENT_USERControl PanelDesktop”<br />* Pilih/Sorot “MenuShowDelay”<br />* Klik kanan dan pilih “Modify’<br />* Ketik angka “100? (aslinya 400) Angka 50-150 adalah kisaran yg baik, bisa<br />disesuaikan dengan Mood anda</span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<br /></div>
<span style="font-size: small;"><strong>5. Mempercepat Loading Program.</strong>Tweaking ini bisa berjalan untuk sebagian besar program. Jika program tidak<br />mau loading seperti yg diharapkan, silahkan aja dikembalikan ke setting<br />semula.<br />* Klik kanan pada icon/shortcut yg berkaitan dengan program.<br />* properties<br />* Pada kotak ‘target’, tambahkan ‘ /prefetch:1′ diakhir kalimat.<br />* Klik </span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><span style="font-size: small;">“</span></span><span style="font-size: small;">Ok”</span><span style="font-size: small;"><strong>6. Mempercepat Shutdown Windows XP.</strong>Tweaking ini mengurangi waktu tunggu secara otomatis ketika windows sudah menerima instruksi untuk shutdown.<br />* Start>Run<br />* ‘Regedit’>OK<br />* ‘HKEY_CURRENT_USERControl PanelDesktop’<br />* Sorot ‘WaitToKillAppTimeout’<br />* Klik kanan dan pilih modify<br />* Ubah value menjadi ’1000′ (aslinya 20000)<br />* Klik </span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><span style="font-size: small;">‘</span></span><span style="font-size: small;">OK’<br />* Sorot ‘<span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">HungAppTimeout</span></span><span style="font-size: small;">’<br />* Klik kanan dan pilih modify<br />* Ubah value menjadi ’<span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">1000</span></span><span style="font-size: small;">′<br />* Klik ‘<span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">OK</span></span><span style="font-size: small;">’<br />* ‘<span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">HKEY_USERS.DEFAULTControl PanelDesktop</span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">’</span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> sorot waitToKillAppTimeout</span></span><span style="font-size: small;">’<br />* Klik kanan dan pilih modify<br />* Ubah value ke ’<span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">1000</span></span><span style="font-size: small;">′ (aslinya 20000)<br />* Klik <span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: Candara; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">‘</span><span style="background: white; color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">OK</span></span><span style="font-size: small;">’<br />* </span><span style="font-size: small;">‘HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control sorot<br />“WaitToKillAppTimeOut”.<br />* Klik kanan dan pilih modify<br />* Ubah value menjadi ’1000</span><span style="font-size: small;">′</span><span style="font-size: small;"><strong>7. Restart dgn Cepat !!</strong>* Pada key : HKEY_LOCAL_MACHINE | Software | Microsoft | Windoes NT | Current Version | Winlogon Tambahkan string value EnableQuickReboot dan isi defautnya dengan 1</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span>
<br />
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>8. Login Otomatis</strong>* HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon<br />* Klik ganda AltDefaultUserName dan masukkan username account yang dipilih.<br />* Klik ganda AutoAdminLogon dan masukkan angka 1 pada Value Data.<br />* Buat sebuah DWORD Value baru dan beri nama DefaultPassword.<br />* Klik ganda DefaultPassword dan masukkan password account yang dipilih pada Value Data.</span><span style="font-size: small;"><strong>9. Mencegah Perubahan Menu Start</strong>*HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />* Buat sebuah DWORD Value baru dan beri nama NoChangeStartMenu.<br />* Klik ganda NoChangeStartMenu dan masukkan angka 1 pada Value Data.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>10. Membersihkan Semua Ikon Pada Desktop</strong>*HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />Buat sebuah DWORD Value baru dan beri nama NoDesktop.<br />Klik ganda pada NoDesktop dan masukkan angka 1 pada Value Data.</span><span style="font-size: small;"><strong>11. Membuat Desktop Lebih Stabil</strong>* HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer<br />* Buat sebuah DWORD Value baru dan beri nama DesktopProcess.<br />* Klik ganda DesktopProcess dan masukkan angka 1 pada Value Data.</span><span style="font-size: small;"><strong>12. Membersihkan Recent Documents</strong>*HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />* Buat sebuah DWORD Value baru dan beri nama NoRecentDocsHistory.<br />* Klik ganda pada NoRecentDocsHistory dan masukkan angka 1 pada bagian Value Data.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>13. Menonaktifkan Menu Properties My Computer</strong>*HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />* Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer.<br />* Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data.<br />*HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />* Buat sebuah DWORD Value baru dan beri nama NoPropertiesMyComputer.<br />* Klik ganda NoPropertiesMyComputer dan masukkan angka 1 pada Value Data.<br />* Jika key Explorer tidak ada, buat yang baru dengan mengklik menu Edit ><br />New > Key dan beri nama Explorer.</span><span style="font-size: small;"><strong>14. DVD Di Windows Media Player</strong>* HKEY_CURRENT_USER/Software/Microsoft/MediaPlayer/Player/Settings<br />* Pilih menu Edit > New > String Value dan beri nama DVDUI.<br />* Klik ganda DVDUI dan masukkan teks Yes pada Value Data.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>15. Mengembalikan Akses Ke CD-ROM</strong>* HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro<br />l\Class\{4D36E965-E325-11CE-BFC1-08002BE10318}<br />* Hapus subkey LowerFilters dan UpperFilters dengan menekan tombol Del.</span><span style="font-size: small;"><strong>16. Membersihkan Sampah Registry</strong>* HKEY_CLASSES_ROOT/Application<br />* HKEY_CURRENT_USER/Software<br />* HKEY_LOCAL_MACHINE/SOFTWARE<br />* Pilih salah satu subkey yang merupakan nama software yang ingin dihapus,<br />kemudian tekan tombol Del.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>17. Membersihkan Sampah Uninstall</strong>* HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall<br />* Hapus subkey yang memiliki nama yang sama dengan software yang telah<br />di-uninstall. Menghapus Daftar Program Yang Tidak Diinginkan<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>18. Dari Add/Remove Programs</strong>* HKEY_LOCAL_MACHINE\ SOFTWARE\ Microsoft\ Windows\ CurrentVersion\ Uninstall<br />* Hapus subkey yang berisikan program yang tidak diinginkan dengan menekan tombol Del.</span><span style="font-size: small;"><strong>19. Menghapus StartUp Items Di MSCONFIG</strong>* Klik Start > Run > ketik msconfig, kemudian klik pada tab startup,<br />hilangkan tanda centang pada program yang ingin dihapus dari daftar startup.<br />* HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run<br />* HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curre ntVersion\Run<br />* Hapus subkey yang berisikan program-program yang tidak diinginkan dengan menekan tombol Del.</span><span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>20. Menonaktifkan Fungsi AutoRun</strong>*HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer<br />* Klik ganda NoDriveTypeAutoRun dan masukkan angka 95 pada Value Data.<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>21. Mematikan Secara Otomatis Program Not Responding</strong>* HKEY_USERS/.DEFAULT/Control Panel/Desktop<br />* Klik ganda AutoEndTasks dan masukkan angka 1 pada Value Data.<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>22. Tweaking Memory Pada Windows XP</strong>* HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/SessionManager/Memory Management<br />* Klik ganda pada DisablePagingExecutive dan masukkan angka 1 pada Value<br />Data.<br />* Apabila diaktifkan,Windows tidak akan melakukan paging file ke dalam hard<br />disk. Sistem operasi dan program-program menjadi lebih responsif. Disarankan untuk komputer yang memiliki memori lebih dari 128MB.<br />Klik ganda pada LargeSystemCache dan masukkan angka 1 pada Value Data.<br />Jika diaktifkan, sistem akan mengalokasikan seluruh memori (kecuali 4 MB<br />untuk disk caching) untuk file caching. Komputer akan melakukan caching<br />kernel XP di dalam memory sehingga Windows XP dapat berjalan lebih cepat.<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>23. Unload .dll Untuk Mempercepat Akses Memori</strong>* HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer<br />* Pilih menu Edit > New > Key dan beri nama AlwaysUnloadDLL.<br />* Pada option Default Value masukkan angka 1.<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>24. Mengoptimalkan Hard Disk Disaat Komputer Dalam Keadaan Idle</strong>* HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr<br />entVersion\OptimalLayout<br />* Buatlah sebuah DWORD Value Baru dan beri nama EnableAutoLayout.<br />* Klik ganda EnableAutoLayout dan masukkan angka 1 pada Value Data.<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>25. Mengosongkan Temporary Internet Files Pada Saat Exit</strong>* HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache<br />* HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Internet Settings\Cache<br />* Buat sebuah DWORD Value baru dan beri nama Persistent.<br />* Klik ganda Persistent dan masukkan angka 0 pada Value Data<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<span style="font-size: small;"><strong>26. Mencegah Klik Ganda Secara Tidak Sengaja</strong>* HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre<br />ntVersion\Explorer\Advanced<br />* Buat sebuah String Value baru jika belum tersedia dan beri nama<br />UseDoubleClickTimer.<br />* Klik ganda UseDoubleClickTimer dan masukkan angka 1 pada Value Data.<br />Nah itu tadi cara manual mempercepat kinerja komputer sedikit ribet namun hasilnya luar biasa, selamat mencoba.</span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
<br /></div>
<span style="font-size: small;"><div class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 12pt;">
<span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 14pt; mso-bidi-font-family: 'Times New Roman'; mso-bidi-font-size: 9.0pt; mso-effects-glow-alpha: 40.0%; mso-effects-glow-color: #FF7000; mso-effects-glow-colortransforms: satm=175000; mso-effects-glow-rad: 18.0pt; mso-effects-glow-themecolor: accent2; mso-effects-reflection-align: bottomleft; mso-effects-reflection-angdirection: 5400000; mso-effects-reflection-angfadedirection: 5400000; mso-effects-reflection-anglekx: 0; mso-effects-reflection-angleky: 0; mso-effects-reflection-dpidistance: 0pt; mso-effects-reflection-dpiradius: .5pt; mso-effects-reflection-pctalphaend: .3%; mso-effects-reflection-pctalphastart: 53.0%; mso-effects-reflection-pctendpos: 35.5%; mso-effects-reflection-pctstartpos: 0%; mso-effects-reflection-pctsx: 100.0%; mso-effects-reflection-pctsy: -90.0%; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none; mso-style-textfill-fill-gradientfill-shade-linearshade-angle: 5400000; mso-style-textfill-fill-gradientfill-shade-linearshade-fscaled: no; mso-style-textfill-fill-gradientfill-shadetype: linear; mso-style-textfill-fill-gradientfill-stoplist: '0 #203864 8 100000 lumm=50000,50000 #4472C4 8 100000,100000 #8FAADC 8 100000 lumm=60000 lumo=40000'; mso-style-textfill-type: gradient; mso-style-textoutline-outlinestyle-align: center; mso-style-textoutline-outlinestyle-compound: simple; mso-style-textoutline-outlinestyle-dash: solid; mso-style-textoutline-outlinestyle-dpiwidth: 0pt; mso-style-textoutline-outlinestyle-join: round; mso-style-textoutline-outlinestyle-linecap: flat; mso-style-textoutline-outlinestyle-pctmiterlimit: 0%; mso-style-textoutline-type: none;"><a href="http://snutzpark.blogspot.com/2012/12/cara-mempercepat-kinerja-windows-7.html" target="_blank"><span style="color: #d94e00; text-decoration: none; text-underline: none;">cara memperrcepat kinerja komputer/laptor Windows 7</span></a>. <o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 12pt;">
<span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;">Siapa yang tidak kesal apabila <b>komputer</b> maupun laptop yang kita miliki memiliki loading yang berat. Disini kita akan memperbaiki <b>kinerja</b> dari windows 7 dengan cara sederhana dan cukup <b>mudah</b> untuk dilakukan. Penyebab PC kita menjadi lambat sebenarnya dikarenakan oleh banyak faktor, bisa dari software yang terinstal, terlalu banyak game, sampai kondisi dari internal prosesor sendiri. Nah, untuk sedikit mengatasi hal tersebut wahyu akan memberikan trik komputer sederhana untuk mempercepat kinerja dari <b>windows </b>7. Langsung saja.<o:p></o:p></span></div>
<div align="center" class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 0pt; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQH0fDQjuiAYWMpNyHfaS0p3dupEeIZLA4PXaVR44xdXYhvwCk3gUv030vnmKbLfEcMG5JgKZ4bDpss39AXOfYwbpMmtHW_G6YQAceolozd86CMXgIzQU_bhyDe38-PeeT_Bk5SWEBlzc3/s1600/cara+mempercepat+kinerja+windows+7.png"><span style="color: #d94e00; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-no-proof: yes; text-decoration: none; text-underline: none;"><v:shapetype coordsize="21600,21600" filled="f" id="_x0000_t75" o:preferrelative="t" o:spt="75" path="m@4@5l@4@11@9@11@9@5xe" stroked="f"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path gradientshapeok="t" o:connecttype="rect" o:extrusionok="f"></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape alt="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQH0fDQjuiAYWMpNyHfaS0p3dupEeIZLA4PXaVR44xdXYhvwCk3gUv030vnmKbLfEcMG5JgKZ4bDpss39AXOfYwbpMmtHW_G6YQAceolozd86CMXgIzQU_bhyDe38-PeeT_Bk5SWEBlzc3/s320/cara+mempercepat+kinerja+windows+7.png" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQH0fDQjuiAYWMpNyHfaS0p3dupEeIZLA4PXaVR44xdXYhvwCk3gUv030vnmKbLfEcMG5JgKZ4bDpss39AXOfYwbpMmtHW_G6YQAceolozd86CMXgIzQU_bhyDe38-PeeT_Bk5SWEBlzc3/s1600/cara+mempercepat+kinerja+windows+7.png" id="Picture_x0020_1" o:button="t" o:spid="_x0000_i1025" style="height: 150pt; mso-wrap-style: square; visibility: visible; width: 240pt;" type="#_x0000_t75"><v:imagedata o:title="cara+mempercepat+kinerja+windows+7" src="file:///C:\Users\Saidi\AppData\Local\Temp\msohtmlclip1\01\clip_image001.png"></v:imagedata></v:shape></span></a><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 12pt;">
<span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br /><br />Silahkan lakukan langkah mudahnya di bawah ini.<br />1. Silahkan buka Notepad.<br />2. Copy kode script di bawah ini dan copy pastekan pada notepad tersebut.</span></div>
<div class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 12pt;">
<o:p></o:p></div>
</span><br />
<div class="MsoNormal" style="background: white; line-height: 24pt; margin: 0cm 0cm 7.5pt;">
<span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"># Windows Registry Editor Version 5.00</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br /><br />[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\Explorer]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />"NoLowDiskSpaceChecks"=dword:00000001 <br />"LinkResolveIgnoreLinkInfo"=dword:00000001 <br />"NoResolveSearch"=dword:00000001 <br />"NoResolveTrack"=dword:00000001 <br />"NoInternetOpenWith"=dword:00000001 <br /><br />[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\Con textMenuHandlers\Copy To]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="{C2FBB630-2971-11D1-A18C-00C04FD75D13}" <br /><br />[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\Con textMenuHandlers\Move To]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="{C2FBB631-2971-11D1-A18C-00C04FD75D13}" <br /><br />[HKEY_CURRENT_USER\Control Panel\Desktop]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />"AutoEndTasks"="1" <br />"HungAppTimeout"="1000" <br />"MenuShowDelay"="8" <br />"WaitToKillAppTimeout"="2000" <br />"LowLevelHooksTimeout"="1000" <br /><br />[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />"WaitToKillServiceTimeout"="1000" <br /><br />[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\RemoteComputer]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br /><br />[HKEY_CLASSES_ROOT\*\shell\runas]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="Take Ownership" <br />"NoWorkingDirectory"="" <br /><br />[HKEY_CLASSES_ROOT\*\shell\runas\command]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant administrators:F" <br />"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" && icacls \"%1\" /grant administrators:F" <br /><br />[HKEY_CLASSES_ROOT\Directory\shell\runas]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="Take Ownership" <br />"NoWorkingDirectory"="" <br /><br />[HKEY_CLASSES_ROOT\Directory\shell\runas\command]</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> </span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 7.5pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />@="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant administrators:F /t" <br />"IsolatedCommand"="cmd.exe /c takeown /f \"%1\" /r /d y && icacls \"%1\" /grant administrators:F /t"</span><span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"> <o:p></o:p></span></div>
<div class="MsoNormal" style="margin: 0cm 0cm 8pt;">
<span style="color: #666666; font-family: 'Candara','sans-serif'; font-size: 9pt; line-height: 107%; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><br />3. Kemudian simpan kode tersebut dengan extensi .reg. Contoh : wahyucool.reg.<br />4. Setelah tersimpan buka kode file tersebut.<br />5. Dan yang terakhir silahkan restrart komputer anda.<br /><br />Maka dengan trik komputer yang sederhana ini komputer yang anda miliki akan memiliki loading yang lumayan cepat. Dengan cara ini anda sudah berhasil <a href="http://snutzpark.blogspot.com/2012/12/cara-mempercepat-kinerja-windows-7.html" target="_blank"><span style="color: #d94e00; text-decoration: none; text-underline: none;">Mempercepat Loading Windows 7</span></a> dengan mudahnya. Demikianlah artikel saya kali ini. Selamat mencoba da semoga berhasil.</span><span style="font-family: 'Candara','sans-serif'; mso-fareast-font-family: SimSun;"><o:p></o:p></span></div>
<div class="MsoNormal" style="background: white; line-height: 15.6pt; margin: 0cm 0cm 8pt;">
</div>
<span style="color: black; font-family: 'Candara','sans-serif'; mso-bidi-font-family: 'Times New Roman'; mso-fareast-font-family: SimSun; mso-font-kerning: 0pt; mso-ligatures: none;"><o:p></o:p></span> <br />
<div class="MsoNormal" style="margin: 0cm 0cm 8pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 8pt;">
<br /></div>
<div class="MsoNormal" style="margin: 0cm 0cm 8pt;">
<br /></div>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-5193234528698775912012-12-21T01:14:00.002-08:002012-12-21T01:15:26.116-08:00<div class="region-inner header-inner">
<div class="header section" id="header">
<div class="widget Header" id="Header1">
<div id="header-inner">
<div class="titlewrapper">
<h1 class="title">
<a href="http://mikrot1k.blogspot.com/">.: BELAJAR MIKROTIK :.</a>
</h1>
</div>
<div class="descriptionwrapper">
<div class="description">
<span>
</span></div>
</div>
</div>
</div>
</div>
</div>
<div class="header-cap-bottom cap-bottom">
</div>
<div class="tabs-outer">
<div class="tabs-cap-top cap-top">
</div>
<div class="fauxborder-left tabs-fauxborder-left">
<div class="region-inner tabs-inner">
</div>
</div>
<div class="tabs-cap-bottom cap-bottom">
</div>
</div>
<div class="main-cap-top cap-top">
</div>
<div class="fauxcolumn-outer fauxcolumn-center-outer">
<div class="cap-top">
</div>
<div class="fauxborder-left">
<div class="fauxcolumn-inner">
</div>
</div>
<div class="cap-bottom">
</div>
</div>
<div class="fauxcolumn-outer fauxcolumn-left-outer">
<div class="cap-top">
</div>
<div class="fauxborder-left">
<div class="fauxcolumn-inner">
</div>
</div>
<div class="cap-bottom">
</div>
</div>
<div class="fauxcolumn-outer fauxcolumn-right-outer">
<div class="cap-top">
</div>
<div class="fauxborder-left">
<div class="fauxcolumn-inner">
</div>
</div>
<div class="cap-bottom">
</div>
</div>
<h2 class="date-header">
<span>Kamis, 16 Juni 2011</span></h2>
<a href="http://www.blogger.com/blogger.g?blogID=8451214738611334041" name="2487955598120335680"></a>
<h3 class="post-title entry-title" itemprop="name">
.: INSTAL MIKROTIK PADA VIRTUALBOX :.
</h3>
<div class="post-header">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5FPfv-z3Zg2haTnRYBflOqTQBI6rHntMLGUoys4rY4LOkGuJV2FhoZQbC8sOT9Cm2bIrN7uVI-_AQ83OqU8uR4t5v9dA-7ug6uQ2L8RkpbAwTqTCaBxYH1G2Oy07alBCDxHHPBt7mhd_7/s1600/button_cr.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="170" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5FPfv-z3Zg2haTnRYBflOqTQBI6rHntMLGUoys4rY4LOkGuJV2FhoZQbC8sOT9Cm2bIrN7uVI-_AQ83OqU8uR4t5v9dA-7ug6uQ2L8RkpbAwTqTCaBxYH1G2Oy07alBCDxHHPBt7mhd_7/s400/button_cr.png" width="400" /></a></div>
<br />
Bagi kalian yang ingin belajar mikrotik dan gak punya uang buat beli RB
lah.. atau kasian computer dirumah di instal mikrotik doang.. Sebenarnya
ada banyak cara dan cara inipun sudah banyak bertebaran di internet..
Tetapi yang disayangkan kebanyakan COPAS ( Copy Paste ) Saya sering kali
melihat itu.. Ok Dah Let's Go To Pelajaran Pertama<br />
<br />
1. Siap Kan Kopi atau Teh<br />
2. Snack Ringan<br />
3. Rokok Marlboro Putih (Kesenangan saya )<br />
<br />
<br />
<br />
Langkah Pertama : Download Virtualbox <a href="http://download.virtualbox.org/virtualbox/4.0.8/VirtualBox-4.0.8-71778-Win.exe">Disini</a><br />
Langkah Kedua : Download Mikrotik <a href="http://xover4.jkt.3d.x.indowebster.com./download/39/2e9fd22d003fdef511f7ad5cdae6d25f.rar">Disini</a><br />
<br />
<br />
Instal Virtualbox seperti instal program biasa.<br />
Setelah penginstalan selesai kita ikuti intruksi dibawah ini <br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6PmMBlgk8tf4QYVrTEBVu6xf6c2eM6AONBsBEsN2Hzvqnv81ln1HMpSUz4guZSndbox-1kwBlGzRn_JZXRLPu3oIjulUljEWYqBLE6_AZSMqwMvsSml5dlWAXj4-ouDMKrfHOrU85rpaN/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div>
<div style="text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6PmMBlgk8tf4QYVrTEBVu6xf6c2eM6AONBsBEsN2Hzvqnv81ln1HMpSUz4guZSndbox-1kwBlGzRn_JZXRLPu3oIjulUljEWYqBLE6_AZSMqwMvsSml5dlWAXj4-ouDMKrfHOrU85rpaN/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6PmMBlgk8tf4QYVrTEBVu6xf6c2eM6AONBsBEsN2Hzvqnv81ln1HMpSUz4guZSndbox-1kwBlGzRn_JZXRLPu3oIjulUljEWYqBLE6_AZSMqwMvsSml5dlWAXj4-ouDMKrfHOrU85rpaN/s400/1.jpg" width="400" /> </a></div>
Pilih Operating Sistem : Linux<br />
Version : Linux 2.4 <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbIDe8XttOTgZ3MjwvA2VTOB7cOhqgzRRvHyGDnCtlRROOS45Km5dzOuAmQHo_8quzGI0gvFuQQP0hd2nV8F18NAXc2wSQkcMa1SiHrCfUITwTJr1MBs6U15Jfv1fNumI0OEQDKQ9VvGM8/s1600/2.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbIDe8XttOTgZ3MjwvA2VTOB7cOhqgzRRvHyGDnCtlRROOS45Km5dzOuAmQHo_8quzGI0gvFuQQP0hd2nV8F18NAXc2wSQkcMa1SiHrCfUITwTJr1MBs6U15Jfv1fNumI0OEQDKQ9VvGM8/s400/2.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
Kapasitas Memory : 128</div>
<div class="separator" style="clear: both; text-align: left;">
Biar Cepet Crack Entar<a name='more'></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br />
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEik6Qvnwaqv6LvYuKlnMUC37oJ5OlT1JE_ODeE1-8I1GVMAUhZhmI0gwiDwyqHsLXN7LMQLq3jYf4F5W16C4wLdg5WQQUZwl7L2Ei8_EiwTSi0YLUiTjLTEp_eYlqM1fxgstUU8Vq_6k8TE/s1600/3.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEik6Qvnwaqv6LvYuKlnMUC37oJ5OlT1JE_ODeE1-8I1GVMAUhZhmI0gwiDwyqHsLXN7LMQLq3jYf4F5W16C4wLdg5WQQUZwl7L2Ei8_EiwTSi0YLUiTjLTEp_eYlqM1fxgstUU8Vq_6k8TE/s400/3.jpg" width="400" /></a></div>
Create Hardisk sekarang... Ikuti langkah ini ya<br />
Kalau sudah tahu ya lewatin aja<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrTKC2ysSLbKLYtcYc81F9VR1fGnUdV53vWUY3w8oIHGGIqloEQ0rmC2eqVeNj2waKvds5w7THT20SR46lWgeT1hspTwLIbXzPIvuGtpB9MFixLpbcJ5XsmhqmplQO8KKQWObyy4WZTUNj/s1600/4.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrTKC2ysSLbKLYtcYc81F9VR1fGnUdV53vWUY3w8oIHGGIqloEQ0rmC2eqVeNj2waKvds5w7THT20SR46lWgeT1hspTwLIbXzPIvuGtpB9MFixLpbcJ5XsmhqmplQO8KKQWObyy4WZTUNj/s400/4.jpg" width="400" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcvOcDF_13QYnpCIf-wWK0LVHLo1X6xZEjIEcIO1KcNqI1ZbH13Hl8mZeW2_TQQRcKAsNn8jhejK8aYYsI4ATC5w9ruqL0ty1p7CVIiIBV5xJbsIRDPzvnUc1hAuaMTaG9opoGsaFVtmki/s1600/5.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcvOcDF_13QYnpCIf-wWK0LVHLo1X6xZEjIEcIO1KcNqI1ZbH13Hl8mZeW2_TQQRcKAsNn8jhejK8aYYsI4ATC5w9ruqL0ty1p7CVIiIBV5xJbsIRDPzvnUc1hAuaMTaG9opoGsaFVtmki/s400/5.jpg" width="400" /></a></div>
Buat Hardisk 4 GB atau 8 GB<br />
Gak Usah banyak-banyak.. buat apa resource besar"<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijY0aOWDfZj9Q63Zmq56wbQdygn4B5jn5iVRr84nZWKaX9COO7Bl82Lg41S_-f8kEKO8DH-Y_InkachcrzNTRVbEyUwN_pNRyAzzBwlssALfrFd4Kjf65iMOYyu09gOMh-5Y4Uyl3POOao/s1600/6.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijY0aOWDfZj9Q63Zmq56wbQdygn4B5jn5iVRr84nZWKaX9COO7Bl82Lg41S_-f8kEKO8DH-Y_InkachcrzNTRVbEyUwN_pNRyAzzBwlssALfrFd4Kjf65iMOYyu09gOMh-5Y4Uyl3POOao/s400/6.jpg" width="400" /></a></div>
Sekarang Setting Network nya.. <br />
Network nya pilih yang asli terkonek ke Internet ok<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6OU9Ee5MXWsxgQoI3N1WJfzAzranrP8gs69r6rscke_aKVakz2WrDIv-FRKLZBYgVqs2-vYWcUGkkh6Ug3oS3gr9I34gX6nksWtTFk9LM2QmG4_FZ4SewsoRK6DrjfHR8CZqtpBItHbcY/s1600/7.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6OU9Ee5MXWsxgQoI3N1WJfzAzranrP8gs69r6rscke_aKVakz2WrDIv-FRKLZBYgVqs2-vYWcUGkkh6Ug3oS3gr9I34gX6nksWtTFk9LM2QmG4_FZ4SewsoRK6DrjfHR8CZqtpBItHbcY/s400/7.jpg" width="400" /></a></div>
Pilih File iso Mikrotik Dimana anda menyimpan tadi?<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglA2jYQ5gsMWSNgXZVAolFK_-c7pNpLHF1q71LTwdld_pSd_8iGIiMgsYESg4Pj5Ojuz1XNTs10ijj6MR0maVC-r5YxYfDlElMk-ieXkGMIahAfO76aRa5Gy3_KZVzqmP24VaWN1pC7sVP/s1600/8.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglA2jYQ5gsMWSNgXZVAolFK_-c7pNpLHF1q71LTwdld_pSd_8iGIiMgsYESg4Pj5Ojuz1XNTs10ijj6MR0maVC-r5YxYfDlElMk-ieXkGMIahAfO76aRa5Gy3_KZVzqmP24VaWN1pC7sVP/s400/8.jpg" width="400" /></a></div>
Cara pilih semua Tekan "a" <br />
Untuk yang tidak berisi tanda X hilangkan dengan Tombol "Space" <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGTlHlR4jrpnJadHs0Gs6WiV3xl4Zpawpq74_FXdtvqTVYPU8mxwTL1sr0zHscoonUEcNS1rIAmVjTt4jtWfOsZBt8feNPNj2Yp19r8SRWMhGTKQzhDEHzdiLTddKP6K18VYV4Xo6wWj6L/s1600/9.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGTlHlR4jrpnJadHs0Gs6WiV3xl4Zpawpq74_FXdtvqTVYPU8mxwTL1sr0zHscoonUEcNS1rIAmVjTt4jtWfOsZBt8feNPNj2Yp19r8SRWMhGTKQzhDEHzdiLTddKP6K18VYV4Xo6wWj6L/s400/9.jpg" width="400" /></a></div>
kemudian tekan " i " <br />
Kemudian " Y " <br />
Dan Lagi " Y " <br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgXGb_hL3-B3BEsDujMXXK_q-ErlABzjStydvwXgMMUnr7qw4ZX20HIp8Go3Si0CMQnOxrbme5ut9-ueJ3RiHWPkSZhS6hmG_IYWjq-GlbFA8myx5qKSb5LUjIVSu5Wi5S0uDixAAZDg33/s1600/10.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgXGb_hL3-B3BEsDujMXXK_q-ErlABzjStydvwXgMMUnr7qw4ZX20HIp8Go3Si0CMQnOxrbme5ut9-ueJ3RiHWPkSZhS6hmG_IYWjq-GlbFA8myx5qKSb5LUjIVSu5Wi5S0uDixAAZDg33/s400/10.jpg" width="400" /></a></div>
Setelah tahap instal selesai sekarang kembali ke device kita cari "Roskey" <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQx9fZ4Wq5JWRUKNxmmtzR5PebxwbFbc0BtYP2QulTtguMwJBCbML_b9pqhKTKqtjlaIbGL_APZQWeMsvAI5jByB8Y16Tu2WxGvbYezBZTbajTHp_oYmy7YYbSaLWJDN6stSSfwbazpUUc/s1600/11.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQx9fZ4Wq5JWRUKNxmmtzR5PebxwbFbc0BtYP2QulTtguMwJBCbML_b9pqhKTKqtjlaIbGL_APZQWeMsvAI5jByB8Y16Tu2WxGvbYezBZTbajTHp_oYmy7YYbSaLWJDN6stSSfwbazpUUc/s400/11.jpg" width="400" /></a></div>
Setelah di pilih kemudian OK <br />
terus Tekan Enter <br />
Nah sekarang dia Boot Linux lagi.... Proses Cracking<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxMEk-v_wCTw4iSvDETpBD_NoxFsWUNtlfK_0gcOqljSDOIF6TxiiZVHvg-OY5qkl37s1wtKGjnYn83xff1XOEQxyer3_ssRp3RN_jpGAAn2VPWJg2wMYLjnpvRSnBK2c4hF277WDi6849/s1600/12.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxMEk-v_wCTw4iSvDETpBD_NoxFsWUNtlfK_0gcOqljSDOIF6TxiiZVHvg-OY5qkl37s1wtKGjnYn83xff1XOEQxyer3_ssRp3RN_jpGAAn2VPWJg2wMYLjnpvRSnBK2c4hF277WDi6849/s400/12.jpg" width="400" /></a></div>
Login : root <br />
Kemudian Enter <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpvlVCnRpf3bYw_Gik0b3iyqpJmCFOQCPgj4mC651Zh09tgTosn3eYuOmti1RoLh2WXiKTmuz9fSzf2kHJqp0fJoW9zDKjcjIRKf-1BKcBQDQDzHwpI4kIFwDR2-QjRClyA0O_TSWFaj09/s1600/13.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgpvlVCnRpf3bYw_Gik0b3iyqpJmCFOQCPgj4mC651Zh09tgTosn3eYuOmti1RoLh2WXiKTmuz9fSzf2kHJqp0fJoW9zDKjcjIRKf-1BKcBQDQDzHwpI4kIFwDR2-QjRClyA0O_TSWFaj09/s400/13.jpg" width="400" /></a></div>
Ketik Perintah : roskey /dev/hda <br />
Kemudian Enter <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIhBMZrF99m-PabBJuRHDi57p5hT6wrEu3C02bmp_Pxf-n73Zvs7DZA2JYWJvkYUu4yxY_Q-vo9wXxxbSLGdUSHi90khN6eY3W1BAdcJ8KA8JpRwwoxfrksDt8LjJPRdi0GCQtcE0sZL28/s1600/14.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIhBMZrF99m-PabBJuRHDi57p5hT6wrEu3C02bmp_Pxf-n73Zvs7DZA2JYWJvkYUu4yxY_Q-vo9wXxxbSLGdUSHi90khN6eY3W1BAdcJ8KA8JpRwwoxfrksDt8LjJPRdi0GCQtcE0sZL28/s400/14.jpg" width="400" /></a></div>
Sabar Menunggu Ok Om... <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVQk3FG0KjDe7s9p_cSIEciIcYqFvmZtIvZqjdFF6JT1TV4lswgQfElPteSypISdhOjEclgm3AMvjtx5tB0HJyVltda-kmy65I5K8tora6hh0oiDix1oWvewYFSAHhui7PtCUFD9ZH9Axn/s1600/15.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVQk3FG0KjDe7s9p_cSIEciIcYqFvmZtIvZqjdFF6JT1TV4lswgQfElPteSypISdhOjEclgm3AMvjtx5tB0HJyVltda-kmy65I5K8tora6hh0oiDix1oWvewYFSAHhui7PtCUFD9ZH9Axn/s400/15.jpg" width="400" /></a></div>
Lihat Key yang paling trakhir catat itu jangan Lupa ya.... <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRy78CBCTYeb65jEVprKFpvQDLjjkd5OBw0f11O_Y1jhxpXtv-54GWBetLHws8FhNaGgDq_5PG8Z4MF6m_MSh9k8mkr-r5u-0EvySTvYI5UTsHpXXcd5qz9iBlGvBwzT4HWLLDf91ZQ-u7/s1600/16.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRy78CBCTYeb65jEVprKFpvQDLjjkd5OBw0f11O_Y1jhxpXtv-54GWBetLHws8FhNaGgDq_5PG8Z4MF6m_MSh9k8mkr-r5u-0EvySTvYI5UTsHpXXcd5qz9iBlGvBwzT4HWLLDf91ZQ-u7/s400/16.jpg" width="400" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqJAJOHftjvfvDVVoZ-2mCZQ10xqAN00eDQT-yhSLonFdGSHjbcJfyxPfzOrw7G-_mch4g3olKpm_iAfkIoUckNn-nGBJxRXSCwsoUp6jCnmUtkr-xEnSfbzs4CRbK1II_d9N5nAE19fbo/s1600/17.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqJAJOHftjvfvDVVoZ-2mCZQ10xqAN00eDQT-yhSLonFdGSHjbcJfyxPfzOrw7G-_mch4g3olKpm_iAfkIoUckNn-nGBJxRXSCwsoUp6jCnmUtkr-xEnSfbzs4CRbK1II_d9N5nAE19fbo/s400/17.jpg" width="400" /></a></div>
Setelah Crack selesai Kembalikan Drivenya ke Host Drive. <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrRdexg1_4LU6cRSOghNTAzyayQROJlk7RKGO27CUTb30KtlPWsaiMDHZ60DAdazDxOseP-LSt-xTQHtqWUuyJavxnBckECjJiIDGWhPasbDmH-8Cnxu73cSRqZNmNrjRYDOYau5qSUSqw/s1600/18.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrRdexg1_4LU6cRSOghNTAzyayQROJlk7RKGO27CUTb30KtlPWsaiMDHZ60DAdazDxOseP-LSt-xTQHtqWUuyJavxnBckECjJiIDGWhPasbDmH-8Cnxu73cSRqZNmNrjRYDOYau5qSUSqw/s400/18.jpg" width="400" /></a></div>
Klick MAC addres itu Kemudian Connect<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAL05kXc0A33EjfgAAUCUZJYWUA_MVGxdvw-8k7b28-1jK3uRx4kKZwgmI6dkoF_89GAp-h5Nxs3Ko0nS9_7FMkXmBtGgf0DY94Da0aC9HIda6_rIt0ha3JF2uEBe3CdUPAmbyMcQBUOtD/s1600/19.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAL05kXc0A33EjfgAAUCUZJYWUA_MVGxdvw-8k7b28-1jK3uRx4kKZwgmI6dkoF_89GAp-h5Nxs3Ko0nS9_7FMkXmBtGgf0DY94Da0aC9HIda6_rIt0ha3JF2uEBe3CdUPAmbyMcQBUOtD/s400/19.jpg" width="400" /></a></div>
Tapi sabar Dolo brow jangan Buru" mikrotik ini masih trial <br />
Lihat tu kan Trial dia..<br />
Lihat ke System --> License <br />
Kamu kan sudah download packet mikrotik itu nah di dalam folder itu sudah tersedia key.tex<br />
cari yang code yang sama dengan code Software-ID<br />
Kemudian Copy key itu dan tekan Paste-Key <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaLgQneF0V-Ftv6kv4uu8jOC-3-U1WdI3wyFl0VOeiguoBQCpFy4j4DAnWKL25pL0hbsvSUf5pbaJZKCiDS-8CMbc2gdbKaD0d0IxjkOzltApWQ4pLBJV9oKjbFZtFe1yxueVFk7QJM9Io/s1600/20.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaLgQneF0V-Ftv6kv4uu8jOC-3-U1WdI3wyFl0VOeiguoBQCpFy4j4DAnWKL25pL0hbsvSUf5pbaJZKCiDS-8CMbc2gdbKaD0d0IxjkOzltApWQ4pLBJV9oKjbFZtFe1yxueVFk7QJM9Io/s400/20.jpg" width="400" /></a></div>
Taraaaaaaaaaaaaaaaaaaaaaaaaa... Mikrotik 3.20 License Level 5 sudah berhasil di dapatkan <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgejXA9cBbe-hAX1x28wFd46OfuIobvM30kjuvSP8wT7gl9aYgh8CvfmrsKK7jZGEioueRulZPifJwZOG9hvbYpeS31nXRhffG99yCQ_SC1H99B8kxkzY-sHHKM5MuWqekdNbV5BM5trBcz/s1600/21.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="250" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgejXA9cBbe-hAX1x28wFd46OfuIobvM30kjuvSP8wT7gl9aYgh8CvfmrsKK7jZGEioueRulZPifJwZOG9hvbYpeS31nXRhffG99yCQ_SC1H99B8kxkzY-sHHKM5MuWqekdNbV5BM5trBcz/s400/21.jpg" width="400" /></a></div>
Nah untuk yang ini Kita belajarnya nanti saja ya setelah ujian Q selesai... ceeees ^_^<br />
orang ganteng Numpang Lewat Om....<br />
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-31059386598197193672012-12-21T01:07:00.000-08:002012-12-21T01:07:13.698-08:00<div class="dokuwiki">
<div class="stylehead">
<div class="header">
<div class="pagename">
[[<a href="http://ugos.ugm.ac.id/wiki/panduan:panduan_penggunaan_virtualbox?do=backlink" title="Backlinks">panduan:panduan_penggunaan_virtualbox</a>]]
</div>
<div class="logo">
<a accesskey="h" href="http://ugos.ugm.ac.id/wiki/home" id="dokuwiki__top" name="dokuwiki__top" title="[H]">WIKI UGOS</a> </div>
</div>
<div class="bar" id="bar__top">
<div class="bar-left" id="bar__topleft">
</div>
<div class="bar-right" id="bar__topright">
<form accept-charset="utf-8" action="/wiki/home" class="search" id="dw__search" method="get">
<div class="no">
<input accesskey="f" class="edit" id="qsearch__in" name="id" title="[F]" type="text" /></div>
</form>
<br />
<form action="" class="button" method="get">
<div class="no">
</div>
</form>
</div>
</div>
<div class="breadcrumbs">
<span class="bchead">Trace:</span> <span class="bcsep">•</span> <span class="curid"><a class="breadcrumbs" href="http://ugos.ugm.ac.id/wiki/panduan:panduan_penggunaan_virtualbox" title="panduan:panduan_penggunaan_virtualbox">panduan_penggunaan_virtualbox</a></span> </div>
<div class="breadcrumbs">
<span class="bchead">You are here: </span><a class="wikilink1" href="http://ugos.ugm.ac.id/wiki/home" title="home">home</a> » <a class="wikilink1" href="http://ugos.ugm.ac.id/wiki/panduan:home" title="panduan:home">panduan</a> » <span class="curid"><a class="wikilink1" href="http://ugos.ugm.ac.id/wiki/panduan:panduan_penggunaan_virtualbox" title="panduan:panduan_penggunaan_virtualbox">panduan_penggunaan_virtualbox</a></span> </div>
</div>
<div class="page">
<h1 class="sectionedit1" id="panduan_penggunaan_virtualbox">
Panduan Penggunaan VirtualBox</h1>
<div class="level1">
</div>
<h2 class="sectionedit2" id="panduan_penggunaan_virtualbox1">
Panduan Penggunaan Virtualbox</h2>
<div class="level2">
Selamat datang di dunia virtualisasi dan Linux. Tutorial ini dimaksudkan
untuk membantu pengguna yang baru ke dunia virtualisasi dan Linux
Sistem Operasi untuk menginstal dan mengkonfigurasi aplikasi Sun
VirtualBox dan kemudian instal Linux Mint 5 sebagai sistem operasi tamu
dengan menggunakan VirtualBox aplikasi Graphical User Interface (<abbr title="Graphical User Interface">GUI</abbr>).
<br />
Persyaratan Sistem untuk ini Tutorial:
(Sistem lain yang serupa) Windows XP atau Vista sistem operasi
menggunakan NTFS File Sistem (sistem berkas FAT batas ukuran file
berdekatan menjadi sekitar 4 Gigabytes, lihat Persyaratan Hard Drive
Space) 1,5 Gigabytes RAM (sistem minimum yang disarankan memori)
Setidaknya 20 Gigabytes free Hard Drive Space (Minimum 8 Gigabytes
diperlukan untuk virtual hard drive)
<br />
Untuk memulai, Anda perlu untuk men-download file instalasi untuk VirtualBox (pengguna Windows pilih x86/amd64):
<a class="urlextern" href="http://www.virtualbox.org/wiki/Downloads" rel="nofollow" title="http://www.virtualbox.org/wiki/Downloads">http://www.virtualbox.org/wiki/Downloads</a>
<br />
Untuk file iso bisa di unduh di <a class="urlextern" href="http://repo.ugm.ac.id/iso" rel="nofollow" title="http://repo.ugm.ac.id/iso">http://repo.ugm.ac.id/iso</a> :
<br />
Setelah Anda telah men-download file, Anda dapat mulai instalasi proses
dengan membuat restore point pada sistem restore. Hal ini dianjurkan
dalam hal instalasi penyebab kesalahan. Saya telah menggunakan
VirtualBox selama lebih dari satu tahun sebagai tulisan ini dan belum
memiliki masalah ketidakstabilan sistem karena itu.
<br />
Langkah pertama adalah untuk meluncurkan file instalasi dengan mengklik
(atau double-mengklik) pada file executable. Klik “Next” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox1.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox1.jpg"><img alt="vbox1.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox1.jpg?w=400" title="vbox1.jpg" width="400" /></a>
<br />
Menerima perjanjian lisensi dan pilih <b>“Next”</b>:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox2.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox2.jpg"><img alt="vbox2.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox2.jpg?w=400" title="vbox2.jpg" width="400" /></a>
<br />
Terima menginstal setting default dengan memilih “Next”:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox3.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox3.jpg"><img alt="vbox3.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox3.jpg?w=400" title="vbox3.jpg" width="400" /></a>
<br />
Pilih cara pintas preferensi Anda dan pilih “Next”:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox4.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox4.jpg"><img alt="vbox4.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox4.jpg?w=400" title="vbox4.jpg" width="400" /></a>
<br />
Installer VirtualBox akan memperingatkan Anda bahwa itu harus mengatur ulang koneksi jaringan anda saat instalasi. Pilih “Ya”:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox5.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox5.jpg"><img alt="vbox5.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox5.jpg?w=400" title="vbox5.jpg" width="400" /></a>
<br />
Terima menginstal pengaturan dengan memilih “Instal”:
<br />
<a name='more'></a><br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox6.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox6.jpg"><img alt="vbox6.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox6.jpg?w=400" title="vbox6.jpg" width="400" /></a>
<br />
Selama proses instalasi Anda akan melihat kotak-kotak pemberitahuan seperti contoh ini:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox7.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox7.jpg"><img alt="vbox7.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox7.jpg?w=400" title="vbox7.jpg" width="400" /></a>
<br />
Pilih “Continue Anyway” untuk melanjutkan proses instalasi. Setelah
instalasi selesai, Anda akan melihat jendela berikut. Pilihan untuk
memulai VirtualBox harus memeriksa secara default. Dengan “Sun Mulai
VirtualBox setelah instalasi” pilihan dicentang, pilih “Finish”:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox8.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox8.jpg"><img alt="vbox8.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox8.jpg?w=400" title="vbox8.jpg" width="400" /></a>
<br />
Isi informasi pendaftaran dan pilih “Register”:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox9.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox9.jpg"><img alt="vbox9.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox9.jpg?w=400" title="vbox9.jpg" width="400" /></a>
<br />
Jika <abbr title="Graphical User Interface">GUI</abbr> VirtualBox tidak memuat, buka menu Start> All Programs> Sun VirtualBox> VirtualBox untuk meluncurkan aplikasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox10.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox10.jpg"><img alt="vbox10.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox10.jpg?w=400" title="vbox10.jpg" width="400" /></a>
<br />
Ini adalah VirtualBox User Interface grafis (<abbr title="Graphical User Interface">GUI</abbr>).
Untuk memulai, kita akan mengkonfigurasi sistem operasi tamu. Sistem
operasi yang Anda telah menginstal aplikasi VirtualBox ini dianggap
sebagai sistem operasi host. Untuk tutorial ini, kita akan menginstal
Linux Mint 5.0 LTS (Long Term Support) sebagai sistem operasi tamu. Pada
sudut kiri atas pilih “New” . Hal ini akan meluncurkan “New Virtual
Machine Wizard!”
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox11.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox11.jpg"><img alt="vbox11.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox11.jpg?w=400" title="vbox11.jpg" width="400" /></a>
<br />
Pilih “Next” . Langkah pertama dalam proses ini adalah untuk nama sistem operasi tamu dan mengidentifikasi jenis sistem operasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox12.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox12.jpg"><img alt="vbox12.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox12.jpg?w=400" title="vbox12.jpg" width="400" /></a>
<br />
Seperti yang terlihat di layar, saya biasanya nama sistem operasi tamu
LM5. Gunakan panah drop-down di sebelah kanan “Sistem Operasi:” untuk
memilih “Linux” dan mengidentifikasi “Versi:” sebagai “Ubuntu” (Linux
Mint adalah turunan Ubuntu). Setelah pengaturan ini sudah benar, pilih
tombol “Next”.
<br />
Langkah berikutnya adalah memilih berapa banyak memori sistem anda untuk
mengalokasikan ke sistem operasi tamu mesin virtual. Tidak menyarankan
menggunakan VirtualBox pada host Windows kecuali jika tuan rumah
memiliki sedikitnya 1,5 gigabyte RAM. Meskipun alokasi memori default
dasar untuk 384 <abbr title="Megabyte">MB</abbr> seperti yang terlihat
di layar, saya sarankan mengalokasikan 512 megabyte RAM sistem untuk
tamu. Saya merasa paling mudah untuk memilih kotak di sebelah kanan
slider bar dengan kursor mouse saya dan gunakan tombol nomor saya untuk
memasukkan “512”pada kotak <abbr title="Megabyte">MB</abbr>.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox13.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox13.jpg"><img alt="vbox13.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox13.jpg?w=400" title="vbox13.jpg" width="400" /></a>
<br />
Setelah Base Memory Size disetel ke “512” <abbr title="Megabyte">MB</abbr>, pilih tombol “Next”.
<br />
Langkah selanjutnya adalah membuat Virtual Hard Disk. Screenshot
menunjukkan VirtualBox Pengaturan default pada tulisan ini. Biarkan
pengaturan pada pengaturan default mereka dan pilih “Next”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox14.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox14.jpg"><img alt="vbox14.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox14.jpg?w=400" title="vbox14.jpg" width="400" /></a>
<br />
Create New Virtual Disk Wizard akan terbuka. Pilih “Next” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox15.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox15.jpg"><img alt="vbox15.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox15.jpg?w=400" title="vbox15.jpg" width="400" /></a>
<br />
Pengaturan default untuk Hard Disk Storage Type “dinamis memperluas
penyimpanan”. Saya sarankan menerima pengaturan standar. Jika tidak,
Anda dapat memilih jumlah tetap ruang disk untuk mengalokasikan ke
sistem operasi tamu. Ketika saya memilih pilihan ini, saya biasanya
mengalokasikan 16-20 gigs ruang disk tetap. Untuk menerima pengaturan
standar, pilih tombol “Next”
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox16.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox16.jpg"><img alt="vbox16.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox16.jpg?w=400" title="vbox16.jpg" width="400" /></a>
<br />
Selanjutnya, Virtual Disk Nama dan jendela Location akan beban. Nama ini
harus default “LM5” dan ukuran disk harus default “8.00 <abbr title="Gigabyte">GB</abbr>” seperti yang terlihat pada layar.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox17.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox17.jpg"><img alt="vbox17.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox17.jpg?w=400" title="vbox17.jpg" width="400" /></a>
<br />
Untuk menerima default, pilih tombol “Next”.
<br />
Sebuah jendela akan memuat ringkasan. Pilih tombol “Finish” objek untuk menyelesaikan konfigurasi Disk Virtual.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox18.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox18.jpg"><img alt="vbox18.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox18.jpg?w=400" title="vbox18.jpg" width="400" /></a>
<br />
Sebuah progress bar akan ditampilkan sebagai virtual hard drive sedang dibuat.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox19.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox19.jpg"><img alt="vbox19.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox19.jpg?w=400" title="vbox19.jpg" width="400" /></a>
<br />
Ketika proses ini selesai, anda harus dikembalikan ke <abbr title="Graphical User Interface">GUI</abbr> VirtualBox.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox20.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox20.jpg"><img alt="vbox20.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox20.jpg?w=450" title="vbox20.jpg" width="450" /></a>
<br />
Harap dicatat bahwa “LM5” mesin virtual yang terdaftar di mesin yang
tersedia dan “Pengaturan” dan “Start” yang tersedia. Pada titik ini,
gerakkan pointer mouse anda ke atas tombol “Settings” objek di sudut
kiri atas dan pilih “Settings” . Ini harus membuka “Pengaturan” jendela.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox21.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox21.jpg"><img alt="vbox21.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox21.jpg?w=400" title="vbox21.jpg" width="400" /></a>
<br />
Pilih “System” link di sebelah kiri untuk mengkonfirmasi memori “Base
Memory:” pengaturan dan melihat “Boot Order:” Jika “Memori Base:”
disetel ke “512” <abbr title="Megabyte">MB</abbr> seperti yang terlihat pada layar, lanjutkan ke langkah berikutnya.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox22.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox22.jpg"><img alt="vbox22.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox22.jpg?w=400" title="vbox22.jpg" width="400" /></a>
<br />
Pilih “Display” link di sebelah kiri. Klik dalam kotak Memory Video dan set ke “64” <abbr title="Megabyte">MB</abbr>
seperti yang ditunjukkan. Sekali lagi, saya merasa mudah untuk klik
kotak di sebelah kanan slider dan kemudian menggunakan kunci nomor saya
untuk memasukkan pengaturan. Selain itu, pada konfigurasi hardware yang
paling, sangat OK untuk tempat cek pada “Enable 3D Acceleration” kotak
centang seperti yang terlihat pada layar.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox23.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox23.jpg"><img alt="vbox23.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox23.jpg?w=400" title="vbox23.jpg" width="400" /></a>
<br />
Selanjutnya, dalam pane kiri, pilih “CD / DVD-ROM” objek. Jendela harus
mengubah untuk menampilkan jendela CD / DVD ROM pengaturan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox24.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox24.jpg"><img alt="vbox24.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox24.jpg?w=400" title="vbox24.jpg" width="400" /></a>
<br />
Gunakan pointer mouse anda untuk menempatkan tanda centang pada “Mount
CD / DVD Drive” kotak cek dan kemudian pilih tombol radio di samping “<abbr title="International Organization for Standardization">ISO</abbr>
Image File”. Pilih tombol browse folder objek di sebelah kanan kolom
teks kosong untuk membuka “Virtual Media Manager”. Pilih tombol “Add”
obyek dan browse ke lokasi file Linux Mint 5.0 <abbr title="International Organization for Standardization">ISO</abbr> LTS, lalu pilih. Setelah ini selesai, aktifkan “Pilih ” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox25.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox25.jpg"><img alt="vbox25.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox25.jpg?w=400" title="vbox25.jpg" width="400" /></a>
<br />
Setelah ini selesai, pilih “OK” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox26.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox26.jpg"><img alt="vbox26.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox26.jpg?w=400" title="vbox26.jpg" width="400" /></a>
<br />
Ini akan menutup jendela Pengaturan dan kembali Anda ke <abbr title="Graphical User Interface">GUI</abbr>
VirtualBox. Beberapa pengaturan Anda mungkin berbeda dari layar. Ini
karena saya memilih pengaturan khusus selama proses instalasi saya.
Pilih tombol “Start” objek di sudut kiri atas VirtualBox <abbr title="Graphical User Interface">GUI</abbr>. A splash screen akan menampilkan sebentar dan mesin virtual akan menginisialisasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox27.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox27.jpg"><img alt="vbox27.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox27.jpg?w=400" title="vbox27.jpg" width="400" /></a>
<br />
Boot default Agar VirtualBox Floppy, CD / DVD-ROM, Hard Disk. Dengan menunjuk titik mount CD / DVD Drive ke Linux Mint 5 LTS <abbr title="International Organization for Standardization">ISO</abbr>
Image File, mesin virtual akan boot ke “live cd” Linux Mint 5. Mesin
virtual akan memuat dan Anda mungkin akan melihat tampilan berikut. Hal
ini menginformasikan pengguna bahwa keyboard sekarang ditangkap oleh
mesin virtual dan dapat dilepaskan dengan menekan tombol Ctrl kanan ke
paling kanan space bar pada keyboard. Dapat menonaktifkan pengingat ini
dari menampilkan setiap kali anda menjalankan mesin virtual dengan
menggunakan mouse anda untuk menempatkan cek di kotak “Do not show …”.
Pilih “OK ” objek ketika siap.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox28.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox28.jpg"><img alt="vbox28.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox28.jpg?w=400" title="vbox28.jpg" width="400" /></a>
<br />
Selanjutnya, salah satu kotak pemberitahuan berikut akan ditampilkan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox29.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox29.jpg"><img alt="vbox29.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox29.jpg?w=400" title="vbox29.jpg" width="400" /></a>
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox30.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox30.jpg"><img alt="vbox30.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox30.jpg?w=400" title="vbox30.jpg" width="400" /></a>
<br />
Silakan baca melalui kotak informasi. Bit pesan video kedalaman dapat
diabaikan. Hal ini aman untuk tempat cek di kotak “Do not show …”
memeriksa dan kemudian pilih “OK” . Rincian mouse kotak informasi
penangkapan fungsi mouse oleh sistem operasi tamu dan memberitahu
pengguna prosedur melepaskan fungsi mouse yang sama dengan rilis
keyboard, menekan tombol Ctrl kanan ke paling kanan space bar pada
keyboard. Kotak informasi ini juga dapat dinonaktifkan. Untuk
melanjutkan, pilih “Capture” .
<br />
Selama proses loading, Anda mungkin akan melihat kotak kesalahan GNOME.
Error ini virtualisasi umum selama instalasi dan aman untuk diabaikan.
Pilih “Close” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox31.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox31.jpg"><img alt="vbox31.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox31.jpg?w=400" title="vbox31.jpg" width="400" /></a>
<br />
Ketika Linux Mint live cd telah selesai loading, Anda akan melihat
Linux Mint 5 desktop di jendela mesin virtual. Sepanjang tepi kiri
jendela desktop Anda akan melihat ikon berjudul “Install”. Pindahkan
kursor mouse anda ke atas ikon Install dan double klik. Ini akan memulai
proses instalasi dari sistem operasi Mint Linux dengan disk virtual.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox32.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox32.jpg"><img alt="vbox32.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox32.jpg?w=400" title="vbox32.jpg" width="400" /></a>
<br />
Setelah file-file instalasi telah disalin, Install layar Selamat Datang akan ditampilkan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox33.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox33.jpg"><img alt="vbox33.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox33.jpg?w=400" title="vbox33.jpg" width="400" /></a>
<br />
Untuk memilih pengaturan default bahasa Inggris, pilih tombol “Forward”.
Jika tidak, pilih bahasa pilihan Anda sebelum memilih tombol “Forward”.
<br />
Langkah berikutnya adalah memilih zona waktu lokasi. Saya sarankan
menggunakan panah drop-down di sebelah kanan kotak Kota Dipilih untuk
memilih kota yang ada di zona waktu Anda. Untuk Zona Waktu Central Asia,
saya menggunakan Chicago sebagai pengaturan Kota.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox34.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox34.jpg"><img alt="vbox34.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox34.jpg?w=400" title="vbox34.jpg" width="400" /></a>
<br />
Setelah kota Anda diaktifkan, pilih “Forward”.
<br />
Langkah berikutnya adalah untuk memilih layout keyboard untuk instalasi
anda. Untuk memilih pengaturan default USA, pilih “Forward” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox35.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox35.jpg"><img alt="vbox35.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox35.jpg?w=400" title="vbox35.jpg" width="400" /></a>
<br />
Langkah selanjutnya adalah mempersiapkan ruang disk untuk instalasi sistem operasi. Saya sarankan menerima pengaturan default.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox36.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox36.jpg"><img alt="vbox36.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox36.jpg?w=400" title="vbox36.jpg" width="400" /></a>
<br />
Untuk menggunakan pengaturan default, pilih “Forward” .
<br />
Linux Mint memerlukan username dan password untuk masuk ke sistem
operasi. Gunakan keyboard untuk memasukkan username dan password untuk
instalasi Linux Mint. Semua kolom teks lain dapat tetap di default.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox37.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox37.jpg"><img alt="vbox37.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox37.jpg?w=400" title="vbox37.jpg" width="400" /></a>
<br />
Selamat, Anda berada di halaman konfigurasi menginstal ringkasan. Pilih
“Install” tombol objek untuk mengkonfirmasi pengaturan instalasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox38.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox38.jpg"><img alt="vbox38.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox38.jpg?w=400" title="vbox38.jpg" width="400" /></a>
<br />
Sebuah progress bar akan ditampilkan instal install berlangsung.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox39.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox39.jpg"><img alt="vbox39.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox39.jpg?w=400" title="vbox39.jpg" width="400" /></a>
<br />
Setelah instalasi selesai, Anda akan diminta untuk “Restart”. Pilih
“Restart” . Selama proses restart, Anda akan diminta untuk mengeluarkan
CD dari CD Drive. Abaikan ini dan tekan tombol Enter pada keyboard Anda
untuk menyelesaikan proses restart.
<br />
Setelah mesin virtual telah menutup dan anda melihat layar splash
memulai lagi, teks putih akan mulai ditampilkan dalam jendela mesin
virtual sebagai aplikasi mempersiapkan untuk memulai. Gerakkan mouse
Anda ke sudut kanan atas jendela dan pilih merah “X” untuk menutup
jendela. Mungkin perlu menekan tombol kanan Ctrl pada keyboard Anda
untuk melepaskan mouse dari mesin virtual untuk melakukan hal ini. The
“Tutup Virtual Machine” kotak akan ditampilkan. Pilih “Matikan mesin”
tombol radio lalu pilih “OK”. Langkah ini diperlukan karena mesin
virtual masih diperintahkan untuk mulai dari iso image “live cd”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox40.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox40.jpg"><img alt="vbox40.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox40.jpg?w=400" title="vbox40.jpg" width="400" /></a>
<br />
Hal ini harus mengembalikan Anda ke jendela VirtualBox <abbr title="Graphical User Interface">GUI</abbr>.
Jika tidak, buka menu Start> All Programs> Sun VirtualBox>
VirtualBox untuk meluncurkan aplikasi. Sekali lagi, pilih tombol
“Settings” objek di sudut kiri atas VirtualBox <abbr title="Graphical User Interface">GUI</abbr>
untuk membuka jendela pengaturan. Pilih “CD / DVD-ROM” link di sebelah
kiri untuk menampilkan CD / DVD jendela pengaturan. Pilih tombol radio
di sebelah “Host CD / DVD Drive” seleksi seperti yang ditunjukkan dan
pilih “OK”untuk menutup jendela dan kembali ke jendela utama VirtualBox.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox41.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox41.jpg"><img alt="vbox41.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox41.jpg?w=400" title="vbox41.jpg" width="400" /></a>
<br />
Setelah Anda kembali ke jendela VirtualBox <abbr title="Graphical User Interface">GUI</abbr>, pilih “Start” di sudut kiri atas untuk memulai mesin virtual.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox42.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox42.jpg"><img alt="vbox42.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox42.jpg?w=400" title="vbox42.jpg" width="400" /></a>
<br />
Linux Mint 5 layar boot akan muncul dan waktu keluar.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox43.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox43.jpg"><img alt="vbox43.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox43.jpg?w=400" title="vbox43.jpg" width="400" /></a>
<br />
Setelah proses loading telah selesai, Anda akan diminta untuk memasukkan
username dan password yang Anda pilih selama proses instalasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox44.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox44.jpg"><img alt="vbox44.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox44.jpg?w=400" title="vbox44.jpg" width="400" /></a>
<br />
Setelah Anda berhasil login-in ke sesi Anda, Anda akan diminta untuk menyelesaikan instalasi anda preferensi. Pilih “Forward” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox45.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox45.jpg"><img alt="vbox45.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox45.jpg?w=400" title="vbox45.jpg" width="400" /></a>
<br />
Berikutnya, Anda akan diminta untuk memilih untuk mengaktifkan “Root
Password”. Saya sarankan meninggalkan opsi ini tidak dicentang dan
memilih “Forward” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox46.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox46.jpg"><img alt="vbox46.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox46.jpg?w=400" title="vbox46.jpg" width="400" /></a>
<br />
Berikutnya, Anda akan diminta untuk mengaktifkan “Fortunes di terminal”
fitur. Saya pribadi tidak mengaktifkan fitur ini. Setelah memilih
preferensi Anda memilih “Forward” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox47.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox47.jpg"><img alt="vbox47.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox47.jpg?w=400" title="vbox47.jpg" width="400" /></a>
<br />
Setelah pengaturan ini selesai, kotak ringkasan akan ditampilkan. Pilih “Terapkan” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox48.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox48.jpg"><img alt="vbox48.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox48.jpg?w=400" title="vbox48.jpg" width="400" /></a>
<br />
Pilih “Close” untuk menyelesaikan proses pengaturan preferensi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox49.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox49.jpg"><img alt="vbox49.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox49.jpg?w=400" title="vbox49.jpg" width="400" /></a>
<br />
Pada titik ini Linux Mint 5 desktop akan ditampilkan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox50.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox50.jpg"><img alt="vbox50.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox50.jpg?w=400" title="vbox50.jpg" width="400" /></a>
<br />
Selanjutnya, kita akan menginstal “Guest Additions”untuk menambahkan
fungsionalitas tambahan untuk instalasi mesin virtual Anda. Tekan tangan
kanan “Ctrl” tombol pada keyboard Anda untuk melepaskan keyboard dan
mouse dari mesin virtual. Pindahkan kursor mouse ke menu kiri atas pada
jendela mesin virtual dan pilih “Devices” menu pilihan. Menu drop-down
populasikan. Pindahkan kursor di atas pilihan terakhir dalam daftar
“Install Guest Additions” lalu pilih.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox51.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox51.jpg"><img alt="vbox51.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox51.jpg?w=400" title="vbox51.jpg" width="400" /></a>
<br />
Tamu Penambahan file akan terpasang dan ditampilkan pada desktop Linux
Anda dan kotak akan terbuka dengan pilihan untuk menjalankan perangkat
lunak. Pilih “Run” tombol objek untuk menginstal perangkat lunak.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox52.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox52.jpg"><img alt="vbox52.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox52.jpg?w=400" title="vbox52.jpg" width="400" /></a>
<br />
Pada titik ini, Anda akan diminta untuk sandi administrator Anda.
Masukkan password yang Anda pilih ketika Anda memilih username dan
password anda selama proses instalasi dan pilih “OK” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox53.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox53.jpg"><img alt="vbox53.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox53.jpg?w=400" title="vbox53.jpg" width="400" /></a>
<br />
Sebuah kotak teks akan terbuka di Linux Mint 5 Desktop yang akan
menampilkan kemajuan instalasi. Jika ada kesalahan muncul selama proses
instalasi, mereka dapat diabaikan dengan aman. Setelah instalasi
selesai, Anda akan diminta untuk menekan tombol Enter pada keyboard Anda
untuk menyelesaikan instalasi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox54.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox54.jpg"><img alt="vbox54.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox54.jpg?w=400" title="vbox54.jpg" width="400" /></a>
<br />
Berikutnya, klik kanan pada ikon Guest Additions mount point pada desktop Linux Mint 5 dan pilih “Eject”pilihan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox55.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox55.jpg"><img alt="vbox55.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox55.jpg?w=400" title="vbox55.jpg" width="400" /></a>
<br />
Anda sekarang harus di desktop Linux Mint 5. Gerakkan mouse anda ke
pojok kiri bawah atau desktop dan kiri-klik pada “Elyssa” untuk
meluncurkan Linux Mint 5 menu start. Pilih “Quit” link untuk membuka
kotak Quit pilihan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox56.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox56.jpg"><img alt="vbox56.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox56.jpg?w=400" title="vbox56.jpg" width="400" /></a>
<br />
Selanjutnya, pilih “Shutdown”pilihan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox57.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox57.jpg"><img alt="vbox57.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox57.jpg?w=400" title="vbox57.jpg" width="400" /></a>
<br />
Linux Mint 5 akan memulai urutan shutdown dan Linux Mint 5 jendela akan ditutup.
<br />
Pada titik ini, kita akan ulangi langkah ke titik Linux Mint 5 sistem
operasi tamu ke drive hardware CD / DVD. Anda harus kembali ke jendela
VirtualBox <abbr title="Graphical User Interface">GUI</abbr>. Jika
tidak, buka menu Start> All Programs> Sun VirtualBox>
VirtualBox untuk meluncurkan aplikasi. Sekali lagi, pilih tombol
“Settings” objek di sudut kiri atas VirtualBox <abbr title="Graphical User Interface">GUI</abbr>
untuk membuka jendela pengaturan. Pilih “CD / DVD-ROM” link di sebelah
kiri untuk menampilkan CD / DVD jendela pengaturan. Pilih tombol radio
di sebelah “Host CD / DVD Drive” seleksi seperti yang ditunjukkan dan
pilih “OK”untuk menutup jendela dan kembali ke jendela utama VirtualBox.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox58.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox58.jpg"><img alt="vbox58.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox58.jpg?w=400" title="vbox58.jpg" width="400" /></a>
<br />
Selanjutnya, mari kita ciptakan sebuah folder bersama dalam sistem file
host. Buka Windows Explorer untuk Anda folder My Documents dan klik kiri
di kaca jendela kanan. Pilih New> Folder dan nama itu “LM5”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox59.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox59.jpg"><img alt="vbox59.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox59.jpg?w=400" title="vbox59.jpg" width="400" /></a>
<br />
Screenshot ini menampilkan folder bersama saya buat pada saat instalasi saya.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox60.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox60.jpg"><img alt="vbox60.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox60.jpg?w=400" title="vbox60.jpg" width="400" /></a>
<br />
Setelah folder bersama telah dibuat, beban atau pilih <abbr title="Graphical User Interface">GUI</abbr>
VirtualBox dan pilih tombol “Settings” objek di sudut kiri atas. Pada
panel kiri jendela Settings, pilih “Shared Folders” link. The “Shared
Folder” jendela akan ditampilkan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox61.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox61.jpg"><img alt="vbox61.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox61.jpg?w=400" title="vbox61.jpg" width="400" /></a>
<br />
Waktu klik folder hijau dengan tanda plus hijau di sepanjang tepi atas
kanan jendela Shared Folder. Ini akan membuka jendela Berbagi Tambah.
Klik panah drop-down di sebelah kanan dari “Path Folder:” kotak dan
kemudian pilih “Lainnya”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox62.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox62.jpg"><img alt="vbox62.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox62.jpg?w=400" title="vbox62.jpg" width="400" /></a>
<br />
Gunakan kotak Browse untuk Folder untuk menavigasi ke lokasi di mana
Anda menciptakan LM5 shared folder, pilih, lalu pilih “OK” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox63.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox63.jpg"><img alt="vbox63.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox63.jpg?w=400" title="vbox63.jpg" width="400" /></a>
<br />
Kotak Berbagi Tambahkan akan menampilkan pengaturan Anda seperti yang
terlihat pada layar. Pastikan untuk meninggalkan “Read-only” kotak
centang dicentang. Setelah ini selesai, pilih “OK” di kotak Berbagi
Tambah dan di jendela Pengaturan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox64.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox64.jpg"><img alt="vbox64.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox64.jpg?w=400" title="vbox64.jpg" width="400" /></a>
<br />
Setelah Anda kembali ke jendela VirtualBox <abbr title="Graphical User Interface">GUI</abbr>, pilih “Start” di sudut kiri atas untuk memulai mesin virtual.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox65.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox65.jpg"><img alt="vbox65.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox65.jpg?w=400" title="vbox65.jpg" width="400" /></a>
<br />
Selama urutan mulai, Anda akan melihat kotak ini pemberitahuan yang
menunjukkan bahwa “integrasi pointer mouse” didukung dan dinyalakan. Ini
adalah fitur dari menambahkan Guest Additions pada mesin virtual. Baca
pemberitahuan; tempat centang pada “Do not show …” kotak centang jika
Anda tidak ingin melihat pemberitahuan lagi, dan pilih “OK” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox66.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox66.jpg"><img alt="vbox66.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox66.jpg?w=400" title="vbox66.jpg" width="400" /></a>
<br />
Setelah mesin virtual telah dimuat dan anda harus masuk menggunakan
username dan password, klik kiri pada “Elyssa” untuk meluncurkan Linux
Mint 5 menu start. Pilih “Terminal” perintah.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox67.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox67.jpg"><img alt="vbox67.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox67.jpg?w=400" title="vbox67.jpg" width="400" /></a>
<br />
Dalam terminal ketik teks pada prompt seperti ditunjukkan pada layar:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox68.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox68.jpg"><img alt="vbox68.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox68.jpg?w=400" title="vbox68.jpg" width="400" /></a>
<br />
Bila Anda telah menyelesaikan entri teks, tekan tombol Enter pada
keyboard Anda. Anda akan diminta untuk memasukkan sandi Anda. Ini adalah
password yang Anda pilih saat membuat username dan password untuk
instalasi anda. Masukkan sandi saja dan tekan tombol Enter pada keyboard
Anda. Pada tipe, prompt teks seperti terlihat pada layar dan sekali
lagi tekan tombol Enter pada keyboard Anda. Anda tidak akan diminta lagi
untuk sandi Anda sekarang bahwa Anda telah memasukkannya dalam sidang
Terminal:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox69.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox69.jpg"><img alt="vbox69.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox69.jpg?w=400" title="vbox69.jpg" width="400" /></a>
<br />
Kami sekarang siap untuk mengakhiri sesi Terminal. Waktu-klik tombol “X”
di sudut kanan atas jendela Terminal. Ini akan menutup jendela Terminal
dan kembali ke desktop Anda Mint Linux. Sepanjang tepi kiri atas klik,
desktop dua kali pada icon komputer. Ini akan membuka komputer File
Browser. Pada panel sebelah kanan, klik dua kali pada icon Filesystem.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox70.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox70.jpg"><img alt="vbox70.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox70.jpg?w=400" title="vbox70.jpg" width="400" /></a>
<br />
Dalam pane kanan jendela Sistem Berkas, klik dua kali pada folder “mnt”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox71.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox71.jpg"><img alt="vbox71.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox71.jpg?w=400" title="vbox71.jpg" width="400" /></a>
<br />
Pada jendela sisi kanan, klik dua kali pada folder “berbagi”.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox72.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox72.jpg"><img alt="vbox72.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox72.jpg?w=400" title="vbox72.jpg" width="400" /></a>
<br />
Pada panel sebelah kanan, pindahkan kursor mouse anda ke folder “LM5”,
tahan baik kanan dan tombol kiri mouse, dan tarik folder dari jendela
browser ke desktop dan lepaskan tombol mouse. Dari kotak kontekstual,
pilih “Link Here” pilihan.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox73.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox73.jpg"><img alt="vbox73.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox73.jpg?w=400" title="vbox73.jpg" width="400" /></a>
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox74.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox74.jpg"><img alt="vbox74.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox74.jpg?w=400" title="vbox74.jpg" width="400" /></a>
<br />
Sebuah ikon baru akan muncul pada desktop Anda berlabel “Link untuk LM5”
dengan ikon Dikunci. Ini adalah link desktop Anda ke folder Anda
bersama.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox75.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox75.jpg"><img alt="vbox75.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox75.jpg?w=400" title="vbox75.jpg" width="400" /></a>
<br />
Tutup jendela File Browser dan klik kiri dan drag ikon link di bawah
ikon link Home. Ini adalah snapshot dari saya tamu Linux Mint 5.0 LTS
pada saya desktop Windows XP Pro.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox76.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox76.jpg"><img alt="vbox76.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox76.jpg?w=400" title="vbox76.jpg" width="400" /></a>
<br />
Saya telah mengganti nama folder Home dengan mengklik kanan pada ikon
folder dan memilih “Rename” dari menu kontekstual. Aku menghapus awalan
username dan kiri “Home ” teks judul. Saya juga pergi ke menu awal,
memilih “Internet” link dari daftar aplikasi tengah dan kiri-diklik dan
memegang “Firefox Web Browser” icon dan menyeretnya keluar dari menu
awal dan ke desktop saya untuk membuat shortcut pada saya desktop.
Seperti yang Anda lihat, aku memperpendek nama link ke Firefox dengan
mengklik kanan pada icon dan memilih “Rename”.
<br />
Saya sarankan, demi kemudahan, membuat link tambahan ke folder Anda
bersama dengan mengklik ganda pada ikon folder “Home” pada desktop Mint,
Linux 5 yang akan terbuka Anda Home File Browser. Klik kanan pada “Link
to LM5” ikon pada desktop dan pilih “Copy” dari menu kontekstual.
Kemudian, dalam pane kanan File Browser window, klik kanan dan pilih
“Tempel” perintah dari menu kontekstual.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox77.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox77.jpg"><img alt="vbox77.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox77.jpg?w=400" title="vbox77.jpg" width="400" /></a>
<br />
Anda Home File Browser sekarang harus menampilkan link ke folder anda bersama:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox78.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox78.jpg"><img alt="vbox78.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox78.jpg?w=400" title="vbox78.jpg" width="400" /></a>
<br />
Selanjutnya, mari kita mount folder bersama untuk memungkinkan
pertukaran file antara tuan rumah dan sistem operasi tamu. Buka menu
start dan pilih “Terminal” perintah. Pada prompt perintah, ketik teks
seperti terlihat pada layar dan tekan tombol Enter pada keyboard Anda.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox79.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox79.jpg"><img alt="vbox79.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox79.jpg?w=400" title="vbox79.jpg" width="400" /></a>
<br />
Sekali lagi, Anda akan diminta untuk memasukkan sandi Anda. Ketik
password Anda di prompt dan kemudian tekan enter pada keyboard Anda.
Pilih “X” di jendela Terminal untuk menutup jendela. Double klik pada
“Link to LM5” ikon dan bagian kunci dari ikon akan hilang dan digantikan
oleh panah. Hal ini menunjukkan bahwa folder yang terpasang dan aktif.
Anda sekarang dapat melihat semua file yang berada di folder LM5 pada
host anda dan menambahkan file ke folder yang akan diakses dari host
Anda.
<br />
Bit terakhir dari bisnis saya akan membahas dalam tutorial ini ada
hubungannya dengan memperbarui Linux Mint 5 instalasi. Anda mungkin akan
melihat ikon kecil sepanjang tepi kanan bawah desktop Linux Mint 5. Ini
adalah ikon update dan ditampilkan sebagai salah satu dari tiga negara
yang berbeda sejauh yang saya tahu. Pada screenshot, itu menampilkan
sebagai kunci yang dibuka. Hal ini menunjukkan bahwa ada update yang
tersedia.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox80.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox80.jpg"><img alt="vbox80.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox80.jpg?w=400" title="vbox80.jpg" width="400" /></a>
<br />
Seperti yang terlihat di layar, saat ini terdapat 104 pembaruan yang
terdeteksi dan tersedia. Klik kiri pada icon dan kotak prompt password
akan terbuka. Ketik password Anda, kemudian tekan tombol Enter pada
keyboard Anda.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox81.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox81.jpg"><img alt="vbox81.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox81.jpg?w=400" title="vbox81.jpg" width="400" /></a>
<br />
Ini akan membuka jendela mintUpdate:
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox82.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox82.jpg"><img alt="vbox82.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox82.jpg?w=400" title="vbox82.jpg" width="400" /></a>
<br />
Pilih “Install Updates” tombol objek untuk melanjutkan dengan proses
update. Proses update akan mulai dengan mendownload file yang akan
diinstal.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox83.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox83.jpg"><img alt="vbox83.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox83.jpg?w=400" title="vbox83.jpg" width="400" /></a>
<br />
Setelah file-file yang telah didownload, proses update akan dimulai.
Selama proses update, Anda mungkin melihat sejumlah “Ganti konfigurasi
file” kotak pemberitahuan. Pilih “Ganti” setiap kali ini terjadi.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox84.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox84.jpg"><img alt="vbox84.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox84.jpg?w=400" title="vbox84.jpg" width="400" /></a>
<br />
Setelah update selesai, pilih “Close” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox85.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox85.jpg"><img alt="vbox85.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox85.jpg?w=400" title="vbox85.jpg" width="400" /></a>
<br />
Setelah pembaruan awal selesai, saya sarankan anda reboot mesin virtual
sehingga semua update bisa berlaku. Setelah ini selesai dan Anda kembali
ke desktop Linux Mint 5, klik kiri pada ikon update sepanjang tepi
kanan bawah desktop Linux Mint yang tampak seperti kunci. Setelah Anda
memasukkan password dan jendela mintUpdate terbuka, pilih “Preferences” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox86.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox86.jpg"><img alt="vbox86.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox86.jpg?w=400" title="vbox86.jpg" width="400" /></a>
<br />
Ketika jendela Preferences terbuka, pilih “Auto-Refresh” tab. Saya
biasanya mengubah pengaturan default 5 menit baik 20 menit atau 1 jam.
Setelah Anda telah mengubah interval Auto-Refresh, pilih “Terapkan” .
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox87.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox87.jpg"><img alt="vbox87.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox87.jpg?w=400" title="vbox87.jpg" width="400" /></a>
<br />
Sekali lagi, ada update tambahan yang tersedia untuk instalasi. Pilih
“Install Updates” untuk memulai proses update. Selama proses update,
Anda mungkin melihat jendela yang menampilkan peringatan mengenai
paket-paket yang akan diinstal. Pengaturan default sistem akan mencegah
beberapa update dari yang diinstal. Saya sarankan Anda menerima
pengaturan default dan pilih “Terapkan” tanpa melakukan perubahan
apapun.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox88.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox88.jpg"><img alt="vbox88.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox88.jpg?w=400" title="vbox88.jpg" width="400" /></a>
<br />
Setelah semua pembaruan diterapkan dan instalasi saat ini, ikon akan berubah untuk muncul terkunci dengan tanda centang.
<br />
<a class="media" href="http://ugos.ugm.ac.id/wiki/_detail/panduan:vbox89.jpg?id=panduan%3Apanduan_penggunaan_virtualbox" title="panduan:vbox89.jpg"><img alt="vbox89.jpg" class="media" src="http://ugos.ugm.ac.id/wiki/_media/panduan:vbox89.jpg?w=400" title="vbox89.jpg" width="400" /></a>
<br />
Ikon hanya mintUpdate lain yang pernah saya lihat ditampilkan adalah
kunci yang rusak di setengah. Ini biasanya indikasi bahwa sistem operasi
Linux Mint perlu di-restart untuk memungkinkan pembaruan sebelumnya
untuk diterapkan.
<br />
Sebagai penutup, saya mengundang anda untuk menjelajahi dunia mesin
virtual dan saya berharap Anda menikmati pengalaman Mint Linux anda.
Jika Anda memiliki komentar, koreksi, kelalaian atau pertanyaan mengenai
tutorial ini, silahkan email saya di: bootlegmultimedia@yahoo.com
<br />
Sincere Regards, Dennis Berry
Please visit bootlegmultimedia.com for a sample of Reality Check Adventure Training.
</div>
</div>
<div class="stylefoot">
<div class="meta">
<div class="user">
</div>
<div class="doc">
panduan/panduan_penggunaan_virtualbox.txt · Last modified: 2012/01/09 11:50 (external edit) </div>
</div>
<div class="bar" id="bar__bottom">
<div class="bar-left" id="bar__bottomleft">
</div>
<div class="bar-right" id="bar__bottomright">
<form action="/wiki/panduan:panduan_penggunaan_virtualbox" class="button btn_media" method="get">
</form>
<form action="/wiki/panduan:panduan_penggunaan_virtualbox" class="button btn_login" method="get">
</form>
<form action="/wiki/panduan:panduan_penggunaan_virtualbox" class="button btn_index" method="get">
</form>
</div>
</div>
</div>
<div class="license">
Except where otherwise noted, content on this wiki is licensed under the following license: <a class="urlextern" href="http://creativecommons.org/licenses/by-nc-sa/3.0/" rel="license">CC Attribution-Noncommercial-Share Alike 3.0 Unported</a></div>
</div>
<div class="footerinc">
<a href="http://ugos.ugm.ac.id/wiki/feed.php" title="Recent changes RSS feed"><img alt="Recent changes RSS feed" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-rss.png" width="80" /></a>
<a href="http://creativecommons.org/licenses/by-nc-sa/3.0/" rel="license" title="CC Attribution-Noncommercial-Share Alike 3.0 Unported"><img alt="" height="15" src="http://ugos.ugm.ac.id/wiki/lib/images/license/button/cc-by-nc-sa.png" width="80" /></a>
<a href="http://www.dokuwiki.org/donate" title="Donate"><img alt="Donate" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-donate.gif" width="80" /></a>
<a href="http://www.php.net/" title="Powered by PHP"><img alt="Powered by PHP" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-php.gif" width="80" /></a>
<a href="http://validator.w3.org/check/referer" title="Valid XHTML 1.0"><img alt="Valid XHTML 1.0" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-xhtml.png" width="80" /></a>
<a href="http://jigsaw.w3.org/css-validator/check/referer?profile=css3" title="Valid CSS"><img alt="Valid CSS" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-css.png" width="80" /></a>
<a href="http://dokuwiki.org/" title="Driven by DokuWiki"><img alt="Driven by DokuWiki" height="15" src="http://ugos.ugm.ac.id/wiki/lib/tpl/default/images/button-dw.png" width="80" /></a>
<br />
<a href="http://vigrxplusjakarta.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;">memperbesaralat vital</span></a>
<a href="http://ukuranpenis.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;">memperkeras ereksi </span></a>
<a href="http://vigrxplusbali.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;">mengatasi ejakulasi dini </span></a>
<a href="http://vigrxplusdistributor.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;">mengobati ejakulasi dini</span></a>
<a href="http://vigrxpluskaskus.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;"> obat kuat tahan lama </span></a>
<a href="http://www.republikseo.com/" style="color: black; cursor: text; text-decoration: none;"><span style="color: white;">jasa seo murah</span></a>
</div>
<div class="no">
<img alt="" height="1" src="http://ugos.ugm.ac.id/wiki/lib/exe/indexer.php?id=panduan%3Apanduan_penggunaan_virtualbox&1356080653" width="2" /></div>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-75230452934803455852012-12-07T20:58:00.004-08:002012-12-07T20:59:50.063-08:00<h3 class="post-title entry-title">
<a href="http://www.javacreativity.com/2011/07/recovery-file-dengan-tune-up-utilities.html">Recovery File dengan Tune Up Utilities 2011</a>
</h3>
<div class="postdate" style="margin-bottom: -15px; position: relative; width: 100%;">
<div class="post-share-buttons" style="float: right; margin-left: 0px;">
<a class="share-button sb-email" href="http://www.blogger.com/share-post.g?blogID=7399230753371468712&postID=8696294039127599246&target=email" target="_blank" title="Kirimkan Ini lewat Email">
<span class="share-button-link-text">Kirimkan Ini lewat Email</span></a>
<a class="share-button sb-blog" href="http://www.blogger.com/share-post.g?blogID=7399230753371468712&postID=8696294039127599246&target=blog" target="_blank" title="BlogThis!">
<span class="share-button-link-text">BlogThis!</span></a>
<a class="share-button sb-twitter" href="http://www.blogger.com/share-post.g?blogID=7399230753371468712&postID=8696294039127599246&target=twitter" target="_blank" title="Berbagi ke Twitter">
<span class="share-button-link-text">Berbagi ke Twitter</span></a>
<a class="share-button sb-facebook" href="http://www.blogger.com/share-post.g?blogID=7399230753371468712&postID=8696294039127599246&target=facebook" target="_blank" title="Berbagi ke Facebook">
<span class="share-button-link-text">Berbagi ke Facebook</span></a>
</div>
</div>
<div style="text-align: justify;">
Beberapa bulan yang lalu Java Creativity telah <a href="http://www.javacreativity.com/2011/02/tune-up-utilities-2011-full-version.html" target="blank"><span style="font-weight: bold;">Share software Tune Up Utilities 2011</span></a>.
Nah kali ini saya akan Share salah satu fitur yang terdapat pada si
Tune Up ini, yaitu Restore Deleted File, dalam kata lain kita dapat
mengembalikan file yang telah Terdelete (Terhapus) secara permanen.</div>
<br />Pasti anda pernah menghapus atau menekan <span style="font-weight: bold;">SHIFT + DEL</span>
pada file penting secara tidak sengaja ataupun sengaja, nah dengan
fitur inilah kita dapat Merestore (Mengembalikan) file yang sudah
terhapus secara permanen tersebut. Nah tidak usah basa basi lagi
langsung saja bagaimana cara Recovery File dengan Tune Up Utilities 2011
:<br /><ul>
<li>Buka program Tune Up Utilities 2011 milik anda, jika tidak punya maka silahkan <a href="http://www.javacreativity.com/2011/02/tune-up-utilities-2011-full-version.html" target="blank"><span style="font-weight: bold;">download dulu Disini</span></a>.</li>
<li>Sebagai bahan percobaan, kita akan menggunakan sebuah icon <span style="font-style: italic; font-weight: bold;">LFelix~.ico</span> yang tersimpan pada drive E:/.</li>
<li>Selanjutnya kita akan menghapus icon tersebut secara permanen, dengan menekan <span style="font-weight: bold;">SHIFT + DEL</span>,
maka icon akan langsung dihapus dan anda tidak akan menemukannya dalam
recycle bin. Nah bayangkan jika itu adalah data penting anda. Bagaimana
cara mengembalikannya ??</li>
<li>Buka Tune Up Utilities 2011 anda dan masuk pada menu <span style="font-weight: bold;">Fix Problem</span>, lalu klik <span style="font-weight: bold;">Restore deleted files</span>.</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgsGdB8OwWt01ytTRRNIcBQ3DhW852zRzqNPPxGgkiD7Jr14KmAlfEjS4iSkjsfdJCvEZR6akOIdKuGcJqlLmH4CHS-EmyYIdSvso5xcy32gVu-2anDTFnMcDiDkpI5frMikyYFQyQaf0/s1600/TU1.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629764081068070914" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgsGdB8OwWt01ytTRRNIcBQ3DhW852zRzqNPPxGgkiD7Jr14KmAlfEjS4iSkjsfdJCvEZR6akOIdKuGcJqlLmH4CHS-EmyYIdSvso5xcy32gVu-2anDTFnMcDiDkpI5frMikyYFQyQaf0/s320/TU1.png" style="cursor: hand; cursor: pointer; display: block; height: 221px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li><a name='more'></a> </li>
<li>Tandailah
drive dimana file anda terdelete secara permanen, nah dalam contoh kita
kali ini file yang terdelete berada pada drive E:/, maka saya menandai
drive E:/.</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhMcMiPMrnFccbLwtqPV4DeUmFdgGuiyOrQgq26U-_lIMi3JWt0SmyrRd5dP-3hXaHc2jTHLLUkwhrT1ekzEaE4ERqm0Qq8gaLmEYHh5ZChYW_E5sr-0dxZu-eROlBgVdPjhYJqeVVEMI/s1600/TU2.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629764080068545106" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhMcMiPMrnFccbLwtqPV4DeUmFdgGuiyOrQgq26U-_lIMi3JWt0SmyrRd5dP-3hXaHc2jTHLLUkwhrT1ekzEaE4ERqm0Qq8gaLmEYHh5ZChYW_E5sr-0dxZu-eROlBgVdPjhYJqeVVEMI/s320/TU2.png" style="cursor: hand; cursor: pointer; display: block; height: 235px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li>Selanjutnya klik <span style="font-weight: bold;">Next ></span>, maka akan muncul jendela <span style="font-style: italic;">What Do You Want To Search,</span> pada tab <span style="font-weight: bold;">Search criteria</span>
ketikkan nama dan format file yang terdelete. Dalam contoh kali ini
nama filenya “LFelix~” dan format filenya .ico, maka pada tab Search
criteria kita ketikkan <span style="font-weight: bold;">LFelix~.ico</span>.</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkM1su0ftHr-XfwQ6E5-4p8iwNXlX6cDafvMX91Cb_05RAoM95mjdFVXUuEE8fsgMshYwTldE3tqsvpnss_xBfKvwoL7Px2JQoti84ToQ8M-3bFu3hQ54j7vIl8eFf_OXMHyksBhCK3RY/s1600/TU3.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629764083521555282" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkM1su0ftHr-XfwQ6E5-4p8iwNXlX6cDafvMX91Cb_05RAoM95mjdFVXUuEE8fsgMshYwTldE3tqsvpnss_xBfKvwoL7Px2JQoti84ToQ8M-3bFu3hQ54j7vIl8eFf_OXMHyksBhCK3RY/s320/TU3.png" style="cursor: hand; cursor: pointer; display: block; height: 273px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li>Selanjutnya klik <span style="font-weight: bold;">Next ></span>, maka Tune Up akan menscan drive E:/ dan akan menemukan file LFelix~.ico yang telah terhapus secara permanen tadi.</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiz31HQnphNHDgdIBP9huhDFUL60bIUKX0BGQVXvdG33xDS_gOkO3ztkPXMlkgZqHR-RffE69vXa05AxPqFfJo6VXqJyCTC9vtNMs0_CnSVxqRXFOElwZMTq1lztdH2MG5_5d2UU4AHrJA/s1600/TU4.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629764088615092274" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiz31HQnphNHDgdIBP9huhDFUL60bIUKX0BGQVXvdG33xDS_gOkO3ztkPXMlkgZqHR-RffE69vXa05AxPqFfJo6VXqJyCTC9vtNMs0_CnSVxqRXFOElwZMTq1lztdH2MG5_5d2UU4AHrJA/s320/TU4.png" style="cursor: hand; cursor: pointer; display: block; height: 235px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li>Selanjutnya pilih file <span style="font-weight: bold;">LFelix~.ico </span>tersebut dan klik <span style="font-weight: bold;">Restore... </span>untuk mengembalikannya. Tandai pilihan <span style="font-style: italic;">Restore to the respective original folder </span>untuk
mengembalikan file ke lokasi di mana anda menghapus file tersebut,
dalam contoh kali ini kita menghapus file pada drive E:/, maka filenya
akan langsung dikembalikan pada drive E:/. Tapi tandai pilihan <span style="font-style: italic;">Restore To An Alternate Folder</span> jika anda ingin mengembalikannya ke folder lain yang anda inginkan.</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkT35HwfvKhtbZblxqhHGfeE7UqN7O2UR4h2XkN4kbHTJ0pAWrkqQHDFblESp6qNLz_pteZoekpVhCrdPlZdQo26H4vxuGU2f_GdxSxfqD7P1u8xWAH6gAlQCzteQU7bT7mJhmwm5DqnA/s1600/TU5.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629764099388673186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgkT35HwfvKhtbZblxqhHGfeE7UqN7O2UR4h2XkN4kbHTJ0pAWrkqQHDFblESp6qNLz_pteZoekpVhCrdPlZdQo26H4vxuGU2f_GdxSxfqD7P1u8xWAH6gAlQCzteQU7bT7mJhmwm5DqnA/s320/TU5.png" style="cursor: hand; cursor: pointer; display: block; height: 212px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li>Klik <span style="font-weight: bold;">OK</span>,
maka folder akan dikembalikan pada lokasi yang telah anda pilih, dalam
contoh kali ini file kita akan dikembalikan pada drive E:/</li>
</ul>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4WSJVlSMqnGA0Rr-5EBik2pehsPsIHY53u9-K5-p4K6L7wMtGgwWTHl8XLSNrOwWyObH51yiskBMd1wO-NUTdKpjzWDRAhq6i0iFbpcgx01glIurrhGsopFC8xz3LTF4FJUmZnSLNiR4/s1600/TU6.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5629765085170774210" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4WSJVlSMqnGA0Rr-5EBik2pehsPsIHY53u9-K5-p4K6L7wMtGgwWTHl8XLSNrOwWyObH51yiskBMd1wO-NUTdKpjzWDRAhq6i0iFbpcgx01glIurrhGsopFC8xz3LTF4FJUmZnSLNiR4/s320/TU6.png" style="cursor: hand; cursor: pointer; display: block; height: 180px; margin: 0px auto 10px; text-align: center; width: 320px;" /></a><ul>
<li>Voala file anda yang terdelete secara permanen sekarang sudah bisa digunakan lagi. </li>
</ul>
<br />Tapi bagaimana jika kita lupa nama filenya, tapi hanya ingat formatnya saja. Lihat langkah ke 6, di tab <span style="font-style: italic;">Search criteria</span>
kita tinggal mengetikkan fomatnya saja dan sebaliknya jika anda hanya
mengingat nama filenya saja, anda tinggal mengetikkan namanya saja.<br /><br /><br />Sangat gampang kan !! (=^_^=)alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-80083857149731873042012-11-25T06:57:00.001-08:002012-11-25T06:58:47.819-08:00Instalasi jaringan P2P (Peer To Peer) Pada windows 7 <h3 class="post-title entry-title">
Instalasi jaringan P2P (Peer To Peer) Pada windows 7
</h3>
<div class="post-header">
<span style="background: transparent url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaPsHhug7vZCZwnKx6Pz66mo447WBI7jMQAZcECcQf3pZUj2qtajRMNg594qTIPe5lvBs0G6k06WAFh9UOS52n3nEc2m5SictWrapIl4w59SA3Jf6hJV29fxF1zcrFCGAARiobrAbYp_Fq/s1600/penulis.png) no-repeat scroll top left; font-size: 11px; padding-left: 25px;"></span><span class="comments-icon"><br /></span>
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0fFY26SZ9lzv5LTsW3eJ_6fpUEOUNYzCrI3_fm6_CkHP1NdQV0criwQgpe5RbJew7uhzqnyr6jwHW5oieOq6Xle-3dSnagm1-PRHoqUsQnweWuRKnhCmh2nt0p2jY7-ZiROK3Eba4RMNb/s1600/Wlan_adhoc.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0fFY26SZ9lzv5LTsW3eJ_6fpUEOUNYzCrI3_fm6_CkHP1NdQV0criwQgpe5RbJew7uhzqnyr6jwHW5oieOq6Xle-3dSnagm1-PRHoqUsQnweWuRKnhCmh2nt0p2jY7-ZiROK3Eba4RMNb/s1600/Wlan_adhoc.png" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div align="center" class="MsoNormal" style="text-align: center;">
</div>
<div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: "BakerSignet BT"; mso-fareast-font-family: "BakerSignet BT";">11. </span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Sediakan
kabel cross yaitu kabel untuk membuat jaringan Peer To Peer.</span><br />
<span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">22.Pastikan diantara
dua computer sudah saling terhubung dengan kabel UTP, atau adanya tanda koneksi
seperti pada gambar dibawah ini. Dengan cara masuk ke jendela </span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">control Panel </b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">kemudian</span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">
</b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">pilih </span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">Network And Sharing Center</b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">.<a name='more'></a></span></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhtVKTWRbvAf7XXTgW3WFRGdFQVNgBX-RKcydyXJ-iLzMkSzG3aZISSzM3f8NBpaeEsqcvzsVkA44jWE5jGVP8mzrjNFAvlVCRqGlpn3WH0mM9gLsbgzxKFpm7Nkoi4UYrOSChKTXuRwR-/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="80" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhtVKTWRbvAf7XXTgW3WFRGdFQVNgBX-RKcydyXJ-iLzMkSzG3aZISSzM3f8NBpaeEsqcvzsVkA44jWE5jGVP8mzrjNFAvlVCRqGlpn3WH0mM9gLsbgzxKFpm7Nkoi4UYrOSChKTXuRwR-/s320/1.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div class="MsoListParagraphCxSpFirst" style="text-align: justify;">
</div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: "BakerSignet BT"; mso-fareast-font-family: "BakerSignet BT";">13. <span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Kemudian
Setting IP computer workstation masing-masing dengan cara :</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l1 level1 lfo2; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Klik pada <b>Local
Area Connection</b> yang ada di <b>Network And Sharing Center </b>kemudian akan
muncul jendela <b>Local Area Connection Properties </b>lalu klik 2 kali pada <b>Internet
Protocol Version 4(TCP/IP4)</b></span></div>
<br />
<div class="MsoListParagraphCxSpFirst" style="text-align: center; text-indent: -18pt;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgHe2uyFpsnlXwYpepoEUI3tQM1c3Ibjol8cbUrpza3RNDTanQWf5v-u6uufcMVj6HmOKjcHEG8_5WNtKyvg3wTGrtO8wcN8trnHQg96L-KRxHmL_SGZJRWrfiqLqimzJBdnJIS-gpF9IiA/s1600/2.jpg" style="margin-left: 1em; margin-right: 1em; text-indent: 0px;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgHe2uyFpsnlXwYpepoEUI3tQM1c3Ibjol8cbUrpza3RNDTanQWf5v-u6uufcMVj6HmOKjcHEG8_5WNtKyvg3wTGrtO8wcN8trnHQg96L-KRxHmL_SGZJRWrfiqLqimzJBdnJIS-gpF9IiA/s1600/2.jpg" /></a>
</div>
<div class="MsoListParagraphCxSpFirst" style="text-align: center; text-indent: -18pt;">
</div>
<div class="MsoNormal" style="text-align: justify;">
</div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-bidi-font-weight: bold; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Setelah itu
akan muncul jendela <b>Internet Protocol Version 4(TCP/IP) Properties,</b> dan
pilih <b>Use the following Addres</b></span></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Isikan IP
address dan Subnet Mask</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 72.0pt; mso-add-space: auto; text-align: justify;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Contohnya :</span></div>
<span style="height: 240px; margin-left: 82px; margin-top: 56px; position: absolute; text-align: center; width: 253px; z-index: 1;"> </span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Arial; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin;">Kami mencontohkan IP Address Class C /30 yaitu :
IP 193.193.193.253 dan Subnet Mask 255.255.255.252</span><br />
<span style="font-family: BakerSignet BT, sans-serif;"><span style="line-height: 18px;"><br /></span></span>
<br />
<div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiM2u03pxNHfZYFAkDLyqGUWSMksb_cOCJE74Nem607TynUU4DhrT_IxKCcSr6BkEfkuRfXmkqFIX2rIRGi8DxICXja0Fw6-P3rD9hpzd58OqAvPfM1tHrXR2me9GVuIDF2JGoSl6-ulA89/s1600/3.jpg" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiM2u03pxNHfZYFAkDLyqGUWSMksb_cOCJE74Nem607TynUU4DhrT_IxKCcSr6BkEfkuRfXmkqFIX2rIRGi8DxICXja0Fw6-P3rD9hpzd58OqAvPfM1tHrXR2me9GVuIDF2JGoSl6-ulA89/s1600/3.jpg" /></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCOG2kHc3pNAT4gYGC3mXJ-SK2zNnmZD0kAfrLoFY9L6sYzH4YEtOUMAMvGpNaPIalxKu-e4n4dQSVZK7xp7ogxjSZ1VkWrp0I313Ez7jFWgjhLts50sY8q9zAd6cM0iLH0SxqJE4kQri0/s1600/4.jpg" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCOG2kHc3pNAT4gYGC3mXJ-SK2zNnmZD0kAfrLoFY9L6sYzH4YEtOUMAMvGpNaPIalxKu-e4n4dQSVZK7xp7ogxjSZ1VkWrp0I313Ez7jFWgjhLts50sY8q9zAd6cM0iLH0SxqJE4kQri0/s1600/4.jpg" /></a> </div>
<div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Lalu setting
pada komputer yang lain dengan IP Address kelas C yang sama, akan tetapi bedakan
pada penomoran alamat untuk komputer-komputer yang lain (seperti 193.193.193.254)
Subnet Mask tetap sama.</span></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Kemudian
Klik Ok</span></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Kemudian
test koneksinya melalui Command Fromp dengan cara mengetikkan IP yang ingin di
lihat Koneksinya contohya : Ping 193.193.193.254 lalu tekan Enter</span><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;"> </span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;">Jika koneksinya
sukses akan terlihat seperti gambar dibawah ini :</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-indent: -18pt;"><br /></span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKFFlNa85_0LJS7Exxf7bwUO3FHy436dOGf38TNY7Tyhk8LsQZl42bobtD79nH4zYennbYrlj9XyGZSp8L7HjhPUozRXcMLdTCzQ9XvBnuRfxJZf6Lg08XM6CwCbnozhVnplecU32TuuIB/s1600/5.jpg" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="111" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKFFlNa85_0LJS7Exxf7bwUO3FHy436dOGf38TNY7Tyhk8LsQZl42bobtD79nH4zYennbYrlj9XyGZSp8L7HjhPUozRXcMLdTCzQ9XvBnuRfxJZf6Lg08XM6CwCbnozhVnplecU32TuuIB/s320/5.jpg" width="320" /></a>
</div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 54.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
</div>
<div class="MsoListParagraph" style="margin-left: 54pt; text-indent: -18pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: center; text-indent: -18pt;">Dan jika koneksinya
gagal maka akan terlihat seperti gambar dibawah ini :</span></div>
<div class="MsoListParagraph" style="margin-left: 54pt; text-indent: -18pt;">
<span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: center; text-indent: -18pt;"><br /></span></div>
<div class="MsoListParagraph" style="margin-left: 54pt; text-indent: -18pt;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiVCGlmywCUbsFhwsq6ubGn30-9XLosNAR1CTNe4Tw_047Uv1tpSznkufsvBBlaF2qiKw5sxfwOgpuKfXRZL4pl57ihW0N32LuFqFc2ucLM64UqwgJ-ThBAzvIL9Bi6nR8qjbcruz86idOC/s1600/6.jpg" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="128" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiVCGlmywCUbsFhwsq6ubGn30-9XLosNAR1CTNe4Tw_047Uv1tpSznkufsvBBlaF2qiKw5sxfwOgpuKfXRZL4pl57ihW0N32LuFqFc2ucLM64UqwgJ-ThBAzvIL9Bi6nR8qjbcruz86idOC/s320/6.jpg" width="320" /></a>
</div>
<div class="MsoListParagraph" style="margin-left: 54pt; text-indent: -18pt;">
</div>
<div class="MsoNormal" style="text-align: justify;">
</div>
<div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: "BakerSignet BT"; mso-fareast-font-family: "BakerSignet BT";">44. </span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Untuk
melalukan sharing kita harus menonaktifkan <b>windows firewall dan Password
Protect </b>pada windows 7 dengan<b> </b>cara :</span></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 49.65pt; mso-add-space: auto; mso-list: l1 level1 lfo3; tab-stops: 42.55pt; text-align: justify; text-indent: -14.2pt;">
<span style="font-family: Wingdings; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Wingdings; mso-fareast-font-family: Wingdings;">v<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Cara
Menonaktifkan windows Firewall</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 75.2pt; mso-add-space: auto; mso-list: l2 level1 lfo2; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">masuk
kejendela <b>Control Panel </b>lalu pilih <b>Windows firewall</b></span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 75.2pt; mso-add-space: auto; mso-list: l2 level1 lfo2; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipfJkaiMm4bEkwOZUBVkn6Qi8pJ1QrqyIe2a9ee7indAzLVXtOT-AYLyA731-hnz0SsWF7CyQoXZYFTtqPusG4imBn6zoIgljYumeRFbWy2Udy2PzSa2E8BSetfu61j-i3uMnwPR1GWG15/s1600/7.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="68" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipfJkaiMm4bEkwOZUBVkn6Qi8pJ1QrqyIe2a9ee7indAzLVXtOT-AYLyA731-hnz0SsWF7CyQoXZYFTtqPusG4imBn6zoIgljYumeRFbWy2Udy2PzSa2E8BSetfu61j-i3uMnwPR1GWG15/s320/7.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div class="MsoListParagraph" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Kemudian akan
muncul jendela <b>Help protect Your Computer With Eindows Firewall </b>lalu
pilih <b>Turn Windows Firewall On or Off</b>,</span></div>
<div class="MsoListParagraph" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiajel8Jikbbc0XQ2pRrCJU_RKX9m6HlQUrAURe5rKhXOsgf_PJff7nBijmg2tPcnZbecGeSNbAA_wKbcG1-18C-j4KV6hPjAI7c9Df-jPo-7MqkMyeS621fi8SRZEXBZQPpt-KEtdvBu-A/s1600/8.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="107" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiajel8Jikbbc0XQ2pRrCJU_RKX9m6HlQUrAURe5rKhXOsgf_PJff7nBijmg2tPcnZbecGeSNbAA_wKbcG1-18C-j4KV6hPjAI7c9Df-jPo-7MqkMyeS621fi8SRZEXBZQPpt-KEtdvBu-A/s320/8.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraph" style="margin-left: 72.0pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Lalu akan muncul
jendela <b>Costomize Setting For Each Type Of Network </b>dan pilih Turn Off
Windows Firewall (Not Recommended) seperti pada gambar, lalu klik OK.</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisJ_xcUPMkkxaZu-4F_oPSfKRMZM5hRxSbiOlWQC6ZD7UQ8NoaFKARmDGAvRvEUIJpPYu5wtm-S4uh16-3uaCaYjhHqvOQyKm4W6gG3H-vJRuhaqPP2aRg5m9oUD5q0NVXQYCKMt2ll_AE/s1600/9.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="128" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisJ_xcUPMkkxaZu-4F_oPSfKRMZM5hRxSbiOlWQC6ZD7UQ8NoaFKARmDGAvRvEUIJpPYu5wtm-S4uh16-3uaCaYjhHqvOQyKm4W6gG3H-vJRuhaqPP2aRg5m9oUD5q0NVXQYCKMt2ll_AE/s320/9.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoNormal" style="text-align: justify;">
</div>
<div class="MsoListParagraph" style="margin-left: 49.65pt; mso-add-space: auto; mso-list: l0 level1 lfo1; tab-stops: 42.55pt; text-align: justify; text-indent: -14.2pt;">
<span style="font-family: Wingdings; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Wingdings; mso-fareast-font-family: Wingdings;">v<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"><b> </b></span></span><b><span dir="LTR"></span></b><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><b>Cara
Menonaktifkan windows Password Protect pada windows 7</b></span><br />
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><b><br /></b></span></div>
<div class="MsoListParagraph" style="margin-left: 85.65pt; text-indent: -18pt;">
<div style="text-align: justify;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">masuk kejendela <b>Control
Panel </b>lalu pilih <b>Network And Sharing Center </b>sama seperti yang saya
jelaskan diatas, setelah masuk jendela <b>Network And Sharing Center</b> Lalu
Pilih <b>Change Advanced Sharing Settings</b>
yang ada di sudut kiri seperti pada gambar.</span></div>
</div>
<div class="MsoListParagraph" style="margin-left: 85.65pt; text-indent: -18pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdRdrotM_32OfxD86V2IAlsBMI-zvrEt-whwjF2qJeqOV-I4jNHJMpng8VT5cV4zaL7OnsUUs_yNxEarYUqpuzUMPnNa0q2uwyXOEUzIqEjpEKxDooz_NnLjIfdpsx2Tj64Zl1vX8BVQkh/s1600/10.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="108" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdRdrotM_32OfxD86V2IAlsBMI-zvrEt-whwjF2qJeqOV-I4jNHJMpng8VT5cV4zaL7OnsUUs_yNxEarYUqpuzUMPnNa0q2uwyXOEUzIqEjpEKxDooz_NnLjIfdpsx2Tj64Zl1vX8BVQkh/s320/10.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: justify;">Kemudian akan muncul jendela </span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: justify;">Change sharing option for different
network profile, </b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: justify;">kemudian ceklis pada </span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: justify;">Trun off password protected
sharing </b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%; text-align: justify;">seperti pada gambar lalu klik save changes.</span></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-font-family: Arial; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFwyeTnblT9cRwkpP1KZkyKu8OERmccPB0XSX5Ye7xkwgrMAZRR26ghrny4AHmSYmyyUxQ5yfX9HHekHsGFYHBP4fFQ8jMwWgTA0rvrMT_Obzhw21kMgYVsP3tNu_1FHcuslA_Oohp4Q5M/s1600/11.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="92" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFwyeTnblT9cRwkpP1KZkyKu8OERmccPB0XSX5Ye7xkwgrMAZRR26ghrny4AHmSYmyyUxQ5yfX9HHekHsGFYHBP4fFQ8jMwWgTA0rvrMT_Obzhw21kMgYVsP3tNu_1FHcuslA_Oohp4Q5M/s320/11.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraphCxSpFirst" style="mso-list: l1 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: "BakerSignet BT"; mso-fareast-font-family: "BakerSignet BT";">1<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Setelah itu
kita bias melakukan sharing dan mapping Folder yang kita inginkan dengan cara :</span></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 70.9pt; mso-add-space: auto; mso-list: l2 level1 lfo2; text-align: justify; text-indent: -21.25pt;">
<span style="font-family: Wingdings; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Wingdings; mso-fareast-font-family: Wingdings;">v<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Cara
Sharing Folder</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 85.65pt; mso-add-space: auto; mso-list: l0 level1 lfo3; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Klik kanan pada
folder yang akan di sharing lalu pilih tab sharing, kemudian pilih <b>sharing </b>seperti
yang ada pada gambar.</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbbMCYbF6fMaPl16DilNP4cM9C8RbHOCQV3TtweUclnQq97xrF9olVfhnXLxd90Y02hRDJdGL81MGKEVbdtAfgu7rbVylm0MVlM7w1l2o715XQGQXhvEizgIb3dcbOt7wQjKKS-ZQn4jBh/s1600/12.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbbMCYbF6fMaPl16DilNP4cM9C8RbHOCQV3TtweUclnQq97xrF9olVfhnXLxd90Y02hRDJdGL81MGKEVbdtAfgu7rbVylm0MVlM7w1l2o715XQGQXhvEizgIb3dcbOt7wQjKKS-ZQn4jBh/s1600/12.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 85.65pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Setelah itu akan
muncul jendela <b>file sharing</b>, lalu pada <b>choose people to share with</b>
pilih <b>every one</b> kemudian klik <b>add</b> kemudian tekan <b>share </b>seperti
yang ada pada gambar.</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 85.65pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Setelah itu
akan muncul jendela <b>Your Folder is shared</b> kemudian klik <b>Done.</b></span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 85.65pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -18.0pt;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSfjRNu4kwOp3Rc5xn8btJSTbrzZYigCl8ItCy-DHOi9NmdnoK_DfBTSiRLqrltAoT4njsTXsIOuHTD3kfYHXUBrf_dHP9w3TX3OrA0phCrlrJfNXqfHYIFWIP0DV6-W3u-etfQG18B8Ik/s1600/13.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="157" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSfjRNu4kwOp3Rc5xn8btJSTbrzZYigCl8ItCy-DHOi9NmdnoK_DfBTSiRLqrltAoT4njsTXsIOuHTD3kfYHXUBrf_dHP9w3TX3OrA0phCrlrJfNXqfHYIFWIP0DV6-W3u-etfQG18B8Ik/s400/13.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; tab-stops: 494.0pt; text-align: justify; text-indent: -18.0pt;">
</div>
<ul>
<li><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;">Untuk melihat File
folder yang sudah di sharing dari computer lain bisa dengan cara menekan
windows + R yang ada pada keyboard lalu akan muncul
jendela </span><b style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;">Run </b><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;">lalu ketikkan IP Address yang sudah menyeringkan file
foldernya dengan diawali tanda “\\” tanpa kutip. Contohnya : \\</span><span style="color: #1f497d; font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;">193.193.193.254</span><span style="font-family: 'BakerSignet BT', sans-serif; font-size: 12pt; line-height: 115%;"> lalu tekan
Enter atau klik OK.</span></li>
</ul>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLc1M2xXAFNMPM41bMqAntDhtfk8UIEPH3eF6TTT65oZjuzaZnh6PTwfh-VyYNmEDTrD-E1rY1ukpntpvbuGhPA7LlCzpHMvI-i5L-o5yiUIzrQMxrPzgfUa6yPlRnEY6IlSegl5RxxYs6/s1600/14.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLc1M2xXAFNMPM41bMqAntDhtfk8UIEPH3eF6TTT65oZjuzaZnh6PTwfh-VyYNmEDTrD-E1rY1ukpntpvbuGhPA7LlCzpHMvI-i5L-o5yiUIzrQMxrPzgfUa6yPlRnEY6IlSegl5RxxYs6/s1600/14.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; tab-stops: 309.4pt; text-indent: -18.0pt;">
<span style="font-family: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt;"> S</span></span><span style="font-family: 'BakerSignet BT', sans-serif; text-align: left; text-indent: -18pt;">etelah
itu akan muncul jendela folder yang di sharing seperti pada gambar di bawah ini
ya .. hehee</span></div>
<div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; tab-stops: 309.4pt; text-indent: -18.0pt;">
<span style="font-family: 'BakerSignet BT', sans-serif; text-align: left; text-indent: -18pt;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8Lk4sDm26KIKrERojyMA-080DAC2MggXN2kkHVskH6Qt6uxqrTIbXmkokHR2927Y77z1B2X1eSyiG9zCgA4AfJAZIbkzgAgRCCAqBvgc0WpuWEnnJDdC4bDx32oHHLbCj0wBy-ufD0x2i/s1600/15.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="127" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8Lk4sDm26KIKrERojyMA-080DAC2MggXN2kkHVskH6Qt6uxqrTIbXmkokHR2927Y77z1B2X1eSyiG9zCgA4AfJAZIbkzgAgRCCAqBvgc0WpuWEnnJDdC4bDx32oHHLbCj0wBy-ufD0x2i/s400/15.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 49.65pt; mso-add-space: auto; mso-list: l1 level1 lfo1; text-align: justify; text-indent: -21.3pt;">
<span style="font-family: Wingdings; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Wingdings; mso-fareast-font-family: Wingdings;">v<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;"> </span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Cara
Mapping Drive</span></div>
<div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo2; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: Symbol; font-size: 12.0pt; line-height: 115%; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt; line-height: normal;">
</span></span><span dir="LTR"></span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;">Klik kanan
pada <b>My Computer</b> Kemudian Pilih <b>Map Network Drive </b>kemudian akan
muncul jendela <b>Map Network Drive </b>lalu pilih <b>Browser</b> kemudian
pilih name computer yang terkoneksi jaringan peer to peer setelah itu pilih
folder yang akan di mapping setelah itu klik <b>Ok</b> seperti pada gambar di
bawah ini.</span></div>
<div class="MsoListParagraphCxSpLast" style="mso-list: l0 level1 lfo2; text-align: justify; text-indent: -18.0pt;">
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; line-height: 115%;"><br /></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5VTuErXbPnJLQ2utKSuiBRg4UdJuKSFZV_3vCaKoNOFQb5yjzBtM9DqOsqW2c2HEyMgnKD9aqaagdDvYmY9uyDOu7B3917ZohaQU3DJtpPkxG2coH1HhQqfePk_i79DZzTgymdMIArSh7/s1600/16.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="115" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5VTuErXbPnJLQ2utKSuiBRg4UdJuKSFZV_3vCaKoNOFQb5yjzBtM9DqOsqW2c2HEyMgnKD9aqaagdDvYmY9uyDOu7B3917ZohaQU3DJtpPkxG2coH1HhQqfePk_i79DZzTgymdMIArSh7/s400/16.jpg" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; text-indent: -18.0pt;">
<span style="font-family: Symbol; mso-bidi-font-family: Symbol; mso-fareast-font-family: Symbol;">·<span style="font-family: 'Times New Roman'; font-size: 7pt;"> </span></span><span style="font-family: Symbol; text-indent: -18pt;">·<span style="font-family: 'Times New Roman'; font-size: 7pt;">
</span></span><span dir="LTR" style="text-indent: -18pt;"></span><span style="font-family: 'BakerSignet BT', sans-serif; text-indent: -18pt;">Jika sudah bisa mapping bearti percobaan anda telah
berhasil dan jika belum bias di ulang kembali. Selamat Mencoba Semoga Berhasil.. </span><span style="font-family: Wingdings; font-size: 11pt; line-height: 115%;">J</span></div>
</div>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-24823484229049975182012-11-25T06:52:00.000-08:002012-11-25T06:52:32.926-08:00<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6H6_crHYBXAj8tuZvguA5sxYDc82KLG_iPVv65hb4s63DiKuzWsdxZonO-ehlWmMHl3DyfuR_0W7ZgeECg7pLsHjYdOC6taDW73s_lPOxFbyGKNPngB8o_FDBI54DiH12Fibt0J0BR-dU/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="189" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6H6_crHYBXAj8tuZvguA5sxYDc82KLG_iPVv65hb4s63DiKuzWsdxZonO-ehlWmMHl3DyfuR_0W7ZgeECg7pLsHjYdOC6taDW73s_lPOxFbyGKNPngB8o_FDBI54DiH12Fibt0J0BR-dU/s320/1.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<span style="font-family: BakerSignet BT, sans-serif;"><b>Membuat Text Berjalan Dengan Visual Basic.NET</b> - </span><span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman";">Pada
tutorial kali ini saya akan membahas tentang bagaimana cara membuat Text
berjalan pada VB.NET...<br />
Ikuti langkah-langkahnya ya kawan...<br />
hihi...<a name='more'></a><br />
<br />
Yang dibutuhkan dalam tutorial ini cuman Label dan Timer.<br />
Yup kita langsung mulai...!!!<br />
<br />
Pastekan kode dibawah ini pada aplikasi anda : <br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
Public Sub New()<br />
MyBase.New()<br />
<br />
'This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
<br />
'Add any initialization after the InitializeComponent() call<br />
<br />
End Sub<br />
<br />
'Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
<br />
'Required by the Windows Form Designer<br />
Private components As System.ComponentModel.IContainer<br />
<br />
'NOTE: The following procedure is required by the Windows Form Designer<br />
'It can be modified using the Windows Form Designer. <br />
'Do not modify it using the code editor.<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
Friend WithEvents Timer1 As System.Windows.Forms.Timer<br />
Private Sub InitializeComponent()<br />
Me.components = New System.ComponentModel.Container<br />
Me.Label1 = New System.Windows.Forms.Label<br />
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)<br />
Me.SuspendLayout()<br />
'<br />
'Label1<br />
'<br />
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif",
48.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))<br />
Me.Label1.Location = New System.Drawing.Point(8, 48)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(800, 176)<br />
Me.Label1.TabIndex = 0<br />
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter<br />
'<br />
'Timer1<br />
'<br />
Me.Timer1.Enabled = True<br />
Me.Timer1.Interval = 200<br />
'<br />
'Form1<br />
'<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(816, 272)<br />
Me.Controls.Add(Me.Label1)<br />
Me.Name = "Form1"<br />
Me.Text = "Form1"<br />
Me.ResumeLayout(False)<br />
<br />
End Sub<br />
<br />
#End Region<br />
Dim tulisan(3) As String<br />
Dim i, j As Integer<br />
<br />
<br />
'code ini diletakkan ditimer1 event tick'<br />
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick<br />
<br />
If i.Equals(tulisan(j).Length) Then<br />
Me.Label1.Text = ""<br />
If j < tulisan.Length - 1 Then<br />
j = j + 1<br />
Me.Label1.Text = tulisan(j)<br />
Else<br />
j = 0<br />
End If<br />
i = 0<br />
End If<br />
Label1.Text = tulisan(j).Substring(0, i)<br />
i = i + 1<br />
End Sub<br />
<br />
<br />
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Load<br />
<br />
'Masukkan pesan yang ingin ditampilkan disini<br />
tulisan(0) = " Rama Blog "<br />
tulisan(1) = " Rama Blog "<br />
tulisan(2) = " Rama Blog ... "<br />
tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now)
& " "<br />
<br />
Label1.Text = tulisan(j)<br />
End Sub<br />
End Class<br />
<br />
Yup....<br />
sekarang coba anda compile..<br />
dah hasilnya...???<br />
jreng...jreng.....<br />
haha... wkwkwkwkw ….</span><br />
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman";"><br /></span></div>
<span style="font-family: "BakerSignet BT","sans-serif"; font-size: 12.0pt; mso-bidi-font-family: "Times New Roman"; mso-fareast-font-family: "Times New Roman";">Selamat
Mencoba semoga berhasil .. </span><span style="font-family: Wingdings; font-size: 12.0pt; mso-ascii-font-family: "BakerSignet BT"; mso-bidi-font-family: "Times New Roman"; mso-char-type: symbol; mso-fareast-font-family: "Times New Roman"; mso-hansi-font-family: "BakerSignet BT"; mso-symbol-font-family: Wingdings;">J</span>alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-28413548521736224142012-11-25T06:45:00.004-08:002012-11-25T06:45:55.689-08:00<h3 class="post-title entry-title">
Fungsi-Fungsi String di VB.NET
</h3>
<div style="text-align: justify;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpLyFapqZX7uLRyX9HCQPcY-x2_pFYx5LypjUIZ6xRD-cBdgA2lH1o56wF6oD4iFuGbZE1SSPFXPfOLHZhAyXCCIGiL8uRTVefMEo9-tlnlWkg5wxc8l9dOH9Fqru_yRBJ-G6_lMiJVrf9/s1600/1.jpg" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="280" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpLyFapqZX7uLRyX9HCQPcY-x2_pFYx5LypjUIZ6xRD-cBdgA2lH1o56wF6oD4iFuGbZE1SSPFXPfOLHZhAyXCCIGiL8uRTVefMEo9-tlnlWkg5wxc8l9dOH9Fqru_yRBJ-G6_lMiJVrf9/s320/1.jpg" width="320" /></a></div>
<div class="MsoNormal" style="line-height: 150%;">
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;"> </span></div>
<div class="MsoNormal">
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;"> </span><span style="font-family: Trebuchet MS, sans-serif;"><span style="font-size: 14px; line-height: 21px;"><b>Fungsi-Fungsi String di VB.NET</b> - </span></span><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;"> Didalam
visual Basic ada banyak sekali fungsi-fungsi string, program sederhana yang
saya buat ini hanya menampilakan sebahagian fungsi string yang ada di visual
Basic.Net. bagi anda yang programmer pemula sangat cocok untuk mengetahui
fungsi-fungsi string yang sedehana dan mudah diingat </span><span style="font-family: Wingdings; font-size: 10.5pt; line-height: 150%;">J</span></div>
<div class="MsoNormal" style="line-height: 150%;">
<span style="font-family: Wingdings; font-size: 10.5pt; line-height: 150%; mso-ascii-font-family: "Trebuchet MS"; mso-char-type: symbol; mso-hansi-font-family: "Trebuchet MS"; mso-symbol-font-family: Wingdings;"><br /></span></div>
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Baiklah
langsung saja ya, Desain Formnya seperti yang diatas !!</span><br />
<div style="text-align: justify;">
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br /></span></div>
<div style="text-align: justify;">
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; margin-left: 26.7pt; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt; mso-yfti-tbllook: 1184;">
<tbody>
<tr>
<td style="background: black; border: solid windowtext 1.0pt; mso-background-themecolor: text1; mso-border-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;"><span style="color: white;">Button/Teks</span></span></b></div>
</td>
<td style="background: black; border-left: none; border: solid windowtext 1.0pt; mso-background-themecolor: text1; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;"><span style="color: white;">Name</span></span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">LCase</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button1</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">UCase</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button2</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Left</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button3</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Right</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button4</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Mid</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button5</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">LTrim</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button6</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">RTrim</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button7</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Trim</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button8</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Len</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button9</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">String</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button10</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Instr</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button11</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Replace</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button12</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Split</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button13</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Join</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button15</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">StrRiverse</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button16</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">StrConv</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button17</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">StrComp</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button18</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Space</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button14</span></b></div>
</td>
</tr>
<tr>
<td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 194.7pt;" width="260"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Exit</span></b></div>
</td>
<td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0cm 5.4pt 0cm 5.4pt; width: 209.25pt;" width="279"><div align="center" class="MsoNormal" style="line-height: 150%; text-align: center;">
<b><span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; line-height: 150%;">Button19</span></b></div>
</td></tr>
</tbody></table>
</div>
<div style="text-align: justify;">
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br /></span></div>
<div style="text-align: justify;">
</div>
<div class="MsoNormal">
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt;">Setelah
Selesai Mengatur property diatas lalu masukkan listing program berikut ini.<a name='more'></a></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="color: blue; font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;">Public</span><span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Class</span> string_versi_rama</span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button1_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button1.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'LCASE(x)
=> diguakan untuk merubah huruf besar menjadi huruf kecil</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = LCase(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button2_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button2.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'UCase(x)
=> digunakan untuk merubah huruf kecil menjadi huruf besar</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = UCase(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button3_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button3.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Left(x,n)
=> digunakan mengambil karakter dari kiri sebanyak "n"</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Left(x, 3)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button4_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button4.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Right(x,n)
Digunakan untuk mengambil karakter dari kanan sebanyak "n"</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Right(x, 3)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button5_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button5.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Mid (x,y,n)
digunakan untuk mengambil karakter x dimulai dari y sebanyak n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Mid(x, 1, 2)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button6_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button6.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'LTrim =>
digunakan untuk menghapus karakter spasi di bagian kiri dari string x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.LTrim(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button7_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button7.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'RTrim =>
digunakan untuk menghapu s karakter spasi di bagian kanan dari string x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> = text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.RTrim(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button8_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button8.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Trim =>
digunakan untuk mengapus spasi di bagian kanan dan kiri string x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Trim(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button9_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button9.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Len
digunakan untuk menghitung jumlah karakter x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Len(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button10_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button10.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'String(x,n)
=> di gunakan untuk membuat karakter x sebanya n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = <span style="color: blue;">New</span>
<span style="color: blue;">String</span>(x, 2)</span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button11_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button11.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">''Space(n)
=> digunakan untuk karakter spasi sbanyak n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Dim x As
String = text1.Text</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'text1.Text =
Space(2)</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Instr(x,n)
digunkan untuk mengetahui posisi karakter n di dalam string x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.InStr(x, <span style="color: #a31515;">"a"</span>)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button12_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button12.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Replace(x,y,n)
di gunakan untuk mengganti karakter y dalam string x dengan karakter n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> = text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Replace(x, <span style="color: #a31515;">"a"</span>, <span style="color: #a31515;">"o"</span>).Replace(<span style="color: #a31515;">"i"</span>, <span style="color: #a31515;">"o"</span>).Replace(<span style="color: #a31515;">"u"</span>, <span style="color: #a31515;">"o"</span>).Replace(<span style="color: #a31515;">"e"</span>, <span style="color: #a31515;">"o"</span>)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> string_versi_rama_Load(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">MyBase</span>.Load</span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button13_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button13.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'Split(x,n)(i)
, digunakan untuk memecah string x berdasarkan karakter n dengan penomoran i</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x,
y <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> x = text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> y = Strings.Split(x, <span style="color: #a31515;">","</span>)(0)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> y = Strings.Split(x, <span style="color: #a31515;">","</span>)(1)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = y</span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button14_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button14.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Space(10)</span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button15_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button15.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">' Join(x,n) , digunakan untuk menggabungkan
rangkain string x yang dihubungkan dengan string n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> x = text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.Join(<span style="color: blue;">New</span> <span style="color: blue;">Object</span>() {x}, <span style="color: #a31515;">"&"</span>)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button16_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button16.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'StrReverse(x)
, digunakan untuk membalikkan posisi huruf dalam string x</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.StrReverse(x)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button17_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button17.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'StrConv(x,n)
, digunakan untuk mengubah huruf dalam string x berdasarkan nilai n</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x <span style="color: blue;">As</span> <span style="color: blue;">String</span> =
text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = Strings.StrConv(x, 1)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button18_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button18.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">'StrComp(x,y,n)
, digunakan untuk membandingkan string x dan string y berdasarkan n.</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">' Jika n
bernilai 0 maka akan dibandingkan secara case-sensitive,</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: green;">' sedangkan
jika n bernilai 1 maka akan dibandingkan secara biasa</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Dim</span> x,
y <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> x = text1.Text</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> y = Strings.StrComp(x, x, 0)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> y = Strings.StrComp(x, x, 1)</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> text2.Text = y</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
</div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button19_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.EventArgs) <span style="color: blue;">Handles</span> Button19.Click</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Me</span>.Close()</span></div>
<div class="MsoNormal">
<span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal">
<span style="color: blue; font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;">End</span><span style="font-family: Fixedsys; font-size: 10.0pt; mso-no-proof: yes;"> <span style="color: blue;">Class</span></span></div>
<div class="MsoNormal">
</div>
<span style="font-family: "Trebuchet MS","sans-serif"; font-size: 10.5pt; mso-ansi-language: EN-US; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Selamat
Mencoba sukses buat kita bersama </span><span style="font-family: Wingdings; font-size: 10.5pt; mso-ansi-language: EN-US; mso-ascii-font-family: "Trebuchet MS"; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-char-type: symbol; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US; mso-hansi-font-family: "Trebuchet MS"; mso-symbol-font-family: Wingdings;">J</span>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-48621505367003765282012-11-25T06:34:00.007-08:002012-11-25T06:58:47.818-08:00cara mengembalikan task manajer yang didisableBismillah. Selamat sore semuanya. Kesempatan kali ini saya akan update
artikel saya mengenai tips trik di dunia internet dan komputer atau
bahkan ini sudah masuk ke kategori hacking? Entahlah. Tapi, artikel ini
saya masukan ke kategori hacking dikarenakan memang banyak yang
melakukan hal ini untuk kegiatan hack, misalnya saat ingin membuka task
manager di warnet terdekat, ternyata sudah di disable oleh admin di net
tersebut? Pasti mau tidak mau kita harus menghacknya kan? Walaupun hack
tersebut tidak bermaksud untuk melakukan hal-hal yang kotor atau hal
yang merugikan pihak lain. Apakah anda termasuk orang yang kebingungan
untuk melakukan hal itu? Atau anda hanya ingin menambah
informasi-informasi mengenai masalah ini? Tepat sekali anda datang ke
blog ini, karena saya akan membahas dua cara sekaligus <i style="font-weight: bold;">bagaimana cara mengembalikan task manager yang disable oleh admin</i>.
Oke, kita sekarang masuk ke intinya. Di sini saya akan membahas dua
cara mengenai hal tersebut, yaitu ada cara simple dan ada cara yang
rumit dan memakan banyak waktu, tapi kedua cara itu mempunyai kelebihan
dan kekurangan masing-masing.<br />
<br />
Sekarang saya akan membahas cara pertama terlebih dahulu, yaitu cara
simple nya. Ikuti langkah-langkahnya baik-baik dan teliti ya.<br />
<br />
<br />
<ol>
<li>Buka <b>Run</b> dengan cara Klik Start --> Run ataupun bisa menggunakan Shorcut "IconWindows + R" (tanpa kutip dan plus)</li>
<li>Ketik data berikut : <a name='more'></a></li>
<blockquote class="tr_bq">
“<b>reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f</b>”</blockquote>
<li>Usahakan melakukannya dengan copy paste saja agar menghindari dari kesalahan pengetikan</li>
<li>Jika sudah selesai semuanya, coba anda buka kembali task managernya.</li>
<li>Jika masih belum bisa terbuka, silakan anda menggunakan cara kedua yang agak rumit dengan menggunakan <b>regedit</b></li>
</ol>
Bagaimana hasilnya? Apa masih tetap tidak terbuka? Atau mungkin terjadi
kesalahan dan anda sudah pusing akan kesalahan itu? Silakan coba cara
kedua, dan ingat cara ini menggunakan <b>regedit</b>, jadi harap
berhati-hati menggunakannya, karena akan bersifat fatal jika terdapat
kesalahan. Untuk mencegahnya anda bisa mengikuti langkah yang saya
berikan dengan baik dan usahakan jangan terlewatkan ataupun keliru.
Selain itu anda jika bisa membuat backup an <b>regedit</b> tersebut. Oke, untuk langkah-langkahnya perhatikan baik-baik ya.<br />
<div>
<ol>
<li>Pastikan PC / Laptop anda sudah terbebas dari virus untuk mencegah hal-hal yang tidak diinginkan terjadi.</li>
<li>Seperti biasa, buka <b>Run</b> dan ketikan "<i style="font-weight: bold;">regedit</i>" dan kemudian tekan Enter atau klik OK.</li>
<li>Klik menu <b>Edit</b> kemudian pilih <b>Find</b> dan ketikkan kata <b>DisableTaskMgr</b> (penulisan tidak tegantung huruf kecil/besar) kemudian klik <b>Find Next</b> hingga menemukan data seperti berikut<br />
</li>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixuJPtLJZapRLPML-CQeACtUiKLe7Hyo5j5JDq7Z2Sli-RfAO_kiFZFC1rvIiQchK71RmA2kl_WqLoYm1QBTD0INGQyc2FMz0ztwoV6ao1TEqMGLo9g18okMVvx9UUYTAEwiCsHGp_idDK/s320/disabletaskmgr-2.JPG" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixuJPtLJZapRLPML-CQeACtUiKLe7Hyo5j5JDq7Z2Sli-RfAO_kiFZFC1rvIiQchK71RmA2kl_WqLoYm1QBTD0INGQyc2FMz0ztwoV6ao1TEqMGLo9g18okMVvx9UUYTAEwiCsHGp_idDK/s320/disabletaskmgr-2.JPG" /></a></div>
<li>Double klik di <b>DisableTaskMgr</b>, kemudian ganti angka 1 menjadi angka 0 agar task manager yang disable menjadi enable kembali lalu Tekan Enter atau klik OK.</li>
<li>Kemudian setelah selesai, tutup kembali <b>regedit</b> nya, lalu buka task manager dengan menekan CTRL + ALT + DEL</li>
<li>Selesai. Semoga berhasil yaa</li>
</ol>
Itu dia informasi seputar dunia hacking yang bisa saya bagikan kali ini.
Kurang lebihnya mohon maaf. Bila masih ada diantara anda yang gagal
atau yang masih bingung menyelesaikannya, silakan hubungi saya atau
berkomentar di bawah, secepatnya akan saya respon dan saya berikan
solusinya.</div>
<div>
Terima Kasih! Semoga Bermanfaat!</div>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-3260793184086729342012-07-07T09:43:00.001-07:002012-07-07T09:43:38.581-07:00Tutorial Common Lisp Menggunakan GNU CLISPTutorial Common Lisp Menggunakan GNU CLISP
Agro Rachmatullah (agro1986 [di] gmail.com)
11 Mei 2004
Pendahuluan
Lisp adalah bahasa pemrograman yang sudah berumur lebih dari 40 tahun. Keunggulan Lisp terletak pada kemampuannya memanipulasi simbol dan hubungan antar simbol dengan mudah, sehingga bahasa ini cocok digunakan di bidang Artificial Intelligence (kecerdasan buatan) dan pengambilan keputusan. Walaupun begitu, bahasa ini juga dapat digunakan untuk memecahkan masalah-masalah lainnya.
Selama perkembangannya, Lisp menghasilkan banyak varian dan merupakan cikal bakal berbagai bahasa lainnya (misalnya Logo dan Smalltalk). Pada 8 Desember 1994 ANSI (American National Standard Institute) berhasil menstandarisasi Lisp, yang diberi nama Common Lisp ANSI. Tutorial ini akan mengajarkan Common Lisp ANSI dengan menggunakan compiler/interpreter GNU CLISP. Untuk selanjutnya, jika tutorial ini menyebutkan "Lisp" maka yang dimaksud adalah "Common Lisp ANSI".
Lisp menarik untuk dipelajari sebab Lisp jauh berbeda dibandingkan dengan bahasa pemrograman seperti Pascal dan C. Setelah banyak menggunakan Lisp, kita akan bisa melihat/menganalisa suatu masalah dari sudut pandang yang sebelumnya tidak pernah kita bayangkan. Paling tidak, Lisp dapat digunakan sebagai kalkulator yang handal (akan ditunjukkan pada tutorial ini).
Menginstall dan Menjalankan GNU CLISP
Tutorial ini akan memandu proses instalasi GNU CLISP 2.33 untuk Windows (yang kadang-kadang akan kita singkat CLISP).
1. Download GNU CLISP 2.33 dari http://webstudent.ugm.ac.id/~agro_r/files/clisp-2.33-win32.zip (Hanya 3.4 MB!).
2. Extract isinya ke folder tempat anda ingin menginstallnya. Semua isi file zip akan diextract ke sub-folder "clisp-2.33". Misalnya jika anda mengextractnya ke "C:\Program Files", semua file-filenya akan diletakkan ke "c:\Program Files\clisp-2.33".
3. Masuk ke folder "clisp-2.32". Jalankan file "install.bat". Pilih 'Y' untuk setiap pertanyaan yang diajukan.
4. Sayangnya, setup yang disediakan lupa melakukan satu hal, jadi anda harus melakukan satu langkah tambahan. Anda harus mengcopy file "lisp.exe" yang terletak di folder "clisp-2.33\base" ke folder "clisp-2.33".
Sekarang CLISP dapat dijalankan lewat iconnya di desktop. Anda akan mendapatkan tampilan seperti berikut:
Kita akan memasuki sebuah prompt dimana kita bisa mulai menuliskan program kita. CLISP merupakan lingkungan pemrograman yang bersifat read-eval-print. Artinya, begitu kita selesai memasukkan/mengetik form dalam CLISP, maka CLISP akan segera menjalankannya dan menuliskan hasilnya (dalam pembuatan program C atau Pascal, biasanya kita menggunakan siklus write-compile-run).
Catatan: Anda bisa mendapatkan versi terbaru GNU CLISP di http://clisp.cons.org.
List dan Atom
Pada bagian ini kita akan mempelajari elemen-elemen dasar Lisp yaitu list dan atom. Contoh-contoh yang diberikan di bagian ini sebagian besar hanya untuk ilustrasi dan tidak dapat diketikkan ke dalam CLISP (akan menghasilkan error). Kita akan mulai menulis program pada bagian berikutnya, "Form".
Hal pertama yang harus kita tahu adalah bahwa segala sesuatu yang dimulai dan diakhiri tanda kurung adalah sebuah list. Sebagai contoh, hal-hal berikut adalah list:
(1 2 3 4 5)
(w x y z)
(rumah tanah kucing 123)
Sebuah list bisa saja kosong maupun berisi list lain. Jadi yang berikut adalah merupakan list juga:
()
((1 10 100))
((x y) 3 4 (hitam merah))
(defun kurangi-satu (x) (- x 1))
List bisa berisi program ataupun data, dan karena kita bisa memasukkan list di dalam list, kita bisa mencampur data dan program pada berbagai tingkatan. Inilah salah satu kekuatan LISP bagi yang sudah menguasainya, namun merupakan sumber kebingungan bagi yang belum menguasainya. Bersiap-siaplah juga untuk menghadapi banyak kurung buka dan kurung tutup.
Elemen-elemen yang berada di dalam list disebut atom. Jadi dalam list
(1 2 3 tangan kanan)
yang disebutkan di bawah merupakan atom:
1
2
3
tangan
kanan
Syarat utama dari atom adalah diawali dan diakhiri spasi (termasuk tab dan newline) atau kurung buka atau kurung tutup. Atom dapat terdiri dari karakter-karakter yang bukan pembatas atom. Perlu diketahui bahwa atom dapat berada di luar list. Inilah beberapa contoh atom lain:
:monitor
!**!
-
@hotmail.com
2*3+1
Lisp tidak case-sensitive, jadi ketiga atom di bawah adalah sama:
saya
SayA
SAYA
Lisp juga tidak mengenal operator, jadi 2*3+1 bukanlah suatu expresi matematika yang nilainya 7. Kalaupun digunakan spasi, maka 2 * 3 + 1 akan menjadi lima buah atom yang juga tidak bernilai 7.
Perhatikan bahwa spasi yang banyak sama saja dengan sebuah spasi, jadi kedua list di bawah ini sama (memang terlihat rumit, tapi untuk sekarang tidak perlu dimengerti artinya):
(defun faktorial (x) (if (eql x 0) 1 (* x (faktorial (- x 1)))))
(defun faktorial(x)(if(eql x 0)1(* x(faktorial(- x 1)))))
Tentunya penulisan yang pertama lebih mudah dibaca. Akan lebih baik lagi jika dituliskan sebagai berikut:
(defun faktorial (x)
(if (eql x 0)
1
(* x faktorial (- x 1)))))
Form
Form adalah sesuatu yang akan dievaluasi/dicari nilainya. Form dapat berupa atom (non-list) maupun list.
Evaluasi form sangatlah sederhana jika yang terlibat adalah atom. Jika atom yang bersangkutan adalah angka (misalnya 100, -5, 3/4, 0.333), maka hasil evaluasinya adalah angka itu sendiri (disebut self-evaluating). Inilah beberapa contohnya (langsung saja anda coba pada CLISP):
> 100 (ini adalah input)
] 100 (ini adalah outputnya)
> 3/4
] 3/4
> -2.71828
] -2.71828
Kita bisa melihat bahwa Lisp memiliki beberapa tipe data angka. Yang pertama adalah integer, yang dapat menyimpan bilangan bulat sebesar atau sekecil apapun (hanya dibatasi oleh kapasitas memori yang ada). Tipe data lainnya adalah rational, yang berupa p/q dengan p dan q integer dan q lebih besar dari 1 (jika q = 1 maka bilangannya akan menjadi integer). Rational juga hanya dibatasi oleh memori yang tersedia. Tipe data ketiga adalah floating point, yang melambangkan angkanya menggunakan mantissa and eksponen. Floating point pasti dituliskan dengan tanda titik. Jadi 1 adalah integer sedangkan 1.0 adalah floating point. Pada tipe data floating point dapat terjadi underflow (jika nilai mutlak pecahannya terlalu kecil) maupun overflow (jika nilai mutlak angkanya terlalu besar). Inilah beberapa contohnya:<br />
<a name='more'></a>
> 999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
] 999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
> 212/999999999999999999999999999999999999999999999999999999999
] 212/999999999999999999999999999999999999999999999999999999999
> 0.00000000000000000000000000000000000000000000000000000000001
] *** - floating point underflow
> 9999999999999999999999999999999999999999.0
] *** - floating point overflow
Jika terjadi error seperti underflow dan overflow, maka CLISP akan memasukkan kita ke mode debug. Banyak yang bisa kita lakukan di mode debug, tetapi untuk sekarang ketikkan saja "quit" saat berada di mode debug. Menuliskan "quit" akan mengabaikan input terakhir yang bermasalah. Inilah contohnya:
> 0.00000000000000000000000000000000000000000000000000000000001
] *** - floating point underflow
Break 1> quit
> (input yang bermasalah diabaikan dan kita dapat melanjutkan penulisan program)
Form dapat juga berupa list. Jika form yang bersangkutan adalah list, maka atom pertama list tersebut haruslah merupakan sebuah fungsi. Atom-atom sisanya (jika ada) akan menjadi argumen fungsi. Sebagai contoh, fungsi yang telah didefinisikan dalam Lisp adalah fungsi +, yang akan menjumlahkan atom-atom lainnya. Inilah beberapa contoh penggunaannya:
> (+ 3 4)
] 7
> (+ 1 2 3)
] 6
Di dalam contoh yang pertama, + bertindak sebagai fungsi, sedangkan 3 dan 4 bertindak sebagai argumen untuk fungsi +. Contoh yang kedua memberikan tiga argumen untuk fungsi +. Fungsi-fungsi aritmatika lainnya adalah fungsi -, *, dan /.
Karena kita dapat memasukkan list ke dalam list, kita dapat menyusun perhitungan yang kompleks hanya dengan aturan-aturan yang telah kita pelajari. Inilah contohnya:
> (* 2 (+ 3 4 5)) (artinya 2*(3+4+5) )
] 24
> (- (* 3 3) (* 4 4)) (artinya 3*3 - 4*4 )
] -7
> (* (+ 3 4) (- 3 4)) (artinya (3+4)(3-4) )
] -7
Fungsi-fungsi matematika lain contohnya adalah mod, sqrt, exp (perpangkatan dengan basis e), expt (perpangkatan dengan basis apapun), log (logaritma natural), sin, cos, dan tan. Inilah beberapa contoh penggunaannya (dan maksudnya):
> (mod 8 3) (sisa pembagian pada saat 8 dibagi 3)
] 2
> (sin (+ 3 4)) (artinya sin(3+4) )
] 0.6569866
> (+ (* (sin 3) (cos 4)) (* (cos 3) (sin 4)) ) (artinya sin(3)cos(4) + cos(4)sin(3) )
] 0.6569866
> (exp 1) (artinya e pangkat 1)
> 2.7182817
> (expt 2 3) (artinya 2 pangkat 3)
> 8
Simbol adalah atom yang tidak self-evaluating, dan dapat kita beri nilai. Kita tidak perlu mendeklarasikan simbol dan menentukan tipe datanya. Artinya suatu simbol dapat berisi integer pada suatu waktu, namun di waktu lain dapat berisi data dengan tipe lain (contohnya list). Kita dapat memberikan nilai ke simbol dengan menggunakan fungsi setq. Inilah contohnya:
> (setq a 100) (memasukkan nilai 100 ke simbol a)
] 100
> (setq b 20)
] 20
> a
] 100
> b
> 20
> (+ a b) (menjumlahkan a dan b)
] 120
> (setq c (* 2 a)) (memberikan nilai 2*a ke simbol c)
] 40
> z
] *** - EVAL: variable Z has no value
Dengan pengetahuan yang kita punya sekarang, kita dapat memanfaatkan Lisp sebagai alat bantu perhitungan. Sebagai contoh, misalkan kita ingin mencari penyelesaian dari 2x2-5x-3=0. Kita akan menggunakan rumus abc, jadi pertama-tama kita akan memberikan nilai pada simbol a, b, dan c.
> (setq a 2)
] 2
> (setq b -5)
] -5
> (setq c -3)
] -3
Selanjutnya kita akan memberikan nilai ke diskriminannya d, yaitu b2-4ac.
> (setq d (- (* b b) (* 4 a c)) )
] 49
Karena d positif, pasti kita akan mendapat dua penyelesaian riil (sebetulnya Lisp juga dapat menangani bilangan complex, silahkan coba sendiri). Kita akan mencari penyelesaiannya satu-persatu:
> (/ (+ (- b) (sqrt d)) (* 2 a) ) ( (- b) sama dengan (- 0 b) )
] 3
> (/ (- (- b) (sqrt d)) (* 2 a) )
] -1/2
Kalau menuliskan semuanya di satu baris terlihat membingungkan, kita dapat juga menuliskannya sebagai berikut:
>
(/
(+ (- b) (sqrt d) )
(* 2 a)
)
] 3
>
(/
(- (- b) (sqrt d) )
(* 2 a)
)
] -1/2
SUMBER:http://agro.web.ugm.ac.id/lisp-tutorial.htmalpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-37276119720613554332012-07-03T16:40:00.002-07:002012-07-03T16:43:15.923-07:00Keylogger merupakan sebuah perangkat baik perangkat keras atau perangkat lunak yang digunakan untuk memantau penekanan tombol keyboard. Sebuah keylogger biasanya akan menyimpan hasil pemantauan penekanan tombol keyboard tersebut ke dalam sebuah berkas log/catatan/rekaman. Beberapa keylogger tertentu bahkan dapat mengirimkan hasil rekamannya ke e-mail tertentu secara periodik.
Keylogger dapat digunakan untuk kepentingan yang baik atau bahkan bisa digunakan untuk kepentingan yang jahat. Kepentingan yang baik antara lain untuk memantau produktivitas karyawan, untuk penegakan hukum dan pencarian bukti kejahatan. Kepentingan yang buruk antara lain pencurian data dan password.
Keylogger yang berupa hardware besarnya seukuran baterai ukuran AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga mencegat data yang dialirkan darikeyboard ke CPU. Sementara itu, keylogger dalam bentuk perangkat lunak terpasang di dalam komputer dan bekerja secara tersembunyi. Cara sederhana untuk menghindari dampak adanya keylogger pada sistem operasi Microsoft Windows adalah dengan menggunakan fitur on-screen keyboard (osk.exe).
keyshark hardware keylogger
Banyak orang yang menggunakan internet untuk mengecek e-mail, login ke facebook, twitter, buku bank, berbelanja, dan mengirim informasi pribadi pada yang lain. Kebanyakan situs biasanya aman, namun ada juga yang berusaha mencuri data informasi pribadi seseorang langsung dari keyboard pengguna komputer. Keylogging adalah prosses perekaman huruf yang diketik oleh pengguna komputer tanpa sepengetahuan pengguna dan mengirim informasi tersebut ke tempat si pembuat program keylogging. Dengan melakukan ini, si pembuat program bisa mempelajari segala sesuatu yang diketik di komputer untuk digunakan bagi keperluan si pembuat program. Teknologi ini juga bisa merekam kegiatan pengguna komputer.
Sebelum seseorang bisa mendeteksi apa yang diketik pada komputer tertentu, ia harus mempunyai akses ke keyboard komputer yang akan dibajaknya. Ini bisa dilakukan dengan dua hal: dengan software keylogging maupun hardware keylogging. Hardware keylogging biasanya merekam apa yang diketik oleh si pengguna di keyboard mereka dan menyimpannya dalam hardisk kecil sampai diambil langsung oleh si pembajak. Alat semacam ini bisa berbentuk bagian dari keyboard sehingga sulit untuk dideteksi. Lagipula, karena ini dalam bentuk hardware, maka anti virus sulit untuk mendeteksinya.
Sedangkan software keylogging tidak memerlukan akses langsung ke komputer target yang hendak dibajak. Keylogger seperti ini bisa didownload tanpa pengetahuan si pengguna komputer. Setelah diinstal dalam komputer, kemudian program ini dapat merekam data yang diketik pada keyboard dan mengirimnya kepada si pembajak. Kemudian sipembajak bisa mengakses apapun yang diketik dikomputer yang dibajaknya. Meskipun keylogger seperti ini sulit untuk ditemukan langsung oleh pengguna komputer, tapi anti virus biasanya bisa mendeteksi program ini.
Salah satu penggunaan yang paling sering dari program keylogging ini adalah pencurian data pribadi. Apabila sipembajak menggunakan software atau hardware semacam ini, maka ia bisa memanfaatkan informasi tersbut untuk kepentingan pribadinya. Misalnya ia bisa membeli barang-barang di internet dengan menggunakan kartu kredit korban. Oleh karena itu para pengguna komputer harus berhati-hati dan menjaga data pribadi mereka agar jangan sampai dimanfaatkan oleh orang lain tanpa sepengetahuan pemilih PC itu. Dengan mengetahui dan mengerti program yang dijalankan di komputer dan memiliki software anti-malware yang terupdate adalah cara yang mudah untuk melindungi data pribadi dari pencuri data.
Beberapa orang tidak setuju dan menganggap ada beberapa manfaat dari keylogging. Orang tua bisa memonitor kegiatan anak-anaknya ketika menggunakan komputer. Ini juga bisa digunakan oleh perusahaan untuk memonitor penggunaan komputer oleh para karyawan. Bahkan keylogging ini juga bisa menyelamatkan data yang penting yang hilang karena putusnya aliran listrik/aktifitas ini juga bisa bermasalah dengan hak asasi pribadi. Oleh karena itu saran The Gaptek gunakanlah program ini dengan hati-hati agar tidak bertentangan dengan hukum yang berlaku khususnya di Undang-Undang ITE.
1.sumber:http://www.thegaptek.com/2012/06/mengenal-apa-itu-keylogger-dan.htmlalpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-78545843069096881282012-06-25T22:11:00.001-07:002012-06-25T22:12:40.025-07:00java(ketik di notepa>save as di folder sony)
import java.io.*;
public class latih6{
public static void main(String Arg[])throws IOException{
String str; int jumlah,harga=0;double total,disc=0;
BufferedReader Get=new BufferedReader(new InputStreamReader(System.in));
System.out.print("jumlah lembar copy:");str=Get.readLine();
jumlah=Integer.parseInt(str);
if (jumlah>500) harga=90;
else if(jumlah>250) harga=105;
else if(jumlah>100) harga=125;
else harga=150;
total=harga*jumlah;
System.out.println("harga :"+harga);
if (jumlah>600)disc=0.1*total;
System.out.println("discount :"+disc+"\n Total Harga Rp."+total);
System.out.println("total bayar Rp."+(total-disc));
}
}
ketik run>cmd
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\Sony>set path=C:\Program Files\Java\jdk1.5.0_11\bin
C:\Documents and Settings\Sony>javac latih6.javac
javac: invalid flag: latih6.javac
Usage: javac <options> <source files>
where possible options include:
-g Generate all debugging info
-g:none Generate no debugging info
-g:{lines,vars,source} Generate only some debugging info
-nowarn Generate no warnings
-verbose Output messages about what the compiler is doing
-deprecation Output source locations where deprecated APIs are u
sed
-classpath <path> Specify where to find user class files
-cp <path> Specify where to find user class files
-sourcepath <path> Specify where to find input source files
-bootclasspath <path> Override location of bootstrap class files
-extdirs <dirs> Override location of installed extensions
-endorseddirs <dirs> Override location of endorsed standards path
-d <directory> Specify where to place generated class files
-encoding <encoding> Specify character encoding used by source files
-source <release> Provide source compatibility with specified release
-target <release> Generate class files for specific VM version
-version Version information
-help Print a synopsis of standard options
-X Print a synopsis of nonstandard options
-J<flag> Pass <flag> directly to the runtime system
C:\Documents and Settings\Sony>java latih6
jumlah lembar copy:34
harga :150
discount :0.0
Total Harga Rp.5100.0
total bayar Rp.5100.0
C:\Documents and Settings\Sony>alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-89598262780336903232012-05-16T20:33:00.000-07:002012-05-16T20:33:48.862-07:00<i><b>contoh bahasa c</b></i>
volume kubus =s*s*s
#include<stdio.h>
#include<conio.h>
main()
{
int s,v=0;
clrscr();
printf("menhitung volume kubus\n--------------------");
printf("\n masukkan sisi kubus:");
scanf("%d",&s);
v=s*s*s;
printf("nilai volume kubus:%d",v);
}
<i><b>contoh bahasa c++</b></i>
membuat volume kubus =s*s*s
#include"iostream.h"
#include"conio.h"
void main()
{
int s,v=0;
clrscr();
cout<<"menghitung volume kubus\n--------------";
cout<<"memasukkan sisi kubus:";
cin>>s;
v=s*s*s;
cout<<"nilai volume kubus:"<<v;
}<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiL7r_Uu4eCb5xtdCkfur38faWQJ1IGJzeRFSGBKXqzJe6xHCqjs2hReZj3sTrr45twVTwGnCFyxl598C5osB7Z3wRGSwC7t49jzwAfSx_p8Fg9aEIx0U-AHaOlCLaHNBu7a6QBMMO1M-I/s1600/Anchor.ico" imageanchor="1" style="clear:left; float:left;margin-right:1em; margin-bottom:1em"><img border="0" height="128" width="128" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiL7r_Uu4eCb5xtdCkfur38faWQJ1IGJzeRFSGBKXqzJe6xHCqjs2hReZj3sTrr45twVTwGnCFyxl598C5osB7Z3wRGSwC7t49jzwAfSx_p8Fg9aEIx0U-AHaOlCLaHNBu7a6QBMMO1M-I/s320/Anchor.ico" /></a></div>
alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-64051645004495734972012-05-08T02:28:00.002-07:002012-05-08T02:28:26.225-07:00#memngkonversi bilangan*
uses crt;
var bilangan:integer;
function decTOBin(desimal:integer):string;
var hasilbagi, sisa : integer;
bin:char;
bilBiner:string;
begin
hasilBagi := desimal div 2;
bilBiner :='';
{syarat prulangan :selama hasil bagi lebih besar sama dengan 1}
while (hasilBagi >=1) do
begin
sisa :=desimal mod 2;
if(sisa =0)then bin :='0'
else if (sisa=1) then bin :='1';
{menggabung sisa pada setiap perulangan untuk membentuk digit biner}
bilBiner := bin + bilBiner;
desimal:=hasilBagi;
hasilBagi := desimal div 2;
end;
deCTOBin :='1'+bilBiner;
end;
BEGIN
bilangan :=200;
write('bilangan binernya :', deCTOBin(bilangan));
readln;
end.
#program penjualan*
uses crt;
var
b:string;
h,y,u,by,tb:real;
lagi:char;
begin
writeln('toko"laris manis" ');
writeln ('__________');
tb:=0;
lagi := 'y';
while lagi= 'y' do
begin
write ('barang :');readln(b);
write ('harga:'); readln(h);
write ('unit:'); readln(u);
by:= h*u;
writeln('bayar :',by:0:0);
writeln ('coba lagi (y/t); ');readln(lagi);
writeln;
writeln;
tb:= tb+by;
end;
writeln('total bayar :',tb:0:0);
end.alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-22993924457182387332012-05-07T03:45:00.000-07:002012-05-08T02:18:21.420-07:00blogSetelah anda mengetahui cara membuat <a href="http://www.javacreativity.com/2012/01/memasang-efek-kembang-api-pada-blog.html" target="blank"><span style="font-weight: bold;">efek Kembang Api pada Blog </span></a>dan beberapa waktu yang lalu kami juga pernah Share cara <a href="http://www.javacreativity.com/2011/11/memasang-15-animasi-super-keren-pada.html" target="blank"><span style="font-weight: bold;">memasang 15 Animasi super keren</span></a> dan <a href="http://www.javacreativity.com/2011/12/trik-membuat-spoiler-pada-postingan.html" target="blank"><span style="font-weight: bold;">membuat Spoiler pada blog</span></a> maka kali ini kami akan menunjukkan pada anda cara memasang Animasi Meteor Jatuh.<br /><br />Haaahhhh…Meteor???
Yaahh benar sekali, anda dapat mempercantik tampilan blog anda dengan
memasang animasi Meteor Jatuh. Dengan adanya efek ini, diharapkan
tampilan blog anda kelihatan lebih canggih dan menarik. Berikut ini
cara membuatnya :<br />
<ul>
<li>Silakan anda Login terlebih dahulu ke dalam Blogger</li>
<li>Kemudian klik menu Rancangan -> Add Widget (HTML/JavaScript)</li>
<li>Kemudian masukkan kode dibawah ini</li>
</ul>
<br /><form name="copy">
<div align="center">
<input onclick="javascript:this.form.txt.focus();this.form.txt.select();" type="button" value="Blok Semua" /></div>
<div style="text-align: center;">
<textarea name="txt" style="height: 150px; padding: 3px; width: 600px;"><script
language="javascript">nd_mode="meteor";nd_sound="on";nd_vAlign="bottom";nd_hAlign="right";nd_vMargin="10";nd_hMargin="10";nd_target="_top";</script><script
language="javascript"
src="http://cayunkatel.googlecode.com/files/meteorjaruh.js"></script></textarea></div>
</form>
<br /><ul>
<li>Jika sudah, silakan Simpan dan lihatlah hasilnya.</li>
</ul>
Saat
efek Meteor ini berjalan di blog anda, akan terdapat menu Close yang
muncul di bagian sebelah kanan bawah. Itu artinya, anda dapat menutup
atau mematikan efek Meteor ini jika sudah tidak diinginkan.alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-37168082390950735672012-02-13T18:59:00.001-08:002012-05-08T02:18:21.427-07:00<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">program
hitung_diskon_harga;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">uses crt;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">var harga,
diskon, total : real;</span></b><br />
<br />
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"> </span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">begin clrscr;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">writeln
('MENGHITUNG DISKON DAN TOTAL HARGA BELANJA');
<a name='more'></a>
</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">write
('Masukkan Jumlah Harga : Rp ' ); readln (harga);</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">if harga >
300000 then</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">begin</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">writeln('Mendapat
Diskon 40%');</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">diskon := harga *
0.4; total := harga - diskon; end</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">else</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">if (harga>=
150000) and (harga<=300000) then</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">begin</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">writeln('Mendapat
Diskon 20%');</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">diskon := harga *
0.2; total := harga - diskon; end</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">else</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">if harga <
150000 then</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">begin</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">writeln('Mendapat
Diskon 10%');</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">diskon := harga *
0.1; total := harga - diskon; end;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">write ('Jumlah
diskon : Rp ', diskon:0:0); readln;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">write ('Jumlah
Harga Setelah Diskon : Rp ', total :0:0 ); readln;</span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;"><br style="margin: 0px; padding: 0px;" /></span></b></div>
<div style="margin: 0px; padding: 0px;">
<b style="margin: 0px; padding: 0px;"><span class="Apple-style-span" style="font-weight: normal; margin: 0px; padding: 0px;">end.</span></b></div>alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-58260518687616726902012-02-13T18:46:00.000-08:002012-05-08T02:18:21.441-07:00<div class="post-body entry-content" id="post-body-4373387838156711601">
<div class="post-body entry-content">
<span style="color: red;">PROGRAM DAFTAR_PENGUNJUNG_KONSER;</span><br />
USES
CRT;<br />
LABEL<br />
Y,N;<br />
CONST<br />
H_TKT=300000;<br />
VAR<br />
N_PMBL,N_BAND,N_KLS
:STRING;<br />
J_BL,TH,DSK,TB,UB,UK :REAL;<br />
NO
:CHAR;<br />
BEGIN<br />
<br />
<a name='more'></a><br />
Y:<br />
CLRSCR;<br />
WRITE('NAMA PEMBELI
:');READLN(N_PMBL);<br />
WRITE('NAMA BAND :');READLN(N_BAND);<br />
WRITE('JUMLAH
BELI :');READLN(J_BL);<br />
WRITE
<!--more-->('NAMA KELAS :');READLN(N_KLS);<br />
TH:=H_TKT*J_BL;<br />
DSK:=0.1*TH;<br />
TB:=TH-DSK;<br />
WRITELN;<br />
WRITELN('*
* * * * * * * * * * * * ');<br />
WRITELN('KONSER MUSIK "ONE FOR ALL"');<br />
WRITELN('*
* * * * * * * * * * * * ');<br />
WRITELN('NAMA PEMBELI :',N_PMBL);<br />
WRITELN('NAMA
BAND :',N_BAND);<br />
WRITELN('NAMA KELAS :',N_KLS);<br />
WRITELN('HARGA
TIKET :Rp.',H_TKT:2);<br />
WRITELN('* * * * * * * * * * * * * * ');<br />
WRITELN('TOTAL
HARGA :Rp.',TH:2:0);<br />
WRITELN('DISKON :Rp.',DSK:2:0);<br />
WRITELN('TOTAL
BAYAR :Rp.',TB:2:0);<br />
WRITELN('* * * * * * * * * * * * * * ');<br />
WRITE('UANG
BAYAR :Rp.');READLN(UB);<br />
UK:=UB-TB;<br />
WRITELN('UANG KEMBALI
:Rp.',UK:2:0);<br />
WRITELN('* * * * * * * * * * * * * * ');<br />
WRITE('INGIN
INPUT LAGI [Y/N]:');READLN(NO);<br />
IF NO= 'Y' THEN<br />
GOTO Y<br />
ELSE<br />
GOTO
N;<br />
READLN;<br />
N:<br />
END. </div>
<div class="post-footer">
<div class="post-footer-line post-footer-line-1">
<span class="post-author
vcard"> Diposkan oleh <span class="fn">sandi design</span> </span> <span class="post-timestamp"> di <a class="timestamp-link" href="http://programdandesign.blogspot.com/2009/05/program-daftarpengunjungkonser-uses-crt.html" rel="bookmark" title="permanent link"><abbr class="published" title="2009-05-28T07:00:00-07:00">07:00</abbr></a> </span> <span class="post-comment-link"> <a 0,scrollbars="yes,width=" 0,statusbar="1,menubar=" 400,height="450" class="comment-link" href="https://www.blogger.com/comment.g?blogID=3309841440083560918&postID=8652765624413831632&isPopup=true" toolbar="0,location=">0
komentar</a> </span> <span class="post-icons"> <span class="item-control
blog-admin pid-1284654719"> <a href="http://dedekerenz.blogspot.com/post-edit.g?blogID=3309841440083560918&postID=8652765624413831632" title="Edit Entri"> <img alt="" class="icon-action" height="18" src="http://dedekerenz.blogspot.com/img/icon18_edit_allbkg.gif" width="18" /> </a> </span> </span> </div>
<div class="post-footer-line post-footer-line-2">
<span class="post-labels"> </span>
</div>
</div>
<a href="http://www.blogger.com/blogger.g?blogID=8451214738611334041" name="4592807626470085035"></a> PROGRAM
DAFTAR_PENGUNJUNG_HOTEL;<br />
USES CRT;<br />
LABEL<br />
Y,N;<br />
VAR<br />
N_INAP,N_KMR,N_KLS
:STRING;<br />
LM :INTEGER;<br />
HK,TH,DSK,TB,UB,UK
:REAL;<br />
K_KLS,K_KMR,NO :CHAR;<br />
BEGIN<br />
Y:<br />
CLRSCR;<br />
WRITE('NAMA
PENGINAP :');READLN(N_INAP);<br />
WRITE('KODE KAMAR [S/M/A]
:');READLN(K_KMR);<br />
WRITE('KODE KELAS [1/2] :');READLN(K_KLS);<br />
WRITE('LAMA
MENGINAP :');READLN(LM);<br />
IF K_KLS='1' THEN N_KLS:='EKSLUSIF'
ELSE N_KLS:='VIP';<br />
IF LM>10 THEN DSK:=0.1 ELSE DSK:=0;<br />
IF
K_KMR= 'S' THEN<br />
BEGIN<br />
N_KMR:='SAKURA';<br />
HK:=500000;<br />
END<br />
ELSE
IF K_KMR= 'M' THEN<br />
BEGIN<br />
N_KMR:='MAWAR';<br />
HK:=600000;<br />
END<br />
ELSE<br />
BEGIN<br />
N_KMR:='ANGGREK';<br />
HK:=700000;<br />
END;<br />
TH:=HK*LM;<br />
DSK:=0.1*TH;<br />
TB:=TH-DSK;<br />
WRITELN('******************************************');<br />
WRITELN('DAFTAR
PENGUNJUNG HOTEL "BINTANG TOEDJOEH"');<br />
WRITELN('******************************************');<br />
WRITELN('NAMA
PENGINAP :',N_INAP);<br />
WRITELN('KODE KAMAR [S/M/A]
:',K_KMR);<br />
WRITELN('NAMA KAMAR :',N_KMR);<br />
WRITELN('KODE
KELAS [1/2] :',K_KLS);<br />
WRITELN('HARGA KAMAR
:Rp.',HK:2:0);<br />
WRITELN('LAMA MENINAP :',LM);<br />
WRITELN('******************************************');<br />
WRITELN('TOTAL
HARGA :Rp.',TH:2:0);<br />
WRITELN('DISKON
:Rp.',DSK:2:0);<br />
WRITELN('TOTAL BAYAR :Rp.',TB:2:0);<br />
WRITELN('******************************************');<br />
WRITE('UANG
BAYAR :Rp.');READLN(UB);<br />
UK:=UB-TB;<br />
WRITELN('UANG
KEMBALI :Rp.',UK:2:0);<br />
WRITELN('*****************************************');<br />
WRITE('INGIN
INPUT LAGI [Y/N]:');READLN(NO);<br />
IF NO='Y' THEN<br />
GOTO Y<br />
ELSE<br />
GOTO
N;<br />
READLN;<br />
END.
</div>
<div class="post-footer">
<div class="post-footer-line post-footer-line-1">
<span class="post-author vcard">
Diposkan oleh
<span class="fn">
<a href="http://www.blogger.com/profile/01535695390620345711" rel="author" title="author profile">
dede bedug."
</a>
</span>
</span>
<span class="post-timestamp">
di
<a class="timestamp-link" href="http://dedekerenz.blogspot.com/2009/06/program-pengunjung-konser.html" rel="bookmark" title="permanent link"><abbr class="published" title="2009-06-17T20:46:00-07:00">20:46</abbr></a>
</span>
<span class="reaction-buttons">
</span>
<span class="star-ratings">
</span>
<span class="post-comment-link">
<a class="comment-link" href="http://www.blogger.com/comment.g?blogID=1404589719444125430&postID=4373387838156711601&isPopup=true">0
komentar</a>
</span>
<span class="post-backlinks post-comment-link">
</span>
<span class="post-icons">
<span class="item-control blog-admin pid-916264007">
<a href="http://www.blogger.com/post-edit.g?blogID=1404589719444125430&postID=4373387838156711601&from=pencil" title="Edit Entri">
<img alt="" class="icon-action" height="18" src="http://img2.blogblog.com/img/icon18_edit_allbkg.gif" width="18" />
</a>
</span>
</span>
<br />
<div class="post-share-buttons goog-inline-block">
</div>
</div>
<div class="post-footer-line post-footer-line-2">
<span class="post-labels">
</span>
</div>
<div class="post-footer-line post-footer-line-3">
<span class="post-location">
</span>
</div>
</div>
<a href="http://www.blogger.com/blogger.g?blogID=8451214738611334041" name="1983236102044608534"></a>
<br />
<h3 class="post-title entry-title">
<a href="http://dedekerenz.blogspot.com/2009/06/mengenal-turbo-pascal.html">mengenal
turbo pascal</a>
</h3>
<div class="post-header">
</div>
Mengenal Turbo Pascal<br />
1. Mengenal Pascal<br />
1.1 Struktur Program
Pascal<br />
Struktur dari suatu program Pascal terdiri dari sebuah judul
program dan<br />
suatu blok program atau badan program. Secara ringkas,
struktur suatu<br />
program Pascal dapat tediri dari:<br />
1. Judul Program<br />
2.
Blok Program<br />
a. Bagian deklarasi<br />
• deklarasi label<br />
• definisi
konstanta<br />
• definisi tipe<br />
• deklarasi variabel<br />
• deklarasi
prosedur<br />
• deklarasi fungsi<br />
b. Bagian pernyataan<br />
1.2 Program
Pascal yang Paling Sederhana<br />
Suatu program Pascal yang paling
sederhana adalah program yang hanya<br />
terdiri dari sebuah bagian
pernyataan saja. Bagian pernyataan merupakan<br />
bagian yang terkahir
dari suatu blok. Bagian ini diawali dengan kata Begin<br />
dan diakhiri
dengan kata End. Jadi suatu program Pascal yang paling<br />
sederhana
dapat berbentuk:<br />
Begin<br />
Pernyataan;<br />
End.<br />
Bagian pernyataan
ini menunjukkan suatu tindakan yang akan dikerjakan<br />
oleh program.
Tindakan yang dilakukan oleh program tergantung daru<br />
instruksi-instruksi
yang diberikan. Pernyataan merupakan instruksi program.<br />
Pernyatan-pernyataan
yang diberikan untuk dikerjakan ditulis diatara kata<br />
Begin dan End.
Akhir penulisan End yang harus diakhiri tanda titik.<br />
Bentuk umum dari
bagian pernyataan ini adalah sebagai berikut.<br />
Begin<br />
Pernyataan;<br />
…<br />
…<br />
End.<br />
Contoh<br />
Begin<br />
Writeln(‘Saya
pascal’);<br />
End.<br />
1.3 Penulisan Program Pascal<br />
Program Pascal
tidak mengenal aturan penulisan di kolom tertentu, jadi boleh<br />
ditulis
di kolom mana saja. Penulisan pernyataan-pernyataan pada umumnya<br />
menjorok
masuk beberapa kolom tidak berpengaruh pada proses, hanya<br />
Mengenal
Turbo Pascal—Awan Sundiawan 2<br />
dimaksudkan supaya mempermudah
pembacaan program, sehingga akan lebih<br />
terlihat bagian-bagiannya.<br />
Setiap
akhir pernyataan harus diakhiri dengan tanda titik koma.<br />
Contoh 1<br />
Begin
writeln(‘Saya Pascal’);<br />
Writeln(‘Saya mulai mengenal Pascal’);<br />
End.<br />
Contoh
2<br />
Begin<br />
writeln(‘Saya Pascal’);<br />
Writeln(‘Saya mulai mengenal
Pascal’);<br />
End.<br />
1.4 Judul Program<br />
Di Turbo Pascal, judul program
sifatnya adalah opsional dan tidak terlalu<br />
berarti dalam program.
Jika ditulis dapat digunakan untuk memberi nama<br />
program dan daftar
dari parameter tentang komunikasi program dengan<br />
lingkungannya yang
sifatnya sebagai dokumentasi saja. Judul program bila<br />
ditulis, harus
terletak pada awal dari program dan diakhiri dengan titik koma.<br />
Judul
program ditulis dalam satu kata, jika lebih dari dua kata harus<br />
disambung
dengan tanda hubung bawah (tidak boleh ada spasi kosong).<br />
Contoh<br />
Program
Contoh_awal;<br />
Begin<br />
Writeln(‘Saya Pascal’);<br />
Writeln(‘Saya baru
kenal’);<br />
End.<br />
Judul program sifatnya sebagai dokumentasi saja,
tidak berkaitan dengan proses<br />
program.<br />
1.5 Bagian Deklarasi<br />
Bagian
deklarasi sering juga kamus program. Bagian deklarasi digunakan bila<br />
di
dalam program menggunakan pengenal (identifier). Pengenal dapat berupa<br />
label,
tipe, variabel, prosedur, atau fungsi. Kalau suatu program menggunakan<br />
pengenal,
Pascal menuntut supaya pengenal tersebut dikenalkan dahulu<br />
sebelum
digunakan, yaitu dideklarasikan atau dibuat kamusnya dulu pada<br />
bagian
deklarasi.<br />
a. Deklarasi konstanta<br />
Bila ingin menggunakan pengenal
yang berisi nilai-nilai konstanta (tetap),<br />
maka harus didefinisikan
terlebih dahulu pada bagian ini. Definisi konstanta<br />
diawali dengan
kata cadangan Const diikuti oleh kumpulan pengenal yang<br />
diberi suatu
nilai konstanta.<br />
Mengenal Turbo Pascal—Awan Sundiawan 3<br />
Contoh<br />
Program
Contoh_Konstanta;<br />
Const<br />
Potongan=0.2;<br />
Gaji=1000000;<br />
Nama_PT=’PT
Maju’;<br />
Begin<br />
Writeln(‘Gaji =’,Gaji);<br />
Writeln(‘Potongan=’,Potongan);<br />
Writeln(‘Nama
=’,Nama_PT);<br />
End.<br />
Bila program dijalankan akan menghasilkan:<br />
Gaji
= 1000000<br />
Potongan = 2.00000000E-01<br />
Nama = PT Maju<br />
Turbo
Pascal mempunyai beberapa konstanta yang tidak perlu didefinisikan<br />
dapat
dipergunakan langsung, diantaranya yaitu:<br />
False dengan tipe Boolean,
bernilai logika salah<br />
True dengan tipe Boolean, bernilai logika
benar<br />
MaxInt dengan tipe numerik integer, bernilai 32767<br />
MaxLongInt
dengan tipe numerik integer, bernilai 2147483647<br />
Contoh<br />
Program
Contoh_Konstanta_Terdefinisi;<br />
Begin<br />
Writeln(‘Nilai logika benar=
’;true);<br />
Writeln(‘Nilai logika salah= ’;falase);<br />
Writeln(‘Nilai
MaxInt = ’;MaxInt);<br />
Writeln(‘Nilai MaxLongInt = ’;MaxLongInt);<br />
End.<br />
Bila
program dijalankan akan menghasilkan:<br />
Nilai logika benar = TRUE<br />
Nilai
logika salah = FALSE<br />
Nilai MaxInt = 32767<br />
Nilai MaxLongInt =
2147483647<br />
Mengenal Turbo Pascal—Awan Sundiawan 4<br />
Contoh deklarasi
konstanta yang dapat dilakukan dengan benar:<br />
Const a=8;<br />
Const
c='8';<br />
Const s='konstanta';<br />
Const Is=sizeof(integer);<br />
Const
b=length('konstanta');<br />
Const x:integer = 10;<br />
Const z=ord(#64);<br />
const
a= 10; s= chr (a);<br />
Contoh deklarasi konstanta yang salah:<br />
const
a=integer:=10;<br />
const a(integer):=10;<br />
const integer(a):=10;<br />
const
integer:a= 10;<br />
const x.1=2.7182818;<br />
const a= 10’; s= length (a);<br />
const
a= 10’; s= pos (‘1’ , a);<br />
const a= 10; s= high (a);<br />
b. Deklarasi
Variabel<br />
Jika konstanta merupakan pengenal berisi data yang pasti,
tetap, tidak<br />
berubah, maka variabel adalah pengenal yang berisi data
yang dapat<br />
berubah-ubah nilai dalam program. Jadi dengan menggunakan
konstanta,<br />
kita tidak dapat mengubah nilainya dalam program, tetapi
dengan<br />
menggunakan variabel, nilai dapat berubah/diubah dalam
program. Setiap<br />
variabel dalam program Pascal harus dideklarasikan
sebelum digunakan.<br />
Kata cadangan Var digunakan sebagai judul di dalam
bagian deklarasi<br />
variabel dan diikuti oleh satu atau lebih pengenal
yang dipisahkan oleh<br />
koma, diikuti dengan titik dua dan tipe datanya
serta diakhiri dengan titik<br />
koma.<br />
Contoh<br />
Program
luas_segi_empat;<br />
Const<br />
P=5;<br />
L=4;<br />
Var<br />
Luas:integer;<br />
Begin<br />
Luas:=P*l;<br />
Writeln(‘Panjang=’;p);<br />
Writeln(‘Lebar
=’;l);<br />
Writeln(‘Luas =’;Luas);<br />
End.<br />
Bila program dijalankan
akan menghasilkan:<br />
Panjang=5<br />
Lebar =4<br />
Luas =20<br />
Pada contoh
di atas terdapat 2 konstanta dan 1 variabel, yaitu Luas dengan<br />
tipenya
datanya integer.<br />
Mengenal Turbo Pascal—Awan Sundiawan 5<br />
c.
Deklarasi Prosedur<br />
Prosedur merupakan bagaian yang terpisah dari
program dan dapat<br />
diaktifkan di manapun di dalam program. Prosedur
dapat berupa prosedur<br />
standar (sudah disediakan oleh Pascal) maupun
prosedur yang akan dibuat<br />
sendiri. Prosedur dibuat sendiri bilamana
program akan dibagi-bagi<br />
menjadi beberapa modul-modul. Prosedur
dibuat di dalam program dengan<br />
cara mendeklarasikannya di bagian
deklarasi prosedur. Kata cangan<br />
Procedure digunakan sebagai judul
dari bagian deklarasi prosedur, diikuti<br />
oleh pengenal yang merupakan
nama prosedurnya dan secara opsional<br />
dapat diikuti lagi oleh kumpulan
parameter yang diakhiri dengan titik<br />
koma.<br />
Contoh<br />
Program
prosedur;<br />
PROCEDURE HITUNG(X,Y:INTEGER; VAR HASIL:INTEGER);<br />
BEGIN<br />
HASIL:=X+Y;<br />
END;<br />
VAR<br />
Z:INTEGER;<br />
{program
utama}<br />
BEGIN<br />
HITUNG(2,3,Z);<br />
WRITELN(‘2 + 3 = ‘,Z);<br />
END.<br />
Bila
program dijalankan akan menghasilkan:<br />
2 + 3 = 5<br />
Lebih lanjut akan
dibahas khusus pada materi prosedur.<br />
d. Deklarasi Fungsi<br />
Fungsi
juga merupakan bagian program yang terpisah mirip dengan<br />
prosedur,
tetapi ada beberapa perbedaannya. Fungsi dapat berupa fungsi<br />
standar
(sudah tersedia dalam Pascal) atau fungsi dibuat sendiri. Bila<br />
pemakai
membuat sendiri, maka harus dideklarasikan terlebih dahulu.<br />
Kata
cadangan Function mengawali bagian deklarasi fungsi diikuti oleh<br />
pengenal
yang merupakan nama fungsinya dan secara opsional dapat<br />
diikuti oleh
kumpulan parameter, tipe dari fungsinya dan diakhiri dengan<br />
titik
koma.<br />
Contoh<br />
Program Fungsi;<br />
FUNCTION
TAMBAH(X,Y:INTEGER):INTEGER;<br />
BEGIN<br />
TAMBAH:=X+Y;<br />
END;<br />
{program
utama}<br />
BEGIN<br />
WRITELN(‘2 + 3 = ‘, TAMBAH(2,3));<br />
END.<br />
Jika
program dijalankan akan mengasilkan:<br />
2 + 3 = 5<br />
Lebih lanjut akan
dibahas khusus pada materi fungsi.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 6<br />
2. Elemen-Elemen Program Pascal<br />
Untuk mempelajari
suatu bahasa komputer guna dapat membuat program dengan<br />
benar dan
dapat mengembangkannya, langkah pertama yang harus kita ketahui<br />
terlebih
dahulu adalah mengenal struktur dari program yang akan dibuat dengan<br />
bahasa
tersebut. Selanjutnya mengetahui elemen-elemen yang membentuk program<br />
tersebut.<br />
Elemen-elemen
program Pascal sebagai berikut.<br />
1. Simbol-simbol dasar<br />
2.
Kata-kata cadangan<br />
3. Pengenal didefinisikan oleh pemakai<br />
4. Data<br />
5.
Karakter kontrol<br />
6. Tanda Operasi<br />
7. Komentar Program<br />
8.
Pernyataan<br />
9. Prosedur<br />
10. Fungsi<br />
2.1 Simbol-Simbol Dasar<br />
Program
Pascal dapat dibentuk dari simbol-simbol yang terdiri dari hurufhuruf,<br />
angka-angka
dan simbol-simbol khusus.<br />
1. Huruf<br />
Huruf yang digunakan adalah
huruf A sampai dengan Z, a sampai dengan z<br />
dan garis bawah _ (garis
bawah). Huruf besar dan huruf kecil dianggap<br />
sama, tidak dibedakan.<br />
2.
Angka<br />
Angka yang digunakan adalah angka 0 1 2 3 4 5 6 7 8 9<br />
3.
Simbol khusus<br />
Simbol khusus yang dapat digunbakan adalah:+ - * / = ^
()[]{}.,:;’#$ <= >= :=<br />
.. (* *) (. .)<br />
2.2. Kata Cadangan<br />
Kata
cadangan adalah kata-kata yang sudah didefiniskan oleh Pascal yang<br />
mempunyai
maksud tertentu. Kata-kata cadangan tidak boleh didefinisikan<br />
ulang
oleh pemakai, sehingga tidak dapat dipergunakan sebagai pengenal.<br />
Contoh
kata cadangan:<br />
And Array Begin Case Cosnt<br />
Div Do Downto Else End<br />
File
For Forward Function Goto<br />
If In Label Mod Nil<br />
Not Of Or Procedure
Program<br />
Record Repeat Set Shl Shr<br />
String Then To Type Until<br />
Uses
Var While With Xor<br />
Mengenal Turbo Pascal—Awan Sundiawan 7<br />
2.3
Pengenal (Identifier) Didefinisikan Pemakai<br />
Nama yang dipergunakan di
dalam program Pascal disebut dengan pengenal.<br />
Pemakai dapat
mendefinisikan sendiri suatu nama sebagai pengenal untuk<br />
tipe,
pengenal konstanta, pengenal variabel, pengenal prosedur, pengenal<br />
fungsi,
pengenal unit, pengenal program dan pengenal record.<br />
Pengenal yang
didefinsikan sendiri bebas, tetapi harus mengikuti ketentuan<br />
sebagai
berikut.<br />
1. Terdiri dari gabungan huruf dan angka dengan karakter
pertama harus<br />
berupa huruf. Huruf besar dan huruf kecil dianggap
sama.<br />
2. Tidak boleh mengandung spasi kosong.<br />
3. Tidak boleh
mengandung simbol-simbol khusus, kecuali garis bawah.<br />
4. Panjangnya
bebas, tetapi hanya 63 karakter pertama yang dianggap<br />
siginifikan.<br />
Contoh<br />
Pengenal
Keterangan<br />
NamaSiswa Benar<br />
No_Induk Benar<br />
P3K Benar<br />
1X
Salah, karakter pertama harus huruf<br />
A&B Salah, tidak boleh
mengandung simbol khusus<br />
A B Salah, tidak boleh ada spasi kosong<br />
2.4
Tipe Data<br />
Kalau kita menggunakan pengenal variabel di dalam program,
maka variabel<br />
tersebut harus kita deklarasikan terlebih dahulu. Pada
waktu kita<br />
mendeklarasikan suatu variabel, maka kita harus
menentukan tipe dari<br />
datanya. Tipe data data ini menunjukkan suatu
nilai yang dapat digunakan<br />
oleh variabel bersangkutan.<br />
1. Tipe
data numerik integer<br />
Data numerik integer merupakan nilai bilangan
bulat baik dalam bentuk<br />
desimal maupun hexadesimal. Nilai integer
hexadesimal diawali dengan<br />
tanda dollar ($). Turbo Pascal menyediakan
5 macam tipe data integer yang<br />
masing-masing mempunyai jangkauan
nilai yang berbeda seperti di bawah<br />
ini.<br />
Tipe Ukuran Memori
Jangkauan Nilai<br />
Byte 1 byte 0..255<br />
ShortInt 1 byte -128..127<br />
Integer
2 byte -32768..32767<br />
Word 2 byte 0..65535<br />
LongInt 4 byte
-2147483648..2147483647<br />
Contoh:<br />
Misalnya kita akan menggunakan
suatu pengenal variabel yang bernama<br />
Jumlah dan nilai akan
dikandungnya tidak lebih dari 255, maka dapat<br />
digunakan tipe data
byte. Oleh karena itu digunakan suatu variabel, maka<br />
pengenal
variabel ini harus dideklarasikan terlebih dahulu, sebagai berikut.<br />
Var<br />
Jumlah:byte;<br />
Begin<br />
Jumlah:=200;<br />
Writeln(‘Nilai
Jumlah=’,Jumlah);<br />
End.<br />
Mengenal Turbo Pascal—Awan Sundiawan 8<br />
2.
Tipe data numerik real<br />
Nilai konstanta numeril real berkisar dari
1E-38 sampai dengan 1E+38<br />
dengan mantisa yang signifikan sampai
dengan 11 digit. E menunjukkan<br />
nilai 10 pangkat. Nilai konstanta
numeril real menempati memori sebesar 6<br />
byte.<br />
Contoh<br />
Milsanya
kita akan membuat pengenal variabel yang bernama Luas dan<br />
akan
bernilai desimal atau ada pecahannya. Seperti Luas segi tiga atau ada<br />
proses
matemaika yang benilai bilangan real.<br />
Contoh<br />
Program
Luas_Segi_Tiga;<br />
Var<br />
Luas:real;<br />
Alas,tinggi:byte;<br />
Begin<br />
Alas:=5;<br />
Tinggi:=10;<br />
Luas:=0.5*Alas*Tinggi;<br />
Writeln(‘Alas
=’,Alas);<br />
Writeln(‘Tinggi=’,Tinggi);<br />
Writeln(‘Luas =,’Luas);<br />
End.<br />
Bila
program dijalankan akan menghasilkan<br />
Alas =5<br />
Tinggi=10<br />
Luas
=2.5E+1<br />
3. Tipe data karakter<br />
Nilai data karakter berupa karakter
yang ditulis diantara tanda petik<br />
tunggal, seperti ‘A’, ‘a’, ‘!’, ‘5’
dan sebagainya. Penggunaan variabel untuk<br />
menyimpan data tipe
karakter ini harus dideklarasikan dengan tipe Char.<br />
Contoh:<br />
Var<br />
Karakter:char;<br />
Begin<br />
Karakter:=’A’;<br />
Writeln(‘Karakter
tersebut=’,karakter);<br />
End.<br />
Bila program dijalankan<br />
Karakter
tersebut=A<br />
4. Tipe data string<br />
Nilai data string merupakan
urut-urutan dari karakter yang terletak di<br />
antara tanda petik
tunggal. Bila karakter petik merupakan bagian<br />
konstanta satring, maka
dapat ditulis dengan menggunaan dua buah petik<br />
tunggal berurutan.
Nilai data string akan menemapati memori sebesar<br />
banyaknya karakter
stringnya ditambah dengan 1 byte. Bila panjang dari<br />
Mengenal Turbo
Pascal—Awan Sundiawan 9<br />
suatu string di dalam deklarasi variabel
tidak disebutkan, maka dianggap<br />
panjangnya adalah 255 karakter.<br />
Contoh:<br />
Var<br />
Tanggal:string[10];<br />
Hari
:string[6];<br />
Pasaran:string[6];<br />
Begin<br />
Tanggal:=’26-12-2005’;<br />
Hari
:=’Senin’;<br />
Pasaran:=’Pahing’;<br />
Writeln(Tanggal,’ ‘,hari,’
‘,Pasaran);<br />
End.<br />
Bila program dijalankan<br />
26-12-2005 Senin
Pahing<br />
5. Tipe data boolean<br />
Tipe data boolean mempunyai dua buah
nilai, yaitu True dan False. Kita<br />
dapat mendeklarasikan suatu
variabel dengan tipe boolean dan mengisi<br />
variabel tersebut dengan
nilai data boolean True atau False. Tipe data ini<br />
tidak dapat
dioperasikan kedalam bentuk aritmatika.<br />
Contoh<br />
Var<br />
Lagi:boolean;<br />
Begin<br />
Lagi:=True;<br />
Writeln(‘Nilai
lagi=’,lagi);<br />
End.<br />
Bila program dijalankan<br />
Nilai lagi=TRUE<br />
6.
Tipe data pointer<br />
Suatu pointer adalah suatu variabel yang berisi
alamat di memori. Dengan<br />
kata lain, pointer akan menunjukkan letak
dari data di memori.<br />
Contoh<br />
Type<br />
Tipestring=string[40];<br />
Pointerstring=^Tipestring;<br />
Var<br />
Letaknama:pinterstring;<br />
Begin<br />
Letaknama^:=’Pascal’;<br />
Writeln(Letaknama^);<br />
End.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 10<br />
Pada deklarasi variabel,
dideklarasikan sebuah pengenal variabel, yaitu<br />
LetakNama, Variabel
ini adalah variabel pointer yang menunjukkkan letak<br />
data di memori
sebanyak 40 karakter. Jadi variabel LetakNama ini tidak<br />
berisi dengan
datanya, tetapi berisi dengan pointer letak dari data di<br />
memori.
Untuk meletakkan nilia ke memori yang letaknya ditunjukkan oleh<br />
variabel
LetakNama dapat dilakukan sebagai berikut.<br />
LetakNama^:=’Pascal’;<br />
7.
Tipe data ordinal<br />
Tipe data ordinal adalah tipe data yang merupakan
subset dari tipe data<br />
sederhana. Yang dimaksud tipe data sederhana
sebenarnya adalah semua<br />
tipe data sederhana kecuali tipe data numeril
real. Jadi yang termasuk tipe<br />
data ordinal adalah:<br />
a. Tipe data
standar (Inetgerm, ShortInt, LongInt, Byte, Word, Booleanm<br />
Char)<br />
b.
Tipe data yang didefinisikan sendiri oleh pemakai.<br />
Tipe daya ordinal
mempunyai 4 karakteristik sebagai berikut.<br />
1. Nilai dari tipe data
ordinal mempunyai nilai yang berurutan.<br />
2. Fungsi standar Ord dapat
digunakan untuk menghasilkan nilai<br />
urutannya.<br />
3. Fungsi standar
Pred dapat digunakan untuk mengasilkan nilai urutan<br />
sebelumnya.<br />
4.
Fungsi standar Succ dapat digunakan untuk menghasilkan nilai urutan<br />
sesudahnya.<br />
Contoh<br />
Begin<br />
Writeln(Ord(‘A’));<br />
Writeln(Pred(‘B’));<br />
Writeln(Succ(‘C’));<br />
End.<br />
Bila
program dijalankan<br />
65<br />
A<br />
D<br />
2.5 Karakter Kontrol<br />
Turbo
Pascal memungkinkan karakter-karakter kontrol untuk dilekatkan di<br />
dalam
suatu string. Dua buah notasi digunakan untuk karakter kontrol, yaitu:<br />
1.
Simbol # yang diikuti oleh suatu nilai integer diantara 0 sampai dengan<br />
255,
baik berupa nilai desimal maupun hexadesimal untuk menunjukkan<br />
suatu
karakter yang dihubungkan dengan kode ASCII.<br />
Contoh:<br />
#65 (ASCII
65 adalah karakter A)<br />
2. Simbol ^ diikuti oleh suatu akrakter,
menunjukkan hubungannya dengan<br />
karakter kontrol.<br />
Contoh<br />
^G
(Control-G berarti bel, sama dengan ACSII 7)<br />
Mengenal Turbo
Pascal—Awan Sundiawan 11<br />
2.6 Tanda Operasi<br />
Tanda operasi di dalam
bahasa Pascal dikelompokkan ke dalam 9 kategori,<br />
yaitu:<br />
1.
Assigment operator<br />
2. Binary operator<br />
3. Unary operator<br />
4.
Bitwise operator<br />
5. Relational operator<br />
6. Logical operator<br />
7.
Adress operator<br />
8. Set operator<br />
9. String operator<br />
2.6.1
Assignment operator<br />
Assignment operator adalah operator pengerjaan,
operator ini menggunakan<br />
simbol titik dua diikuti oleh tanda sama
dengan (:=).<br />
Contoh<br />
Luas:=panjang*lebar;<br />
Kota:=’Kuningan’;<br />
2.6.2
Binary operator<br />
Binary operator adalah tanda operasi biner, karena
operator ini dignakan<br />
untuk mengoperasikan dua buah operand. Operand
dapat berbentuk<br />
konstanta ataupun variabel. Operator ini digunakan
untuk operasi<br />
aritmamtika yang berhubungan dengan nilai tipe data
integer dan real.<br />
Tabel Tanda Operasi Biner<br />
Operator Operasi Tipe
Operand Tipe Hasil<br />
* Perkalian<br />
real, real<br />
integer, integer<br />
real,
integer<br />
real<br />
integer<br />
real<br />
DIV Pembagian bulat integer,
integer Integer<br />
/ Pembagian real<br />
real, real<br />
integer, integer<br />
real,
integer<br />
real<br />
real<br />
real<br />
MOD Sisa pembagian integer, integer
integer<br />
+ Penambahan<br />
real, real<br />
integer, integer<br />
real,
integer<br />
real<br />
integer<br />
real<br />
- Pengurangan<br />
real, real<br />
integer,
integer<br />
real, integer<br />
real<br />
integer<br />
real<br />
Contoh<br />
Begin<br />
Writeln(15*5);<br />
Writeln(23/3);<br />
Writeln(20
Div 3);<br />
Writeln(20 Mod 3);<br />
End.<br />
Bila program dijalankan<br />
75<br />
6.6666666667E+00<br />
6<br />
2<br />
Mengenal
Turbo Pascal—Awan Sundiawan 12<br />
Operator DIV digunakan untuk
pembagian dengan hasil yang dibulatkan ke<br />
bawah atau menghilangkan
angka pecahannya.<br />
2.6.3 Unary operator<br />
Unary operator adalah
operator yang hanya menggunakan sebuah operand<br />
saja, yaitu tanda plus
atau minus. Tanda ini digunakan diawal angka.<br />
2.6.4 Bitwise operator<br />
Bitwise
operator digunakan untuk operasi bit per bit pada nilai binari (biner).<br />
Acuan
bilangan desimal ke bilangan biner sebagai berikut.<br />
desimal binner<br />
0=0
0<br />
1=20 1<br />
2=21 10<br />
4=22 100<br />
8=23 1000<br />
16=24 10000<br />
32=25
100000<br />
dst… dst…<br />
Pangkat pada desimal merupakan jumlah nol pada
biner.<br />
Contoh<br />
desimal binner<br />
25= 16 10000<br />
8 1000<br />
1 1<br />
10001<br />
1.
Operator NOT<br />
Operator Not digunakan untuk pembalikan bitwise, yaitu
nilai bit 1 menjadi<br />
bit 0 dan sebaliknya nilai bit 0 menjadi bit 1.<br />
Contoh<br />
Begin<br />
Writeln(not
0);<br />
Writeln(not 5);<br />
Writeln(not 18);<br />
Writeln(not -17);<br />
End.<br />
Bila
program dijalankan<br />
-1<br />
-6<br />
-19<br />
16<br />
2. Operator And<br />
Operator
And digunakan untuk membandingkan dua buah elemen,<br />
hasilnya akan
benar bila keduanya benar. Bila logika benar diberi simbol 1<br />
dan
logika salah diberi simbol 0, maka hubungan operator And tampak<br />
pada
tabel berikut.<br />
Mengenal Turbo Pascal—Awan Sundiawan 13<br />
Tabel
Hubungan operator And<br />
A B A And B<br />
1 1 1<br />
1 0 0<br />
0 1 0<br />
0 0 0<br />
Contoh<br />
Begin<br />
Writeln(12
And 23);<br />
End.<br />
Bila program dijalankan akan mengasilkan<br />
4<br />
Operator
And bekerja dengan membandingkan bit demi bit dari elemenelemen<br />
yang
dibandingkan, sebagai berikut.<br />
12 nilai binarinya adalah 01100<br />
23
nilai binarinya adalah 10111<br />
12 AND 23 bernilai 00100 adalah 4 (22)<br />
3.
Operator Or<br />
Operator Or digunakan untuk membandingkan dua buah
elemen, hasilnya<br />
akan benar bila salah satu atau keduanya benar. Bila
logika benar diberi<br />
simbol 1 dan logika salah diberi simbol 0, maka
hubungan operator Or<br />
tampak pada tabel berikut.<br />
Tabel Hubungan
operator Or<br />
A B A Or B<br />
1 1 1<br />
1 0 1<br />
0 1 1<br />
0 0 0<br />
Contoh<br />
Begin<br />
Writeln(12
Or 23);<br />
End.<br />
Bila program dijalankan akan mengasilkan<br />
31<br />
Ungkapan
12 Or 23 didapat dari:<br />
12 nilai binarinya 1100<br />
23 nilai binarinya
10111<br />
12 Or 23 bernilai 11111 adalah 31 (24+23+22+21+1)=(16+8+4+2+1)<br />
4.
Operator Xor<br />
Operator Xor digunakan untuk membandingkan dua buah
elemen, hasilnya<br />
akan benar bila salah satunya saja yang benar. Bila
logika benar diberi<br />
simbol 1 dan logika salah diberi simbol 0, maka
hubungan operator Xor<br />
tampak pada tabel berikut.<br />
Mengenal Turbo
Pascal—Awan Sundiawan 14<br />
Tabel Hubungan operator Xor<br />
A B A Or B<br />
1
1 0<br />
1 0 1<br />
0 1 1<br />
0 0 0<br />
Contoh<br />
Begin<br />
Writeln(12 XOR
23);<br />
End.<br />
Bila program dijalankan akan mengasilkan<br />
27<br />
Ungkapan
12 XOR 23 bernilai 27 didapat dari:<br />
12 nilai binarinya 1100<br />
23
nilai binarinya 10111<br />
12 Or 23 bernilai 11011 adalah 27
(24+23+21+1)=(16+8+2+1)<br />
5. Operator Shl<br />
Operator Shl digunakan
untuk menggeser sejumlah bit ke kiri dengan nilai<br />
bit 0 atau menambah
jumlah nol (0) ke kanan.<br />
Contoh<br />
Begin<br />
Writeln(5 shl 2);<br />
End.<br />
Bila
program dijalankan akan mengasilkan<br />
20<br />
Nilai integer digeser
sebanyak 2 bit ke kiri dengan nilai bit 0 didapatkan<br />
hasil 20 sebagai
berikut.<br />
5 nilai binarinya adalah 101<br />
Digeser 2 bit ke kiri
(ditambah nolai 0 sebanyal 2 buah) menjadi 10100=20<br />
6. Operator Shr<br />
Operator
Shr digunakan untuk menggeser sejumlah bit ke kanan dengan<br />
nilai bit
0 atau membuang angka paling kanan.<br />
Contoh<br />
Begin<br />
Writeln(20
shr 2);<br />
End.<br />
Bila program dijalankan akan mengasilkan<br />
5<br />
20
nilai binarinya adalah 10100<br />
digeser 2 bit ke kanan (dibuang 2 bit
dari kanan) menjadi 101=5<br />
Mengenal Turbo Pascal—Awan Sundiawan 15<br />
7.
Operator Hubungan<br />
Operator hubungan digunakan untuk membandingkan
hubungan antara<br />
dua buah operand dan akan didapatkan hasil tipe
boolean yaitu true atau<br />
false.<br />
Operator Operasi<br />
= sama dengan<br />
<>
tidak sama dengan<br />
> lebih dari<br />
>= lebih dari sama dengan<br />
<
kurang dari<br />
<= kurang dari sama dengan<br />
IN seleksi dari anggota
himpunan<br />
Mengenal Turbo Pascal—Awan Sundiawan 16<br />
3. Input dan
Output<br />
Setiap program aplikasi pasti membutuhkan operasi input dan
output.<br />
Memasukkan data input secara interaktif merupaka ciri dari
program-program<br />
aplikasi yang banyak ditemukan. Suatu program yang
tidak dapat<br />
menghasilkan output, maka proses program tersebut akan
sia-sia, karena<br />
hasilnya tidak akan dapat dinikmati.<br />
3.1
Mamasukkan Data<br />
Cara yang paling banyak digunakan untuk memasukkan
data dalah dengan<br />
cara mengetikannya lewat papan ketik. Turbo Pascal
menyediakan prosedur<br />
untuk maksud tersebut, yaitu prosedur standar
Read dan Readln. Prosedur<br />
standar Read dan Readln mempunyai aturan
tertentu untuk beberapa tipe<br />
pengenal variabel. Tiap-tiap data yang
dimasukkan harus sesuai dengan tipe<br />
variabelnya.<br />
Tipe variabel dan
data yang diizinkan.<br />
Tipe Variabel Keterangan<br />
Char<br />
Memasukkan
sebuah karakter, bila lebih akan terpotong,<br />
yang dianggap hanya yang
pertama.<br />
String<br />
Memasukkan string maksimum sepanjang yang<br />
didefinisikan.<br />
Integer<br />
Memasukkan
data numerik bulat mulai -32768 sampai<br />
dengan 32767<br />
Word<br />
Memasukkan
data numerik bulat mulai 0 sampai dengan<br />
65535<br />
Byte<br />
Memasukkan
data numerik bulat mulai 0 sampai dengan<br />
255<br />
ShortInt<br />
Memasukkan
data numerik bulat mulai -128 sampai dengan<br />
127<br />
LongInt<br />
Memasukkan
data numerik bulat mulai -2147483648<br />
sampai dengan 2147483647<br />
Real<br />
Memasukkan
data numerik real maksimum 30 digit dapat<br />
tanpa titik desimal.<br />
Boolean
Data tipe ini tidak diijinkan<br />
Contoh<br />
Program Masuk;<br />
Var<br />
A,B
: Integer;<br />
C : Real;<br />
D : String[10];<br />
E : Char;<br />
Begin<br />
{pernyataan
memasukan data}<br />
Write(‘Data A=’);Readln(A);<br />
Write(‘Data
B=’);Readln(B);<br />
Write(‘Data C=’);Readln(C);<br />
Write(‘Data
D=’);Readln(D);<br />
Write(‘Data E=’);Readln(E);<br />
Mengenal Turbo
Pascal—Awan Sundiawan 17<br />
{Pernyataan menampilkan data}<br />
Writeln(‘Data
A=’,A);<br />
Writeln(‘Data B=’,B);<br />
Writeln(‘Data C=’,C);<br />
Writeln(‘Data
D=’,D);<br />
Writeln(‘Data E=’,E);<br />
End.<br />
Bila program dijalankan,
pertama kali menunggu memasukkan data mulai dari<br />
data A sampai dengan
E. Setelah semua diisi, maka akan menampilkan data<br />
yang dimasukkan
tadi. Prosedur Readln untuk memasukkan data perbaris,<br />
artinya setelah
mengetikkan data harus diakhiri dengan menekan ENTER,<br />
maka akan
ganti baris.<br />
3.2 Menampilkan Hasil<br />
Untuk menampilkan hasil dengan
bahasa Pascal digunakan prosedur standar<br />
Write dan Writeln.
Perbedaannya adalah, prosedur Write menampilkan hasil<br />
tanpa ganti
baris dan tampilan berikutnya akan disambung dalam baris yang<br />
sama.
Sedangkan proseur standar Writeln digunakan untuk menampilkan<br />
tampilan
perbaris, akan ganti baris untuk tampilan berikutnya.<br />
Contoh:<br />
Program
Tampil;<br />
Var<br />
Nama:string[10];<br />
Begin<br />
Nama:=’Nina’;<br />
Write(‘Nama
: ‘);<br />
Write(Nama);<br />
Writeln;<br />
Writeln(Nama: ’);<br />
Writeln(Nama);<br />
End.<br />
Bila
program dijalankan akan menghasilkan<br />
Nama:Nina ----------- efek
dari write<br />
Nama:<br />
Nina ---------- efek dari writeln<br />
3.3
Tampilan Terformat<br />
Walaupun bentuk standar dianggap cukup untuk
menampilkan bentuk pada<br />
program yang sederhana, tetapi untuk
program-program aplikasi dibutuhkan<br />
bentuk format tertentu yang harus
diatur kembali. Untuk mengatur format<br />
tampilan dengan prosedur
standar write atau writeln dipergunakan<br />
parameter-parameter sebagai
berikut.<br />
1. Parameter CH:N<br />
Digunakan untuk membentuk ormat
tampilan Char seleber n karakter<br />
dengan spasi kosong dimuka sebanyak
n-1.<br />
Mengenal Turbo Pascal—Awan Sundiawan 18<br />
Contoh<br />
Program
tampil_fomat_1;<br />
Var<br />
Ket1,Ket2:Char;<br />
Begin<br />
Ket1:=’A’;<br />
Ket2:=’B’;<br />
Writeln(Ket1:5,
Ket2:3);<br />
End.<br />
Bila Program dijalankan akan menghasilkan:<br />
A B<br />
----5--3
karakter<br />
2. Parameter S:N<br />
Parameter ini digunakan untuk membentuk
format tampilan string dengan<br />
lebar n akrakter.<br />
Contoh:<br />
Program
Tampil_format_2;<br />
Var<br />
Tulisan:string[6];<br />
Begin<br />
Tulisan:=’Pascal’;<br />
Writeln(‘Bahasa:’,Karakter:10);<br />
End.<br />
Bila
Program dijalankan akan menghasilkan:<br />
Bahasa: Pascal<br />
----------
10 karakter, 4 spasi kosong di muka<br />
3. Parameter I:N<br />
Parameter ini
digunakan untuk membentuk format tampilan integer dengan<br />
lebar n
digit.<br />
Contoh:<br />
Program tampil_format_3;<br />
Var<br />
N:Integer;<br />
Begin<br />
N:=275;<br />
Writeln(‘Jumlah
Data=’,N:5);<br />
End.<br />
Bila program dijalankan akan menghasilkan:<br />
Jumlah
Data= 275<br />
-----5 digit, 2 digit spasi kosong di muka<br />
Mengenal
Turbo Pascal—Awan Sundiawan 19<br />
4. Tampilan R:N:M<br />
Parameter ini
digunakan untuk membentuk format tampilan nilai numerik<br />
Real dengan
lebar n digit rata sebelah kanan dan m digit angka di belakang<br />
koma
tidak dalam bentuk eksponen.<br />
Contoh:<br />
Program Tampil_format_4;<br />
Var<br />
Nilai:Real;<br />
Begin<br />
Nilai:=123.456;<br />
Writeln(‘Nilai
Real=’,Nilai:0:0);<br />
Writeln(‘Nilai Real=’,Nilai:3:0);<br />
Writeln(‘Nilai
Real=’,Nilai:3:2);<br />
Writeln(‘Nilai Real=’,Nilai:7:1);<br />
End.<br />
Bila
program dijalankan akan menghasilkan:<br />
123<br />
123<br />
123.46<br />
123.5<br />
Mengenal
Turbo Pascal—Awan Sundiawan 20<br />
4. Perulangan<br />
Pengulangan (loop)
merupakan bentuk yang sering ditemui di dalam suatu<br />
program aplikasi.
Di dalam bahasa Pascal, dikenal tiga macam perulangan,<br />
yaitu dengan
menggunakan pernyataan For, While-Do, dan Repeat…Until.<br />
4.1 Struktur
Perulangan For<br />
Perulangan dengan pernyataan For digunakan untuk
mengulang pernyataan<br />
atau satu blok pernyataan berulang kali sejumlah
yang ditentukan. Perulangan<br />
dengan pernyataan For dapat berbentuk
perulangan positif, perulangan negatif<br />
dan perulangan tersarang.<br />
1.
Perulangan positif.<br />
Perulangan positif adalah perulangan dengan
penghitung dari kecil ke besar<br />
atau pertambahan positif. Perulangan
positif dapat dibentuk dengan<br />
menggunakan pernyataan For-To-Do,
dengan bentuk umum:<br />
For variabel-kontrol:=nilai awal To nilai akhir
Do pernyataan<br />
Variabel kontrol, nilai awal, nilai akhir harus betipe
integer<br />
Contoh<br />
Var<br />
I:Integer;<br />
Begin<br />
For I:= 1 to 5 Do
Writeln(‘Pascal’);<br />
End.<br />
Bila program dijalankan akan menghasilkan:<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Penjelasan:<br />
Pernyataan
Writeln(‘Pascal’) akan diulang sebanyak 5 kali, yaitu<br />
dengan
penghitung dari nilai awal 1 sampai dengan nilai akhir 5.<br />
Apabila
pernyataan diulang lebih dari satu pernyataan maka seteleh DO<br />
harus
memakai Begin kemudian beberapa pernyataan yang akan diulang<br />
dan
diakhiri dengan End;.<br />
Contoh:<br />
Var<br />
I:Integer;<br />
Begin<br />
For
I:= 1 to 2 Do<br />
Begin<br />
Write(‘Pascal’);<br />
Writeln(‘Turbo’);<br />
End;<br />
End.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 21<br />
Bila program dijalankan akan
menghasilkan:<br />
PascalTurbo<br />
PascalTurbo<br />
2. Perulangan negatif<br />
Perulangan
negatif adalah perulangan dengan penghitung dari besar ke<br />
kecil atau
pertambahan negatif. Perulangan negatif dapat dibentuk dengan<br />
menggunakan
pernyataan For-DownTo-Do, dengan bentuk umum:<br />
For
variabel-kontrol:=nilai awal DownTo nilai akhir Do penyataan<br />
Contoh:<br />
Var<br />
I:integer;<br />
Begin<br />
For
I:=5 downto 1 do<br />
Begin<br />
Writeln(I);<br />
End;<br />
End.<br />
Bila
program dijalankan maka akan menghasilkan:<br />
5<br />
4<br />
3<br />
2<br />
1<br />
3.
Perulangan tersarang<br />
Perulangan tersarang adalah perulangan yang
berbeda di dalam perulangan<br />
yang lainnya. Perulangan yang lebih dalam
akan diproses terlebih dahulu<br />
sampai habis, kemudian perulangan yang
lebih luar baru akan akan<br />
bertambah, mengerjakan perulangan yang
lebh dalam lagi mulai dari nilai<br />
awalnya dan seterusnya.<br />
Contoh:<br />
Var<br />
I,J:Integer;<br />
Begin<br />
For
I:=1 to 5 Do<br />
Begin<br />
For j:=1 to 3 Do<br />
Begin<br />
Write(I:8,J:3);<br />
End;<br />
Writeln;<br />
End;<br />
End.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 22<br />
Bila program dijakankan akan
menghasilkan:<br />
1 1 1 2 1 3<br />
2 1 2 2 2 3<br />
3 1 3 2 3 3<br />
4 1 4 2 4 3<br />
5
1 5 2 5 3<br />
Perulangan tersarang banyak digunakan dalam aplikasi
matrik dengan<br />
menggunakan variabel tipe larik. (Lebih lanjut akan di
bahas pada materi<br />
matrik)<br />
4.2 Struktur Perulangan While-Do<br />
Perulangan
ini menggunakan pernyataan While—Do. Pernyataan While—Do<br />
digunakan
untuk melakukan proses perulangan suatu pernyataan atau blok<br />
pernyataan
terus-menerus selama kondisi ungkapan logika pada While masih<br />
bernilai
logika benar.<br />
Bentuk Umum<br />
While kondisi ungkapan Do Pernyataan<br />
Contoh<br />
Var<br />
I:Integer;<br />
Begin<br />
I:=0;<br />
While
I<5 Do<br />
Begin<br />
Writeln(I);<br />
I:=I+1;<br />
End;<br />
End.<br />
Bila
program dijalankan akan menghasilkan:<br />
0<br />
1<br />
2<br />
3<br />
4<br />
Penjelasan:<br />
Perulangan
dari while akan terus menerus dikerjakan bila kondisinya masih<br />
benar.
Dalam hal ini kondisinya adalah I dan bila nilai I kurang dari 5,
berarti<br />
kondisi di dalam While masih terpenuhi dan perulangan akan
selesai setelah<br />
nilai I lebih besar atau sama dengan 5.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 23<br />
4.3 Struktur Repeat...Until<br />
Struktur
Repeat…Until digunakan untuk mengulang pernyataan-pernyataan<br />
atau
blok pernyataan sampai kondisi yang diseleksi di Until terpenuhi.<br />
Bentuk
mumnya adalah:<br />
Repeat pernyataan Until<br />
Contoh:<br />
Var<br />
I:Integer<br />
Begin<br />
I:=0;<br />
Repeat<br />
I:=I+1;<br />
Writeln(I);<br />
Until
I=5;<br />
End.<br />
Bila program dijalankan akan menghasilkan:<br />
1<br />
2<br />
3<br />
4<br />
5<br />
Penjelasan:<br />
Pencetakan
variabel I akan diulang-ulang sampai harga I bernilai 5.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 24<br />
5. Penyeleksian Kondisi<br />
Hampir
setiap program yang kompleks mengandung suatu penyeleksian<br />
kondisi.
Dengan menyeleksi suatu kondisi, program dapat menentukan<br />
tindakan
apa yang harus dikerjakan, bergantung dari hasil kondisi yang<br />
diseleksi
tersebut. Untuk menyeleksi suatu kondisi, di dalam bahasa Pascal<br />
dapat
dipergunakan pernyataan IF dan CASE.<br />
5.1 Pernyataan IF<br />
Struktur
pernyataan IF dapat berupa If—Then atau If—Then—Else dengan<br />
bentuk
umum:<br />
If ungkapan Then pernyataan<br />
Ungkapan adalah kondisi yang
akan diseleksi oleh pernyataan If. Bila kondisi<br />
yang diseleksi
terpernuhi, maka pernyataan yang mengikuti Then akan<br />
diproses.
Sebaliknya, bila kondisi tidak terpenuhi, maka yang akan diproses<br />
adalah
pernyataan berikutnya.<br />
Contoh:<br />
Var<br />
Nilai:ral;<br />
Ket :
string[11];<br />
Begin<br />
Ket:’Tidak Lulus’;<br />
Write(‘Nilai Ujian = ‘);<br />
Readln(Nilai);<br />
{Penyeleksian
kondisi}<br />
If Nilai>60 Then Ket:=’Lulus’;<br />
Writeln(Ket);<br />
End.<br />
Bila
program dijalankan akan menghasilkan:<br />
Nilai Ujian = 70----- diisi
melalui papan ketik<br />
Lulus<br />
Mengenal Turbo Pascal—Awan Sundiawan 25<br />
If
kondisi Then<br />
pernyataan1;<br />
Else<br />
pernyataan2;<br />
Pernyataan1
akan diproses apabila kondisi benarn(terpenuhi) sedang<br />
pernyataan2
akan diproses apabila kondisi tidak terpenuhi.<br />
Contoh:<br />
Var<br />
Nilai:Real;<br />
Begin<br />
Writeln(‘Nilai
Ujian = ‘);<br />
Readln(Nilai);<br />
If Nilai>60 Then<br />
Writeln(‘Lulus’);<br />
Else<br />
Writeln(‘Tidak
Lulus’);<br />
End.<br />
5.2 Pernyataan Case<br />
Pernyataan Case dapat
berbentuk struktur Case—Of atau Case—Of…. Else.<br />
Struktur Case—Of
mempunyai suatu ungkapan logika yang disebut dengan<br />
selector dan
sejumlah pernyataan yang diawali dengan suatu label<br />
permasalahan yang
mempunyai tipe sama dengan selector. Pernyataan yang<br />
mempunyai label
permasalahan yang bernilai sama dengan nilai selector akan<br />
diproses
sedang pernyataan yang lainnya tidak.<br />
Perberdaan dengan struktur If
adalah bila pernyataan If menyeleksi suatu<br />
kondisi yang terpenuhi,
setelah memproses pernyataan dalam lingkungan yang<br />
terpenuhi
tersebut, proses penyeleksian masih dilakukan terhadap pernyataan<br />
If
berikutnya yang lain. Sedang pada struktur Case—Of bila salah satu
kondisi<br />
terpenuhi dan pernyataan tersebut telah diproses, selanjutnya
pernyataanpernyataan<br />
yang lainnya dalam lingkungan Case tidak akan
diseleksi lagi.<br />
Bentuk dari struktor Case—Of adalah:<br />
Case ungkapan
Of<br />
daftar case-label1:pernyataan1;<br />
daftar
case-label2:pernyataan2;<br />
daftar case-label3:pernyataan3;<br />
daftar
case-label4:pernyataan4;<br />
.<br />
.<br />
daftar case-labeln:pernyataann;<br />
End;<br />
Daftar
case label (label permasalahan) dapat berupa konstanta, atau range<br />
(himpunan)
dari konstanta yang bukan bertipe real.<br />
Contoh:<br />
Nilai ujian yang
diberikan dalam bentuk huruf A, B, C, D, E mempunyai arti<br />
sebagai
berikut.<br />
Mengenal Turbo Pascal—Awan Sundiawan 26<br />
Nilai ‘A’ berarti
sangat baik.<br />
Nilai ‘B’ berarti baik.<br />
Nilai ‘C’ berarti cukup.<br />
Nilai
‘D’ berarti kurang.<br />
Nilai ‘E’ berarti kurang sekali.<br />
Nilai ‘F’
berarti gagal.<br />
Var<br />
Nilai:Char;<br />
Begin<br />
Writeln(‘Nilai huruf
yang didapat = ‘);<br />
Readln(Nilai);<br />
Case Nilai of<br />
‘A’:Writeln(‘Sangat
Baik’);<br />
‘B’:writeln(‘Baik’);<br />
‘C’:Writeln(‘Cukup’);<br />
‘D’:Writeln(‘Kurang’);<br />
‘E’:Writeln(‘Gaga’);<br />
End;<br />
End.<br />
Struktur
Case—Of…Else merupakan pengembangan dari struktur Case—Of<br />
dan juga
merupakan pengembangan dari standar Pascal. Pada struktur Case—<br />
Of
bila tidak ada kondisi yang terpenuhi berarti tidak ada pernyataan di<br />
lingkungan
Case—Of yang diproses. Dengan struktur Case—Of…Else, bila<br />
tidaka da
kondisi yang terpenuhi, maka pernyataan yang akan diproses di<br />
dalam
lingkungan Case—Of adalah pernyataan yanga da di Else.<br />
Contoh:<br />
Pembelian
yang mencapai nilai tertentu akan medapatkan potongan pembelian<br />
yang
besarnya disesuaikan dengan tabel berikut ini.<br />
Total Pembelian (Rp)
Potongan Rp<br />
0-1000 100<br />
1001-5000 200<br />
>5000 500<br />
Akan
dihitung besarnya potongan dan nilai yang harus dibayat untuk
masingmasing<br />
penjualan. Programnya adalah:<br />
Var<br />
Bersih,Beli,potong:Integer;<br />
Begin<br />
Writeln(‘Total
Pembelian = ‘); Readln(beli);<br />
Case Beli of<br />
0..1000:potong:=100;<br />
1001..5000:potong:=200;<br />
Else
potong:=500;<br />
End;<br />
Bersih:=beli-ptong;<br />
Writeln(‘Potongan = ‘,
potongan);<br />
Writeln(‘Jumlah Bersih = ‘, Bersih);<br />
End.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 27<br />
6. Operasi String<br />
Suatu string di
dalam Pascal dapat dioperasikan dengan berbagai macam<br />
tujuan.
Beberapa string dapat dirangkai menjadi satu, dapat digunakan<br />
sebagai
kondisi yang diseleksi dan lain sebainya. Pascal menyediakan beberapa<br />
prosedur
standar dan fungsi standar untuk operasi string.<br />
6.1 Merangkai
String<br />
Pengerjaan suatu string hanya mempunyai sebuah operator, yaitu
operator ‘+’.<br />
Bila operator ini digunakan untuk penambahan nilai
numerik, maka akan<br />
berfungsi menjumlahkan dua buah nilai elemen
numerik. Sedang pada string,<br />
operator ini digunakan untuk merangkai
dua buah elemen string menjadi<br />
sebuah string. Panjang maksimum suatu
string yang diijinkan oleh Pascal<br />
adalah 255 karakter.<br />
Contoh:<br />
Const<br />
Tulisan1=’Bahasa
’;<br />
Tulisan2=’Turbo ’;<br />
Tulisan3=’Pascal ’:<br />
Var<br />
Sifat:string[10];<br />
Kalimat:[100];<br />
Begin<br />
Sifat:=’Tersetruktur’;<br />
Kalimat:=tulisan1+tulisan2+tulisan3+sifat;<br />
Writeln(kalimat);<br />
End.<br />
Bila
program dijalankan akan menghasilkan:<br />
Bahasa Turbo Pascal
Terstruktur<br />
6.2 Prosedur Standar untuk Operasi String<br />
Pascal
menyediakan beberapa prosedur standar yang berguna untuk<br />
memanipulasi
string, yaitu prosedur standar Delete, Insert, Str, Val.<br />
6.2.1
Prosedur standar Delete<br />
Porsedur uni digunakan untuk membuang
sejumlah karakter (jumlah yang<br />
ditunjukkan oleh nilai jumlah, mulai
dari posisi tertentu (dintujukkan oleh<br />
nilai posisi) dari suatu
tulisan (ditunjukkan oleh pengenal variabel string<br />
atau tulisan).
Jika posisi lebih besar dari panjang tulisan, maka tidak ada<br />
karakter
yang akan terhapus.<br />
Bentuk umum dari prosedur ini adalah:<br />
Delete(tulisan,
posisi, jumlah)<br />
Mengenal Turbo Pascal—Awan Sundiawan 28<br />
Contoh:<br />
Begin<br />
Writeln(Delete(‘Pascal’,4,3));<br />
End.<br />
Hasilnya<br />
Pas<br />
program
abac;<br />
uses wincrt;<br />
Var<br />
Tulisan:string[10];<br />
I,j,posisi:integer;<br />
Begin<br />
Tulisan:='Pascal';<br />
Writeln(tulisan);<br />
J:=length(tulisan);<br />
Posisi:=j;<br />
For
I:=1 to j do<br />
Begin<br />
delete(Tulisan,posisi,1);<br />
writeln(tulisan);<br />
posisi:=j-i;<br />
End;<br />
End.<br />
Hasilnya<br />
Pascal<br />
Pasca<br />
Pasc<br />
Pas<br />
Pa<br />
P<br />
6.2.2
Prosedur standar Insert<br />
Prosedur ini digunakan untuk menyisipi suatu
string (dintujukkan oleh<br />
tulisan1) ke nilai string yang lainnya
(dintujukkan oleh tulisan2) mulai posisi<br />
yang ditentukan oleh nilai
posisi. Bila hasil dari penyisipan menjadi string yang<br />
panjangnya
lebih dari 255 karakter, maka akan menjadi sampai dengan 255<br />
karakter
saja.<br />
Betuk umumnya:<br />
Insert(tulisan1,tulisan2)<br />
Mengenal Turbo
Pascal—Awan Sundiawan 29<br />
Contoh:<br />
Var<br />
Nama:[string];<br />
Begin<br />
Nama:=’Pascal’;<br />
Insert(‘Bahasa
‘,Nama);<br />
Writeln(Nama);<br />
End.<br />
Hasilnya<br />
Bahasa Pascal<br />
6.2.3
Prosedur standar Str<br />
Prosedur standar ini digunakan untuk mengubah
nilai numerik (ditunjukkan<br />
oleh nilai N) menjadi nilai string
(dintunjukkan oleh nilai S). Nilai N dapat<br />
berupa nilai numerik
integer maupun nilai numerik real. Hasil dari<br />
perubahan ke nilai
string dapat terformat maupun tidak terfomat. Bila lebar<br />
atau desimal
disebutkan, maka akan dihasilkan nilai string dengan format<br />
panjang
tertentu. Nilai lebar menunjukkan format panjang dari nilai utuh dan<br />
nilai
desimal menunjukkan format dari panjang nilai di belakang koma.<br />
Bentuk
Umumnya:<br />
Str(N:lebar:desimal,S)<br />
Contoh:<br />
Var<br />
N1, N2:integer;<br />
S1,
S2:string[5];<br />
Begin<br />
N1:=1234;<br />
N2:=567;<br />
Writeln(N1+N2);<br />
Str(N1:4,S1);<br />
Srt(N2:4,S2);<br />
Writeln(S1+S2);<br />
End.<br />
Hasilnya:<br />
1801<br />
1234
567<br />
6.2.4 Prosedur standar Val<br />
Prosedur standar ini digunakan
untuk mengonversi nilai string (dintunjukkan<br />
oleh nilai S) menjadi
nilai numerik (ditunjukkan oleh nilai N). Walaun S<br />
merupakan nilai
string, tetapi harus berisi angka atau tanda plus atau minus,<br />
bila
tidak berarti salah dan letak kesalahannya ditunjukkan oleh nilai
variabel<br />
kode. Nilai variabel akan nol bila tidak mengandung
kesalahan.<br />
Mengenal Turbo Pascal—Awan Sundiawan 30<br />
Bentuk umunya:<br />
Val(S,
N, Kode);<br />
Contoh:<br />
Var<br />
S1:string[6];<br />
N:real;<br />
Kode:integer;<br />
Begin<br />
S:=’123.45’;<br />
Val(S,N,kode);<br />
Writeln(S);<br />
Writeln(N);<br />
Writeln(kode);<br />
End.<br />
Hasilnya<br />
123.45<br />
1.2345000000E+2<br />
0<br />
6.3
Fungsi Standar untuk Operasi String<br />
Di samping prosedur standar
untuk memanipulasi string, Pascal juga<br />
menyediakan beberapa fungsi
standar untuk operasi string, yaitu Copy,<br />
ConCat, Pos dan Length.<br />
6.3.1
Fungsi standar Copy<br />
Fungsi standar ini digunakan untuk menyalin
(copy) sejumlah karakter<br />
(jumlah karakter yang disalin ditunjukkan
oleh nilai jumlah) mulai dari posisi<br />
yang ditunjukkan oleh nilai
posisi dari nilai string yang ditunjukkan oleh nilai<br />
S.<br />
Bentuk
Umumnya:<br />
Copy(S, posisi, jumlah)<br />
Contoh:<br />
Var<br />
Tulisan:string[15];<br />
Begin<br />
Tulisan:’Pascal’;<br />
Writeln(Tulisan,3,3);<br />
Writeln(Tulisan,3,1);<br />
End.<br />
Hasilnya:<br />
sca<br />
s<br />
Mengenal
Turbo Pascal—Awan Sundiawan 31<br />
6.3.2 Fungsi standar ConCat<br />
Fungsi
standar ini mempunyai operasi yang sama dengan operator ’+’ yaitu<br />
merangkai
beberapa nilai string yang dintunjukkan oleh nilai S1, S2, … Sn.<br />
Bentuk
Umumnya:<br />
ConCat(S1,S2,..Sn)<br />
Contoh:<br />
Const<br />
S1=’Pascal’;<br />
S2=’Turbo
’;<br />
Begin<br />
Writeln(Concat(S2,S1));<br />
End.<br />
Hasilnya<br />
Turbo
Pascal<br />
6.3.3 Fungsi standar Pos<br />
Fungsi standar ini digunakan untuk
mencari posisi letak dari suatu nilai<br />
string (ditunjukkan oleh subS)
yang ada di dalam nilai string yang lain<br />
(dintunjukkan oleh S).
Nilai yang dihasilkan adalah berupa nilai byte yang<br />
menunjukkan
letaknya. Bila bernilai nol berarti nilai string yang dicari tidaka<br />
da.<br />
Bentuk
Umumnya:<br />
Pos(subS, S)<br />
Contoh:<br />
Const<br />
Tulisan=’Turbo’;<br />
Begin<br />
Writeln(‘T’,tulisan);<br />
Writeln(‘o’,tulisan);<br />
Writeln(‘e’,tulisan);<br />
End.<br />
Hasilnya<br />
1<br />
5<br />
0<br />
Mengenal
Turbo Pascal—Awan Sundiawan 32<br />
6.3.4 Fungsi standar Length<br />
Fungsi
standar ini digunakan untuk menghitung panjang atau jumlah karakter<br />
yang
ada di nilai string yang ditunjukkan oleh S. Hasil dai fungsi ini
adalah<br />
nilai numerik integer positif.<br />
Bentuk umum<br />
Length(S)<br />
Contoh:<br />
Var<br />
Nama:string[50];<br />
Jumlah:integer;<br />
Begin<br />
Writeln(‘Nama
Anda : ‘);<br />
Readln(Nama);<br />
Jumlah:length(nama);<br />
Writeln(‘Panjang
Nama Anda adalah = ‘,jumlah);<br />
End.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 33<br />
7. Fungsi Standar Aritmatika<br />
7.1 ABS<br />
Bentuk umum:
Abs(x);<br />
Digunakan untuk memutlakkan suatu nilai yang ditunjukkan oleh
argumen x<br />
atau memosotikan suatu bilangan.<br />
Contoh<br />
Writeln(abs(-2));<br />
Hasilnya<br />
2<br />
7.2
EXP<br />
Bentuk umum: Exp(x:real):real;<br />
Digunakan untuk menghitung
nilai pangkat dari bilangan e (bilangan<br />
alam=2.7182818285, yaitu
sebesar ex.<br />
Contoh<br />
Writeln(exp(2):9:2);<br />
Hasilnya<br />
7.39<br />
7.3
LN<br />
Bentuk umum: Ln(x:real):real;<br />
Digunakan untuk menghitung nilai
logaritma alam dari nilai x.<br />
Contoh<br />
Writeln(LN(100):5:2);<br />
Hasilnya<br />
2.00<br />
7.4
INT<br />
Bentuk umum: Int(real):real;<br />
Digunakan untuk menghasilkan
nilai integer dari x atau membulatkan ke<br />
bawah dengan membuang
pecahannya.<br />
Contoh<br />
Writeln((9.99):5:2);<br />
Hasilnya<br />
9.00<br />
Mengenal
Turbo Pascal—Awan Sundiawan 34<br />
7.5 FRAC<br />
Betuk umum:
Frac(x:real):real;<br />
Digunakan untuk mendapatkan nilai pecahan dari
argumen x.<br />
Contoh<br />
Writeln(Frac(9.99):5:3);<br />
Hasilnya<br />
0.990<br />
7.6
SQR<br />
Bentuk Umum Sqr(x);<br />
Digunakan untuk menghitung nilai pangkat
kuadrat dari x.<br />
Contoh<br />
Writeln(Sqrt(5));<br />
Hasilnya<br />
25<br />
7.7
SQRT<br />
Bentuk umum Sqrt(x);<br />
Digunakan untuk menghitung nilai akar
dari x.<br />
Contoh<br />
Writeln(Sqrt(36));<br />
Hasilnya<br />
6<br />
Mengenal
Turbo Pascal—Awan Sundiawan 35<br />
8. Fungsi Standar Transfer<br />
Fungsi
standar transfer digunakan untuk mengubah suatu nilai ke bentuk nilai
yang<br />
lain. Fungsi-fungsi yang tersedia yaitu fungsi standar Char,
Ord, Round, dan Trunc.<br />
8.1 CHR<br />
Bentuk umum: Chr(x);<br />
Digunakan
untuk mengubah nilai x ke bentuk karakter ASCII.<br />
Contoh<br />
Writeln(Chr(65));<br />
Hasilnya<br />
A<br />
8.2
ORD<br />
Bentuk umum: Ord(x);<br />
Digunakan untuk mengubah nilai x ke
bentuk nilai longint yang sesuai dengan<br />
kode ASCIInya (menentukan
urutan karakter pada kode ASCII). Fungsi Ord<br />
kebalikan dari Chr.<br />
Contoh<br />
Writeln(Ord(B));<br />
Hasilnya<br />
66<br />
8.3
ROUND<br />
Bentuk umum: Round(x:real):longint;<br />
Digunakan untuk
membulatkan nilai x ke longint yang terdekat. Bila nilai<br />
pecahan sama
dengan atau lebih dari 0.5 akan dibulatkan ke atas, sedang bila<br />
bila
nilai pecahan lebih kecil dari 0.5 akan dibulatkan ke bawah.<br />
Contoh<br />
Writeln(Round(10/3));<br />
Writeln(Round(20/3));<br />
Hasilnya<br />
3<br />
7<br />
8.4
TRUNC<br />
Bentuk umum: Trunc(X)<br />
Digunakan untuk membulatkan nilai X
ke nilai longint terkecil. Atau<br />
membulatkan ke bawah dengan memnbuang
pecahannya.<br />
Contoh<br />
Writeln(Trunc(10/3));<br />
Writeln(Trunc(20/3));<br />
Hasilnya<br />
3<br />
6<br />
Mengenal
Turbo Pascal—Awan Sundiawan 36<br />
9. Matrik/Larik<br />
9.1.Definisi
Matrik<br />
Matrik adalah sekumpulan informasi yang setiap datanya mengacu
pada duah<br />
buah indeks. Matrik disebut juga tabel lajur yang memiliki
indeks baris dan<br />
indeks kolom. Karena adanya dua buah indeks
tersebut, matrik juga disebut<br />
larik dua dimensi. Istilah dua dimensi
karena data tersebut ada pada<br />
pertemuan baris dan kolom.<br />
Contoh:<br />
Tabel
di samping disebut<br />
matrik 4x4, karena memiliki 4<br />
baris dan
memiliki 4 kolom<br />
atau larik 4x4.<br />
Cara menentukan nilai elemen data
tabel dengan matrik sebagai berikut:<br />
Nilai Fisika punya Ahmad ada
pada baris 1 kolom 1, maka matriksnya [1,1]<br />
Nilai Biologi punya
Joni ada pada baris 2 kolom 3, maka matriksnya [2,3]<br />
Nilai Kimia
punya Dede ada pada baris 4 kolom 2, maka matriksnya [4,2]<br />
dst.<br />
9.2
Definsi Larik<br />
Suatu larik (array) adalah tipe terstruktur yang
terdiri dari sejumlah<br />
komponen-komponen yang mempunyai tipe sama.
Suatu larik mempunyai<br />
jumlah komponen yang banyaknya tetap. Banyaknya
komponen dalam suatu<br />
larik ditunjukkan oleh suatu indkes yang
disebut tipe indeks. Tipe indeks ini<br />
berbentuk ungkapan tipe ordinal
(tipe data yang berurutan). Tiap-iap<br />
komponen pada larik dapat
diakses dengan menunjukkan nilai indeksnya.<br />
1. Dimensi Larik<br />
a.
Larik dimensi satu<br />
Larik ini memiliki data yang berurutan dengan satu
jenis yang sama dan<br />
tidak berbentuk tabel.<br />
Contoh: larik
bungadatanya mawar, melati, angrek<br />
larik nama hari datanya Minggu,
Senin, Selasa, Rabu, Kamis,<br />
Jumat, Sabtu<br />
Deklarasi larik satu
dimensi<br />
bunga : array[1..3] of string=(‘mawar, melati, angrek’)<br />
nama
larik kata cadangan untuk larik jumlah elemen data tipe data<br />
larik
data larik<br />
elemen-elemen data larik bunga adalah:<br />
bunga[1]:
’mawar’<br />
bunga[2]: ‘melati’ nilai data larik<br />
bunga[3]: ‘angrek’<br />
nama
larik indeks/urutan dalam larik<br />
Fisika Kimia Biologi Matematika<br />
Ahmad
6 7 7 8<br />
Joni 7 6 6 5<br />
Toni 8 4 5 6<br />
Dede 6 7 8 6<br />
Mengenal
Turbo Pascal—Awan Sundiawan 37<br />
b. Larik dua dimensi<br />
Larik dua
dimensi disebut juga matriks. Larik dua dimensi memiliki<br />
data yang
tersusun berdasarkan urutan baris dan kolom pada tabel.<br />
Contoh:<br />
Larik
nilai memiliki data urutan baris yaitu: Ahmad, Joni, Toni, Dede<br />
dan
data urutan kolom yaitu fisika, kimia, biologi, matematika. Data di<br />
atas
dapat digambarkan sebagai berikut:<br />
Fisika Kimia Biologi Matematika<br />
1
2 3 4<br />
Aahmad 1 6 7 7 8<br />
Joni 2 7 6 6 5<br />
Toni 3 8 4 5 6<br />
Dede 4
6 7 8 6<br />
Dari data tabel di atas dapat dibuat indeksnya yaitu:<br />
Nilai[Ahmad,Fisika] atau Nilai[1,1] = 6<br />
Nilai[Ahmad,Kimia] atau
Nilai[1,2] = 7<br />
Nilai[Ahmad,Biologi] atau Nilai[1,3] = 7<br />
Nilai[Ahmad,Matematika] atau Nilai[1,4]=8<br />
Nilai[Joni,Fisika]
atauNilai[2,1] = 7<br />
Nilai[Joni,Kimia] atau Nilai[2,2] = 6<br />
dst.<br />
Deklarasi
Larik dua dimensi<br />
nama
larik:array[minbaris..maxbaris,minkolom..maxkolom] of tipe larik<br />
Contoh1:<br />
Nilai:array[1..4,1..4]
of integer;<br />
atau<br />
Contoh2:<br />
Nilai:array[1..4,1..4] of
integer=((6,7,7,8),(7,6,6,5),(8,4,5,6),(6,7,8,6))<br />
Suatu larik/matrik
yang akan dipergunakan di dalam Pascal harus dideklarasikan<br />
terlebih
dahulu. Deklarasi dari larik didahului dengan kata cadangan Array
diikuti<br />
oleh tipe indeks yang diletakkan diantara tanda ‘[ ]’,
diikuti lagi oleh kata cadangan of<br />
dan tipe lariknya.<br />
Contoh<br />
Var<br />
x:array[1..100]
of integer;<br />
nama larik tipe indeks tipe data larik<br />
Larik x telah
dideklarasikam sebagai larik tipe integer dengan jumlah elemen<br />
maksimum
sebanyak 100 elemen. Nilai-nilai elemen larik ini harus berisi
nilai-nilai<br />
integer. Misalnya elemen-elemen (anggota) dari larik x
adalah:<br />
X[1]:=25;<br />
X[2]:=55;<br />
X[3]:=65;<br />
X[4]:=75;<br />
X[5]:=95;<br />
nilai
integer<br />
indeks (urutan anggota)<br />
nama larik<br />
Mengenal Turbo
Pascal—Awan Sundiawan 38<br />
Apabila ingin menampilkan data ke-3 dari
dari larik di atas maka dapat pergunakan<br />
pernyataan:<br />
writeln(x[3]);<br />
hasilya<br />
65<br />
Bila
nilai-nilai elemen larik dibatasi dengan nilai-nilai tertentu yang
tidak dapat<br />
ditulis dalam suatu range, tetapi dapat ditentukan secara
beurutan, maka dapat<br />
dipergunakan larik tipe skalar.<br />
Contoh<br />
Type<br />
Hari=(Minggu,
Senin, Selasa, Rabu, Kamis, Jumat, Sabtu);<br />
Var<br />
Jamkerja:array[1..25]
of hari;<br />
Dari deklarasi ini, larik Jamkerja mempunyai maksimum 25
elemen dan masingmasing<br />
nilai elemennya hanya dapat mempunyai nilai
sebanyak 7 macam nilai saja.<br />
9.3 Cara Membuat Matrik<br />
a. Membuat
satu buah matriks, elemenya berdasarkan nilai perulangan<br />
Tentukan
jumlah baris<br />
Tentukan jumlah kolom<br />
Buat pengulangan untuk
baris, dan pengulangan kolom.<br />
Contoh ke-1 listing program mambuat
matrik:<br />
Program Matrik1;<br />
Uses WinCrt;<br />
Var<br />
I,J :Integer;<br />
Begin<br />
ClrScr;<br />
{pengulangan
jumlah baris}<br />
FOR I:= 1 TO 5 DO<br />
BEGIN<br />
{pengulangan jumlah
kolom}<br />
FOR J:=1 TO 4 DO<br />
BEGIN<br />
{pencetakan matriks}<br />
WRITE(I:6,j:3);<br />
END;<br />
{ganti
baris pada matriks}<br />
WRITELN;<br />
END;<br />
END.<br />
Mengenal Turbo
Pascal—Awan Sundiawan 39<br />
Hasilnya<br />
1 1 1 2 1 3 1 4 1 5<br />
2 1 2 2 2
3 2 4 2 5<br />
3 1 3 2 3 3 3 4 3 5<br />
4 1 4 2 4 3 4 4 4 5<br />
5 1 5 2 5 3 5
4 5 5<br />
b. Membuat satu buah matrik, elemenya ditetapkan di awal.<br />
Tentukan jumlah baris<br />
Tentukan jumlah kolom<br />
Buat pengulangan
untuk baris, dan pengulangan kolom.<br />
Cetak matrik yang berindeks<br />
Contoh
ke-2 listing program mambuat matrik:<br />
c. Membuat satu buah elemenya
berdasarkan nilai perulangan<br />
Tentukan jumlah baris<br />
Tentukan
jumlah kolom<br />
Buat pengulangan untuk baris, dan pengulangan kolom.<br />
Contoh
ke-2 listing program mambuat matrik:<br />
PROGRAM M2;<br />
uses wincrt;<br />
CONST
matrik:array[1..3,1..3]of<br />
INTEGER=((1,2,3),(4,5,6),(7,8,9));<br />
VAR
b,k:integer;<br />
begin<br />
CLRSCR;<br />
FOR B:=1 TO 3 DO<br />
BEGIN<br />
FOR
K:=1 TO 3 DO<br />
BEGIN<br />
WRITE(MATRIK[B,K]:3);<br />
END;<br />
WRITELN;<br />
END;<br />
END.<br />
Hasilnya<br />
1
2 3<br />
4 5 6<br />
7 8 9<br />
Mengenal Turbo Pascal—Awan Sundiawan 40<br />
10.
Prosedur (Procedure)<br />
dan Fungsi (Fuction)<br />
Prosecure adalah suatu
program terpisah dalam blok sendiri yang berfungsi sebagai<br />
subprogram
(program bagian). Prosedur diawali dengan kata cadangan Procedure di<br />
dalam
bagian deklarasi prosedur. Prosedur dipanggil dan digunakan di dalam
blok<br />
program yang lainnya dengan menyebutkan judul prosedurnya.<br />
Prosedur
banyak digunakan pada program yang terstruktur, karena:<br />
1. Merupakan
penerapan konsep program modular, yaitu memecah-mecah<br />
program yang
rumit menjadi program-program bagian yang lebih sederhana<br />
dalam
bentuk prosedur-prosedur.<br />
2. Untuk hal-hal yang sering dilakukan
berulang-ulang, cukup diruliskan sekali<br />
saja dalam prosedur dan dapat
dipanggil atau dipergunakan sewaktu-waltu<br />
bila diperlukan.<br />
Contoh1
prosedur tanpa acuan<br />
Procedure Hitung;<br />
Var<br />
x,y:real;<br />
Begin<br />
Writeln(‘Nilai
x: ‘);<br />
Readln(x);<br />
Y:=x*x;<br />
Writeln(‘Nilai Y= ‘, y:6;2);<br />
End;<br />
Begin<br />
Hitung;<br />
End.<br />
Hasilnya<br />
Nilai
x: 4<br />
16<br />
Contoh2 prosedur secara acuan<br />
Procedure Hitung(var
a,b,c);<br />
Begin<br />
C:=a+b;<br />
Writeln(c);<br />
End;<br />
Var<br />
X,y,z:integer;<br />
Begin<br />
X:=2;Y;=3;<br />
Hitung(x,y,z);<br />
End.<br />
Hasilnya<br />
5<br />
Mengenal
Turbo Pascal—Awan Sundiawan 41<br />
Prosedur Memanggil Dirinya Sendiri
(Rekursi)<br />
Prosedur memanggil dirinya sendiri merupakan suatu prosedur
yang memanggil atau<br />
menggunakan prosedur itu juga. Proses dari suatu
program bagian yang memanggil<br />
dirinya sendiri dikenal dengan istilah
rekusi.<br />
Contoh<br />
Var<br />
I:integer;<br />
Procedure Cetak;<br />
Begin<br />
Writeln(‘Pascal’);<br />
I:=i+1;<br />
If
i<10 then cetak;<br />
End;<br />
Begin<br />
I:=1;<br />
Cetak;<br />
End.<br />
Bila
program dijalankan, maka prosedur cetak akan diproses sebanyak 9 kali,
yaitu<br />
dengan cara memanggil dirinya sendiri, hasilnya sebagai
berikut.<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Pascal<br />
Fungsi<br />
Fungsi
hampir sama dengan prosedur, hanya fungsi harus dideklarasikan dengan<br />
tipenya.
Tipe deklarasi ini menunjukkan tipe hasil dari fungsi. Tipe tersebut
ditulis<br />
pada akhir deklarasi fungsi yang didahului dengn titik koma,
sebagai berikut.<br />
Function namafungsi(daftar_parameter):type;<br />
Contoh<br />
Function
hitung(var nilai:integer):Integer;<br />
Function pangkat (x,y:real):real<br />
Mengenal
Turbo Pascal—Awan Sundiawan 42<br />
Soal Latihan Pemahaman Konsep #1<br />
SOAL-SOAL
DEKLARASI<br />
1. Manakah yang mendeklarasikan tipe enumerasi dengan
tepat?<br />
a. Type a=integer;<br />
b. Type a=1..300;<br />
c. Type a=(baik,
jelek, buruk);<br />
d. Type a=[baik, jelek, buruk];<br />
e. Type a=baik,
jelek, buruk;<br />
2. Tipe di bawah ini mana yang tidak dapat melakukan
operasi aritmatika?<br />
a. integer<br />
b. byte<br />
c. real<br />
d. boolean<br />
e.
word<br />
3. Deklarasi prosedur manakah yang dibenarkan?<br />
a. procedure
hapus;<br />
b. procedure hapus(s:string);<br />
c. procedure hapus(var
s:string);<br />
d. procedure hapus(s:string):boolean;<br />
e. procedure
hapus(var data);<br />
4. Deklarasi function manakah yang tidak diizinkan?<br />
a.
Function density(x:real):real;<br />
b. Function density(b:byte):byte;<br />
c.
Function density(var s:string):real;<br />
d. Function density(var
data):byte;<br />
e. Function density;<br />
5. Tipe variabel ekspresi manakah
yang tidak dapat ditampilkan dengan procedure<br />
Writeln?<br />
a. Type
T=Integer;<br />
b. Type T=String;<br />
c. Type C=Char;<br />
d. Type T=(Small,
Medium, Large)<br />
e. Semua valid<br />
6. Dengan deklarasi berikut:<br />
Type
warna=(merah,kuning,hijau,biru,hitam,putih,jingga);<br />
Var w:warna;<br />
Perintah
mana yang salah?<br />
a. If w in [warna] then writeln(‘ada’);<br />
b.
w:=merah;<br />
w:=w + kuning;<br />
c. w:=[merah];<br />
d. w:=hijau;<br />
dec(w);<br />
e.
w:=’Merah’;<br />
Mengenal Turbo Pascal—Awan Sundiawan 43<br />
7. Pada
deklarasi di atas, jika variabel W1 berisi [merah,kuning,hijau] dan
variabel W2<br />
berisi [merah,kuning,hitam] maka, jika diberikan statemen
W3:=W1+W2, W3 akan<br />
berisi:<br />
a. [merah,kuning,hijau,hitam]<br />
b.
[merah,kuning,hijau,merah,kuning,hitam]<br />
c. [hijau,hitam]<br />
d.
[merah,kuning,merah,kuning,hijau, hitam]<br />
e. [merah,kuning]<br />
8. Jika
diberikan statemen W3:=W1-W2, W3 akan berisi:<br />
a.
[merah,kuning,hijau,hitam]<br />
b. [merah,kuning,hijau,merah,kuning,hitam]<br />
c.
[hijau]<br />
d. [merah,kuning,merah,kuning,hijau, hitam]<br />
e.
[merah,kuning]<br />
9. Jika diberikan statemen W3:=W1*W2, W3 akan berisi:<br />
a.
[merah,kuning,hijau,hitam]<br />
b.
[merah,kuning,hijau,merah,kuning,hitam]<br />
c. [hijau,hitam]<br />
d.
[merah,kuning,merah,kuning,hijau, hitam]<br />
e. [merah,kuning]<br />
SOAL-SOAL
INPUT / OUTPUT<br />
10. Perhatikan potongan program berikut ini :<br />
Begin<br />
Writeln((10
shr 1) shl 2);<br />
end.<br />
Apa yang dihasilkan oleh program diatas...<br />
a.
18<br />
b. 19<br />
c. 20<br />
d. 21<br />
e. 22<br />
SOAL-SOAL STRUKTUR KONTROL<br />
11.
Bagaimana keluaran program di bawah ini?<br />
Var<br />
I:integer;<br />
Begin<br />
I:=2;<br />
Case
I of<br />
1,3,5,7,9:writeln(‘Ganjil’);<br />
2:writeln(‘Prima genap’);<br />
0..10:writeln(‘Normal’);<br />
else
writeln(‘Tidak normal’);<br />
end;<br />
end;<br />
Mengenal Turbo Pascal—Awan
Sundiawan 44<br />
a. Prima genap<br />
b. Normal<br />
c. Prima genap<br />
Normal<br />
d.
Normal<br />
Prima genap<br />
e. Prima genap<br />
Tidak normal<br />
Perhatikan
program di bawah ini:<br />
var I,j,k:integer;<br />
L:byte;<br />
begin<br />
i:=3;<br />
j:=4;<br />
k:=32;<br />
L:=0;<br />
{If
– 1 }<br />
if i + j and k =0 then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah);<br />
{If
– 2 }<br />
if (i = 2) and (j <> i) then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah);<br />
{If
– 3}<br />
if not L in [1..120] then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah’);<br />
end.<br />
Program
diatas berisi tiga perintah if then else yang saling tidak berkaitan,
masingmasing<br />
IF diberi nama IF – 1, IF – 2, IF – 3.<br />
12. Perintah
if manakah yang tidak dibenarkan:<br />
a. If - 1<br />
b. If - 2<br />
c. If - 3<br />
d.
If – 1 dan if - 2<br />
e. Tidak ada if yang salah<br />
13. Pada program di
atas, if mana yang menghasilan output “Betul”?<br />
a. If - 1<br />
b. If - 2<br />
c.
If - 3<br />
d. If – 1 dan if - 2<br />
e. Tidak ada if yang menghasilkan
“Betul”<br />
Mengenal Turbo Pascal—Awan Sundiawan 45<br />
SOAL-SOAL
PERULANGAN<br />
14. Perhatikan penggalan program berikuti ni :<br />
const<br />
Data:
array [1..3,1..3] of char=<br />
((‘1’,’1’,’2’),(‘2’,’2’,’4’),(‘4’,’4’,’8’));<br />
var
i, j : byte;<br />
begin<br />
for i:= 1 to 3 do<br />
begin<br />
for j:=3 downto 1
do<br />
write(Data[i,j]):<br />
writeln;<br />
end;<br />
end.<br />
Apa keluaran
program di atas ?<br />
a. 112<br />
224<br />
448<br />
b. ‘1’’1’’2’<br />
’2’’2’’4’<br />
’4’’4’’8’<br />
c.
211<br />
422<br />
844<br />
d. ‘2’’1’’1’<br />
’4’’2’’2’<br />
’8’’4’’4’<br />
e. 124<br />
124<br />
248<br />
15.
Perhatikan program dibawah ini :<br />
type data=set of char;<br />
var
setchar:data;<br />
s:string;<br />
i:integer;<br />
begin<br />
setchar:=[];<br />
readln(s);<br />
for
i:=1 to length(s) do<br />
begin<br />
if not(s[i] in setchar) then<br />
begin<br />
setchar:=setchar+[s[i]];<br />
write(s[i]);<br />
end;<br />
end;<br />
writeln;<br />
end.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 46<br />
Output dari program di atas jika
input 'To be or Not To be that is the question' adalah<br />
a. ‘To
berNthaisqun.'<br />
b. ‘To berNhaisqu`<br />
c. ‘to@bernhaisquN'<br />
d. ‘T N.'<br />
e.
‘OBERTHAISQUN’<br />
16. Gunakan program berikut untuk menjawab pertanyaan
:<br />
type data=set of byte;<br />
var setint:data;<br />
i:integer;<br />
begin<br />
setint:=[1];<br />
setint:=setint+[3];<br />
setint:=[5];<br />
for
i:=1 to 5 do<br />
begin<br />
if (i in setint) then continue else
setint:=[i];<br />
end;<br />
end.<br />
Output dari program di atas adalah:<br />
a.
[1,2,3,4,5]<br />
b. [1,3,5]<br />
c. [5]<br />
d. [1,3]<br />
e. []<br />
SOAL-SOAL
PROSEDUR DAN FUNGSI<br />
17. Perhatikan program berikut :<br />
var s:string;<br />
begin<br />
s:='TOKI
GO GET GOLD!';<br />
delete(s,1,length(s)-12);<br />
writeln(s);<br />
end.<br />
Apa
keluaran program di atas ?<br />
a. GO GET GOLD!<br />
b. GO GET GOLD!<br />
c.
GET GOLD!<br />
d. TOKI GO GET<br />
e. TOKI GO GE<br />
Mengenal Turbo
Pascal—Awan Sundiawan 47<br />
18. Perhatikan penggalan program berikut :<br />
var
i,k: integer;<br />
begin<br />
i:=5; k:=0;<br />
k:=trunc(sqrt(i))+1;<br />
writeln(k);<br />
end.<br />
Apa
keluaran program di atas?<br />
a. 3<br />
b. 2.24<br />
c. 2<br />
d. 0<br />
e.
program tidak dapat dijalankan<br />
19. Mengacu pada program berikut :<br />
var<br />
A,B:string;<br />
C:string[10];<br />
begin<br />
A:='TOKI
MEMANG';<br />
B:='HEBAT';<br />
C:=A+B;<br />
if (Pos(B)>0) then<br />
Begin<br />
Writeln('A');<br />
end
else<br />
Writeln('B');<br />
end.<br />
Apa yang terjadi jika program di atas
di jalankan...<br />
a. Huruf ‘A’ tercetak<br />
b. Huruf ‘B’ tercetak<br />
c.
Tidak dapat dipastikan<br />
d. Terjadi error<br />
e. Tidak bisa di compile<br />
20.
Perhatikan potongan program berikut :<br />
begin<br />
writeln(round(frac(3.7)));<br />
end.<br />
Apa
keluaran program di atas ?<br />
a. 0<br />
b. 1<br />
c. 2<br />
d. 3<br />
e. 4<br />
Mengenal
Turbo Pascal—Awan Sundiawan 48<br />
21. Diketahui deklarasi fungsi dan
variabel sebagai berikut:<br />
var St: String;<br />
procedure Sulap(var S:
String);<br />
begin<br />
if S = 'Kecil’ then S :=’kecil’ else<br />
if S =
‘Besar’ then S :=’BESAR’;<br />
end;<br />
Di antara potongan program berikut,
manakah yang salah?<br />
a. St := Chr(60);<br />
Sulap(St);<br />
b. St
:=’KECIL’;<br />
Sulap(St);<br />
c. St := Chr(45) + Chr(65);<br />
Sulap(St);<br />
d.
Sulap(‘Besar’);<br />
e. Semua ekspresi di atas benar<br />
SOAL-SOAL OPERASI
FILE<br />
22. Perintah mana yang tidak boleh digunakan untuk file bertipe
text?<br />
a. Assign<br />
b. Reset<br />
c. EOF<br />
d. FilePos<br />
e. Semua
boleh digunakan untuk Text<br />
Gunakan program berikut ini untuk menjawab
soal di bawah ini:<br />
program Uji;<br />
var T:Text;<br />
i,j,k:integer;<br />
begin<br />
Assign(T,
'INPUT.TXT’);<br />
Reset(T);<br />
Readln(T, i, j, k);<br />
Writeln(i,’ ’ j,’
’, k);<br />
Readln(T,i);<br />
Readln(T,j);<br />
Writeln(i,’ ’,j);<br />
Close(T);<br />
End.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 49<br />
23. Misalkan file INPUT.TXT berisi
baris-baris sebagai bcrikut:<br />
3 1 4 9<br />
5 2 6<br />
8 7<br />
0<br />
Bagaimanakah
output dari program tersebut?<br />
a. 3 1 4 9<br />
5 2 6<br />
8 7<br />
b. 3 1 4<br />
9
5<br />
c. 3 1 4<br />
5 2<br />
d. 3 1 4<br />
5 8<br />
e. Terjadi runtime error
karena isi file INPUT.TXT tidak sesuai untuk program ini.<br />
SOAL-SOAL
KASUS/MEMBACA PROGRAM<br />
Program berikut ini dipakai untuk menjawab dua
soal di bawah ini<br />
var Bil:Integer;<br />
procedure
Find(B:Integer;I:Integer);<br />
var J,R:Integer;<br />
begin<br />
R:=Round(sqrt(B));<br />
J:=2;<br />
while
(J<=R) and (B Mod J<>0) do<br />
inc(J);<br />
if J<=R then<br />
begin<br />
Write(J,'*');<br />
Find(B
div J, I+1);<br />
end<br />
else if I>0 then<br />
Writeln(B,'=',Bil)<br />
else<br />
Writeln('Bilangan
Prima!');<br />
end;<br />
begin<br />
Write('Masukkan bilangan : ');<br />
Readln(Bil);<br />
Find(Bil,0);<br />
end.<br />
24.
Bagaimana output program di atas bila inputnya 42?<br />
a. 7 * 3 * 2 = 42<br />
b.
Bilangan prima<br />
c. =42<br />
d. 2 * 3 * 7 = 47<br />
e. Salah semua<br />
Mengenal
Turbo Pascal—Awan Sundiawan 50<br />
25. Bagaimana output program di atas
bila, inputnya 23?<br />
a. = 23<br />
b. Bilangan pima<br />
c. 23 * 1 = 23<br />
d.
= 23 Bilangan prima!<br />
e. Salah semua<br />
Joni, petugas statistik yang
baru saja belajar Pascal. Mencoba membuat program<br />
perata-rata sebagai
berikut.<br />
var Amatan:array[5] of integer;<br />
Jumlah:Integer;<br />
RataRata:Integer;<br />
I:Integer;<br />
begin<br />
for
I:=1 to 5 do<br />
begin<br />
Write('Amatan ke-',I,' : ');<br />
Readln(Amatan[I]);<br />
end;<br />
Jumlah:=0;<br />
For
I:=1 to 5 do<br />
begin<br />
Jumlah:=Jumlah+Amatan[I];<br />
RataRata:=Jumlah/5;<br />
end;<br />
Writeln('Jumlah
= ',Jumlah);<br />
Writeln('Rata-rata = ',RataRata);<br />
Readln;<br />
end.<br />
Gunakan
program yang dibuat oleh Joni ini untuk menjawab soal-soal berikut.<br />
26.
Ketika si Joni mencoba menjalankan program tersebut, temyata, compiler<br />
menunjukkan
sebuah pesan kesalahan yang membuat: ia kebingungan. Tahukah<br />
Anda
kesalahan pertama yang dibuat Joni?<br />
a. Judul program (program
Statistik) terlalu panjang, maksimum 8 karakter<br />
(misalnya: program
Stat)<br />
b. Procedure Readln (pada baris terakhir program sebelum end.)
tidak boleh<br />
dipanggil tanpa parameter. Jadi seharusnya: Readln(I);<br />
c.
Statement for dengan variabel sama tidak boleh diulangi dua kali.
Seharusnya<br />
dideklarasikan variabel lain, misalnya var I: Integer
untuk for yang kedua<br />
d. Deklarasi array salah, semestinya: var
Amatan: array[ 1..5] of<br />
Integer;<br />
e. Nama variabel seperti RataRata
tidak valid, seharusnya Ratarata<br />
Mengenal Turbo Pascal—Awan
Sundiawan 51<br />
27. Setelah Anda memberi saran demikian, temyata Joni
masih belum bisa mengcompile<br />
programnya. Apa sebabnya?<br />
a. setiap
variabel harus dideklarasikan dengan keyword var sendiri-sendiri.<br />
Misalnya:<br />
var
Jumlah: Integer;<br />
var RataRata:Integer;<br />
Var I:Integer;<br />
b.
Variabel RataRata tidak harus bertipe Real<br />
c. Semua variabel, kecuali
I seharusnya adalah Real, tidak boleh Integer<br />
d. Pemisah antara
parameter dalam Write dan Writeln harus titik koma, bukan koma,<br />
Misalnya<br />
Writeln(‘Jumlah
= ‘;Jumlah);<br />
e. Semua alasan di atas salah<br />
28. Joni mengganti
operator “/” dengan "div" pada baris ke-15 program tersebut. Apa<br />
akibatnya?<br />
a.
program tidak mau di-compile karena. operator div tidak dapat digunakan
di situ<br />
b. nilai rata-ratanya menjadi 5<br />
c. nilai rata-ratanya
menjadi 6<br />
d. nilai rata-ratanya menjadi 0<br />
e. nitai rata-ratanya
menjadi 2<br />
Gunakan program berikut ini untuk menjawab beberapa soal
selanjutnya:<br />
uses wincrt;<br />
var j:array['A'..'Z'] of Byte;<br />
c:char;<br />
Kal:string;<br />
procedure
HH(S:String);<br />
var i:integer; {baris-6}<br />
m:char;<br />
begin<br />
for
i:= 1 to length(S) do<br />
begin<br />
m:=S[i]; {baris-11}<br />
if m in
['A'..'Z'] then {baris-12}<br />
inc(J[i]);<br />
end;<br />
end;<br />
begin<br />
for
c:='A' to 'Z' do J[c]:=0;<br />
Kal:='PASAR';<br />
HH(Kal);<br />
for c:='A' to
'Z' do<br />
if J[c]>0 then write(c,J[c],' ');<br />
writeln;<br />
Kal:='RAYA';<br />
HH(Kal);<br />
for
c:='Z' downto 'A' do<br />
if j[c]>0 then write(c,J[c],' ');<br />
writeln;<br />
end.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 52<br />
29. Bila terdapat kesalahan yang
menyebabkan program sama sekali tidak dapaf<br />
dijalankan sebutkan pada
baris berapa, dan bagaimana perbaikannya?<br />
a. Kesalahan semacam ini
tidak ada<br />
b. Baris 12, seharusnya ditulis<br />
If [m] in [‘A’..’Z’]
then<br />
c. Baris 6 seharusnya ditulis<br />
var i: Char;<br />
d. Baris 13,
seharusnya ditulis<br />
lnc(J[m]);<br />
e. Index array hanya boleh berupa
angka. Jadi deklarasi variabel seharusnya ditulis:<br />
const A = 1; Z =
26;<br />
var J: array[A..Z] of Byte;<br />
c: Byte;<br />
Kal: String;<br />
dan
semua konstanta karakter dalam perintah for harus diganti,<br />
misalnya:
for c:=A to Z do dan eterusnya<br />
30. Dengan perbaikan seperti nomor
sebelumnya (kalau ada), maka program bisa<br />
dijalankan. Apakah hasil
dari program tersebut?<br />
a. A2 PI RI SI<br />
A4 PI R2 Sl Yl<br />
b. A2 P1
RI SI<br />
YI RI A2<br />
c. A2 PI RI SI<br />
YI R2 A4<br />
d. PI A2 Sl RI<br />
YI
A4 R2<br />
e. A2 P1 RI SI<br />
Yl Sl R2 PI A4<br />
31. Tindakan apakah yang
dilakukan oleh subrutin HH ketika dipanggil oleh baris 19<br />
program di
atas, dengan string S berisi kata “PASAR"?<br />
a. Menghitung frekuensi
kemunculan huruf-huruf alfabet dan menyimpannya dalam<br />
array J<br />
b.
Mengumpulkan huruf-huruf alfabet yang muncul lebih dari satu kali ke
dalam<br />
array J<br />
c. Mencatat letak setiap huruf alfabet ke dalam
array J<br />
d. Menentukan huruf yang paling sering dan paling jarang
muncul dalam array J<br />
e. Mengurutkan huruf-huruf menurut urutan
alfabet dari yang terkecil sampai yang<br />
terbesar.<br />
Mengenal Turbo
Pascal—Awan Sundiawan 53<br />
Soal Latihan Pemahaman Konsep #2<br />
Soal 1.<br />
Deklarasi
konstanta manakah yang salah?<br />
a. const rata-rata=10;<br />
b. const
tinggibadan=150;<br />
c. const pi=22/4;<br />
d. const suhu=20000;<br />
e.
const duaxtiga=8;<br />
Soal 2.<br />
Manakah yang benar dari deklarasi di
bawah ini?<br />
a. Program abc;<br />
Var x,y:real;<br />
b. Program pqrstu2343;<br />
Var
x,y=real;<br />
c. Program 4343;<br />
Var x:=boolean;b:=integer;<br />
d.
Program ku;<br />
var z,y:char=’a’;<br />
e. Program gampang;<br />
Var a:byte,
c:real;<br />
Soal 3.<br />
Manakah yang mendeklarasikan tipe enumerasi dengan
tepat?<br />
a. Type a=integer;<br />
b. Type a=1..300;<br />
c. Type a=(baik,
jelek, buruk);<br />
d. Type a=[baik, jelek, buruk];<br />
e. Type a=baik,
jelek, buruk;<br />
Soal 4.<br />
Bagaimana mendeklaras ikan konstanta bertipe
array 3 x 3?<br />
a. Const a:array[3,3]=((1,2,3),(2,3,4),(3,4,5));<br />
b.
Const a[3,3]=(1,2,3, 2,3,4, 3,4,5);<br />
c. Const a:array[1..3,1..3] of
byte =((1,2,3),(2,3,4),(3,4,5));<br />
d. Const a:array[1..3,1..3] of
byte=(1,2,3,2,3,4,3,4,5);<br />
e. Const a:array[1..3] of array[1..3] of
byte =<br />
((1,2,3),(2,3,4),(3,4,5));<br />
Soal 5.<br />
Apakah output program
berikut ini?<br />
var U: Integer,<br />
begin<br />
U:=3;<br />
Writeln(‘Umur
saya', U:3,'tahun'),<br />
End.<br />
a. Umur saya 3 tahun<br />
b. Umur saya 1
tahun<br />
c. Umur saya 3 tahun<br />
d. Umur saya 003 tahun<br />
e. Umur saya
3.00 tahun<br />
Mengenal Turbo Pascal—Awan Sundiawan 54<br />
Soal 6.<br />
Bagaimana
cara anda mengetikkan input untuk program berikut ini?<br />
var Umur,
Tinggi, Berat: Real,<br />
begin<br />
Write(‘Masukkan umur, tinggi 'dan berat
badan Anda: ');<br />
Readln(Umur, Tinggi, Berat);<br />
end.<br />
a. 16,170,
61.5<br />
b. 16; 170; 61.5<br />
c. 16 170 61.5<br />
d. 16 170 61.5<br />
e.
16;170;161,5<br />
Soal 7.<br />
var r : real;<br />
begin<br />
r:=147.0;<br />
writein(r:0:5),<br />
end.<br />
Apa
tampilan program di atas ?<br />
a. 00147<br />
b. 147.0000<br />
c. 0147.0<br />
d.
147.00000<br />
e. 147.000<br />
Soal 8.<br />
var i, j:byte;<br />
begin<br />
i:=100;
j:=200;<br />
writel writeln(i*j)<br />
n(end.<br />
Apa tampilan program di
atas?<br />
a. 12<br />
b. 22<br />
c. 32<br />
d. 20000<br />
e. 400000<br />
Soal 9.<br />
Perhatikan
source code di bawah inii<br />
var<br />
Mail: word;<br />
begin<br />
Mail:=’TOKI’;<br />
writein
(‘TOKI’);<br />
writeln (Mail);<br />
end.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 55<br />
Output yang tercetak di layar setelah eksekusi adalah<br />
a.
TOKI<br />
b. TOKITOKI<br />
c. TOKITOKITOKI<br />
d. terjadi compiler error<br />
e.
tidak ada jawaban yang benar<br />
Soal 10.<br />
Bagaimana keluaran program
di bawah ini?<br />
Var<br />
I:integer;<br />
Begin<br />
I:=2;<br />
Case I of<br />
1,3,5,7,9:writeln(‘Ganjil’);<br />
2:writeln(‘Prima
genap’);<br />
0..10:writel writeln(‘Normal’);<br />
n(‘else writeln(‘Tidak
normal’);<br />
end;<br />
end;<br />
a. Prima genap<br />
b. Normal<br />
c. Prima
genap<br />
Normal<br />
d. Normal<br />
Prima genap<br />
e. Prima genap<br />
Tidak
normal<br />
Perhatikan program di bawah ini:<br />
var I,j,k:integer;<br />
L:byte;<br />
begin<br />
i:=3;<br />
j:=4;<br />
k:=32;<br />
L:=0;<br />
{I
If – 1 }<br />
if i + j and k =0 then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah);<br />
{If
– 2 }<br />
if (i = 2) and (j <> i) then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah);<br />
{If
– 3}<br />
if not L in [1..120] then<br />
writeln(‘Betul’)<br />
else<br />
writeln(‘Salah’);<br />
end.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 56<br />
Program ini berisi tiga perintah if
then else yang saling tidak berkaitan, masing-masing<br />
IF diberi nama<br />
IF
– 1, IF – 2, IF – 3.<br />
Soal 11.<br />
Perintah if manakah yang tidak
dibenarkan:<br />
a. If - 1<br />
b. If - 2<br />
c. If - 3<br />
d. If – 1 dan if -
2<br />
e. Tidak ada if yang salah<br />
Soal 12.<br />
Pada program di atas, if
mana yang menghasilan output “Betul”?<br />
a. If - 1<br />
b. If - 2<br />
c.
If - 3<br />
d. If – 1 dan if - 2<br />
e. Tidak ada if yang menghasilkan
“Betul”<br />
Soal 13.<br />
Pada program di atas, manakah pernyataan yang
benar?<br />
a. Ekspresi not L in [1..120] ekivalen dengan L in
[0,121..255]<br />
b. Ekspresi I + J and K = 0 dalam if – 1 ekivalen dengan
(I + J = 0 ) and (K = 0)<br />
c. Kondisi pada if – 1 akan bernilai lain
jika kondisi diubah menjadi (I + J) AND K = 0<br />
d. Kondisi pada if – 2
akan bernilai lain jika kondisi diubah menjadi ((I=2) and (J<1)) or<br />
(k>1)<br />
e.
Kondisi pada if – 3 akan bernilai lain jika kondisi diubah menjadi {NOT
L in [1..120])<br />
OR (L in [121,122])<br />
Soal 14.<br />
Berapa keluaran
program bila pemakai memberi nilai M=9?<br />
Var C, M, J:integer;<br />
Begin<br />
J:=1;<br />
write(‘M
= ‘) ‘); readln(M);<br />
; For c:=5 to M do<br />
J := j * (M M-4);<br />
Writeln(‘J
= ‘,J);<br />
nd.<br />
a. J = 120<br />
b. J = -120<br />
c. J = 1<br />
d. J = 24<br />
e.
Salah semua<br />
Soal 15.<br />
Var<br />
i,j: Shortint;<br />
Begin<br />
for i:=1
to 200 do<br />
Inc(j);<br />
end.<br />
Mengenal Turbo Pascal—Awan Sundiawan 57<br />
Program
diatas akan mengbasilkan:<br />
a. Nilai j = 200;<br />
b. Nilai j = 127;<br />
c.
Tidak dapal dipastikan<br />
d. Terjadi error (code 76).<br />
e. Program
tidak dapat berhenti<br />
Soal 16.<br />
var<br />
h,i,j:integer;<br />
begin<br />
h:=0;<br />
for
j:=1 to 10 do<br />
inc(h);i:=1;<br />
j:=0;<br />
repeat<br />
inc(i);<br />
inc(j);<br />
until
i=10;<br />
if h=j then writeln('GOLD')<br />
else writeln('SILVE SILVER');
R');<br />
end.<br />
Apa keluaran program di atas<br />
a. GOLD<br />
b. SILVER<br />
c.
GOLD<br />
SILVER<br />
d. SILVER<br />
GOLD<br />
e. tidak ada keluaran<br />
Soal
17.<br />
var i,j : integer;<br />
begin<br />
j := 1;<br />
for i := 1 to 5 do<br />
begin<br />
writeln(i,’
‘,j);<br />
j := i i-1;<br />
end;<br />
end.<br />
Output dari program di atas
adalah<br />
a. 1 1 b. 1 1 c. 1 0 d. 1 5 e. 1 1<br />
2 1 2 2 2 1 2 4 2 0<br />
1
3 3 3 3 2 3 3 3 1<br />
4 1 4 4 4 3 4 2 4 2<br />
1 5 5 5 5 4 5 1 5 3<br />
Mengenal
Turbo Pascal—Awan Sundiawan 58<br />
Program untuk 2 soal berikutnya<br />
1.
var s : string;<br />
2. i: integer;<br />
3. begin<br />
4. for i := 1 to
length(s) do<br />
5. begin<br />
6. s[i]:= s[length(s) s)-i+1];<br />
7. end;<br />
8.
end.<br />
Soal 18.<br />
Output dari program di atas jika s=’SC!P!O’ adalah<br />
a.
s=’SC!!CS’<br />
b. s=’SSSSSS’<br />
c. s=’O!PP!O’<br />
d. s=’CCCCCC’<br />
e.
s=’!O!O!O’<br />
Soal 19.<br />
Output dari program di atas jika s=’HaShMaT’
dan baris ke-4 diubah menjadi "for<br />
i:=length(s) downto 1" adalah<br />
a.
s=’TaMhMaT’<br />
b. s=’HaShSaH’<br />
c. s=’HHHHHHH’<br />
d. s=’aaaaaaa’<br />
e.
s=’aHaHaHa’<br />
Soal 21.<br />
Function Sum(const A,B:Integer): Integer;<br />
Begin<br />
Sum:=A+B;<br />
end;<br />
Begin<br />
Writeln(Sum(5,10));<br />
end.<br />
Apa
yang dihasilkan oleh program diatas.<br />
a. 5<br />
b. 10<br />
c. 15<br />
d. 20<br />
e.
Tidak bisa di compile.<br />
Soal 22.<br />
Begin<br />
Assign(Output,'ABC.TXT’);<br />
Rewrite(Outptut);<br />
Write(‘GO
GET GOLD’);<br />
Close(Output);<br />
end.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 59<br />
Program diatas akan menghasilkan:...<br />
a. File'ABC’
dengan isi 'GO GET GOD’<br />
b. Run-time error.<br />
c. Tidak dapat
dicompile karena variable 'Ouiput' tidak ada<br />
d. Tidak menghasilkan
apa-apa<br />
e. Tidak ada yang benar<br />
Soal 23.<br />
Perintah mana yang
tidak boleh digunakan untuk file bertipe text?<br />
a. Assign<br />
b. Reset<br />
c.
EOF<br />
d. FilePos<br />
e. Semua boleh digunakan untuk Text<br />
Gunakan
program berikut ini untuk menjawab dua soal di bawah ini:<br />
program
Uji;<br />
var T:Text;<br />
i,j,k:integer;<br />
begin<br />
Assign(T,
'INPUT.TXT’);<br />
Reset(T);<br />
Readln(T, i, j, k);<br />
Writeln(i,’ ’ j,’
’, k);<br />
Readln(T,i);<br />
Readln(T,j);<br />
Writeln(i,’ ’,j);<br />
Close(T);<br />
End.<br />
Soal
24.<br />
Misalkan file INPUT.TXT berisi baris-baris sebagai berikut:<br />
3
1 4 9<br />
5 2 6<br />
8 7<br />
0<br />
Bagaimanakah output dari program
tersebut?<br />
a. 3 1 4 9<br />
5 2 6<br />
8 7<br />
b. 3 1 4<br />
9 5<br />
c. 3 1 4<br />
5
2<br />
d. 3 1 4<br />
5 8<br />
e. Terjadi runtime error karena isi file
INPUT.TXT tidak sesuai untuk program ini.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 60<br />
Soal 25.<br />
Bila isi file INPUT.TXT adalah sebagai
befikut:<br />
1<br />
3<br />
2<br />
4<br />
5<br />
6<br />
bagaimana output program ini?<br />
a.
2 3 1<br />
4 5<br />
b. 1 0 0<br />
3 2<br />
c. 1 3 2<br />
4 5<br />
d. 1 3 2<br />
5 6<br />
e.
Terjadi runtime error karena isi file INPUT.TXT tidak sesuai untuk
program ini.<br />
Mengenal Turbo Pascal—Awan Sundiawan 61<br />
Soal Latihan
Membuat Program #1<br />
TIPE DATA SEDERHANA<br />
A. Tujuan<br />
Siswa dapat
mengenal dan menggunakan tipe data sederhana dengan benar.<br />
B. Dasar
Teori<br />
Suatu variabel dapat digunakan hanya dapat menyimpan sebuah
nilai dari sebuah tipe data<br />
sederhana. Untuk memanipulasi kelompok
tipe data sebuah nilai pada suatu variabel maka harus<br />
menentukan tipe
data yang tepat untuk sebuah variabel tersebut.<br />
Berikut contoh
program penggunaan tipe data sederhana:<br />
Program Luas;<br />
Uses WinCrt;<br />
Var<br />
Lebar,
panjang : byte;<br />
Luas : integer;<br />
Begin<br />
CLRSCR;<br />
{input data}<br />
WRITE(‘MASUKAN
NILAI PANJANG : ’);READLN(PANJANG);<br />
WRITE(‘MASUKAN NILAI LEBAR :
’);READLN(LEBAR);<br />
{prpses data}<br />
LUAS:=PANJANG*LEBAR;<br />
{output}<br />
WRITELN(‘LUAS
PERSEGI PANJANG : ‘,LUAS);<br />
READLN;<br />
END.<br />
C. Praktik<br />
1.
Tulislah program di atas, jalankan program tersebut. Kemudian
perhatikan, isilah nilai<br />
panjang dengan nilai 5 dan lebar 4, dan
catat hasilnya.<br />
2. Jalankan lagi program di atas, kemudian isi nilai
panjang dengan 700 dan lebar dengan<br />
500, bagaimanakah hasilnya,
mengapa terjadi kesalahan? Cobalah ganti tipe datanya.<br />
Jalankan
kembali program tadi dan isilah panjang dengan 700 dan lebar dengan 500.<br />
Bagaimana
hasilnya sekarang? Jika masih salah cobalah perbaiki sampai benar!<br />
3.
Jika sudah benar rekam dengan nama file MODUL1A.<br />
4. a. Buatlah
program untuk mencari luas segitiga! Rekam dengan nama file MODUL1B<br />
b.
Buatlah listing program untuk masalah berikut ini:<br />
Input : nama,
nama barang, jumlah barang, harga<br />
Proses : jumlah harga:=jumlah
barang*harga<br />
potongan:=10/100*jumlah harga;<br />
jumlah bayar:=jumlah
harga-potongan;<br />
Output : jumlah harga, potongan dan jumlah bayar<br />
Rekam
dengan nama file MODUL1C<br />
D. Pertanyaan<br />
Semua pertanyaan berikut
harus dijawab dalam laporan resmi!<br />
1. Tulislah perbedaan antara tipe
data byte, word, integer, longint, real, char, string.<br />
2. Kapankah
digunakan tipe data real?<br />
3. Mengapa soal praktik ke-2 mengalami
kesalahan? Jelaskan!<br />
Mengenal Turbo Pascal—Awan Sundiawan 62<br />
Soal
Latihan Membuat Program #2<br />
PERULANGAN FOR TO DO<br />
A. Tujuan<br />
Siswa
dapat membuat program untuk mengulangan sebuah statemen berulangkali
dengan benar.<br />
B. Dasar Teori<br />
Perulangan (loop) merupakan bentuk
yang sering ditemui di dalam suatu program aplikasi. Di dalam<br />
bahasa
Pascal, dikenal tiga macam perulangan, salah satunya statemen FOR.<br />
1.
Struktur Perulangan For<br />
Perulangan dengan statemen For digunakan
untuk mengulang statemen atau satu blok statemen<br />
berulang kali
sejumlah yang ditentukan. Perulangan dengan statemen For dapat berbentuk
perulangan<br />
positip, perulangan negatip, dan perulangan tersarang.
Sintak dari statemen For dalam bentuk diagram<br />
adalah sebagai
berikuit:<br />
For variabel kontrol:= nilai awal to nilai akhir<br />
Statemen
yang diulang<br />
2. Perulangan Positip<br />
Perulangan positip adalah
perulangan dengan penghitung (counterI) dari kecil ke besar atau<br />
dengan
kata lain pertambahannya positip. Perulangan positip dapat dibentuk
dengan menggunakan<br />
statemen For To Do, dengan bentuk umum:<br />
For
variabel kontrol:=nilai awal To nilai akhir Do statemen<br />
Variabel
kontrol, nilai awal, nilai akhir harus mempunyai tipe yang sama, yaitu
bertipe integer.<br />
Contoh ke-1:<br />
Program pengulangan_positip;<br />
Uses
Wincrt;<br />
Var<br />
I:Real;<br />
Begin<br />
Clrscr;<br />
For I:=1 to 5 Do<br />
Begin<br />
Write(I);<br />
Writeln(‘
Pascal’);<br />
End;<br />
End.<br />
3. Perulangan Negatip<br />
Perulangan
negatip adalah perulangan dengan penghitung (counter) dari besar ke
kecil atau<br />
dengan kata lain pertambahannya negatip. Perulangan
negatip dapat dibentuk dengan menggunakan<br />
statemen For DownTo Do.<br />
Mengenal
Turbo Pascal—Awan Sundiawan 63<br />
For variabel kontrol:=nilai awal
DownTo nilai akhir Do statemen<br />
Variabel kontrol, nilai awal, nilai
akhir harus mempunyai tipe yang sama, yaitu bertipe integer.<br />
Contoh
ke-2:<br />
Program pengulangan_negatip;<br />
Var<br />
I, X2:Real;<br />
Begin<br />
Clrscr;<br />
For
I:=15 DownTo 1 Do<br />
Begin<br />
X2:=I*I;<br />
Write(I:5); Write(X2:5);<br />
End;<br />
End.<br />
4.
Perulangan Tersarang<br />
Perulangan tersarang (nested loop) adalah yang
berada di dalam perulangan yang lainnya.<br />
Perulangan yang lebih dalam
akan diproses terlebih dahulu sampai habis, kemudian perulangan yang<br />
lebih
luar baru akan bertambah.<br />
Contoh ke-3:<br />
Program
pengulangan_tersarang;<br />
Uses Wincrt;<br />
Var<br />
I, J:Integer;<br />
Begin<br />
Clrscr;<br />
For
I:=1 To 10 Do<br />
Begin<br />
For J:=1 To 5 Do<br />
Begin<br />
Write(I:3);<br />
Write(J:8);<br />
End;<br />
Writeln;<br />
End;<br />
End.<br />
C.
Praktik<br />
1. Tulislah program contoh ke-1, jalankan program tersebut.
Kemudian perhatikan, dan catat<br />
hasilnya. Mengapa terjadi kesalahan?
Cobalah perbaiki sampai benar. Bagaimana hasilnya<br />
sekarang? Jika
masih salah cobalah perbaiki sampai benar! Jika sudah benar rekam<br />
dengan
nama file MODUL2A.<br />
2. Tulislah program contoh ke-2, jalankan program
tersebut. Kemudian perhatikan, dan catat<br />
hasilnya. Mengapa terjadi
kesalahan? Cobalah perbaiki sampai benar. Bagaimana hasilnya<br />
sekarang?
Jika masih salah cobalah perbaiki sampai benar! Jika sudah benar rekam<br />
dengan
nama file MODUL2B.<br />
3. Tulislah program contoh ke-3, jalankan program
tersebut. Kemudian perhatikan, dan catat<br />
hasilnya. Jika masih salah
cobalah perbaiki sampai benar! Jika sudah benar rekam dengan<br />
nama
file MODUL2C.<br />
D. Pertanyaan<br />
1. Tulislah hasil praktikum contoh
ke-1, contoh ke-2, dan ke-3.<br />
2. Tipe apakah yang disarankan untuk
variabel dalam statemen For?<br />
3. Mengapa soal praktik ke-1 dan ke-2
mengalami kesalahan? Jelaskan!<br />
Mengenal Turbo Pascal—Awan Sundiawan
64<br />
Soal Latihan Membuat Program #3<br />
PENYELEKSIAN KONDISI<br />
A.
Tujuan<br />
Siswa dapat menggunakan bentuk pemilihan kondisi dengan benar.<br />
B.
Dasar Teori<br />
Suatu keadaan kadang-kadang harus diputuskan oleh suatu
pemilihan kondisi yang benar. Untuk<br />
memilih suatu perintah pemilihan
kondisi tersebut harus cermat karena berkaitan dengan tipe data<br />
variabel
yang digunakan. IF THEN ELSE berlaku untuk semua tipe data sedangkan
CASE OF hanya<br />
untuk tipe data integer atau character.<br />
Berikut
contoh program penggunaan pemilihan kondisi:<br />
Contoh ke-1:<br />
Program
Pilihan1;<br />
Uses WinCrt;<br />
Var<br />
pilih : string;<br />
ket : string;<br />
Begin<br />
CLRSCR;<br />
{tampilan}<br />
WRITELN(‘PILIHLAH
SALAH SATU PILIHAN YANG DI SUKAI’);<br />
WRITELN(‘A. WARNA PUTIH’);<br />
WRITELN(‘B.
WARNA HIJAU’);<br />
WRITELN(‘C. WARNA KUNING’);<br />
WRITELN(‘D. WARNA
MERAH’);<br />
{input data}<br />
WRITELN(‘PILIHAN ANDA [A-D] ‘);
READLN(PILIH);<br />
{proses data}<br />
CASE PILIH OF<br />
‘A’,’a’:ket:=’bersih,
suci’;<br />
‘B’,’b’:ket:=’teduh, damai’;<br />
‘C’,’c’:ket:=’jaya, optimis’;<br />
‘D’,’d’:ket:=’berani,
gagah’;<br />
END;<br />
{output}<br />
WRITELN;<br />
WRITELN(‘TERNYATA ANDA
MEMILIKI SIFAT : ‘,KET);<br />
READLN;<br />
END.<br />
Mengenal Turbo
Pascal—Awan Sundiawan 65<br />
Contoh ke-2:<br />
Program Pilihan2;<br />
Uses
WinCrt;<br />
Var<br />
pilih : string;<br />
ket : string;<br />
Begin<br />
CLRSCR;<br />
{tampilan}<br />
WRITELN(‘PILIHLAH
SALAH SATU PILIHAN YANG DI SUKAI’);<br />
WRITELN(‘A. HARI SENIN’);<br />
WRITELN(‘B.
HARI JUMAT’);<br />
WRITELN(‘C. HARI MINGGU’);<br />
WRITELN(‘D. HARI RABU’);<br />
{input
data}<br />
WRITELN(‘PILIHAN ANDA [A-D] ‘); READLN(PILIH);<br />
{proses
data}<br />
IF PILIH=’A’ THEN ket:=’pendiam, pemberani’;<br />
IF PILIH=’B’
THEN ket:=’lembut hatinya’;<br />
IF PILIH=’C’ THEN ket:=’suka panas hati’;<br />
IF
PILIH=’D’ THEN ket:=’pendiam, ulet’;<br />
{output}<br />
WRITELN;<br />
WRITELN(‘TERNYATA
ANDA MEMILIKI SIFAT : ‘,KET);<br />
READLN;<br />
END.<br />
C. Praktik<br />
1.
Tulislah program contoh ke-1, jalankan program tersebut. Kemudian
perhatikan, dan catat<br />
hasilnya. Mengapa terjadi kesalahan? Cobalah
perbaiki sampai benar. Bagaimana hasilnya<br />
sekarang? Jika masih salah
cobalah perbaiki sampai benar! Jika sudah benar rekam dengan<br />
nama
file MODUL2A.<br />
2. Tulislah program contoh ke-2, jalankan program
tersebut. Kemudian perhatikan, dan catat<br />
hasilnya. Mengapa terjadi
kesalahan? Cobalah perbaiki sampai benar. Bagaimana hasilnya<br />
sekarang?
Jika masih salah cobalah perbaiki sampai benar! Jika sudah benar rekam
dengan<br />
nama file MODUL2B.<br />
a. Buatlah listing program untuk masalah
berikut ini:<br />
Input : nama, kode barang, jumlah barang<br />
Proses :
Jika kode barang=’m’, nama barang:=’sabun mandi’; harga:=950<br />
Jika
kode barang=’c, nama barang:=’sabun cuci’, harga:=2500;<br />
Jika kode
barang=’p, nama barang:=’pasta gigi’,harga 2730;<br />
jumlah harga:=jumlah
barang*harga<br />
Jika jumlah harga>10000 maka potongan:=10/100*jumlah
harga;<br />
Jika jumlah harga>5000 maka potongan:=5/100*jumlah harga;<br />
Jika
jumlah harga<=5000 maka potongan:=0;<br />
jumlah bayar:=jumlah
harga-potongan;<br />
Output : jumlah harga, potongan dan jumlah bayar<br />
Rekam
dengan nama file MODUL2C<br />
D. Pertanyaan<br />
Semua pertanyaan berikut
harus dijawab dalam laporan resmi!<br />
1. Mengapa soal praktik ke-1
mengalami kesalahan? Jelaskan!<br />
Mengenal Turbo Pascal—Awan Sundiawan
66<br />
Soal Latihan Membuat Program #4<br />
MATRIK<br />
A. Tujuan<br />
Siswa
dapat membuat matrik dengan berbagai variasi indeks dengan benar.<br />
B.
Dasar Teori<br />
2. Definisi Matrik<br />
Matrik adalah sekumpulan informasi
yang setiap datanya mengacu pada duah buah indeks. Matrik<br />
disebut
juga tabel lajur yang memiliki indeks baris dan indeks kolom. Karena
adanya dua buah<br />
indeks tersebut, matrik juga disebut larik dua
dimensi. Istilah dua dimensi karena data tersebut ada<br />
pada pertemuan
baris dan kolom.<br />
Contoh:<br />
Tabel di samping disebut matrik 4x4,
karena<br />
memiliki 4 baris dan memiliki 4 kolom atau larik<br />
4x4.<br />
Cara
menentukan nilai elemen data tabel dengan matrik sebagai berikut:<br />
Nilai Fisika punya Ahmad ada pada baris 1 kolom 1, maka matriksnya [1,1]<br />
Nilai Biologi punya Joni ada pada baris 2 kolom 3, maka matriksnya
[2,3]<br />
Nilai Kimia punya Dede ada pada baris 4 kolom 2, maka
matriksnya [4,2]<br />
dst.<br />
3. Definsi Larik<br />
Suatu larik (array)
adalah tipe terstruktur yang terdiri dari sejumlah komponen-komponen
yang<br />
mempunyai tipe sama. Suatu larik mempunyai jumlah komponen yang
banyaknya tetap.<br />
Banyaknya komponen dalam suatu larik ditunjukkan
oleh suatu indkes yang disebut tipe<br />
indeks. Tipe indeks ini berbentuk
ungkapan tipe ordinal (tipe data yang berurutan). Tiap-iap<br />
komponen
pada larik dapat diakses dengan menunjukkan nilai indeksnya.<br />
4.
Dimensi Larik<br />
a. Larik dimensi satu<br />
Larik ini memiliki data yang
berurutan dengan satu jenis yang sama dan tidak<br />
berbentuk tabel.<br />
Contoh:
larik bungadatanya mawar, melati, angrek<br />
larik nama hari datanya
Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu<br />
Deklarasi larik satu
dimensi<br />
bunga : array[1..3] of string=(‘mawar,melati,angrek’)<br />
nama
larik kata cadangan untuk larik jumlah elemen data tipe data larik data
larik<br />
elemen-elemen data larik bunga adalah:<br />
bunga[1]: ’mawar’<br />
bunga[2]:
‘melati’ nilai data larik<br />
bunga[3]: ‘angrek’<br />
nama larik
indeks/urutan dalam larik<br />
Fisika Kimia Biologi Matematika<br />
Ahmad 6 7
7 8<br />
Joni 7 6 6 5<br />
Toni 8 4 5 6<br />
Dede 6 7 8 6<br />
Mengenal Turbo
Pascal—Awan Sundiawan 67<br />
b. Larik dua dimensi<br />
Larik dua dimensi
disebut juga matriks. Larik dua dimensi memiliki data yang tersusun<br />
berdasarkan
urutan baris dan kolom pada tabel.<br />
Contoh:<br />
Larik nilai memiliki
data urutan baris yaitu: Ahmad, Joni, Toni, Dede dan data urutan<br />
kolom
yaitu fisika, kimia, biologi, matematika. Data di atas dapat
digambarkan sebagai<br />
berikut:<br />
Fisika Kimia Biologi Matematika<br />
1 2
3 4<br />
Aahmad 1 6 7 7 8<br />
Joni 2 7 6 6 5<br />
Toni 3 8 4 5 6<br />
Dede 4 6
7 8 6<br />
Dari data tabel di atas dapat dibuat indeksnya yaitu:<br />
Nilai[Ahmad,Fisika] atau Nilai[1,1] = 6<br />
Nilai[Ahmad,Kimia] atau
Nilai[1,2] = 7<br />
Nilai[Ahmad,Biologi] atau Nilai[1,3] = 7<br />
Nilai[Ahmad,Matematika] atau Nilai[1,4]=8<br />
Nilai[Joni,Fisika]
atauNilai[2,1] = 7<br />
Nilai[Joni,Kimia] atau Nilai[2,2] = 6<br />
dst.<br />
C.
Deklarasi Larik dua dimensi<br />
nama
larik:array[minbaris..maxbaris,minkolom..maxkolom] of tipe larik<br />
Contoh:<br />
Nilai:array[1..4,1..4]
of integer;<br />
Cara Membuat Matrik<br />
[] Membuat satu buah matrik<br />
Tentukan jumlah baris<br />
Tentukan jumlah kolom<br />
Isi data mulai
dari baris pertama kolom pertama s.d. baris pertama kolom terakhir dan<br />
sampai
dengan baris terakhir kolom pertama s.d. baris terakhir kolom terakhir.<br />
Jika pengisian sudah selesai tampilkan matriks yang sudah diisi.<br />
Start<br />
Baris:5
I:= 1 to baris<br />
Kolom:4<br />
J:= 1 to kolom<br />
I:=1 to baris<br />
write<br />
J:=1
to kolom M[I,J]<br />
M[I,J] End<br />
Mengenal Turbo Pascal—Awan Sundiawan
68<br />
Contoh ke-1 listing program mambuat matrik:<br />
Program Matrik1;<br />
Uses
WinCrt;<br />
Var<br />
I,J :Integer;<br />
Matrik :array[1..5,1..4] of integer;<br />
Begin<br />
ClrScr;<br />
{Bagian
pemasukan data matriks}<br />
{pengulangan jumlah baris}<br />
FOR I:= 1 TO 5
DO<br />
BEGIN<br />
{pengulangan jumlah kolom}<br />
FOR J:=1 TO 4 DO<br />
BEGIN<br />
{pemasukan
data matriks}<br />
WRITE(‘Data matriks ’,I,j,’: ‘,);<br />
Readln(Matrik[I,j]);<br />
END;<br />
END;<br />
{Bagian
pencetakan matriks<br />
{pengulangan jumlah baris}<br />
FOR I:= 1 TO 5 DO<br />
BEGIN<br />
{pengulangan
jumlah kolom}<br />
FOR J:=1 TO 4 DO<br />
BEGIN<br />
{pencetakan matriks}<br />
WRITE(Matrik[I,j]:3);<br />
END;<br />
{ganti
baris pada matriks}<br />
WRITELN;<br />
END;<br />
END.<br />
[] Membuat matriks
dengan jumlah baris dan jumlah kolom ditentukan ketika program
dijalankan<br />
(menunggu pemasukan jumlah baris dan jumlah kolom dari
operator komputer)<br />
Tanyakan jumlah baris dan jumlah kolom.<br />
Siapkan pengulangan sesuai jumlah baris dan jumlah kolom<br />
Isi data
sesuai matriks yang dibuat<br />
Tampilkan elemen data matriks sesuai
matriks yang dibuat.<br />
Mengenal Turbo Pascal—Awan Sundiawan 69<br />
Flowchrat
membuat matriks<br />
Start<br />
Input<br />
Jmlbaris,<br />
Jmlkolom<br />
I:=1 to
Jmlbaris<br />
J:=1 to Jmlkolom<br />
Input<br />
M[I,j]<br />
I:=1 to Jmlbaris<br />
J:=1
to Jmlkolom<br />
Write<br />
M[I,j]<br />
End<br />
Contoh program ke-2:<br />
Program
Matrik2;<br />
Uses WinCrt;<br />
Var<br />
Jmlbar,Jmlkol,<br />
I,J :Integer;<br />
Matriks
:array[1..10,1..10]of integer<br />
Begin<br />
ClrScr;<br />
{BAGIAN PEMASUKAN
DATA MATRIKS}<br />
{Menentukan jumlah baris}<br />
Write(‘Jumlah Baris:
’};Readln(jmlbar);<br />
{Menentukan jumlah kolom}<br />
Write(‘Jumlah Kolom:
‘);Readln(jmlkol);<br />
{Pengulangan baris}<br />
For I:=1 to Jmlbar do<br />
Begin<br />
{Pengulangan
kolom}<br />
For J:=1 to Jmlkol do<br />
Begin<br />
{Pemasukan data matriks}<br />
Write(‘Data
ke-‘,I,’,’,J,’: ‘);<br />
Readln(Matriks[I,j]);<br />
End;<br />
End;<br />
{BAGIAN
PENCETAKAN DATA MATRIKS}<br />
{Pengulangan baris}<br />
For I:=1 to Jmlbar
do<br />
Begin<br />
{Pengulangan kolom}<br />
For J:=1 to Jmlkol do<br />
Begin<br />
{Pencetakan
data matriks}<br />
Write(Matriks[I,j]);<br />
End;<br />
{ganti baris pada
matriks}<br />
Writeln;<br />
End;<br />
End.<br />
Mengenal Turbo Pascal—Awan
Sundiawan 70<br />
E. Praktik<br />
1. Salinlah contoh program ke-1 dan ke-2
ke dalam bahasa pemograman Turbo Pascal, amati<br />
hasilnya, jika
terdapat kesalahan betulkan kesalahan tersebut. Jika sudah betul cetak
hasilnya ke<br />
kertas!<br />
2. Butlah flowchart dan listing program untuk
membuat matriks berikut ini:<br />
a. 1 2 3<br />
4 5 6<br />
7 8 9<br />
Rekam
dengan nama file MATRIKS3.PAS<br />
b. Dua buah matriks sekaligus yang
tersusun ke bawah hasilnya sebagai berikut:<br />
matriks pertama<br />
3 2 1 5<br />
6
5 4 6<br />
7 8 9 7<br />
matriks kedua<br />
5 4 9<br />
3 6 7<br />
8 2 3<br />
Rekam
dengan nama file MATRIKS4.PAS<br />
c. Dua buah matriks sekaligus yang
tersusun ke kenan, hasilnya sebagai berukut:<br />
matriks pertama matriks
kedua<br />
1 9 3 4 5 7<br />
4 6 8 9 1 6<br />
5 7 2 2 3 8<br />
2 3 4 7 4 5<br />
Rekam
dengan nama file MATRIKS5.PAS<br />
Catatan:<br />
Untuk membuat dua buah
matriks sekaligus dengan cara: masukan data matriks<br />
pertama sampai
selesai, masukan data matriks kedua sampai selesai, cetak data matriks<br />
pertama
kemudian cetak data matriks kedua (untuk dua matriks yang tersusun ke<br />
bawah),
cetak matriks pertama dan matriks kedua secara bersamaan (untuk dua
matriks<br />
yang terususun ke kanan).<br />
F. Pertanyaan dan Tugas<br />
1.
Dapatkah elemen data matriks bernilai negatif? Jelaskan!<br />
2. Apakah
perbedaan lariks berdimensi satu dengan berdimensi 2?<br />
3. Buatlah 3
contoh matriks lengkap dengan elemen datanya yang Anda ketahui dalam
kehidupan<br />
sehari-hari!alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0tag:blogger.com,1999:blog-8451214738611334041.post-29537054357592297622012-01-27T00:20:00.000-08:002012-05-08T02:23:02.173-07:00kalakulator<script type="text/javascript">
<!--
google_ad_client = "ca-pub-5810382057400746";
/* Gamer */
google_ad_slot = "1005601972";
google_ad_width = 250;
google_ad_height = 100;
//-->
</script>
<script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript">
</script><ins style="border: medium none; display: inline-table; height: 250px; margin: 0pt; padding: 0pt; position: relative; visibility: visible; width: 250px;"><ins id="aswift_0_anchor" style="border: medium none; display: block; height: 250px; margin: 0pt; padding: 0pt; position: relative; visibility: visible; width: 250px;"><iframe allowtransparency="true" frameborder="0" height="250" hspace="0" id="aswift_0" marginheight="0" marginwidth="0" name="aswift_0" onload="var i=this.id,s=window.google_iframe_oncopy,H=s&&s.handlers,h=H&&H[i],w=this.contentWindow,d;try{d=w.document}catch(e){}if(h&&d&&(!d.body||!d.body.firstChild)){if(h.call){i+='.call';setTimeout(h,0)}else if(h.match){i+='.nav';w.location.replace(h)}s.log&&s.log.push(i)}" scrolling="no" style="left: 0pt; position: absolute; top: 0pt;" vspace="0" width="250"></iframe></ins></ins>
<script type="text/javascript">
<!--
google_ad_client = "ca-pub-5810382057400746";
/* News */
google_ad_slot = "3148111660";
google_ad_width = 300;
google_ad_height = 250;
//-->
</script>
<script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript">
</script><ins style="border: medium none; display: inline-table; height: 250px; margin: 0pt; padding: 0pt; position: relative; visibility: visible; width: 300px;"><ins id="aswift_1_anchor" style="border: medium none; display: block; height: 250px; margin: 0pt; padding: 0pt; position: relative; visibility: visible; width: 300px;"><iframe allowtransparency="true" frameborder="0" height="250" hspace="0" id="aswift_1" marginheight="0" marginwidth="0" name="aswift_1" onload="var i=this.id,s=window.google_iframe_oncopy,H=s&&s.handlers,h=H&&H[i],w=this.contentWindow,d;try{d=w.document}catch(e){}if(h&&d&&(!d.body||!d.body.firstChild)){if(h.call){i+='.call';setTimeout(h,0)}else if(h.match){i+='.nav';w.location.replace(h)}s.log&&s.log.push(i)}" scrolling="no" style="left: 0pt; position: absolute; top: 0pt;" vspace="0" width="300"></iframe></ins></ins>
<br />
<h2 class="topTitle">
<a href="http://zanuar.com/2011/10/tutorial-pascal-membuat-kalkulator-sederhana/">Tutorial Pascal Membuat Kalkulator Sederhana</a></h2>
<div class="topMeta">
by <a href="http://zanuar.com/author/admin/" title="Posts by admin">admin</a> on Oct.14, 2011, under <a href="http://zanuar.com/category/pascal/" rel="category tag" title="View all posts in Pascal">Pascal</a></div>
<div class="wp-caption alignleft" style="width: 327px;">
<a href="http://zanuar.com/"><img alt="Pascal Calculator" height="187" src="http://zanuar.freevar.com/images/Pascal%20Calculator.jpg" title="Pascal Calculator" width="317" /></a><br />
<div class="wp-caption-text">
Pascal Calculator</div>
</div>
Tutorial Pascal untuk membuat kalkulator sederhana berguna untuk
anda yang sedang mendapatkan tugas dari sekolah. Berikut adalah source
code nya ..<span id="more-517"></span><br />
[sourcecode language="pascal"]<br />
program kalkulator;<br />
uses crt;<br />
var nil1,nil2,hasil : real;<br />
a : char;<br />
begin<br />
clrscr;<br />
write(‘angka pertama = ‘);<br />
readln(nil1);<br />
write(‘parameter + – * / = ‘);<br />
readln(a);<br />
write(‘angka kedua = ‘);<br />
readln(nil2);<br />
case a of<br />
‘+’: hasil := nil1+nil2;<br />
‘-’: hasil := nil1-nil2;<br />
‘*’: hasil := nil1*nil2;<br />
‘/’: hasil := nil1/nil2;<br />
end;<br />
write(‘hasil = ‘,hasil :12:2);<br />
readkey;<br />
end.<br />
[/sourcecode]alpi sahrinhttp://www.blogger.com/profile/06303357675458668198noreply@blogger.com0