Download Visual Basic 6.0 Full Version Via Google Drive <div dir="ltr" style="text-align: left;" trbidi="on"> <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/AVvXsEi4K8f5ZFqT7aRpGRjsg4MStJ6gzflboLVHyE7inVLgJUGWo2Lnw8puhGU6iGKbSTfpcONNxSI-jK9NEEY-CJwEtUceJPGvv6TN4bsUuKu7_9m7bn4Avfy17qICcybAZfgzB7PcYpPUZbs/s1600/Microsoft_Visual_Studio_6_screenshot.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Visual Basic 6.0 Full Version Via Google Drive" border="0" height="192" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4K8f5ZFqT7aRpGRjsg4MStJ6gzflboLVHyE7inVLgJUGWo2Lnw8puhGU6iGKbSTfpcONNxSI-jK9NEEY-CJwEtUceJPGvv6TN4bsUuKu7_9m7bn4Avfy17qICcybAZfgzB7PcYpPUZbs/s320/Microsoft_Visual_Studio_6_screenshot.png" title="Download Visual Basic 6.0 Full Version Via Google Drive" width="320" /></a></div> <b></b><i></i><u></u><sub></sub><sup></sup><strike></strike><br /> <b>Download Visual Basic 6.0 Full Version - </b>Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkanIntegrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).<br /> <br /> Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputerberbasis grafik dengan cepat.<br /> <br /> Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.<br /> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjoj3r7GPtehfE9qe7Kgdq_sU5750hgHGb9CRXpGVNz68MCjArLvX-KzJFtOyGvpqFdYvHnz8ZuHthz87QQpva1w-NvTT0jqRWYjl2-Y_4pl1B4iERXoSh5LcJuXOCac7z9SrcUWsWBkyo/s1600/Download+Visual+Basic+6+full.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Visual Basic 6.0 Full Version Via Google Drive" border="0" height="236" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjoj3r7GPtehfE9qe7Kgdq_sU5750hgHGb9CRXpGVNz68MCjArLvX-KzJFtOyGvpqFdYvHnz8ZuHthz87QQpva1w-NvTT0jqRWYjl2-Y_4pl1B4iERXoSh5LcJuXOCac7z9SrcUWsWBkyo/s320/Download+Visual+Basic+6+full.jpg" title="Download Visual Basic 6.0 Full Version Via Google Drive" width="320" /></a></div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4K8f5ZFqT7aRpGRjsg4MStJ6gzflboLVHyE7inVLgJUGWo2Lnw8puhGU6iGKbSTfpcONNxSI-jK9NEEY-CJwEtUceJPGvv6TN4bsUuKu7_9m7bn4Avfy17qICcybAZfgzB7PcYpPUZbs/s1600/Microsoft_Visual_Studio_6_screenshot.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div> <br /> Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.<br /> <br /> Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Sebuah survey yang dilakukan pada tahun 2005 menunjukkan bahwa 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java<br /> <br /> <b><span style="font-size: x-large;">Download Visual Basic 6.0 Full Version Via Google Drive</span></b><br /> <b><br /></b><b><br /></b><br /> <div style="text-align: center;"> <b><b><span style="font-size: large;"><a href="https://drive.google.com/open?id=0B_xvehYCMRLZRVR0MGFrODVRMWM">Download Visual Basic 6.0 | Via Google Drive</a></span></b></b></div> <div style="text-align: center;"> <b><b><br /></b></b></div> <div style="text-align: center;"> <b><b style="background-color: white; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.2000007629395px;">Terima Kasih Telah Berkunjung | <a href="http://www.raw16.blogspot.com/">www.raw16.blogspot.com</a></b></b></div> </div> Read more »
Download Microsoft SQL Server Express Full Version Via Google Drive <div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7qo8SOTHwTqNLtZU2BTMEVSGqwJzsr6IpL5AUk-MY4y2n_5FmV6oz3Iso3NurLglpv5qP4v_9C9BeeTP_7w3c6w002iW8tbjAt_tx48qdZyc_Hfp2YwKN-oXXxirsz2X5Bp3E7TbbIr8/s1600/Download+SQL+Server+2012+Management+Studio+Express+Freeware.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Microsoft SQL Server Express Full Version Via Google Drive" border="0" height="210" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7qo8SOTHwTqNLtZU2BTMEVSGqwJzsr6IpL5AUk-MY4y2n_5FmV6oz3Iso3NurLglpv5qP4v_9C9BeeTP_7w3c6w002iW8tbjAt_tx48qdZyc_Hfp2YwKN-oXXxirsz2X5Bp3E7TbbIr8/s320/Download+SQL+Server+2012+Management+Studio+Express+Freeware.jpg" title="Download Microsoft SQL Server Express Full Version Via Google Drive" width="320" /></a></div><div><b><br /></b></div><b>Download Microsoft SQL Server Express Full Version Via Google Drive </b>- Microsoft® SQL Server ® Express adalah sistem manajemen data gratis kuat dan dapat diandalkan yang memberikan data store yang kaya dan dapat diandalkan untuk Situs Web ringan dan aplikasi desktop. Dirancang untuk penyebaran yang mudah dan prototyping cepat, Download ini termasuk dukungan untuk Sysprep, Microsoft System Persiapan Utility untuk sistem operasi Microsoft Windows penyebaran.<br /><div><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrPOOT5wGEoTdJMIxj0uKB3IeelGtwYO54hf_nwEeaqx_whe0uDqDxope6DC3k4jWWZxCv91DcJruALvzML78MGYNKDW9Su7eVQwNBSpcxMmSbnX49ZDScVkDZ6pHeh3atB6A3G1mRAVM/s1600/Download+SQL+Server+2012+Management+Studio+Express.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Microsoft SQL Server Express Full Version Via Google Drive" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrPOOT5wGEoTdJMIxj0uKB3IeelGtwYO54hf_nwEeaqx_whe0uDqDxope6DC3k4jWWZxCv91DcJruALvzML78MGYNKDW9Su7eVQwNBSpcxMmSbnX49ZDScVkDZ6pHeh3atB6A3G1mRAVM/s1600/Download+SQL+Server+2012+Management+Studio+Express.jpg" title="Download Microsoft SQL Server Express Full Version Via Google Drive" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4v5qtnNXJXT36XL6fXWvqhnX357UQgm8vbxTnM2_Mw-afVq1b-xSRRpJNqMR19RKC1vNFBLKlvVpe5cIlxjQ-LMZZVlGaBljvK2xUqI4hKO2tFcw5cCkyGh97U68y8rUg2yc2ILsqVvA/s1600/Download+SQL-Server-2012-Management-Studio-Express-Screenshots.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="197" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4v5qtnNXJXT36XL6fXWvqhnX357UQgm8vbxTnM2_Mw-afVq1b-xSRRpJNqMR19RKC1vNFBLKlvVpe5cIlxjQ-LMZZVlGaBljvK2xUqI4hKO2tFcw5cCkyGh97U68y8rUg2yc2ILsqVvA/s320/Download+SQL-Server-2012-Management-Studio-Express-Screenshots.jpg" width="320" /></a></div><div><br /></div><div><b><span style="font-size: large;">Firture </span></b></div><div>LocalDB (MSI installer) Baru untuk keluarga Express, LocalDB adalah versi ringan dari Express yang memiliki semua fitur programmability nya, namun berjalan dalam modus pengguna dan memiliki, instalasi-konfigurasi nol cepat dan daftar pendek dari pra-syarat. Gunakan ini jika Anda perlu cara sederhana untuk membuat dan bekerja dengan database dari kode. Hal ini dapat dibundel dengan aplikasi dan Pengembangan Database tool seperti Visual Studio dan atau tertanam dengan aplikasi yang membutuhkan database lokal. </div><div><br /></div><div>Express (Mengandung hanya mesin database) Inti Ekspres database server. Gunakan ini jika Anda perlu untuk menerima koneksi jauh atau mengelola jarak jauh. </div><div><br /></div><div>Express dengan Tools (dengan LocalDB) Termasuk mesin database dan SQL Server Management Studio Express) Paket ini berisi semua yang diperlukan untuk menginstal dan mengkonfigurasi SQL Server sebagai database server. Pilih salah LocalDB atau Express tergantung pada kebutuhan Anda di atas. </div><div><br /></div><div>SQL Server Management Studio Express (Alat saja) Ini tidak mengandung database, tetapi hanya alat untuk mengelola SQL Server contoh, termasuk LocalDB, SQL Express, SQL Azure, dll Gunakan ini jika Anda sudah memiliki database dan hanya membutuhkan alat manajemen. Paket ini termasuk LocalDB. </div><div><br /></div><div>Express dengan Layanan Lanjutan (berisi mesin database, Alat Express, Reporting Services, dan Full Text Search) Paket ini berisi semua komponen dari SQL Express. Ini adalah download lebih besar dari "dengan Tools," karena juga mencakup Full Text Cari dan Jasa Pelaporan.</div><div><br /></div><div><span style="font-size: x-large;"><b>Download Microsoft SQL Server Express Full Version Via Google Drive</b></span></div><div><b><br /></b></div><div style="text-align: center;"><a href="https://drive.google.com/open?id=0B_xvehYCMRLZOVpjUnI4d21HcXc"><b>Download Microsoft SQL Server Express Part 1 | Via Google Drive</b></a></div><div style="text-align: center;"><b><br /></b></div><div style="text-align: center;"><a href="https://drive.google.com/open?id=0B_xvehYCMRLZNGNqZW44RGdGeDg"><b>Download Microsoft SQL Server Express Part 2 | Via Google Drive</b></a></div><div style="text-align: center;"><b><br /></b></div><div style="text-align: center;"><a href="https://drive.google.com/open?id=0B_xvehYCMRLZdDcwaFdRb3ZSX2M"><b>Download Microsoft SQL Server Express Part 3 | Via Google Drive</b></a></div><div style="text-align: center;"><b><br /></b></div><div style="text-align: center;"><a href="https://drive.google.com/open?id=0B_xvehYCMRLZM0tWTno3NE44WDg"><b>Download Microsoft SQL Server Express Part 4 | Via Google Drive</b></a></div><div style="text-align: center;"><b><br /></b></div><div style="text-align: center;"><b><a href="https://drive.google.com/open?id=0B_xvehYCMRLZMm5NZWtXZ1lYbDg">Download Microsoft SQL Server Express Part 5 | Via Google Drive</a></b></div><div style="text-align: center;"><br /></div><div style="text-align: center;"><br /></div><div style="text-align: center;"><div class="post-body entry-content" id="post-body-7877528402225910186" itemprop="description articleBody" style="font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 1.6em; margin: 0px 0px 0.75em; text-align: left;"><div dir="ltr" trbidi="on"><div><div style="text-align: center;"><b>Terima Kasih Telah Berkunjung | <a href="http://www.raw16.blogspot.com/" style="color: #00419b; text-decoration: none;">www.raw16.blogspot.com</a></b></div></div><div></div></div><div style="clear: both;"></div></div></div><div style="text-align: center;"><br /></div></div> Read more »
Download Visual Studio Professional 2012 Full Version Via Google Drive <div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCkoPcDb3WiJhc7ojIFCKmEmA2xZFeKN_uwU4c9pa_lLOhJKQbxjuxI6MOlAJkFIxjlkpE1TZnXgDlmjyp6PCGcjVqV850Ldgu5xBzOStqoTZcyXU0v3SaNgpuV5Lqh-rPwXTfdCPi4N4/s1600/Download+VisualStudio2012Pro+RAW16.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Visual Studio Professional 2012 Full Version Via Google Drive" border="0" height="315" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCkoPcDb3WiJhc7ojIFCKmEmA2xZFeKN_uwU4c9pa_lLOhJKQbxjuxI6MOlAJkFIxjlkpE1TZnXgDlmjyp6PCGcjVqV850Ldgu5xBzOStqoTZcyXU0v3SaNgpuV5Lqh-rPwXTfdCPi4N4/s640/Download+VisualStudio2012Pro+RAW16.jpg" title="Download Visual Studio Professional 2012 Full Version Via Google Drive" width="640" /></a></div><b><br /></b><b>Download Visual Studio Professional 2012 Full Version Via Google Drive - </b>Visual Studio Professional 2012 dapat membantu Anda membuat aplikasi yang memiliki pengalaman pengguna yang inovatif yang menyenangkan pelanggan Anda. Lingkungan terpadu membantu membuat tugas-tugas kompleks lebih mudah sehingga Anda dapat fokus pada pencapaian tujuan Anda. Dengan menggunakan Visual Studio Professional 2012, Anda dapat memberikan aplikasi berkualitas di Windows, Microsoft Office, Windows Phone, atau web. Ketika Anda menggabungkan dengan Windows 8, Anda akan dapat membangun aplikasi Windows dan upload ke Windows Store.<br /><div><br /><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcS6CmBtx5lRdhLZ1SK4d_8Zs86v2WMAcKON7xVd7rgIESGgnTiS" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Visual Studio Professional 2012 Full Version Via Google Drive" border="0" src="https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcS6CmBtx5lRdhLZ1SK4d_8Zs86v2WMAcKON7xVd7rgIESGgnTiS" title="Download Visual Studio Professional 2012 Full Version Via Google Drive" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div><div class="separator" style="clear: both; text-align: center;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcSaoOBqKedeyEcZaOACGyhcWqOMeiVPk5Bxt6jRhWtfnhY6zvEE_A" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Download Visual Studio Professional 2012 Full Version Via Google Drive" border="0" src="https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcSaoOBqKedeyEcZaOACGyhcWqOMeiVPk5Bxt6jRhWtfnhY6zvEE_A" title="Download Visual Studio Professional 2012 Full Version Via Google Drive" /></a></div><br /></div><div><u><b style="font-size: xx-large; text-align: center;">Cara Instal </b><b>Visual Studio Professional 2012 Full Version Via Google Drive</b></u></div><div><br /><ul style="text-align: left;"><li><b style="text-align: center;">Download File part 1 -5 </b></li><li><b style="text-align: center;">Satukan Part1 - 5 dalam satu folder</b></li><li><b style="text-align: center;">Extract part 5 </b></li><li><b style="text-align: center;">Jalankan File Setup Pada Folder Visual Basic 6.0</b></li><li><b style="text-align: center;">Masukan Serial Code Yang Sudah Tersedia di dalamnya </b></li></ul></div><div><b></b><br /><div style="text-align: center;"><b><b><span style="font-size: x-large;">Rekomendasi Operating System</span></b></b></div><b></b><br /><ul style="text-align: left;"><li><b>Windows 7 Service Pack 1, Windows 8, Windows Server 2008 R2 SP1, Windows Server 2012</b></li><li><b>Windows 7 SP1 (x86 and x64)</b></li><li><b>Windows 8 (x86 and x64)</b></li><li><b>Windows Server 2008 R2 SP1 (x64)</b></li><li><b>Windows Server 2012 (x64)</b></li></ul><span style="font-size: x-large;"></span><br /><div style="text-align: center;"><span style="font-size: x-large;"><b>Hardware Requirements:</b></span></div><span style="font-size: x-large;"></span><br /><ul style="text-align: left;"><li><b>1.6 GHz or faster processor</b></li><li><b>1 GB of RAM (1.5 GB if running on a virtual machine)</b></li><li><b>10 GB of available hard disk space</b></li><li><b>5400 RPM hard disk drive</b></li><li><b>DirectX 9-capable video card that runs at 1024 x 768 or higher display resolution</b></li></ul><div><b><span style="font-size: large;">Download Visual Studio Professional 2012 Full Version Via Google Drive</span></b></div></div><div><b><span style="font-size: large;"><br /></span></b></div><div style="text-align: center;"><b><a href="https://drive.google.com/open?id=0B_xvehYCMRLZeGluU0pqN0F6eWs">Visual Studio Professional 2012 Part 1 | Via Google Drive</a></b><br /><br /></div><div><div style="text-align: center;"><br /><b>Terima Kasih Telah Berkunjung | www.raw16.blogspot.com</b></div></div><div><b><br /></b></div></div> Read more »
Cara Notifikasi MsgBox Dan Mancam - Macamnya Full VB6 <div dir="ltr" style="text-align: left;" trbidi="on"><div dir="ltr" style="text-align: left;" trbidi="on"><div class="" style="clear: both; text-align: left;">MsgBox Dalam Visual Basic 6 ialah berfungsi sebagai Pesan, bisa berupa pesan singkat atau apapun guna memebritahu user, MsgBox sangat lah diperlukan dalam membuat program coba kalian lihat di bawah ini itu adalah macam macam Notofikasi Msgbox</div><div class="" style="clear: both; text-align: left;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirQZr2UOKbXTu8xvEgI263TzLhU2w7Ya1V09-zGpB19vq5ZtjSvfiU2WExDQM5a6nQ2NQedehnFuoVZRE5AJd4WmvHLtc4sDkZCrICd7JmQG0481soSNnB1PLYIIpicLGE4HzagFvkayI/s1600/Macam+-+MAcam+MSGBOX+VB6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img alt="Macam - Macam Notifikasi MsgBox VB6" border="0" height="201" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirQZr2UOKbXTu8xvEgI263TzLhU2w7Ya1V09-zGpB19vq5ZtjSvfiU2WExDQM5a6nQ2NQedehnFuoVZRE5AJd4WmvHLtc4sDkZCrICd7JmQG0481soSNnB1PLYIIpicLGE4HzagFvkayI/s320/Macam+-+MAcam+MSGBOX+VB6.png" title="Macam - Macam Notifikasi MsgBox VB6" width="320" /></a></div><div class="separator" style="clear: both; text-align: center;"><br /></div><div class="" style="clear: both; text-align: left;"><b style="font-size: xx-large;">Macam - Macam MsgBox</b></div><div class="separator" style="clear: both; text-align: left;"></div><ul style="text-align: left;"><li>MsgBox Error dalam Program dituliskan vbCritical</li><li>MsgBox Informasi dalam Program dituliskan vbInformation</li><li>MsgBox Tanda Tannya dalam Program dituliskan vbQuestion</li><li>MsgBox Paragraf baru dalam Program dituliskan vbNewLine</li><li>MsgBox Error + Pertanyaan dalam Program dituliskan vbCritical+ vbYesNo</li><li>MsgBox Informasi + Pertanyaan dalam Program dituliskan vbInformation+ vbYesNo</li><li>MsgBox Tanda Tannya + Pertanyaan dalam Program dituliskan vbQuestion + vbYesNo</li></ul><div><br /></div><div><b><span style="font-size: large;">Mari Kita Jabarkan Source Codenya</span></b></div><div>Yang Diperlukan Hanyalah Commong Button dalam Project ini</div><div><ul style="text-align: left;"><li><b>MsgBox Error</b></li></ul></div><br />Private Sub Command1_Click()<br />MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical<br />End Sub<br /><div><ul style="text-align: left;"><li><b>MsgBox Informasi</b></li></ul><div class="separator" style="clear: both; text-align: left;"></div>Private Sub Command2_Click()<br />MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation<br />End Sub</div><div><ul style="text-align: left;"><li><b>MsgBox Tanda Tannya</b></li></ul></div><div><div>Private Sub Command4_Click()</div><div>MsgBox ("Tulis Text Di Sini - Contoh Program"), vbQuestion</div><div>End Sub</div></div><div><ul style="text-align: left;"><li><b>MsgBox Paragraf baru</b></li></ul></div><div><div>Private Sub Command5_Click()</div><div>MsgBox "Paragraf Atas" _</div><div>& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"</div><div>End Sub</div><div><ul style="text-align: left;"><li><b>MsgBox Error + Pertanyaan</b></li></ul></div>Private Sub Command3_Click()<br />RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")<br />If RAW16 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br /><br /><ul style="text-align: left;"><li><b>MsgBox Informasi + Pertanyaan</b></li></ul><br />Private Sub Command6_Click()<br />Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")<br />If Cmn6 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br /><br /><ul style="text-align: left;"><li><b>MsgBox Tanda Tannya + Pertanyaan</b></li></ul><br />Private Sub Command7_Click()<br />Cmn7 = MsgBox("Apakah anda Setuju ", vbQuestion + vbYesNo, "www.raw16.blogspot.com")<br />If Cmn7 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br /><b>Note : Command Bisa Anda Rubah Sesuai Program anda, dan cmn6, cmn7 dan RAW16 itu untuk membatu logika so rubah selera anda </b><br /><b><br /></b>[info title="Full Source Coe Visual Basic " icon="info-circle"]<br />' ----------------------------------------------------<br />' Rizki Aditya Wiratama 6 - 19 - 2016<br />' www.raw16.blogspot.com<br />'--------------------------------------------------------<br />Private Sub Command1_Click()<br />MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical<br /><br />End Sub<br /><br />Private Sub Command2_Click()<br />MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation<br /><br />End Sub<br /><br />Private Sub Command3_Click()<br />RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")<br />If RAW16 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br />Private Sub Command5_Click()<br />MsgBox "Paragraf Atas" _<br />& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"<br />End Sub<br /><br />Private Sub Command6_Click()<br />Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")<br />If Cmn6 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br /><br />Private Sub Command7_Click()<br />Cmn7 = MsgBox("Apakah anda Setuju ", vbInformation + vbYesNo, "www.raw16.blogspot.com")<br />If Cmn7 = vbYes Then<br /> Unload Me<br />End If<br />End Sub<br /><br />Private Sub Form_Load()<br />MsgBox "Terimakasih Telah Mendownload :)" _<br />& vbNewLine & "Untuk Program Menarik Lainnya Kunjungi www.raw16.blogspot.com", vbInformation, "RAW16"<br />End Sub<br /> [/info]<br /><br /><br /></div></div><a class="button medium blue" href="http://adf.ly/1bL5V6" rel="nofollow" target="_blank">Download Project</a></div> Read more »
Cara membuat sevent Segment Di Visual Basic <div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZXTvaZwwn77Qum_eyYJzhlsHFUfKri-QRCpsPWFc7oddMhf3GVpDfREFpvlJ-1DtQHLBn6iLFZ88TZ7PUla9il2p-CexWBNz7VfYDPMWRq9mW_3LbdzhVvYookRVqspHwYmxAq4sX804/s1600/Cara+membuat+7+Segment+Di+vb6_00000.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara membuat sevent Segment Di Visual Basic" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZXTvaZwwn77Qum_eyYJzhlsHFUfKri-QRCpsPWFc7oddMhf3GVpDfREFpvlJ-1DtQHLBn6iLFZ88TZ7PUla9il2p-CexWBNz7VfYDPMWRq9mW_3LbdzhVvYookRVqspHwYmxAq4sX804/s1600/Cara+membuat+7+Segment+Di+vb6_00000.jpg" title="Cara membuat sevent Segment Di Visual Basic" /></a></div><div><br /></div>Dalam membuat 7 segment pasti anda sudah terbayang apa sih itu 7 segment, ya sevent segment merupakan segment yang berjumlah 7 biasanya digunakan untuk membuat jam digital, text dan banyak hasil dari sevent segment namun dalam project kali ini kita mulai dari dasar dulu barulah jika sudah bisa mengerti anda bisa mengembakannya lagi menjadi ide yang sangat baik.<br /><b><span style="font-size: large;">Di dalam project ini terdiri dari :</span></b><br /><ul style="text-align: left;"><li>7 Shape </li><li>9 Commond Button</li></ul>Saya menambahkan beberapa tambahan<br /><ul style="text-align: left;"><li>2 Timer untuk kelap kelip</li><li>1 Frame untuk belakang sevent sigment </li></ul>[info title="Coding Visual Basic 6" icon="info-circle"]Private Sub Command1_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = 1<br />Shape7.FillColor = 1<br />Shape6.FillColor = 1<br />Shape5.FillColor = 1<br />Shape4.FillColor = 1<br />End Sub<br /><br />Private Sub Command10_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = 0<br />Shape6.FillColor = 0<br />Shape5.FillColor = 0<br />Shape4.FillColor = 0<br />End Sub<br /><br />Private Sub Command11_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = vbRed<br />Shape5.FillColor = vbRed<br />Shape4.FillColor = vbRed<br />End Sub<br /><div><br />Private Sub Command12_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = vbRed<br />Shape5.FillColor = 0<br />Shape4.FillColor = vbRed<br />End Sub<br /><br />Private Sub Command13_Click()<br />Form3.Visible = vbNormalFocus<br />Unload Me<br />End Sub<br /><br />Private Sub Command2_Click()<br />Shape1.FillColor = vbRed<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = 0<br />Shape4.FillColor = vbRed<br />Shape5.FillColor = vbRed<br />Shape6.FillColor = 0<br />Shape7.FillColor = vbRed<br /><br />End Sub<br /><br />Private Sub Command3_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = 0<br />Shape5.FillColor = 0<br />Shape4.FillColor = vbRed<br />End Sub<br /><br />Private Sub Command4_Click()<br />Shape2.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = 0<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = vbRed<br />Shape5.FillColor = 0<br />Shape4.FillColor = 0<br />End Sub<br /><br />Private Sub Command5_Click()<br />Shape2.FillColor = 0<br />Shape5.FillColor = vbRed<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = vbRed<br />Shape4.FillColor = vbRed<br />End Sub<br /><br />Private Sub Command6_Click()<br />Shape2.FillColor = 0<br />Shape3.FillColor = vbRed<br />Shape1.FillColor = vbRed<br />Shape7.FillColor = vbRed<br />Shape6.FillColor = vbRed<br />Shape5.FillColor = 0<br />Shape4.FillColor = vbRed<br />End Sub<br /><br />Private Sub Timer1_Timer()<br />Shape1.Visible = False<br />Shape2.Visible = False<br />Shape3.Visible = False<br />Shape4.Visible = False<br />Shape5.Visible = False<br />Shape6.Visible = False<br />Shape7.Visible = False<br />End Sub<br /><br />Private Sub Timer2_Timer()<br />Shape1.Visible = True<br />Shape7.Visible = True<br />Shape2.Visible = True<br />Shape3.Visible = True<br />Shape4.Visible = True<br />Shape5.Visible = True<br />Shape6.Visible = True<br />End Sub[/info]<br /><br /><div class="separator" style="clear: both; text-align: center;"></div><div style="text-align: left;"><a class="button large dark" href="http://adf.ly/1bJ8JR" rel="nofollow" style="text-align: center;" target="_blank">Download Project</a></div></div></div> Read more »
Cara Membuat Calculator Di Visual Basic 6 <div dir="ltr" style="text-align: left;" trbidi="on"><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/AVvXsEh44D_Et-JwPSIfL-0VX3XP-C7sM0LQdhjI5di_Ypytfve39RyX4qTWwuqTtpAoAo94yT0DCp8SPuUjDWob6HsrPERVmefwwOted4r_qW1qTuBd5j5uaObXoisq4xnv9C94lAaOXHhszvE/s1600/Cara+Membuat+Calculator+Di+VB6_00000.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara Membuat Calculator Di Visual Basic 6" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh44D_Et-JwPSIfL-0VX3XP-C7sM0LQdhjI5di_Ypytfve39RyX4qTWwuqTtpAoAo94yT0DCp8SPuUjDWob6HsrPERVmefwwOted4r_qW1qTuBd5j5uaObXoisq4xnv9C94lAaOXHhszvE/s1600/Cara+Membuat+Calculator+Di+VB6_00000.jpg" title="Cara Membuat Calculator Di Visual Basic 6" /></a></div><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;"></div><div><br /></div><div>Nah banyaknya permintaan program vb6 yang sangat unik dan sering dipakai banyak orang nah berhuhung dari itu saya memutuskan membuat calculator dalam pembuatan project ini kita harus memasukan logika untuk hitung hitungan dan namanya logika pasiti tidak susah, karena tidak jauh dari akal pikiran kita</div><span style="font-size: large;"><b>Logika Yang Digunakan :</b></span><br /><div><br /></div><div>Program Untuk Pembagian = “/” ( tanpa tanda kurung )<br />Program Untuk Tambah = “+” ( tanpa tanda kurung )<br />Program Untuk Perkalian = “x” ( tanpa tanda kurung )<br />Program Untuk Pengurangan = “-” ( tanpa tanda kurung )</div><div><br /><span style="font-size: x-large;"><b>Codingan untuk membuat calculator di vb6 </b></span><br />[info title="Codingan untuk membuat calculator di vb6" icon="info-circle"]Private Sub Command1_Click()<br />Private y As Double<br />Private x As Double<br /><br />Private Sub AC_Click()<br />text.text = ""<br />Text1.text = ""<br />End Sub<br /><br />Private Sub Bagi_Click()<br />Text1.text = ""<br />text.text = "/"<br />Text2.text = "bagi"<br />y = x<br />x = 0<br />End Sub<br /><br />Private Sub Hasil_Click()<br />If Text1 = "" Then<br />MsgBox ("Eror Code @@## || Harap Masukan Angka")<br />End If<br />text.text = " = "<br />Select Case Text2.text<br />Case "bagi"<br />x = y / x<br />Text1.text = x<br />Case "tambah"<br />x = y + x<br />Text1.text = x<br />Case "kurang"<br />x = y - x<br />Text1.text = x<br />Case "kali"<br />x = y * x<br />Text1.text = x<br />End Select<br />End Sub<br /><br />Private Sub kali_Click()<br />Text1.text = ""<br />text.text = "x"<br />Text2.text = "kali"<br />y = x<br />x = 0<br />End Sub<br /><br />Private Sub koma_Click()<br />If Text1.text = "" Then<br />Text1.text = "0,"<br />Else<br />Text1.text = Text1.text & ","<br />End If<br />End Sub<br /><br />Private Sub kurang_Click()<br />Text1.text = ""<br />text.text = " - "<br />Text2.text = "kurang"<br />y = x<br />x = 0<br />End Sub<br /><br />Private Sub Tambah_Click()<br />Text1.text = ""<br />text.text = " + "<br />Text2.text = "tambah"<br />y = x<br />x = 0<br />End Sub<br /><br />Private Sub Command1_Click(Index As Integer)<br />Text1.text = Text1.text & Command1(Index).Caption<br />x = Text1.text<br />End Sub<br /><br />Private Sub Timer1_Timer()<br />Label3.Caption = Right(Label3.Caption, Len(Label3.Caption) - 1) & Left(Label3.Caption, 1)<br />Label4.Caption = Time<br />End Sub[/info]<br /><br /><br /><a class="button large dark" href="http://adf.ly/1bJ8dk" rel="nofollow" style="text-align: center;" target="_blank">Download Project</a></div></div> Read more »
Cara Membuat Lampu Selang - Seling Manual vb6 <div dir="ltr" style="text-align: left;" trbidi="on"><span style="font-family: "verdana" , sans-serif;"><b>Manual lampu selang seling – </b>Dalam membuat project ini pastilah harus menggunakan lampu, namun yang dikatakan lampu sangatlah berfariasi mulai dari bentuknya warnanya ukurannya, namun dalam project ini saya menggunakan bentuk lingkaran dan warna kuning ketika on, untuk bab ini kalian bisa mengedit sesuka kalian karena dasaranya sama menggunakan shape,dalam shape bisa terbagi berbagai macam jenis dari kotak lingkaran dan lain lain </span><br /><span style="font-family: "verdana" , sans-serif;"><br /></span><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiblQ6qbaPmwT89xjSebFzd589HCbzOqLUG09BhxJ9PSGc_32iZyE-UPByulV0NGkeXG01SugpeYSdBcMeGAd6Y-9URskLYXt6TD9aBRY9_Bcjb8-BpG8LT952H_WpfWU_nD8twE_nmBF0/s1600/Training+lampu+selang+seling+vb6.png" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="182" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiblQ6qbaPmwT89xjSebFzd589HCbzOqLUG09BhxJ9PSGc_32iZyE-UPByulV0NGkeXG01SugpeYSdBcMeGAd6Y-9URskLYXt6TD9aBRY9_Bcjb8-BpG8LT952H_WpfWU_nD8twE_nmBF0/s640/Training+lampu+selang+seling+vb6.png" width="640" /></a></div><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;"> Project ini menggunakan metode manual, jadi untuk menjankan program anda masih menekan atau mengaktifkanya secara satu persatu guna memudahkan bagi anda untuk mempelajari project tersebut barulah nantinya saya berika project dengan metode automatis<br />Berikut adalah kodinganya<br /><br /></span><br /><div style="background-color: #007abe; border: 0; padding: 10px; text-align: left;"><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">Private Sub Command1_Click()</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">If Command1.Caption = "ON" Then</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command1.Caption = "OFF"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape1.FillColor = vbYellow ' lampu 1</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape4.FillColor = vbYellow ' lampu 3</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape2.FillColor = vbYellow ' lampu 5</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Else</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command1.Caption = "ON"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape1.FillColor = vbWhite 'merah</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape4.FillColor = vbWhite</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape2.FillColor = vbWhite</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End If</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End Sub</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">Private Sub Command2_Click()</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">If Command2.Caption = "ON" Then</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command2.Caption = "OFF"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape5.FillColor = vbYellow ' lampu 2</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape3.FillColor = vbYellow ' lampu 4</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape6.FillColor = vbYellow ' lampu 6</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">Else</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command2.Caption = "ON"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape5.FillColor = vbWhite</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape3.FillColor = vbWhite</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape6.FillColor = vbWhite</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End If</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End Sub</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">Private Sub Command3_Click()</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">If Command3.Caption = "ON" Then</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command3.Caption = "OFF"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command2.Caption = "on"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Command1.Caption = "on"</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape1.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape2.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape3.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape4.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape5.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Shape6.FillColor = &HFF&</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">Else</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> Unload Me</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"> </span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End If</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;">End Sub</span></span></div><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Keterangan singkat : untuk program vbwhite atau vbyellow atau vbred itu adalah program memudahkan anda untuk mengisi fillcolor backcolor dan fontcolor jika anda perhatikan vbred dengan &HFF& mudahan mana ? namun vbred dan &HFF& adalah program untuk warna merah ( satu kesatuan ) </span><br /><span style="font-family: "verdana" , sans-serif;">Dan untuk Caption itu merupakan program untuk memberi nama pada sebuah label command ataupun image dan from saya ambil contoh Command1.Caption = "OFF", jadi command1 tulisanya adalah off saat di run program</span><br /><span style="font-family: "verdana" , sans-serif;">untuk projectnya sudah saya sed<span style="font-family: "verdana" , sans-serif;">iakan</span></span><br /><div style="text-align: center;"><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://adf.ly/1aAy6X" rel="nofollow" style="margin-left: auto; margin-right: auto;" target="_blank"><img border="0" height="100" src="https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRVPU8LyUg5yXRb8hh9W2TpXbUI1_pChX-QUN0rV2kEuzntIv2g" width="100" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;"><a href="http://adf.ly/1aAy6X" rel="nofollow" target="_blank"><span style="font-family: "verdana" , sans-serif;"></span></a><span style="font-family: "verdana" , sans-serif;"><a href="http://adf.ly/1aAy6X" rel="nofollow" target="_blank">Download Project</a></span></td></tr></tbody></table></div></div> Read more »
Cara Membuat Software Pengingat Adzan Dengan vb6 <div dir="ltr" style="text-align: left;" trbidi="on"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbh3tnJTQoYd2fZzdFoi8BgUeDNnC4lqLov02IVaE2SqIlFLZTN7xs_zcQUs9YME7TnmkKqCiW2_Gh65z28fh6CkZY00OW2jLaxJDTkK17eF5R_Er6MyjDAyIQObbBMSPlKCcy4dgDKEc/s1600/Cara+membuat+Aplikasi+Adzan.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara Membuat software pengingat adzan dengan vb" border="0" height="135" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbh3tnJTQoYd2fZzdFoi8BgUeDNnC4lqLov02IVaE2SqIlFLZTN7xs_zcQUs9YME7TnmkKqCiW2_Gh65z28fh6CkZY00OW2jLaxJDTkK17eF5R_Er6MyjDAyIQObbBMSPlKCcy4dgDKEc/s320/Cara+membuat+Aplikasi+Adzan.png" title="Cara Membuat software pengingat adzan dengan vb" width="320" /></a></div><br /><span style="font-family: "verdana" , sans-serif;">Contoh program berikut adalah program untuk mengingatkan waktu adzan yang telah kita tentukan<br />Software ini juga dapat di jadikan software di leptop pribadi untuk mengingatkan secara pribadi tidak hanya di hp android leptop pun ada dan caranya sangatlah mudah dengan modal visual basic yang sudah di install di leptop anda dan anda bisa berkreasi dengan program yang asaya berikan <br /><br />Berikut codinganya <br /> <br /></span><br /><div style="background-color: #0fa5d9; border: 0; padding: 10px; text-align: left;"><span style="color: white; font-family: "verdana" , sans-serif;">Private Sub Form_Load()</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.URL = App.Path & "\Song\adzan.mp3" ' nama file adzan tsb</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Form1.Width = 11880</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Private Sub Label10_Click() ' tombol setting</span></span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Form1.Width = 13500</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label20.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Private Sub Label20_Click() ' tombol close</span></span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label20.Visible = False</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Form1.Width = 11880</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Private Sub Metode1_Timer() ' sistem utama dalam pembuatan waktu adzan</span></span><br /><span style="color: white; font-family: "verdana" , sans-serif;">If HasilM1.Caption = Label8.Caption Then</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.Controls.play</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End If</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">If HasilM2.Caption = Label8.Caption Then</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.Controls.play</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End If</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">If HasilM3.Caption = Label8.Caption Then</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.Controls.play</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End If</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">If HasilM4.Caption = Label8.Caption Then</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.Controls.play</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End If</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">If HasilM5.Caption = Label8.Caption Then</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">player.Controls.play</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = True</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End If</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">HasilM1.Caption = (Text1.Text) + ":" + (Text2.Text) + ":00" ' ini settingan untuk menu setting</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">HasilM2.Caption = (Text4.Text) + ":" + (Text3.Text) + ":00"</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">HasilM3.Caption = (Text6.Text) + ":" + (Text5.Text) + ":00"</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">HasilM4.Caption = (Text8.Text) + ":" + (Text7.Text) + ":00"</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">HasilM5.Caption = (Text10.Text) + ":" + (Text9.Text) + ":00"</span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">End Sub</span></span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Private Sub Timer1_Timer()</span></span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label8.Caption = Format(Now, "HH:mm:ss") ' jam memnggunakan format</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span><br /><span style="color: white;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">Private Sub Timertxt_Timer()</span></span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Caption = Right(Label15.Caption, Len(Label15.Caption) - 1) & Left(Label15.Caption, 1) ' text berjalan</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">turnofftxt.Caption = turnofftxt.Caption + 1</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Select Case turnofftxt.Caption</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Case "300"</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Label15.Visible = False</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">MsgBox " Saatnya Sholat ", vbInformation</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">turnofftxt.Caption = "1"</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">Timertxt.Enabled = False</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Select</span><br /><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span></div><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-family: "verdana" , sans-serif;">jika anda kebingungan untuk penempatanya bisa download projectnya di sini </span><br /><span style="font-family: "verdana" , sans-serif;">atau jika ada pertanyaan bisa komentar dibawah ini , kami akan menanggapi sebaik mungki</span><br /><div style="text-align: center;"><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://adf.ly/1a3GMv" imageanchor="1" rel="nofollow" style="margin-left: auto; margin-right: auto;" target="_blank"><img border="0" height="100" src="https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRVPU8LyUg5yXRb8hh9W2TpXbUI1_pChX-QUN0rV2kEuzntIv2g" width="100" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;"><a href="http://adf.ly/1a3GMv" rel="nofollow" target="_blank"><span style="font-family: "verdana" , sans-serif;"></span></a><span style="font-family: "verdana" , sans-serif;"><a href="http://adf.ly/1a3GMv" rel="nofollow" target="_blank">Download Project</a></span></td></tr></tbody></table></div></div> Read more »
Cara Membuat Lampu Laluintas Manual Di Visual Basic 6 <div dir="ltr" style="text-align: left;" trbidi="on"><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Lampu lalulintas memang sudah tidak asing lagi bagi kita namun apakah kalian tau bagaimana cara membuat simulasinya atau program pada lampu lalulintas ?</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Kali ini saya akan memberikan contoh coding yang sederhana yaitu cara membuat membuat lampu lalulintas di visual basic 6, cara membuatnya sangat mudah dan saya buat sesingkaat mungkin codingannya .</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Hal yang kalian siapkan untuk membuat project ini adalah </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">4 buah command</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">3 buah shape untuk lampunya ( Lampu merah , Lampu kuning , Lamou hijau ) </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Untuk lebih memperjelas penempatanya anda bias melihat gambar dibawah ini </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div class="separator" style="clear: both; text-align: center;"><span style="font-family: "verdana" , sans-serif; font-size: small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2gzlwj8_k700y9ctGTHwpD1XmkwS0GmCkEteoQBRwWW-__A2RnZMw-SrXj3Mxbcrsx3TI_NuNkd8qDatv0NmH-tZqLpFAiQCc68FHB_lXPWqUF158xyoWhDNYiHxXT6UxcAOVsa1hPVU/s1600/Cara+membuat+lampu+lalulintas+Manual.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt=" Cara membuat lampu lalu lintas manual di visual basic 6" border="0" height="223" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2gzlwj8_k700y9ctGTHwpD1XmkwS0GmCkEteoQBRwWW-__A2RnZMw-SrXj3Mxbcrsx3TI_NuNkd8qDatv0NmH-tZqLpFAiQCc68FHB_lXPWqUF158xyoWhDNYiHxXT6UxcAOVsa1hPVU/s320/Cara+membuat+lampu+lalulintas+Manual.png" title=" Cara membuat lampu lalu lintas manual di visual basic 6" width="320" /></a></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Jika sudah sesuai maka anda bias memasukan kodingan di bawah ini, namun perlu diperhatikan untuk tata letak anda bisa membuatnya sesuai selera anda sendiri dan pastikan anda tidak keliru </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><span style="font-family: "verdana" , sans-serif; font-size: small;"><span style="font-family: "verdana" , sans-serif; font-size: small;"><span style="font-size: x-large;"><b>Coding</b></span></span></span><br /><hr color="#be001b" width="800px" /><span style="font-family: "verdana" , sans-serif;"><br /></span><br /><div style="background-color: #0fa5d9; border: 0; padding: 10px; text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Private Sub Command1_Click() ' merah</span></span><br /><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape2.BackColor = vbWhite</span></span><br /><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape3.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape1.BackColor = vbRed</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Private Sub Command2_Click() ' kuning</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape1.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape3.BackColor = vbYellow</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape2.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Private Sub Command3_Click() ' hijau</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape3.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape2.BackColor = vbGreen</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape1.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Private Sub Command4_Click()</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape1.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape2.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">Shape3.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="color: white; font-family: "verdana" , sans-serif;">End Sub</span></span></div></div><div style="text-align: left;"><div style="text-align: left;"><span style="font-family: "verdana" , sans-serif;"><br /></span><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Keterangan :</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Private Sub Command1_Click() ' merah</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Shape2.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Shape3.BackColor = vbWhite</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Shape1.BackColor = vbRed</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">End Sub</span></span></div></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;"><br /></span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Saya ambil sampel ini. Coba anda perhatikan ' merah pada codingan tersebut</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Jika ada tanda ‘ ( kutip satu atas maka code sebelah kanan kutip tersebut akan berwarna hijau </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Hijau berati hanya sebagai tanda atau label </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Namun jika tidak menggunakan tanda kutip tersebut juga tidak apa apa </span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Niat saya menaruh tanda kutip tesebut guna untuk memberi tanda bahwa ini ' merah merupakan coding untuk lampu merah</span></span></div><div style="text-align: left;"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Sekian tutorial Cara membuat lampu lalulintas di visual basic 6 ( Manual ) jika kalian ingin membuatnya secara automatis tidak menggunakan tombol maka </span></span><br /><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Untuk lebih tepatnya anda bisa mendownload p<span style="font-family: "verdana" , sans-serif;">roject ini</span> </span></span><br /><div style="text-align: center;"><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" style="margin-left: auto; margin-right: auto;" target="_blank"><img border="0" height="100" src="https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRVPU8LyUg5yXRb8hh9W2TpXbUI1_pChX-QUN0rV2kEuzntIv2g" width="100" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" target="_blank"><span style="font-family: "verdana" , sans-serif;"></span></a><span style="font-family: "verdana" , sans-serif;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" target="_blank">Download Project</a></span></td></tr></tbody></table></div><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">saya sarankan membuka </span></span></div><div style="text-align: left;"><a href="http://raw16.blogspot.co.id/2016/04/cara-membuat-lampu-lalu-lintas.html" rel="nofollow" target="_blank"><span style="font-size: small;"><span style="font-family: "verdana" , sans-serif;">Cara membuat lampu lalulintas Automatis di visual basic6</span></span></a></div></div> Read more »
Cara Membuat Lampu Lalulintas Automatis Di Visual Basic 6 <div dir="ltr" style="text-align: left;" trbidi="on"><div dir="ltr" style="text-align: left;" trbidi="on"><div dir="ltr" style="text-align: left;" trbidi="on"><span style="font-family: "verdana" , sans-serif; font-size: small;">Sebelumya saya sudah memberikan <a href="http://raw16.blogspot.co.id/2016/04/cara-membuat-lampu-lalu-lintas-manual.html" rel="nofollow" target="_blank">Cara membuat lampu lalulintas Manual di visual basic 6</a></span><br /><span style="font-family: "verdana" , sans-serif; font-size: small;">Namun barang kali anda ingin mengembangkanya maka saya akan berikan beberapa tips merubah atau merobak yang manual menjadi auto.<br />Perbedaanya jika kita menggnakan yang manual maka lampu akan hidup jika kita tekan command button namun jika auto lampu akan menyala secara bergantian dengan di tetapkannya waktu atau jeda antara lampu satu dan lampu yang lainnya</span><br /><span style="font-size: small;"><br /></span><br /><div class="separator" style="clear: both; text-align: center;"><span style="font-size: small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2vjLSnZW2vAnIAO1alYbPj81ALhrbPXuh4odqoTKVc7I7k7vg2TSXiCqgxi2ybB_HI0pK2OSSs-u6VQ7PXJ4un0fUA9nupVSd5b4MxttmwpLqfcBdZMtsc8MBLVoeD9r9Fe-zPvTQSXU/s1600/Cara+membuat+lampu+lalulintas+Auto.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Cara membuat lampu lalu lintas Automatis di visual basic 6" border="0" height="235" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2vjLSnZW2vAnIAO1alYbPj81ALhrbPXuh4odqoTKVc7I7k7vg2TSXiCqgxi2ybB_HI0pK2OSSs-u6VQ7PXJ4un0fUA9nupVSd5b4MxttmwpLqfcBdZMtsc8MBLVoeD9r9Fe-zPvTQSXU/s320/Cara+membuat+lampu+lalulintas+Auto.png" title="Cara membuat lampu lalu lintas Automatis di visual basic 6" width="320" /></a></span></div><span style="font-size: small;"><br /></span><span style="font-family: "verdana" , sans-serif; font-size: small;">Hal yang kalian siapkan untuk membuat project ini adalah </span><br /><ul style="text-align: left;"><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>Timer1 </b></span></li><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>3 buah Command</b></span></li><ul><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>Sistem On = </b>Menjalankan timer 1</span></li><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>Sistem Off = </b>Mematikan Mematikan timer1</span></li><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>Sistem Reset = </b>Mengembalikan ke semua </span></li></ul><li><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>3 buah shape untuk lampunya</b> ( Lampu merah , Lampu kuning , Lamou hijau )</span><span style="font-size: small;"><br /></span></li></ul><span style="font-family: "verdana" , sans-serif; font-size: small;">Note : Untuk timer1 rubah propertisnya seperti gambar dibawah ini <br /> </span><br /><div class="separator" style="clear: both; text-align: center;"><span style="font-family: "verdana" , sans-serif; font-size: small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVnR7EhTrtZNuuYA32H5BkxA2RYjRqVogACJ0NVIc2wDdLH7cKbPKYN-9hmhBnQuVkrSsr7ZgJoDonn_RVekE6tasdHP7MjV9ZQRQklDTIIsi1M_e1QKD03PJ1eLgpP0BQqFf8_LE-Mew/s1600/Propertis+timer1+Vb.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVnR7EhTrtZNuuYA32H5BkxA2RYjRqVogACJ0NVIc2wDdLH7cKbPKYN-9hmhBnQuVkrSsr7ZgJoDonn_RVekE6tasdHP7MjV9ZQRQklDTIIsi1M_e1QKD03PJ1eLgpP0BQqFf8_LE-Mew/s1600/Propertis+timer1+Vb.png" /></a></span></div><br /><span style="font-family: "verdana" , sans-serif; font-size: small;">Keterangan : <br /> </span><br /><span style="font-family: "verdana" , sans-serif; font-size: small;"><b>Enable –</b> jika true. Maka timer akan aktif saat run program anda namun saya false kan karena timer itu atau program ini berjalan jika ada yang mengaktifkanya ( enable ) jika anda lihat codingannya yang mengaktifkanya adalah command6 ( sistem ON )<br /><br /><b>Interval –</b> Merupakan waktu nya . jika 1000 maka sama saja 1 detik, jika 100 maka 0,5 detik<br />Untuk lebih memperjelas penempatanya anda bias melihat gambar dibawah ini <br /><br />Jika sudah sesuai maka anda bias memasukan kodingan di bawah ini, namun perlu diperhatikan untuk tata letak anda bisa membuatnya sesuai selera anda sendiri dan pastikan anda tidak keliru <br /><span style="font-size: large;"><br /></span><span style="font-size: small;"><span style="font-size: x-large;"><b>Coding</b></span></span></span><br /><hr color="#be001b" width="800px" /></div><span style="font-size: small;"><br /></span><br /><div style="background-color: #0fa5d9; border: 0px none; padding: 10px; text-align: left;"><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Private Sub Command4_Click()</span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Timer1.Enabled = True<br />End Sub<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Private Sub Command5_Click()<br />Timer1.Enabled = False</span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">End Sub<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Private Sub Command6_Click()<br />Timer1.Enabled = False<br />Shape8.BackColor = vbWhite<br />Shape9.BackColor = vbWhite<br />Shape10.BackColor = vbWhite<br />Label6.Caption = "0"<br />End Sub<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Private Sub Timer1_Timer()<br />Label6.Caption = Label6.Caption + 1<br />Select Case Label6.Caption<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Case (Text1.Text)<br />Shape8.BackColor = vbWhite<br />Shape9.BackColor = vbWhite</span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Shape10.BackColor = vbRed<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Case (Text1.Text) * "2"<br />Shape9.BackColor = vbWhite<br />Shape8.BackColor = vbYellow<br />Shape10.BackColor = vbWhite<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Case (Text1.Text) * "3"<br />Shape8.BackColor = vbWhite<br />Shape9.BackColor = vbGreen<br />Shape10.BackColor = vbWhite</span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Label6.Caption = "0"<br />End Select<br />End Sub</span></div><span style="font-family: "verdana" , sans-serif; font-size: small;"><span style="font-size: small;"> </span><br />Keterangan :<br />Disitu saya masukan untuk mensetting waktu jeda anda bisa merubahnya<br />Namun jika anda ingin setiap lampu berbeda jeda waktunya <br />Contohnya lampu satu 2 detik dan lampu kedua 4 detik dan lampu ketiga 10 detik, Maka Anda diharuskan merubah di codingan di timer1<br /> </span><br /><span style="font-family: "verdana" , sans-serif; font-size: small;">Saya ambil sampel <br />Select Case Label6.Caption = target yang dipilih pada progam tersebut adalah label 6<br />Case (Text1.Text) * "2"<br />Case = memilih <br />(Text1.Text) * "2" = text yang ada di text1 dikalikan dengan 2 ( jeda 2 detik ) namun jika ingin memasukan jeda yang berbeda yang anda rubah hanyalah timer1 menjadi :<br /> </span></div><div style="background-color: #0fa5d9; border: 0px none; padding: 10px; text-align: left;"><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Private Sub Timer1_Timer()<br />Label6.Caption = Label6.Caption + 1<br />Select Case Label6.Caption<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Case “2” ( Jeda 2 Detik )<br />Shape8.BackColor = vbWhite<br />Shape9.BackColor = vbWhite<br />Shape10.BackColor = vbRed<br /> </span><br /><span style="color: white; font-family: "verdana" , sans-serif; font-size: small;">Case “10” ( Jeda 10 Detik )<br />Shape9.BackColor = vbWhite<br />Shape8.BackColor = vbYellow<br />Shape10.BackColor = vbWhite<br /><br />Case “20” ( Jeda 20 Detik )<br />Shape8.BackColor = vbWhite<br />Shape9.BackColor = vbGreen<br />Shape10.BackColor = vbWhite<br />Label6.Caption = "0"<br />End Select<br />End Sub</span></div><span style="font-size: small;"></span><br /><span style="font-size: small;"></span><br /><span style="font-size: small;"><br /></span><span style="font-family: "verdana" , sans-serif; font-size: small;">Bagi <span style="font-family: "verdana" , sans-serif;">a</span>nda <span style="font-family: "verdana" , sans-serif;">y</span>ang butuh project silakan download gratis aplikasi simulasi lampu lalulintas</span><br /><div style="text-align: center;"><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody><tr><td style="text-align: center;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" style="margin-left: auto; margin-right: auto;" target="_blank"><img border="0" height="100" src="https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRVPU8LyUg5yXRb8hh9W2TpXbUI1_pChX-QUN0rV2kEuzntIv2g" width="100" /></a></td></tr><tr><td class="tr-caption" style="text-align: center;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" target="_blank"><span style="font-family: "verdana" , sans-serif;"></span></a><span style="font-family: "verdana" , sans-serif;"><a href="http://adf.ly/1a6Nwb" rel="nofollow" target="_blank">Download Project</a></span></td></tr></tbody></table></div><span style="font-family: "verdana" , sans-serif; font-size: small;">Sekian tutorial kali ini jika ingin meminta projectnya bisa tulis email anda di komentar di bawah ini </span> </div> Read more »
