TORAJAIT.Com

Free Download Windows Movie Maker terbaru 2015 untuk windows 7 dan windows 8 full version By So' Alen

Free Download Windows Movie Maker terbaru 2015 untuk windows 7 dan windows 8 full version 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEmsssqbn0O5iCHw4_ZLSJ7p0EsiQk7ljNRO6a1wzPKrDNeJhnFFVKLLuyROBm_pzRz8ex7HyMygZEL97S1yD3rITxupSD925eOTltzW8mAJq9UgscR_g60acF155DTkPtK2INpxiBQSNx/s1600/www.torajait.com3.jpg" imageanchor="1" style="clear: left; display: inline !important; float: left; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEmsssqbn0O5iCHw4_ZLSJ7p0EsiQk7ljNRO6a1wzPKrDNeJhnFFVKLLuyROBm_pzRz8ex7HyMygZEL97S1yD3rITxupSD925eOTltzW8mAJq9UgscR_g60acF155DTkPtK2INpxiBQSNx/s1600/www.torajait.com3.jpg" /></a>Windows Movie Maker adalah  software yang di gunakan untuk membuat video Dengan gambar gambar,Windows Movie Maker For Windows 7 dan 8 32 bit dan 64 bit adalah software yang bisa digunakan untuk membuat video dengan beberapa foto, dan kita juga bisa memasukan sebuah lagu, windows movie maker terbaru 2015 full version, software free download windows movie maker untuk windows 8, windows 7, windows xp, windows vista. download windows movie maker 32 bit dan 64 bit.cara menggunkan windows movie maker,Windows Movie Maker dapat Membuat, mengedit, dan berbagi membuat video dari kumpulan foto foto atau gambar dan dapat ditambahkan lagu atau mp3, tulisan dengan kata kata kita, yang akan di buat menjadi sebuah video yang bisa kita play dengan aplikasi atau software pemutar video, Windows Movie Maker adalah aplikasi gratis dari Microsoft, yang memungkinkan sobat dengan mudah membuat, mengedit Gambar atau video menjadi film di komputer sobat. Windows Movie Maker datang dengan user-friendly interface dan berbagai fitur berguna yang mudah digunakan oleh siapa saja. Fitur: - Berisi pilihan profesional-kualitas video editing seperti transisi, efek khusus, menambahkan judul / kredit, menambahkan narasi, menambahkan musik dan . Beberapa panel yang tersedia untuk berbagai jenis tugas. - Mengedit video sobat menggunakan mode tampilan dua tersedia:. Storymode dan Timeline - Lihat klip tertentu atau seluruh proyek di Monitor Preview. Film dapat disimpan dalam berbagai format. 
 
Bagi Teman-teman yang Mau Software / Aplikasi Windows Movie Makernya 
Silahkan Langsung Saja Klik Download Now di bawah ini 
<div class="separator" style="clear: both; text-align: center;">
</div>
 
 
<center>
<a href="http://www.4shared.com/rar/PUmtB8NZce/Windows_Movie_Maker_wwwtorajai.html" target="_blank"><img alt="Download Format Factory" src="http://ipushproperty.com/wp-content/uploads/2014/11/download-now.gif" /></a></center>
<center>
Kode RAR Aplikasinya : www.torajait.com <div style="text-align: left;">
Berikut Ini Video Saya Hasil Editan Menggunakan Windows Movie Maker 
 </div>
</center>
<center>
<iframe allowfullscreen="" frameborder="0" height="305" src="https://www.youtube.com/embed/MgD-qXzXsgI" width="460"></iframe></center>
<center>
</center>
<center style="text-align: left;">
Terima Kasih Telah berkunjung di Blog saya .. </center>

Free Download Windows Movie Maker terbaru 2015 untuk windows 7 dan windows 8 full version By So' Alen

F ree Download Windows Movie Maker terbaru 2015 untuk windows 7 dan windows 8 full version Windows Movie Maker adalah software yang di gun...

Download Software Winbox Versi Terbaru Untuk Windows Free

Selamat Pagi Teman . Pada Postingan Sebelumnya saya telah membagikan Tutorial tentang <a href="http://www.torajait.com/2015/05/tutorial-setting-mikrotik-sebagai.html" title="KLIK">Cara Setting Mikrotik Sebagai Gateway Dengan Winbox</a> . Pada kesempatan ini Untuk Memperlancar Praktek teman-teman , So' Alen Akan Membagikan Software / Aplikasi Winbox .  
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXW_nQv8Py4Fc8vEyQ_JDeuUY-_nVVHWW1gFga0Fyg9RY_VIxU4vPMzsEx0BYHrPf5Ru5e-s1C0Lz12w2kpvg7husjPK_mg2MuD8dj6t9qFCPC1exU41o1-CNQI8Ht6zNmcOD1YnXEgG_O/s1600/www.torajait.com.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="225" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXW_nQv8Py4Fc8vEyQ_JDeuUY-_nVVHWW1gFga0Fyg9RY_VIxU4vPMzsEx0BYHrPf5Ru5e-s1C0Lz12w2kpvg7husjPK_mg2MuD8dj6t9qFCPC1exU41o1-CNQI8Ht6zNmcOD1YnXEgG_O/s400/www.torajait.com.JPG" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
 </div>
 Bagi Teman-teman yang Mau Software / Aplikasi Winboxnya  
Silahkan Langsung Saja Klik Download Now di bawah ini 
 
 
<center>
<a href="https://www.mediafire.com/file/bd4dhu1ynq29z7g/winbox.exe/file" target="_blank"><img alt="Download Software Winbox" src="http://ipushproperty.com/wp-content/uploads/2014/11/download-now.gif" /></a></center>
<center>
Download Winbox Gratis</center>
 
 
Sedikit Tentang Mikrotik Sebagai Gateway. 
Mikrotik Sebagai Gateway maksudnya adalah router mikrotik dimanfaatkan sebagai pintu gerbang tempat keluar masuknya paket dari dan ke internet, jadi semua paket akan dilewatkan melalui Mikrotik. Topologi yang digunakan pada jaringan model ini sangat sederhana, karena konfigurasi ini juga adalah konfigurasi dasar bagi seseorang yang ingin belajar tentang Mikrotik. Setiap orang yang ingin belajar tentang Mikrotik harus bisa melakukan konfigurasi ini. <a href="http://www.torajait.com/2015/05/tutorial-setting-mikrotik-sebagai.html" title="KLIK">Silahkan Liat Tutuorialnya Cara Setting Mikrotik Sebagai Gateway Dengan Winbox</a>

Download Software Winbox Versi Terbaru Untuk Windows Free

Selamat Pagi Teman . Pada Postingan Sebelumnya saya telah membagikan Tutorial tentang Cara Setting Mikrotik Sebagai Gateway Dengan Winbox ....

Download Aplikasi Format Factory Untuk Memperkecil Ukuran Video Terbaru 2019

Unknown 0 Download Software, Informasi Dunia Komputer 5:40 PM

Format Factory . Pada Kesempatan Ini Saya ingin Membagikan Aplikasi ke Teman-teman yang berfungsi untuk memperkecil ukuran Video tanpa Merubah Kulitas Gambar Video teman-teman . Aplikasi Format Factory Ini Cukup bagus dan sangat memuaskan Hasilnya . Aplikasi Format Factory dapat merubah Video denga kapasitas 10 GB menjadi 35 MB dan Resolusi Gambar pun tidak turun tetap pada resolusi atau klulitas seperti gambar video aslinya ... Kalian Penasaran .. ? 
 <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh91_6QG4flBTbvHX16jzaG7GjUAF8YKSWe_9fWn0eQG6gxn6JVNB7Gp2gDIZWkSs2_m22Vy1z745VXtdK61bz3MDYtiy5xeLKOeftaWFhU7fCmQTZSLUjiQKlUE3ikboDKa4vnpGUr_mJp/s1600/Untitled.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="356" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh91_6QG4flBTbvHX16jzaG7GjUAF8YKSWe_9fWn0eQG6gxn6JVNB7Gp2gDIZWkSs2_m22Vy1z745VXtdK61bz3MDYtiy5xeLKOeftaWFhU7fCmQTZSLUjiQKlUE3ikboDKa4vnpGUr_mJp/s640/Untitled.jpg" width="640" /></a> 
 
Silahkan Lansung saja Teman-teman di Download Softwarenya ! 
<center>
<a href="https://www.mediafire.com/file/ce86dw0s0cmpvww/Format_Factory_4.2.0_www.torajait.com_.rar/file" target="_blank"><img alt="Download Format Factory Terbaru 2019" src="http://ipushproperty.com/wp-content/uploads/2014/11/download-now.gif" /></a> Download Format Factory Terbaru 2019</center>

Download Aplikasi Format Factory Untuk Memperkecil Ukuran Video Terbaru 2019

Format Factory . Pada Kesempatan Ini Saya ingin Membagikan Aplikasi ke Teman-teman yang berfungsi untuk memperkecil ukuran Video tanpa Merub...

Tutorial Setting Mikrotik Sebagai Gateway Dengan Winbox By So' Alen

Unknown 99 Informasi Dunia Komputer 5:02 PM

Selamat Pagi Teman . Pada kesempatan ini So' Alen Membagikan Ilmu Tentang Tutorial Membauat Mikrotik Sebagai Gateway Dengan Winbox . Berikut Adalah Video Tutorial yang sudah saya Buat . Dan di bawah juga saya sudah menyediakan artikelnya bila teman-teman mau mencoba . Silahkan di Nonton Videonya dan Di praktektan yang ada pada Artikelnya . 
 
<center>
<iframe allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/tTAHpUp

KOxc" width="560"></iframe></center>
 
 
Mikrotik sebagai gateway maksudnya adalah router mikrotik dimanfaatkan sebagai pintu gerbang tempat keluar masuknya paket dari dan ke internet, jadi semua paket akan dilewatkan melalui Mikrotik. Topologi yang digunakan pada jaringan model ini sangat sederhana, karena konfigurasi ini juga adalah konfigurasi dasar bagi seseorang yang ingin belajar tentang Mikrotik. Setiap orang yang ingin belajar tentang Mikrotik harus bisa melakukan konfigurasi ini. 
 
Settingan yang digunakan juga sangat sederhana. Berikut ini akan saya perlihatkan settingan Mikrotik sebagai gateway menggunakan Winbox. Disini saya menggunakan PC Router yang saya instal Mikrotik versi winbox-2.2.16 dan saya pasangkan 2 buah kartu jaringan, dimana pada port pertama saya colokkan kabel yang berasal dari ISP, dan port kedua saya colokkan ke Switch yang terhubung ke LAN. Anda juga bisa menggunakan Router Board, sama saja. 
 
1. Persiapan Awal 
 
Hidupkan PC Router 
Pastikan semua sudah terpasang dengan baik seperti topologi diatas. 
Nyalakan salah satu komputer client untuk mensetting PC Router Mikrotik menggunakan Winbox. Kalau belum punya software Winbox, silahkan download di situs Mikrotiknya. 
Jalankan Winboxnya. 
Maka akan muncul jendela kecil, yaitu tampilan awal dari Winbox. 
Klik tombol yang memiliki tiga titik […] disamping tombol [Connect] 
Jika Routernya sudah terkoneksi dengan baik ke LAN, maka akan muncul sebuah list yang berisikan MAC Address dan IP Address. 
Klik saja MAC Addressnya, lalu klik [Connect] 
Maka akan muncul jendela admin dari router Mikrotik yang diremote menggunakan Winbox. 
Apabila PC Router Mikrotik yang Anda gunakan ini sebelumnya sudah pernah disetting, maka lakukanlah reset ulang agar semua settingan kembali seperti awal pada saat belum dilakukan setting apapun. Caranya adalah klik tombol [New Terminal]. 
Maka akan muncul sebuah jendea yang memiliki latar belakang putih. 
Ketikkanlah pada jendela putih itu tulisan, [system reset], jika diminta memilih Yes atai No, pilih saja Yes dengan menekan tombol [Y]. 
Setelah di reset biasanya router akan terdisconnect, konekkan kembali dengan langkah yang sudah dijelaskan sebelumnya. 
Maka akan muncul jendela yang menanyakan, apakah akan menggunakan settingan default dari Mikrotik atau ingin menggunakan settingan sendiri. Klik [Remove Configuration] karena kita akan melakukan settingan sendiri. 
Lalu agar mudah untuk diidentifikasi berikanlah nama untuk router yang digunakan. Dari [System] > [Identify]. Ketikkan nama router yang Anda inginkan, klik [Ok]. Disini saya memberikan nama [Gateway]. Sampai disini router sudah siap untuk dikonfigurasi. 
 
2. Memberikan Komentar Pada Interface 
Selanjutnya adalah memberikan komentar pada masing-masing interface agar mudah kita kenali, mana yang untuk ke ISP dan mana yang untuk ke LAN: 
 
Klik [Interface]. 
Klik pada interface [ether1]. 
Klik icon yang bergambar kertas berwarna kuning, lalu isika komennya. Disini saya memberikan komen [TO INTERNET], karena interface ini yang akan menuju internet. 
Begitu juga untuk [ether2]. Saya berikan komen [LOKAL]. Karena interface ini yang akan terhubung langsung ke jaringan lokal [LAN] 
 
3. Memberikan IP Address 
Untuk memberikan IP Address lakukan langkah berikut ini: 
 
Klik [IP] 
Pilih [Address] 
Maka akan muncul jendela baru. Klik tanda [+] berwarna merah yang berada di sisi kiri atas dari jendela baru yang muncul tadi. 
Ketikkan IP Address yang mengarah ke internet beserta subnetnya. Misalnya saya masukkan 192.168.11.11/24. Disini saya menggunakan simulasi, jadi jangan heran saya memasukkan IP Address seperti itu. Untuk Anda, silahkan Anda sesuaikan sendiri. 
Setelah memasukkan, klik [Apply], maka akan muncul [Network Address] dan [Broadcast Addressnya]. 
Pilih interface yang mengarah ke internet, disini saya memilih [ether1]. 
Berikan komentar agar mudah dikenali dengan mengklik [Comment]. Berikan komentar Anda, disini saya memberikan komentar [IP Internet] 
Klik [Ok] 
Dengan langkah diatas kita telah menambahkan IP Address yang mengarah ke internet, selanjutnya adalah menambahkan IP Address yang mengarah ke jaringan lokal. Untuk caranya sama dengan langkah diatas, yaitu: 
 
Klik lagi tanda [+] berwarna merah. 
Ketikkan IP Address yang mengarah ke jaringan lokal beserta subnetnya. Misalnya saya masukkan 192.168.111.1/24. Untuk Anda, silahkan Anda sesuaikan dengan selera. 
Setelah memasukkan, klik [Apply], maka akan muncul [Network Address] dan [Broadcast Addressnya]. 
Pilih interface yang mengarah ke lokal, disini saya memilih [ether2]. 
Berikan komentar agar mudah dikenali dengan mengklik [Comment]. Berikan komentar Anda, disini saya memberikan komentar [IP Lokal]. 
Klik [Ok] 
 
4. Menambahkan Routing Table 
Agar jaringan lokal bisa melakukan akses ke jaringan luar (internet), maka harus dibuat routing table. Agar paket memiliki arah tujuan yang jelas dan paket tersebut tahu bagaimana cara dia menuju tujuannya, caranya adalah: 
 
Klik [IP] 
Klik [Routes], maka akan terlihat 2 buah routing default. 
Klik tanda [+] yang berwarna merah dibagian atas, maka akan muncul jendela baru. 
Pada [Destination] biarkan dengan [0.0.0.0/0]. 
Pada [Gateway] isikan IP Address yang menjadi gateway dari router Anda. Disini saya memasukkan [192.168.111.1]. 
Tambahkan komentarnya. 
Klik [Ok]. 
 
5. Menambahkan NAT Rule 
Tujuan membuat NAT rule adalah agar paket bisa dilewatkan ke jaringan luar atau internet. Agar paket yang berasal dari interface lokal [ethe2] bisa sampai ke tujuannya dengan melewati interface internet [ether1]. Caranya adalah sebagai berikut: 
 
Klik [IP]. 
Pilih [Firewall]. 
Masuk ke tab [NAT]. 
Klik tanda [+] yang berwarna merah, maka akan muncul jendela [New NAT Rule]. 
Pada [Chain] pilih [srcnat]. 
Pada [Out Interface] pilih interface yang mengarah ke internet, yaitu [ether1]. 
Masuk ke ta [Action]. 
Pada [Action] pilih [masquerade]. 
Klik [Apply]. 
Tambahkan komentar jika perlu. Penuli menambahkan komentar [NAT Rule]. 
Klik [Ok] jika sudah selesai. 
 
6. Memasukkan DNS 
DNS digunakan sebagai penerjemah dari nama domain ke alamat IP, dan sebaliknya, yaitu dari alamat IP ke nama domain. Jadi apabila pengguna mengetikkan google.com di web browser, maka itu berarti pengguna memanggil alamat IP dari google.com yaitu 192.168.11.1. caranya adalah sebagai berikut: 
 
Klik [IP]. 
Pilih [DNS], maka akan muncul jendela [DNS]. 
Klik [Settings]. 
Pada [Primary DNS] masukkan DNS utama. Misalnya saya masukkan DNS Speedy yaitu [192.168.11.1]. 
Pada [Secondary DNS] masukkan DNS alternatif. Misalnya [8.8.8.8] yaitu DNS yang dibuat oleh Google. 
Berikan centang pada [Allow Remote Requests]. 
Klik [Ok] jika sudah selesai. 
 
7. Tes Konfigurasi 
Setelah itu langkah terakhir dari seting di router adalah melakukan pengecekan apakah konfigurasi yang dilakukan sudah benar atau belum. Caranya adalah: 
 
Klik [New Terminal]. 
Lakukan ping ke salah satu domain yang Anda inginkan. Misalnya [ping google.com]. jika sudah ada balasan, mkaa berarti router sudah berhasil terkoneksi ke internet. 
 
8. Tes Konfigurasi di Klien 
Selanjutnya adalah melakukan tes koneksi ke internet dari klien, namun sebelumnya IP Address dari klien harus diatur sesuai dengan konfigurasi yang telah dibuat. Berikut adalah konfigurasi klien sesuai dengan konfigurasi yang penulis buat dari Windows XP: 
 
IP Address : 192.168.111.2 
Subnet mask : 255.255.255.0 
Default Gateway : 192.168.111.1 
Preferred DNS : 192.168.11.1 
Alternate : 8.8.8.8 
 
Lakukan ping dari Command Prompt ke salah satu domain di internet, misalnya google.com dengan mengetikkan perintah [ping google.com]. jika ada reply itu berarti konfigurasi sudah berhasil. Jika belum coba lebih teliti lagi dalam melakukan konfiurasi. 
 
Bagi Teman-Teman yang mau Mendownload Softwarenya Silahkan Download Di Link Berikut : 
 
<a href="http://www.torajait.com/2015/05/download-software-winbox-versi-terbaru.html" title="KLIK">Download Software Winbox Versi Terbaru Untuk Setting Mikrotik Sebagai Gateway By So' Alen</a>  Selamat mencoba.

Tutorial Setting Mikrotik Sebagai Gateway Dengan Winbox By So' Alen

Selamat Pagi Teman . Pada kesempatan ini So' Alen Membagikan Ilmu Tentang Tutorial Membauat Mikrotik Sebagai Gateway Dengan Winbox . Ber...

Cara Membaut Jaringan AD HOC di Windows 7 Part 1 By So' Alen

Unknown 0 Informasi Dunia Komputer 4:29 PM

<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZBi_QxUgNPZGvvCvWV2H9Wq_6y9YFnVV-UqMMYii0VzYRfKXO2tsHPeoDYNdDH4MCLlg1DQ09p-D25_tRX3GQThptnEOzhszvAe47l4sxhBuSXqEEaey-7MIO7IR81hHQA7DRM7PuAjXX/s1600/2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="233" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZBi_QxUgNPZGvvCvWV2H9Wq_6y9YFnVV-UqMMYii0VzYRfKXO2tsHPeoDYNdDH4MCLlg1DQ09p-D25_tRX3GQThptnEOzhszvAe47l4sxhBuSXqEEaey-7MIO7IR81hHQA7DRM7PuAjXX/s320/2.jpg" width="320" /></a></div>
 
Selamat pagi teman-teman , Salam Blogger ... 
Pada kesempatan ini So' Alen akan mambagikan sedikit informasi tentang Cara Membaut Jaringan AD HOC di Windows 7 ... 
 Ini Lankah-langkahnya Teman .. 
 
1). Menghidupkan Wifi di laptop anda. 
 
2). Klik start→control panel→Network and sharing center→pilih manage wireless network 
 
3) klik add 
 
4) Pilih Create an ad hoc network→next 
 
5)  Pada network name/nama jaringan ad hoc, misal : SMBB Telkom Pada security type: -jika tidak ingin memakai passwords pilih no authentication (open) -jika ingin memakai password pilih WPA2-Personal. 
 
-klik kotak save this network untuk menyimpan jaringan ad hoc→next→Close Setelah komputer utama membuat jaringan ad hoc, maka secara otomatis laptop lain akan mendeteksi jaringan komputer utama yang telah dibuat. Langkah selanjutnya yaitu menconnectkan komputer lain dengan komputer utama. 
 
Untuk Lebih Jelasnya silahkan Nonton Video Tutorial yang telah Sayan Buat Di Bawah ini Teman-Teman . 
 
<center>
<iframe allowfullscreen="" frameborder="0" height="315" src="https://www.youtube.com/embed/q4bnVgb33aI" width="560"></iframe></center>
 
Selamat Mencoba, semoga Tutorial saya ini dapat membantu teman2 sekalian . Terima Kasih

Cara Membaut Jaringan AD HOC di Windows 7 Part 1 By So' Alen

Selamat pagi teman-teman , Salam Blogger ... Pada kesempatan ini So' Alen akan mambagikan sedikit informasi tentang Cara Membaut Jar...

MODUL TUTORIAL MICROSOFT VISUAL BASIC - PROGRAM APLIKASI PENJUALAN By So' Alen

Unknown 0 Visual Basic 6:49 PM

Selamat Pagi Teman2 , Lama neh Tidak ngeposting iLmu tentang Komputer . Kali ini So' Alen memposting ILmu Pemrograman , Bagi yang suka bermain dengan Visual Basic " VB " . Disini So' Alen Berbagi "MODUL TUTORIAL MICROSOFT VISUAL BASIC -  PROGRAM APLIKASI PENJUALAN " *Berikut Ini Langakah2 dan Kodingnya Silahkan di Sedot ILmunya .... 
1.Buka Aplikasi microsoft visual basic  
- Double klik pada icon di dektop atau klik start  all program  microsoft visual studio  microsoft visual basic 
2.Pilih new project  standart EXE 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPK2zUfbEnKgJyun6u7hzzfggcJXxbk3BEBavc-Hoz4EwnW-6G0hHgF1nT0qhnTiOmZuZiVBDJ1ClczLn63rixB-YpXNlSgLyQVOtsQ5PBqwcqM7rZn_sfGMIwqSKl-rlZbUfqSj_HF8lT/s1600/1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="227" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPK2zUfbEnKgJyun6u7hzzfggcJXxbk3BEBavc-Hoz4EwnW-6G0hHgF1nT0qhnTiOmZuZiVBDJ1ClczLn63rixB-YpXNlSgLyQVOtsQ5PBqwcqM7rZn_sfGMIwqSKl-rlZbUfqSj_HF8lT/s320/1.jpg" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
 </div>
3.Rancang/design form login seperti berikut 
<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/AVvXsEivKMNGUXY5AHfRmkjCr65bLM_HVlAaqQWcZEcSjTBk8HWaD8HL7we6BF92-QCrDGft7su054P2EQLYOZEciHBQTsAyT1NXpacqM9NliHQvqV-b5YO8NIN2m0Kt8lYtJldr3xN5mHiMEpRs/s1600/2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="237" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivKMNGUXY5AHfRmkjCr65bLM_HVlAaqQWcZEcSjTBk8HWaD8HL7we6BF92-QCrDGft7su054P2EQLYOZEciHBQTsAyT1NXpacqM9NliHQvqV-b5YO8NIN2m0Kt8lYtJldr3xN5mHiMEpRs/s320/2.JPG" width="320" /></a></div>
  
Single user : 
Ketik listing program sebagi berikut 
- Double klik pada form atau 
- Pilih menu view  code 
 
 
Private Sub CmdOk_Click() 
If TxtUserName.Text = "admin" And Txtpassword.Text = “12345” Then 
Me.Hide 
Formmenu.Show 
Formmenu.Enabled = True 
Else 
MsgBox "Anda Kemungkinan salah memasukkan Username atau password, Coba lagi....!", , "Login" 
TxtUserName.Text = "" 
Txtpassword.Text = "" 
TxtUserName.SetFocus 
End If 
End Sub 
 
Private Sub CmdCancel_Click() 
a = MsgBox("Apakah anda ingin keluar?", vbQuestion + vbOKCancel, "Info") 
If a = vbOK Then 
End 
End Sub 
 
Private Sub Form_Activate() 
TxtUserName.Text = "" 
TxtUserName.SetFocus 
End Sub 
 
Private Sub Form_Load() 
Formmenu.Show 
Formmenu.Enabled = False 
End Sub 
 
Private Sub Txtpassword_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
CmdOk.SetFocus 
End If 
End Sub 
 
Private Sub TxtUserName_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
Txtpassword.SetFocus 
End If 
End Sub  
Lihat hasil (jalankan program) 
- Tekan F5 pada keyboard atau  
- Menu run  start 
Rancang form menu utama 
- Pilih menu project  add form 
Simpan dengan nama formmenu 
- Pilih menu Tool  Menu editor  
- Isi caption dan name sesuai kebutuhan atau sbb 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhG4FEI9K-DNU_RUJWX5sQypobbb5voBMvBWhstiWvyoQjqPq29b0H_aUVHj-AUJv6lKP2MESBIMqXc0ErmnlEaMHQph849iWWlGJLO70ITixUUQYN-jZ05g3R5GWVKFjWwSUE5d7ONiqQt/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhG4FEI9K-DNU_RUJWX5sQypobbb5voBMvBWhstiWvyoQjqPq29b0H_aUVHj-AUJv6lKP2MESBIMqXc0ErmnlEaMHQph849iWWlGJLO70ITixUUQYN-jZ05g3R5GWVKFjWwSUE5d7ONiqQt/s400/3.png" width="397" /></a></div>
 
Hasil Design Form   
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW-vEYUYFzPFuXypPaEa4-Lce-KFs5qNDNp1mky2EHw_e_GRsmNbkbx11YkxVBH5KOGUJZBvTQpUQA8rcO9qZNGBXGttXcPo8ghzFEK0YODj9Gd9O9_KPXcbQvad_NDkks2lSif4iVX_Np/s1600/4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="322" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW-vEYUYFzPFuXypPaEa4-Lce-KFs5qNDNp1mky2EHw_e_GRsmNbkbx11YkxVBH5KOGUJZBvTQpUQA8rcO9qZNGBXGttXcPo8ghzFEK0YODj9Gd9O9_KPXcbQvad_NDkks2lSif4iVX_Np/s640/4.png" width="640" /></a></div>
 
Buatlah tabel Barang /Buku 
- Menu Add-Ins  Visual data manager 
- Muncul kotak dialog visdata  
- pilih file  open database  microsoft access (untuk membuka database yang sudah ada) 
- pilih file  new database  microsoft access  version 7.0 (untuk membuat database baru) 
- klik kanan pada properties  pilih new tabel 
isikan field2 nya sbb: 
 
Setelah selesai klik buid the table 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGzM0J2oD40aUxxvPuBUSsWqMEPzcRwSgroA43DGUd1PxolhBXSO5ZpzP6CEDk2vkN0yPbmqR_vDiQdZoureUihpE8-rHSbl22I7We1oBbVYBI6e9ZXf8xhDQz2WsmPlopVD99ul9VqA1x/s1600/5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="340" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgGzM0J2oD40aUxxvPuBUSsWqMEPzcRwSgroA43DGUd1PxolhBXSO5ZpzP6CEDk2vkN0yPbmqR_vDiQdZoureUihpE8-rHSbl22I7We1oBbVYBI6e9ZXf8xhDQz2WsmPlopVD99ul9VqA1x/s400/5.png" width="400" /></a></div>
 
Buatlah form sbb berikut: 
<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/AVvXsEh1O4AtfKhYvIUX_7BagV74aDvT-OZRVm4g2rVG-gVnQ9z7-Ih4BHQTqcCxvl-2YjtC9AzXy2Xd4sd5LOw8LleJtoCUWF-iUsf4MTRPfNcj-kSPOokDTXS8HsvZysgFMu0egvXvHuqv_vsK/s1600/6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="392" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1O4AtfKhYvIUX_7BagV74aDvT-OZRVm4g2rVG-gVnQ9z7-Ih4BHQTqcCxvl-2YjtC9AzXy2Xd4sd5LOw8LleJtoCUWF-iUsf4MTRPfNcj-kSPOokDTXS8HsvZysgFMu0egvXvHuqv_vsK/s400/6.png" width="400" /></a></div>
 
Source Code/ Listing Program 
 
Sub bersih() 
For Each X In Me 
If TypeName(X) = "TextBox" Then 
X.Text = "" 
End If 
Next 
For Each X In Me 
If TypeName(X) = "ComboBox" Then 
X.Text = "Pilih ------------------------->" 
End If 
Next 
End Sub 
Sub tampil() 
If Data1.Recordset.BOF Then 
bersih 
Else 
txkode.Text = Data1.Recordset!kd_buku 
txjdl.Text = Data1.Recordset!jdl_buku 
cmbjns.Text = Data1.Recordset!jns_buku 
txtpng.Text = Data1.Recordset!pengarang 
txtterbit.Text = Data1.Recordset!penerbit 
txtjml.Text = Data1.Recordset!jml_stok 
txthrg.Text = Data1.Recordset!Harga 
End If 
End Sub 
 
Sub nonaktif() 
For Each X In Me 
If TypeName(X) = "TextBox" Then 
X.Enabled = False 
End If 
Next 
For Each X In Me 
If TypeName(X) = "ComboBox" Then 
X.Enabled = False 
End If 
Next 
cmdtambah.Enabled = True 
cmdcari.Enabled = True 
cmdkeluar.Enabled = True 
cmdbatal.Enabled = False 
cmdSimpan.Enabled = False 
CmdHapus.Enabled = False 
CmdUbah.Enabled = False 
End Sub 
 
Sub aktif() 
For Each X In Me 
If TypeName(X) = "TextBox" Then 
X.Enabled = True 
End If 
Next 
For Each X In Me 
If TypeName(X) = "ComboBox" Then 
X.Enabled = True 
End If 
Next 
 
cmdtambah.Enabled = False 
cmdcari.Enabled = False 
cmdkeluar.Enabled = False 
cmdbatal.Enabled = True 
cmdSimpan.Enabled = True 
End Sub 
 
Private Sub cmbjns_Click() 
txtpng.SetFocus 
End Sub 
 
Private Sub cmdbatal_Click() 
Data1.Recordset.CancelUpdate 
nonaktif 
tampil 
tampil 
End Sub 
 
Private Sub Cmdcari_Click() 
a = InputBox("Masukan Kode Buku", "Pencarian") 
Data1.Recordset.Index = "Kd_buku" 
Data1.Recordset.Seek "=", a 
If Not Data1.Recordset.NoMatch Then 
tampil 
CmdHapus.Enabled = True 
CmdUbah.Enabled = True 
cmdtambah.Enabled = False 
cmdkeluar.Enabled = False 
cmdcari.Enabled = False 
Else 
MsgBox "Kode Buku TIdak Ditemukan", , "Info Buku" 
End If 
End Sub 
 
Private Sub cmdhapus_Click() 
If Data1.Recordset.BOF Then 
bersih 
MsgBox "Data Kosong" 
Else 
Data1.Recordset.Delete 
Data1.Recordset.MoveFirst 
CmdHapus.Enabled = False 
CmdUbah.Enabled = False 
End If 
tampil 
nonaktif 
End Sub 
Private Sub cmdkeluar_Click() 
    Unload Me 
End Sub 
 
Private Sub cmdSimpan_Click() 
If txkode.Text = "" Or txjdl.Text = "" Or cmbjns.Text = "Pilih ------------------------->" Or txthrg.Text = "" Or txtterbit.Text = "" Or txtjml.Text = "" Then 
MsgBox "Data Belum Lengkap", vbExclamation, "Peringatan" 
txkode.SetFocus 
Exit Sub 
End If 
Data1.Recordset!kd_buku = txkode.Text 
Data1.Recordset!jdl_buku = txjdl.Text 
Data1.Recordset!jns_buku = cmbjns.Text 
Data1.Recordset!pengarang = txtpng.Text 
Data1.Recordset!penerbit = txtterbit.Text 
Data1.Recordset!jml_stok = txtjml.Text 
Data1.Recordset!Harga = txthrg.Text 
Data1.Recordset.Update 
Data1.Refresh 
nonaktif 
tampil 
End Sub 
 
Private Sub cmdtambah_Click() 
aktif 
bersih 
txkode.SetFocus 
Data1.Recordset.AddNew 
End Sub 
 
Private Sub cmdubah_Click() 
Data1.Recordset.Edit 
CmdHapus.Enabled = False 
CmdUbah.Enabled = False 
aktif 
txkode.Enabled = False 
txjdl.SetFocus 
End Sub 
 
Private Sub DBGrid1_DblClick() 
With DBGrid1 
txkode = .Columns(0) 
txjdl = .Columns(1) 
txtpng = .Columns(2) 
txtterbit = .Columns(3) 
cmbjns = .Columns(4) 
txtjml = .Columns(5) 
txthrg = .Columns(6) 
End With 
tampil 
End Sub 
 
Private Sub DBGrid1_KeyUp(KeyCode As Integer, Shift As Integer) 
If KeyCode = vbKeyReturn Then 
With DBGrid1 
txkode = .Columns(0) 
txjdl = .Columns(1) 
txtpng = .Columns(2) 
txtterbit = .Columns(3) 
cmbjns = .Columns(4) 
txtjml = .Columns(5) 
txthrg = .Columns(6) 
End With 
tampil 
End If 
End Sub 
Private Sub Form_Activate() 
nonaktif 
tampil 
cmdtambah.SetFocus 
End Sub 
Private Sub Form_Load() 
Con 
Data1.DatabaseName = App.Path + "\penjualan.mdb" 
Data1.RecordSource = "buku" 
End Sub 
 
 
Private Sub txjdl_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
cmbjns.SetFocus 
End If 
End Sub 
 
Private Sub txkode_KeyPress(KeyAscii As Integer) 
KeyAscii = Asc(UCase(Chr(KeyAscii))) 
If KeyAscii = 13 Then 
Data1.Recordset.Index = "kd_buku" 
Data1.Recordset.Seek "=", txkode 
If Not Data1.Recordset.NoMatch Then 
MsgBox "Kode Buku Sudah Ada", vbCritical, "Info" 
txkode.Text = "" 
Else 
txjdl.SetFocus 
End If 
Data1.Recordset.AddNew 
End If 
End Sub 
 
Private Sub txthrg_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
txtjml.SetFocus 
End If 
If Not (KeyAscii >= Asc("0") & Chr(13) _ 
   And KeyAscii <= Asc("9") & Chr(13) _ 
   Or KeyAscii = vbKeyBack _ 
   Or KeyAscii = vbKeyDelete _ 
   Or KeyAscii = vbKeySpace) Then 
    Beep 
    KeyAscii = 0 
    End If 
End Sub 
 
Private Sub txtjml_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
cmdSimpan.SetFocus 
End If 
If Not (KeyAscii >= Asc("0") & Chr(13) _ 
   And KeyAscii <= Asc("9") & Chr(13) _ 
   Or KeyAscii = vbKeyBack _ 
   Or KeyAscii = vbKeyDelete _ 
   Or KeyAscii = vbKeySpace) Then 
    Beep 
    KeyAscii = 0 
    End If 
End Sub 
 
Private Sub txtpng_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
txtterbit.SetFocus 
End If 
End Sub 
 
Private Sub txtterbit_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
txthrg.SetFocus 
End If 
End Sub  
<div>
 Demikainlah Langkah2 dan Koding Programnya Teman2 . Selamat Mencoba ya ... Dan Jangan Pernah Lelah Berkunjung ke "www.torajait.com" Terima Kasih ...</div>

MODUL TUTORIAL MICROSOFT VISUAL BASIC - PROGRAM APLIKASI PENJUALAN By So' Alen

Selamat Pagi Teman2 , Lama neh Tidak ngeposting iLmu tentang Komputer . Kali ini So' Alen memposting ILmu Pemrograman , Bagi yang suka b...