Tutorial Visual Basic

Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Animasi VB Form keliling Layar

Hmmmm... udah ga ada ide mau buat apa lagi untuk kali ini, tapi iseng ajah deh ini buat animasi tentang visual basic 6. Sebelum nya banyak artikel mengenai animasi menggunakan visual basic 6 yang telah saya berikan di web ini.
Kali ini animasi yang dibahas adalah animasi form pada visual basci 6, dimana form bergerak mengelilingi layar monitor laptop atau komputer kalian, semoga aja ga kesasar ke monitor lain :p

Persiapan dalam project :

  1. Buat project baru "Standart.exe"
  2. Sediakan satu buah Timer
  3. Dan 1 buah Button (untuk keluar/berhenti)
  4. Segelas kopi susu biar tetep melek depan coding :p

Untuk Coding preview nya :
  1. '---------------------------------------------------------------------------------------  
  2. ' Module    : Form1  
  3. ' Author    : indrawan  
  4. ' Date      : 28/04/2012  
  5. ' Purpose   : www.indrawan21.com  
  6. '---------------------------------------------------------------------------------------  
  7.   
  8. Dim ZigZagY As Integer  
  9. Dim ZigZagX As Integer  
  10. Sub keliling()  
  11. Me.Move Me.Left + ZigZagX, Me.Top + ZigZagY  
  12.             If Me.Left < 0 Then  
  13.                 ZigZagX = 20  
  14.             ElseIf Me.Left + Me.Width > Screen.Width + 0 Then  
  15.                 ZigZagX = -20  
  16.             ElseIf Me.Top <= 0 Then  
  17.                 ZigZagY = 20  
  18.             ElseIf Me.Top + Me.Height > Screen.Height + 0 Then  
  19.                 ZigZagY = -20  
  20.             End If  
  21. End Sub  
  22.   
  23. Private Sub Cexit_Click()  
  24. End  
  25. End Sub  
  26.   
  27. Private Sub Form_Load()  
  28. ZigZagY = 20  
  29. ZigZagX = 20  
  30. Timer1.Enabled = True  
  31. End Sub  
  32.   
  33. Private Sub Timer1_Timer()  
  34. keliling  
  35. End Sub  
Penjelasan sedikit...

'---------------------------------------------------------------------------------------
' Module    : Form1
' Author    : indrawan
' Date      : 28/04/2012
' Purpose   : www.indrawan21.com
'---------------------------------------------------------------------------------------
*numpang eksis sedikit pada coding, ga ngaruh apa2... dihapus atau dganti juga gpp kok #Hidup Open Source :p

  1. Dim ZigZagY As Integer  
  2. Dim ZigZagX As Integer  
  3. Sub keliling()  
  4. Me.Move Me.Left + ZigZagX, Me.Top + ZigZagY  
  5.             If Me.Left < 0 Then  
  6.                 ZigZagX = 20  
  7.             ElseIf Me.Left + Me.Width > Screen.Width + 0 Then  
  8.                 ZigZagX = -20  
  9.             ElseIf Me.Top <= 0 Then  
  10.                 ZigZagY = 20  
  11.             ElseIf Me.Top + Me.Height > Screen.Height + 0 Then  
  12.                 ZigZagY = -20  
  13.             End If  
  14. End Sub  
*Pendeklarasian Variable, dalam hal ini saya menggunakan ZigZagY dan ZigZagX yang ber-tipe data integer(penggunaan variable bebas dan disesuaikan)

  1. Private Sub Form_Load()  
  2. ZigZagY = 20  
  3. ZigZagX = 20  
  4. Timer1.Enabled = True  
  5. End Sub  
*Pemberian value terhadap variable tsb, saya berikan nilai 20

  1. Private Sub Timer1_Timer()  
  2. keliling  
  3. End Sub  
*Pemanggilan Sub animasi nya,menggunakan Timer, Untuk Timer itu sendiri silahkan kalian Set Interval-nya(misal 50). Semakin kecil Interval-nya, maka semakin cepat form tsb bergerak.

Download Source nya:

Klik Like/share jika anda menyukai tulisan Share

09.15

Download Jawaban Quis Delphi

Mohon maaf sebelumnya jika untuk penyampaian materi terakhir tidak atau kurang dirasa maksimal. Dengan ini saya mau sedikit membalas rasa bersalah kepada para mahasiswa yang ingin mempelajari lebih lanjut tentang materi quis di lab H malam ini. Untuk diketahi untuk materi kita pada quis Delphi kemarin membahas tentang "Operator String" dan sedikit menggunakan "Struktur IF".
Dan untuk sekedar mengingatkan kalian, saya sedikit memberi penjelasan mengenai Struktur IF pada Delphi.
  1. if kondisi then  
  2.   Pernyataan1  //tanpa titik koma
  3. else  
  4.   Pernyataan2;  //dengan titik koma(untuk mengakhiri pengkondisian
Dari Struktur IF diatas dapat dikembangkan lagi dengan pengkondisian selanjutnya. Konsep dasar dalam IF bisa kalian lihat pada contoh diatas.
Lalu pada kasus berikutnya adalah mengenai Operator String di Delphi.
Untuk Format Penulisan Operator String di Delphi bisa kalian perhatikan pada script berikut:
  1. LeftStr(Object, char)   
  2. MidStr(Object, index, Char)   
  3. RightStr(Object, Char)   
Dari penggalan code diatas adalah format dasar penulisan Operator string(dpt dikembangkan lagi).
Dilihat pada bagian "Object" itu dimaksud adalah tempat atau lokasi dimana string yang mau di eksekusi, saya ambil contoh untuk Object nya menggunakan EDIT1.Text dan saya akan mengambil character sebanyak 2 character.
bisa menggunakan Code sbb :
  1. LeftStr(Edit1.text, 2)   
  2. MidStr(Edit1.text, 3, 2)   
  3. RightStr(Edit1.text, 2)   
Dimana jika di dalam Edit1.text adalah string berupa "TEST STRING"
Edit1 

Maka jika kita menggunakan LeftStr hasilnya akan menjadi

*Hanya 2 character dari sebelah Kiri yang tercetak.
Dan bila menggunakan MidStr(3,2) hasilnya:

*Yang tercetak hanya character ke-3 sebanya dua character berikut (spasi)
Dan jika menggunakan RightStr maka hasilnya sbb:

*Hanya dua character  dari sebelah kanan saja yang tercetak.

Kurang lebih itulah sedikit penjelasan dasar untuk materi kali ini, jika kalian mempunyai pertanyaan dapat kalian tinggalkan komentar dan pertanyaan pada kolom komentar di bawah artikel ini.

Dan untuk Download Soal berikut Source code jawabannya silahkan klik link dibawah:
| |

Semoga Bermanfaat :) 
Klik Like/share jika anda menyukai tulisan Share

08.22

Hal Hal Persiapan Sidang Tugas Akhir

Ada info bagus nih, khusus nya untuk mahasiswa/i tingkat akhir di BSI BEKASI. Artikel dan materi ini saya dapatkan dari blog "SMY", dimana beliau adalah salah satu staff akademik di bsi.

Info ini adalah info mengenai persiapan menuju Sidang Tugas Akhir, Untuk bagaimana persiapan yang harus dilakukan oleh Mahasiswa/i, bisa kalian baca selengkapnya di file yang bisa kalian download pada akhir artikel ini.

Sebelumnya terima kasih kpd ibu "SMY" yang telah membuat dokumen ini, semoga bermanfaat untuk semua :)

Download


Klik Like/share jika anda menyukai tulisan Share

08.52

SLIDER Header dengan jquery

Contoh diatas adalah contoh dari efek slider image, yang biasanya digunakan unutk header dalam sebuah website.Maaf kalo cuma di frame kurang besar,karena males buat hosting nya :p

Artikel ini atas permintaan dari komentar yang ada di kolom REQUEST semoga dapat membantu...
sedikit penjelasan dari script yang berada di dalam nya
  1. <div id="slide-runner">  
  2.     <a href=""><img id="slide-img-1" src="images/nature-photo.png" class="slide" alt="" /></a>  
  3.     <a href=""><img id="slide-img-2" src="images/nature-photo1.png" class="slide" alt="" /></a>  
  4.     <a href=""><img id="slide-img-3" src="images/nature-photo2.png" class="slide" alt="" /></a>  
  5.     <a href=""><img id="slide-img-4" src="images/nature-photo3.png" class="slide" alt="" /></a>  
  6.     <a href=""><img id="slide-img-5" src="images/nature-photo4.png" class="slide" alt="" /></a>  
  7.     <a href=""><img id="slide-img-6" src="images/nature-photo4.png" class="slide" alt="" /></a>  
  8.     <a href=""><img id="slide-img-7" src="images/nature-photo6.png" class="slide" alt="" /></a>   
  9.     <div id="slide-controls">  
  10.      <p id="slide-client" class="text"><strong>post: </strong><span></span></p>  
  11.      <p id="slide-desc" class="text"></p>  
  12.      <p id="slide-nav"></p>  
  13.     </div>  
  14. </div>  
Script diatas itu adalah script untuk menentukan lokasi file image yang mau kita jadikan slide nya (warna merah)Sedangkan yang berwarna biru, adalah title dan description untuk tiap slide nya.
Slide terdiri dari 7 image, dan dapat berganti title dan description di tiap image nya.
Untuk mengubah title dan description nya,silahkan kalian lihat pada bagian penggalan script berikut :
  1. <script type="text/javascript">  
  2.     if(!window.slider) var slider={};slider.data=[{"id":"slide-img-1","client":"nature beauty","desc":"nature beauty photography"},{"id":"slide-img-2","client":"nature beauty","desc":"add your description here"},{"id":"slide-img-3","client":"nature beauty","desc":"add your description here"},{"id":"slide-img-4","client":"nature beauty","desc":"add your description here"},{"id":"slide-img-5","client":"nature beauty","desc":"add your description here"},{"id":"slide-img-6","client":"nature beauty","desc":"add your description here"},{"id":"slide-img-7","client":"nature beauty","desc":"add your description here"}];  
  3.    </script>  

Coba kalian perhatikan potongan script berikut:
{"id":"slide-img-1","client":"nature beauty","desc":"nature beauty photography"}
Pada tag "Client" tsb akan menampilkan title atau judul image(bisa kalian ganti) dan pada tag "desc" tsb adalah untuk description dari image kalian(bisa kalian rubah).
Silahkan kalian sesuaikan dengan judul dan description dari tiap image yang mau kalian tampilkan pada slider.

Untuk Download source code slider nya silahkan :
Slider.zip | Calon Programer
Semoga Membantu
Klik Like/share jika anda menyukai tulisan Share

19.03

Contoh Source code Validasi Input TextBoxt Visual Basic

Setelah di artikel sebelumnya saya memberikan sedikit contoh tetang validasi input text pada php, dan validasi input text pada visual basic yang hanya bisa di input dengan huruf, di sini saya berikat untuk contoh source code mengenai validasi input text di visual basic,silahkan kalian download contoh source code nya : Untuk penampakan
Berikut Source code nya :
  1. Private Sub txthufur_KeyPress(KeyAscii As Integer)  
  2.     If KeyAscii >= 65 And KeyAscii <= 90 Then  
  3.         KeyAscii = KeyAscii  
  4.     Else  
  5.         If KeyAscii >= 97 And KeyAscii <= 122 Then  
  6.             KeyAscii = KeyAscii  
  7.         Else  
  8.             KeyAscii = 0  
  9.         End If  
  10.     End If  
  11. End Sub  
  12.   
  13. Private Sub txtkapital_KeyPress(KeyAscii As Integer)  
  14.     KeyAscii = Asc(UCase(Chr(KeyAscii)))  
  15. End Sub  
  16.   
  17. Private Sub txtangka_KeyPress(KeyAscii As Integer)  
  18.     If KeyAscii >= 48 And KeyAscii <= 57 Then  
  19.         KeyAscii = KeyAscii  
  20.     Else  
  21.         KeyAscii = 0  
  22.     End If  
  23. End Sub  

Download Disini :
Klik Like/share jika anda menyukai tulisan Share

20.01

Membuat Validasi Huruf dan Angka di Visual Basic


Atas permintaan dari seorang mahasiswa ajaran saya yang bertanya tentang validasi input di textbox visual basic, maka disini saya buat kan sedikit contoh simpe dari validasi inputan textbox pada visual basic 6. Dimana dalam input textbox hanya bisa di input huruf, biasa nya hal ini dibutuhkan dalam penginputan nama.agar nama yang digunakan tidak bisa di input menggunakan angka.Berikut contoh script yang saya gunakan pada textnama dengan event keypress.
  1. Private Sub txtnama_KeyPress(KeyAscii As Integer)  
  2. If Not (KeyAscii >= Asc(“a”) & Chr(13) _  
  3. And KeyAscii = Asc(“A”) & Chr(13) _  
  4. And KeyAscii <= Asc("Z") & Chr(13) _  
  5. Or KeyAscii = vbKeyBack _  
  6. Or KeyAscii = vbKeyDelete _  
  7. Or KeyAscii = vbKeySpace)) Then  
  8. Beep  
  9. KeyAscii = 0  
  10. End If  
  11. End Sub  
Dari script diatas dapat disimpulkan bahwa tiap kita melakukan penginputan ke dalam textnama, maka hanya tombol yang memiliki hasil huruf saja yang dapat di terima oleh textnama
Klik Like/share jika anda menyukai tulisan Share

19.39

Membuat validasi telephone di php

Setelah beberapa waktu kemarin saya sudah membuat artikel mengenai membuat validasi email di php, sekarang saya akan memberi sedikit contoh untuk bagaimana membuat validasi untuk fields telephone di php.
mulai dari format penulisannya hingga hanya dapat di input angka.
Untuk menggunakannya, masukan script berikut ke dalam file php kalian.
  1. <?php  
  2. function cekTelepon($telp)  
  3. {  
  4. $pattern = “^([0-9]{3,4})( )?(\-)?( )?([0-9]{6,8})$”;  
  5. if (!ereg($pattern, $telp)) return false;  
  6. else return true;  
  7. }  
  8. ?>  

Pada Script diatas, untuk format penulisan tlp adalah berupa (***-****), dimana terdapat 3 digit pada awal angka, dan 6-8 digit di akhir angka.
Semoga bermanfaat
Klik Like/share jika anda menyukai tulisan Share

19.22

Membuat validasi textfields email di PHP

Terkadang kita mengacuhkan bagian ekcil seperti ini dalam merancang atau membuat form yang membutuhkan input data email.
Sehingga pada kolom email tsb dapat diisi sesuka hati,bahkan bukan alamat email sekalipun.
Bagaimana membuat agar itu tidak terjadi pada saat pengisian kolom email,sehingga hanya email valid yang dapat diinput pada kolom tsb??




Perhatikan script berikut :
  1. <script type="text/javascript">  
  2. var emailfilter=/^\w+[\+\.\w-]*@([\w-]+\.)*\w+[\w-]*\.([a-z]{2,4}|\d+)$/i  
  3.   
  4. function checkmail(e){  
  5. var returnval=emailfilter.test(e.value)  
  6. if (returnval==false){  
  7. alert("Please enter a valid email address.")  
  8. e.select()  
  9. }  
  10. return returnval  
  11. }  
  12.   
  13. </script>  
  14.   
  15. <form>  
  16. <input name="myemail" type="text" style="width: 270px"> <input type="submit" onClick="return checkmail(this.form.myemail)" value="Submit" />  
  17.   
  18. </form>  

Sample :


*Masukkan Alamat email anda,dan coba masukan text asal (misal nama anda)

Jadi dapat kalian tambahkan pada halaman php kalian script berikut
  1. <script type="text/javascript">  
  2. var emailfilter=/^\w+[\+\.\w-]*@([\w-]+\.)*\w+[\w-]*\.([a-z]{2,4}|\d+)$/i  
  3. function checkmail(e){  
  4. var returnval=emailfilter.test(e.value)  
  5. if (returnval==false){  
  6. alert("Please enter a valid email address.")  
  7. e.select()  
  8. }  
  9. return returnval  
  10. }  
  11. </script>  
Pada script diatas adalah script validasi email, yang berfungsi mengecek kebenaran dari text yang kita input pada suatu kolok/textfield,
lalu kalian tambahkan lagi script
  1. onclick="return checkmail(this.form.myemail)"  
Pada tombol submitnya,sehingga tombol tsb akan memeriksa dengan meng-eksekusi script validasi email terlebih dahulu sebelum mengirimkan data...

Semoga bermanfaat :)
Klik Like/share jika anda menyukai tulisan Share

16.50

Membuat Accordion Menu script

Cara membuat menu accordion di web atau pada php sesungguhnya cukup simple dan ga banyak-banyak amat script nya,disini akan saya beri satu buah contoh dalam membuat menu accordion,mungkin bagi mahasiswa.Menu ini sudah ga asing lagi bentuk dan tampilan dari menu accordion nya.
Sample :











Berikut penampakannya :


Gimana???cukup dikenal kan menu accordion nya :p
File-file yang kalian butuhkan dan persiapkan sebelum mencoba membuat nya :
File Javascript : Downliad (klik kanan> save as)
File Jquery : Downliad (klik kanan> save as)
File Image : (klik kanan>save as)
Berikut Code nya :
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml2/DTD/xhtml1-strict.dtd">  
  2. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">  
  3.   
  4. <script type="text/javascript" src="js/jquery.min.js"></script>  
  5.   
  6. <script type="text/javascript" src="js/ddaccordion.js"></script>  
  7.   
  8. <script type="text/javascript">  
  9.   
  10. //Initialize Arrow Side Menu:  
  11. ddaccordion.init({  
  12.     headerclass: "menuheaders", //Shared CSS class name of headers group  
  13.     contentclass: "menucontents", //Shared CSS class name of contents group  
  14.     revealtype: "clickgo", //Reveal content when user clicks or onmouseover the header? Valid value: "click", or "mouseover"  
  15.     mouseoverdelay: 200, //if revealtype="mouseover", set delay in milliseconds before header expands onMouseover  
  16.     collapseprev: true, //Collapse previous content (so only one open at any time)? true/false   
  17.     defaultexpanded: [0], //index of content(s) open by default [index1, index2, etc]. [] denotes no content.  
  18.     onemustopen: false, //Specify whether at least one header should be open always (so never all headers closed)  
  19.     animatedefault: false, //Should contents open by default be animated into view?  
  20.     persiststate: true, //persist state of opened contents within browser session?  
  21.     toggleclass: ["unselected", "selected"], //Two CSS classes to be applied to the header when it's collapsed and expanded, respectively ["class1", "class2"]  
  22.     togglehtml: ["none", "", ""], //Additional HTML added to the header when it's collapsed and expanded, respectively  ["position", "html1", "html2"] (see docs)  
  23.     animatespeed: 500, //speed of animation: integer in milliseconds (ie: 200), or keywords "fast", "normal", or "slow"  
  24.     oninit:function(expandedindices){ //custom code to run when headers have initalized  
  25.         //do nothing  
  26.     },  
  27.     onopenclose:function(header, index, state, isuseractivated){ //custom code to run whenever a header is opened or closed  
  28.         //do nothing  
  29.     }  
  30. })  
  31.   
  32. </script>  
  33.   
  34. <style type="text/css">  
  35.   
  36. .arrowsidemenu{  
  37.     width: 180px; /*width of menu*/  
  38.     border-style: solid solid none solid;  
  39.     border-color: #94AA74;  
  40.     border-size: 1px;  
  41.     border-width: 1px;  
  42. }  
  43.       
  44. .arrowsidemenu div a{ /*header bar links*/  
  45.     font: bold 12px Verdana, Arial, Helvetica, sans-serif;  
  46.     display: block;  
  47.     background: transparent url(arrowgreen.gif) 100% 0;  
  48.   height: 24px; /*Set to height of bg image-padding within link (ie: 32px - 4px - 4px)*/  
  49.     padding: 4px 0 4px 10px;  
  50.     line-height: 24px; /*Set line-height of bg image-padding within link (ie: 32px - 4px - 4px)*/  
  51.     text-decoration: none;  
  52. }  
  53.       
  54. .arrowsidemenu div a:link, .arrowsidemenu div a:visited{  
  55.     color: #26370A;  
  56. }  
  57.   
  58. .arrowsidemenu div a:hover{  
  59.     background-position: 100% -32px;  
  60. }  
  61.   
  62. .arrowsidemenu div.unselected a{ /*header that's currently not selected*/  
  63.     color: #6F3700;  
  64. }  
  65.   
  66.       
  67. .arrowsidemenu div.selected a{ /*header that's currently selected*/  
  68.     color: blue;  
  69.     background-position: 100% -64px !important;  
  70. }  
  71.   
  72. .arrowsidemenu ul{  
  73.     list-style-type: none;  
  74.     margin: 0;  
  75.     padding: 0;  
  76. }  
  77.   
  78. .arrowsidemenu ul li{  
  79.     border-bottom: 1px solid #a1c67b;  
  80. }  
  81.   
  82.   
  83. .arrowsidemenu ul li a{ /*sub menu links*/  
  84.     display: block;  
  85.     font: normal 12px Verdana, Arial, Helvetica, sans-serif;  
  86.     text-decoration: none;  
  87.     color: black;  
  88.     padding: 5px 0;  
  89.     padding-left: 10px;  
  90.     border-left: 10px double #a1c67b;  
  91. }  
  92.   
  93. .arrowsidemenu ul li a:hover{  
  94.     background: #d5e5c1;  
  95. }  
  96.   
  97. </style>  
  98.   
  99. <body>  
  100.   
  101. <div class="arrowsidemenu">  
  102.   
  103. <div><a href="http://www.indrawan21.com" title="Home">Home</a></div>  
  104. <div class="menuheaders"><a href="http://www.indrawan21.com" title="CSS">Cp</a></div>  
  105.     <ul class="menucontents">  
  106.     <li><a href="#">Horizontal CSS Menus</a></li>  
  107.     <li><a href="#">Vertical CSS Menus</a></li>  
  108.     <li><a href="#">Image CSS</a></li>  
  109.     <li><a href="#">Form CSS</a></li>  
  110.     <li><a href="#">DIVs and containers</a></li>  
  111.     <li><a href="#">Links & Buttons</a></li>  
  112.     <li><a href="#">Other</a></li>  
  113.     </ul>  
  114.   
  115. <div><a href="http://www.indrawan21.com/" title="Tools">Calon Programer</a></div>  
  116.   
  117. </div>  
  118.   
  119.   
  120. </body>  
  121.   
  122. </html>  

Gimana cara menggunakan script diatas???
Silahkan kalian copy script diatas ke dalam "notepad" dan simpan sebaga file html/php
lalu jalankan file tsb di browser
Perhatikan script berikut :
  1. <script type="text/javascript" src="js/jquery.min.js"></script>  
  2.   
  3. <script type="text/javascript" src="js/ddaccordion.js"></script>  
Script diatas itu menandakan bahwa lokasi file html/php yg telah kalian buat,memiliki struktur penyimpanan sbb :
Bagaimana?cukup mudah bukan pembuatan menu accordion???
Semoga Bermanfaat :)

Jika kalian ingin melihat dari sumber,silahkan kunjungi :
http://www.dynamicdrive.com/dynamicindex17/ddaccordionmenu-arrow.htm
Klik Like/share jika anda menyukai tulisan Share

16.16

SEMINAR TUGAS AKHIR (TA)

Masih bingung dengan TA???
Blum tahu TA mau buat apa???
Mau TA kita Sukses???
Ga usah bingung dan ga usah mikir, mending datang aj ke acara ini

Seminar TA
"Formula Dahsyat menuju Kesuksesan TA"

Sabtu, 14 April 2012
08.30 - 15.00
di Aula BSI Bekasi

Narasumber:
1. Ibu Irma Afrianti, S.Kom
2. Bpk. Verry Rianto, S.Kom
3. Ka' Ahmad Sinun, A.Md

Bedahan seminar :
1. Seluk Beluk TA
2. Outline perancangan Sistem & Ujian Komprehensif
3. Outline Pemrograman Web
4. Outline Pemrograman Visual
5. Bincang-bincang seputar, "Tentang TA dan mau apa setelah TA"

HTM-Nya cuma Rp. 25.000,
gratis ilmu dahsyat, modul, snack, makan siang, dan pencerahan tentang TA

Ayo ikutan..!!!
Peserta terbatas...!!!

Presented by:
BSI Bekasi & UKM Badaris BSI Bekasi
Klik Like/share jika anda menyukai tulisan Share

08.37
Langganan: Postingan (RSS)