tag:blogger.com,1999:blog-77721076556173857342024-03-08T16:26:50.871+07:00Tutorial Visual Basic 6.0Tutorial Visual Basic 6.0 Untuk Pemula Irvan Dwi Phttp://www.blogger.com/profile/10701458467199775707noreply@blogger.comBlogger21125tag:blogger.com,1999:blog-7772107655617385734.post-60719907332145877322012-08-10T01:00:00.007+07:002012-08-10T05:06:58.711+07:00Membuat Animasi Form Fade In dan Fade Out<div class="separator" style="clear: both; text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="211" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_1.jpg" width="400" /></a></div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
<br />
<span style="font-family: Trebuchet MS, sans-serif;">Ups..selamat malam mas bro^_^ Kali ini kita akan membuat <i>project</i> sederhana berupa animasi <i>form</i> yang lebih tepatnya Animasi <i>Form Fade In</i> dan <i>Fade Out</i>. <i>Project</i> kali ini merupakan <i>request</i> dari teman kita yang ada di <i>Grup Facebook <a href="http://www.facebook.com/TutorialVisualBasic6.0" target="_blank">Tutorial Visual Basic 6.0</a></i>, sekalian promosi nieh yang belum gabung silakan bergabung di grup ini, dan grup ini terbuka untuk diskusi masalah yang berkaitan dengan <i>Visual Basic 6.0</i> serta sebagai sarana silaturahmi hehehe…</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Oke..sebagai gambaran awal, aplikasi kali ini kita akan membutuhkan 2 buah<i> form</i>. Kenapa kita perlu 2 buah <i>form</i>? Karena <i>form</i> pertama berfungsi sebagai pemicu untuk munculnya <i>form</i> kedua, jadi<i> form</i> yang kedua hanya contoh saja cara kerja animasi <i>fade in</i> dan <i>fade out</i>. Untuk membuat animasi <i>fade</i> maka kita juga memerlukan perintah transparan yang akan kita kemas dalam sebuah <i>module</i>.</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Nggak usah panjang lebar, mari kita mulai pembuatan <i>project</i> kali ini :</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;"><b>A. Tahap Persiapan nieh :</b></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><b><br /></b></span>
<br />
<div>
<div style="margin-bottom: 2px;">
<b><small>Klik show untuk melihat gambar</small></b>
<input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding: 0px; width: 60px;" type="button" value="Show" /></div>
<div style="border: 1px inset; margin: 0px; padding: 6px;">
<div style="display: none;">
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_2.jpg" width="168" /></a></div>
</div>
</div>
</div>
<ol>
<li><span style="font-family: 'Trebuchet MS', sans-serif;">Buka <i>Micos*ft Visual Basic 6.0</i> Anda, lalu pilihlah <i>StandardEXE</i>;</span></li>
<li><span style="font-family: 'Trebuchet MS', sans-serif;">Tekan Alt+P dan pilihlah <i><b>Add Form </b></i>lalu pada tab <i><b>New</b></i> pilih <i><b>Form</b></i> dan <i><b>Open</b></i>;</span></li>
<li><span style="font-family: 'Trebuchet MS', sans-serif;">Tekan Alt+P dan pilihlah <b><i>Add Module</i></b> lalu pada tab <i><b>New</b></i> pilih <i><b>Module</b></i> dan <i><b>Open</b></i>; </span><span style="font-family: 'Trebuchet MS', sans-serif;">Oke sekarang kita sudah memiliki 2 buah <i>form</i> yakni <i>form1</i> dan <i>form2</i> serta 1 buah <i>module</i> yakni <i>module1;</i></span></li>
<li><span style="font-family: 'Trebuchet MS', sans-serif;">Tambahkan<i> Tool</i> pada <i>form</i> yakni : <i><b>Form1</b></i> tambahkan <i><b>CommandButton</b></i> 2 buah yakni <i><b>CommandButton1</b></i> dan <b><i>CommandButton2</i></b>; <i><b>Form2</b></i> tambahkan <b><i>CommandButton</i></b> 2 buah yakni <b><i>CommandButton1</i></b> dan <b><i>CommandButton2</i></b>, <b><i>Label</i></b> 1 buah yakni <b><i>Label1 </i></b>serta <b><i>Timer</i></b> 1 buah yakni <b><i>Timer1;</i></b></span></li>
<li><span style="font-family: 'Trebuchet MS', sans-serif;">Ubah <i>properties</i> seperti dibawah ini :</span></li>
</ol>
<br />
<div>
<div style="margin-bottom: 2px;">
<b><small>Klik show untuk melihat</small></b>
<input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding: 0px; width: 60px;" type="button" value="Show" /></div>
<div style="border: 1px inset; margin: 0px; padding: 6px;">
<div style="display: none;">
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_4.jpg" /></a></div>
</div>
</div>
</div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;"><b>B. Tahap Koding, memasukkan <i>source code</i> maksudnya mas bro;</b></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">1. Klik 2x pada <b><i>module modTrans</i></b>, maka muncul jendela <i>module</i>. <i>Copy paste source code</i> dibawah ini ke <i>modTrans</i> (<i>note</i> : jangan tanya apaan tuh artinya soalnya gw juga copas tuh kode hohohoho…);</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Option Explicit<br />
Public Transparan As Integer<br />
Public Trans As Integer<br />
Private Const LWA_COLORKEY = 1<br />
Private Const LWA_ALPHA = 2<br />
Private Const LWA_BOTH = 3<br />
Private Const WS_EX_LAYERED = &H80000<br />
Private Const GWL_EXSTYLE = -20<br />
<br />
Private Declare Function SetLayeredWindowAttributes _<br />
Lib "user32" (ByVal hwnd As Long, _<br />
ByVal color As Long, ByVal x As Byte, _<br />
ByVal alpha As Long) As Boolean<br />
<br />
Private Declare Function SetWindowLong _<br />
Lib "user32" Alias "SetWindowLongA" _<br />
(ByVal hwnd As Long, ByVal nIndex As Long, _<br />
ByVal dwNewLong As Long) As Long<br />
<br />
Private Declare Function GetWindowLong _<br />
Lib "user32" Alias "GetWindowLongA" _<br />
(ByVal hwnd As Long, ByVal nIndex As Long) As Long<br />
<br />
Sub SetTrans(hwnd As Long, Trans As Integer)<br />
Dim Tcall As Long<br />
Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)<br />
SetWindowLong hwnd, GWL_EXSTYLE, Tcall _<br />
Or WS_EX_LAYERED<br />
SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _<br />
Trans, LWA_ALPHA<br />
Exit Sub<br />
End Sub<br />
<br />
Sub SetTransp(hwnd As Long, Trans As Integer)<br />
Dim Tcall As Long<br />
Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)<br />
SetWindowLong hwnd, GWL_EXSTYLE, Tcall _<br />
Or WS_EX_LAYERED<br />
SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _<br />
Trans, LWA_ALPHA<br />
Exit Sub<br />
End Sub<br />
<br />
<br /></div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;"></span>
<span style="font-family: Trebuchet MS, sans-serif;">2. Beralih pada <b><i>frmAnimasi</i></b>, klik 2 kali pada <i><b>cmdFadeIn</b></i> lalu masukkan <i>source code</i> sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub cmdFadeIn_Click()<br />
frmFade.Show<br />
frmFade.Caption = "Animasi Fade In"<br />
frmFade.cmdIn = True<br />
Me.Hide<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Penjelasan :</span><br />
<span style="font-family: Courier New, Courier, monospace;">frmFade.Show</span><span style="font-family: Trebuchet MS, sans-serif;"> , maksudnya memberi perintah kepada <i><b>form Fade</b></i> untuk terlihat</span><br />
<span style="font-family: Courier New, Courier, monospace;">frmFade.Caption = "Animasi Fade In"</span><span style="font-family: Trebuchet MS, sans-serif;"> , memberi perintah untuk mengganti <i>caption</i> / nama pada <i>bar form Fade</i> menjadi “Animasi Fade In”</span><br />
<span style="font-family: Courier New, Courier, monospace;">frmFade.cmdIn = True</span><span style="font-family: Trebuchet MS, sans-serif;">, memberi perintah kepada <b><i>cmdIn</i></b> untuk aktif (di klik )</span><br />
<span style="font-family: Courier New, Courier, monospace;">Me.Hide</span><span style="font-family: Trebuchet MS, sans-serif;">, maksudnya <i>form</i> Animasi disembunyikan;</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">3. Klik 2 kali pada <i><b>cmdFadeOut</b></i> lalu masukkan <i>source code </i>sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub cmdFadeOut_Click()<br />
frmFade.Show<br />
frmFade.Caption = "Animasi Fade Out"<br />
frmFade.cmdOut = True<br />
Me.Hide<br />
End Sub<br />
<div>
<br /></div>
</div>
<span style="font-family: Trebuchet MS, sans-serif;">Penjelasan :</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Intinya sama dengan poin 7 hehehe…</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">4. Beralih pada<b><i> frmFade</i></b>, klik 2 kali pada <i><b>form</b></i> dan masukkan <i>source code</i> sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub Form_Load()<br />
Timer1.Enabled = True<br />
Timer1.Interval = 1<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;">Penjelasan :</span><br />
<span style="font-family: Courier New, Courier, monospace;">Timer1.Enabled = True</span><span style="font-family: Trebuchet MS, sans-serif;">, maksudnya <i>timer1</i> di aktifkan</span><br />
<span style="font-family: Courier New, Courier, monospace;">Timer1.Interval = 1</span><span style="font-family: Trebuchet MS, sans-serif;">, mengganti <i>interval timer1</i> menjadi 1 (bukan 1 detik lho itu, <i><b>note</b></i> : 1 detik = 1000 <i>interval</i>);</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">5. Klik 2 kali pada <b><i>cmdIn</i></b> lalu masukkan kode sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub cmdIn_Click()<br />
Trans = 0<br />
SetTransp Me.hwnd, Trans<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;">Penjelasan :</span><br />
<span style="font-family: Courier New, Courier, monospace;">Trans = 0</span><span style="font-family: Trebuchet MS, sans-serif;"> , memposisikan nilai transparan adalah 0 (nol)</span><br />
<span style="font-family: Courier New, Courier, monospace;">SetTransp Me.hwnd, Trans</span><span style="font-family: Trebuchet MS, sans-serif;"> , maksudnya nilai transparan tadi diposisikan pada <i><b>frmFade ;</b></i></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">6. Klik 2 kali pada <b><i>cmdOut</i></b> lalu masukkan kode sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub cmdOut_Click()<br />
Trans = 255<br />
SetTransp Me.hwnd, Trans<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">7. Klik 2 kali pada <b><i>Timer1</i></b> lalu masukkan kode sehingga seperti di bawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub Timer1_Timer()<br />
If Me.Caption = "Animasi Fade Out" Then<br />
Call FadeOut<br />
Else<br />
Call FadeIn<br />
End If<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;">Penjelasan :</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Jika <i><b>Me</b></i> (<b><i>frmFade</i></b>) nama pada <i>bar</i> adalah "Animasi Fade Out" maka memanggil perintah <i><b>FadeOut</b></i>, <u>jika tidak terpenuhi</u> (nama <i>bar</i> nya) maka memanggil perintah FadeIn.</span><br />
<span style="font-family: Trebuchet MS, sans-serif;">Kalau mas bro lupa lihat ulang artikel percabangan <a href="http://adf.ly/AxCBQ" target="_blank">if then else</a> ;</span><br />
<br />
<span style="font-family: Trebuchet MS, sans-serif;">8. Pada halaman kode <b><i>frmFade</i></b>, kita akan membuat perintah<b><i> FadeOut</i></b> dan <b><i>Fade In</i></b>, <i>copy paste source code</i> dibawah ini :</span><br />
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 540px;">
Private Sub FadeOut()<br />
If Trans <> 0 Then<br />
Trans = Trans - 1<br />
End If<br />
SetTransp Me.hwnd, Trans<br />
If Trans = 0 Then<br />
Me.Enabled = True<br />
Unload Me<br />
frmAnimasi.Show<br />
End If<br />
End Sub<br />
Private Sub FadeIn()<br />
If Trans >= 0 Then<br />
Trans = Trans + 1<br />
End If<br />
SetTransp Me.hwnd, Trans<br />
If Trans = 255 Then<br />
Me.Enabled = True<br />
Unload Me<br />
frmAnimasi.Show<br />
End If<br />
End Sub</div>
<span style="font-family: Trebuchet MS, sans-serif;">Note : perhatikan baik-baik perbedaan pada nilai <b>trans</b>, silakan disimpulkan sendiri hasil utak atik gw xixixixixi… (di<i>copy paste</i>, dilihat, diamati, dipelajari, dan terakhir disimpulkan) pasti paham lah sampean mas bro.</span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">9. Selesai…eits satu lagi periksa dulu <i>startup</i> nya, <i>form</i> mana dulu yang akan di eksekusi. Tekan Alt+P trus pilih bawah sendiri <b><i>project1 Properties</i></b>, lihat pada <b><i>Startup Object</i></b> pastikan <b><i>frmAnimasi</i></b> yang tercantum disitu, klik <i><b>OK</b></i></span><br />
<div>
<div style="margin-bottom: 2px;">
<b><small>Klik show untuk melihat gambar</small></b>
<input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding: 0px; width: 60px;" type="button" value="Show" /></div>
<div style="border: 1px inset; margin: 0px; padding: 6px;">
<div style="display: none;">
<div style="text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="263" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/fade_3.jpg" width="400" /></a></div>
</div>
</div>
</div>
</div>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">10. Jalankan dengan menekan<b> F5</b></span><br />
<span style="font-family: Trebuchet MS, sans-serif;"><br /></span>
<span style="font-family: Trebuchet MS, sans-serif;">Kalo ada kata yang salah ya saya minta maaf mas bro…sekian <i>project</i> kali ini dan tetep semangat buat belajar yah. Kalo masih bingung <b><i>download source code</i></b> nya di bawah sini mas bro. Sekian.</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://adf.ly/Biw7f" target="_blank"><img border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a></div>
<div style="text-align: right;">
<span style="font-family: Trebuchet MS, sans-serif;">Ditulis oleh <i><a href="http://facebook.com/paijojr" target="_blank">paijo_jr</a></i></span></div>
<br />paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com4tag:blogger.com,1999:blog-7772107655617385734.post-86535179562956079992012-07-16T00:42:00.000+07:002012-07-21T09:31:11.635+07:00Menghitung Umur Anda<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_7.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_7.jpg" /></a></center><br />
Hmmm...berapa umur anda sekarang?umur saya 29 tahun, yah kalo segitu saya juga tahu hehehe... Kali ini kita akan membuat aplikasi kecil seh untuk menghitung umur anda sekarang, tidak cuman tahunnya saja melainkan sekalian harinya.<br />
<br />
Pada aplikasi kali ini kita membutuhkan komponen <i>DTPicker</i> dimana untuk mengaktifkan komponen <i>DTPicker</i> tersebut maka kita terlebih dahulu harus mencentang komponen <i>Micr*soft Wind*ws Common Controls-2 6.0 </i>sehingga komponen <i>DTPicker</i> akan terlihat dalam barisan <i>Toolbox</i>.<br />
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_3.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_3.jpg" /></a></center><br />
<div>
<br /></div>
Oke nggak usah lama-lama, mari kita buat aplikasi ini :<br />
<ul>
<li><span style="background-color: white;">Bukalah <i>Micr*soft Visual Basic</i> anda kemudian pilihlah <i>StandardEXE</i>;</span></li>
<li><span style="background-color: white;">Ganti <i>Caption</i> pada <i>form1</i> menjadi Aplikasi Menghitung Umur Anda, seperti gambar dibawah ini :</span></li>
</ul>
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_6.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_6.jpg" /></a></center>
<br />
<ul>
<li><span style="background-color: white;">Aktifkan <i>Micr*soft Wind*ws Common Control-2 6.0</i> dengan cara menekan<i> Ctrl+T</i> untuk menampilkan <i>Component</i>, kemudian cari ke bawah sampai menemukan </span><span style="background-color: white;">
<i>Micr*soft Wind*ws Common Control-2 6.0</i> lalu klik <i>Apply</i>. Setelah itu lihatlah pada deretan <i>Toolbox</i> maka akan terdapat tambahan lima<i> Tools</i> salah satunya adalah <i>DTPicker</i>;</span></li>
</ul>
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_4.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_4.jpg" /></a></center>
<br />
<ul>
<li>Kemudian masukkan sebuah komponen <i>DTPicker</i> ke <i>form1</i> dan ubahlah <i>properties <b>Format</b></i> menjadi<b> <i>0-dtpLongDate</i></b>, untuk ukuran<i> DTPicker</i> tergantung selera;</li>
</ul>
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_5.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_5.jpg" /></a></center>
<br />
<ul>
<li>Untuk tambahan masukkan komponen<i> Label</i> dan komponen <i>CommandButton</i> sebagai eksekutor perintah. Ganti <i>caption</i> pada <i>Label1</i> menjadi "Tanggal Lahir Saya" dan <i>caption</i> pada <i>CommandButton1</i> menjadi "Hitung Umur Saya", sehingga jadi seperti di bawah ini :</li>
</ul>
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=umur_2.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/umur_2.jpg" /></a></center>
<br />
<ul>
<li>Klik 2x pada <i>Command1</i> dan masukkan <i>source code</i> dibawah ini :</li>
</ul>
<div style="border: 1px solid rgb(0, 102, 0); height: 120px; overflow: auto; width: 550px;">
Dim totalhari As Integer<br />
Dim umur As Integer<br />
Dim hari As Integer<br />
<br />
totalhari = DateDiff("d", DTPicker1.Value, Date)<br />
umur = totalhari / 365<br />
hari = totalhari - (umur * 365)<br />
MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"<br />
<div>
<br /></div>
</div>
<ul>
<li><span style="background-color: white;">Selesai.</span></li>
</ul>
<div>
Untuk melihat hasilnya, tekan<i> Run</i> atau tombol <b>F5</b>. Sekian tutorial kali ini semoga bermannfaat yah ^_^<br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Al7za" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br /></div>
<div>
<div style="text-align: right;">
Ditulis oleh <a href="http://facebook.com/paijojr"><i>paijo_jr</i></a></div>
</div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com3tag:blogger.com,1999:blog-7772107655617385734.post-12449445344419770322012-05-02T22:50:00.002+07:002012-05-02T22:57:06.621+07:00Syntax FileCopy Kill dan Name<div class="separator" style="clear: both; text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/File-Folders.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/File-Folders.jpg" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<div class="MsoNormal">
Pada pembahasan <i>syntax</i> kali ini, ada 3 (tiga) <i>syntax</i> yang akan kita bahas yakni <i>FileCopy</i>, <i>Kill</i> dan <i>Name</i>. Ketiga <i>syntax</i> tersebut berhubungan dengan <i>file</i> (<i>file</i> nya umum lho, terserah ekor (ekstensi) nya apa). Kali ini kita akan menggunakan ekstensinya <i>notepad</i> yakni ".txt" (<i>dot</i> txt), buat dulu <i>file</i> dari <i>notepad </i>lalu simpan pada direktori "D:/" (terserah juga seh mo disimpan dimana yang penting inget aja tempatnya) dengan nama "tutorial.txt" (isinya notepad nya juga terserah lho mo di isi apa kosongan yang penting simpen pake nama tutorial.txt)</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax </i>FileCopy</div>
<div class="MsoNormal">
Digunakan untuk menyalin (<i>copy</i>) sebuah <i>file</i> menjadi <i>file</i>
lain.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> dasar :</div>
<div class="MsoNormal">
FileCopy source, destination</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh :</div>
<div class="MsoNormal">
- Bukalah <i>Micros*ft Visual Basic</i> 6.0 anda lalu pilihlah <i>StandardExe;</i></div>
<div class="MsoNormal">
- Tambahkan <i>commandbutton</i> pada lembar aplikasi lalu tekan 2
kali sehingga muncul <i>code editor</i>;</div>
<div class="MsoNormal">
- Lalu masukkan <i>source code</i> dibawah ini!</div>
<blockquote class="tr_bq">
FileCopy “D:/tutorial.txt”, ”D:/visual_basic.txt”</blockquote>
<div class="MsoNormal">
- Kalau sudah tekan F5, kemudian tekan <i>commandbutton</i> nya.</div>
<div class="MsoNormal">
- Lihat lah file "tutorial.txt" pada direktori "D:/" masih ada khan!tetapi file hasil salinan dengan nama "visual_basic.txt" juga ada (inget lho biasanya ".txt" nya nggak keliatan karena memang di sembunyikan, baca juga postingan<i> <a href="http://kolektor-veebee.blogspot.com/2010/01/show-super-hidden.html">Show Super Hidden</a></i>). Yah itu lah contoh <i>syntax</i> untuk menyalin<i> file</i>.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> Kill</div>
<div class="MsoNormal">
Upss.. bukan untuk membunuh orang lho tetapi <i>syntax</i> ini digunakan untuk menghapus (<i>delete</i>) sebuah <i>file</i> hehehe...</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> dasar :</div>
<div class="MsoNormal">
Kill pathname</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh :</div>
<blockquote class="tr_bq">
Kill “D:/tutorial.txt”</blockquote>
<div class="MsoNormal">
- Maka<i> file</i> yang ada dengan nama "tutorial.txt" pada direktori "D" akan terhapus jika <i>syntax</i> tersebut dijalankan.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> Name</div>
<div class="MsoNormal">
Digunakan untuk mengubah nama (<i>rename</i>) sebuah <i>file</i>.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> dasar:</div>
<div class="MsoNormal">
Name oldpathname As newpathname</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh :</div>
<div style="border-bottom: solid windowtext 1.0pt; border: none; mso-border-bottom-alt: solid windowtext .75pt; mso-element: para-border-div; padding: 0in 0in 1.0pt 0in;">
<blockquote class="tr_bq">
Name “D:/tutorial.txt” As
“D:/belajar_vibi.txt”</blockquote>
<div class="MsoNormal" style="border: none; mso-border-bottom-alt: solid windowtext .75pt; mso-padding-alt: 0in 0in 1.0pt 0in; padding: 0in;">
-<i> Syntax</i> di atas kalo dijalankan akan mengubah nama <i>file</i> "tutorial.txt" menjadi "belajar_vibi.txt"</div>
<div class="MsoNormal" style="border: none; mso-border-bottom-alt: solid windowtext .75pt; mso-padding-alt: 0in 0in 1.0pt 0in; padding: 0in;">
<br /></div>
<div class="MsoNormal" style="border: none; mso-border-bottom-alt: solid windowtext .75pt; mso-padding-alt: 0in 0in 1.0pt 0in; padding: 0in;">
Oke sekian dulu pembahasan <i>syntax</i> yang berhubungan dengan <i>file</i> kali ini.</div>
<div class="MsoNormal" style="border: none; mso-border-bottom-alt: solid windowtext .75pt; mso-padding-alt: 0in 0in 1.0pt 0in; padding: 0in;">
<br /></div>
<div class="MsoNormal" style="border-bottom-style: none; border-color: initial; border-image: initial; border-left-style: none; border-right-style: none; border-top-style: none; border-width: initial; padding-bottom: 0in; padding-left: 0in; padding-right: 0in; padding-top: 0in; text-align: right;">
Ditulis ulang oleh <i><a href="http://facebook.com/paijojr">paijo_jr</a></i>(sumber <i>Syntax</i>)</div>
</div>
<br />
<br />paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com0tag:blogger.com,1999:blog-7772107655617385734.post-6692358299055985132012-04-29T15:13:00.001+07:002012-04-29T15:13:59.407+07:00Syntax untuk membuat dan menghapus Folder<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/folder.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/folder.jpg" /></a></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Uitssss... lamaaaa skali nggak update nieh blog (maaf lagi sibuuuk skali ^^). Nah pembahasan kali ini <i>syntax</i> yang berhubungan dengan <i>folder</i>, yakni untuk menyatakan "cinta" (upss salaahhh...) menyatakan folder [Dir$()], membuat <i>folder</i> [MkDir] dan menghapus <i>folder</i> [RmDir]. Emang nieh pembahasan kali ini sangaaattt dasar bangets hehehe....</div>
<div class="MsoNormal">
Oke mari kita bahas satu-satu!</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> Dir$()</div>
<div class="MsoNormal">
Digunakan untuk menyatakan sebuah <i>direktori</i>. Statemen ini juga
dapat digunakan untuk pencarian <i>file</i>.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> dasar :</div>
<div class="MsoNormal">
stringvar = Dir$(path[,attributes])</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh :</div>
<blockquote class="tr_bq">
If <b>Dir$(“C:/tempe.log”)</b> = “” Then<br /> MsgBox “File tidak ditemukan”<br />Else<br /> MsgBox “File ditemukan”<br />End if</blockquote>
<div class="MsoNormal">
Penjelasan :</div>
<div class="MsoNormal">
Maksud dari contoh di atas yakni penggunaan fungsi <a href="http://kolektor-veebee.blogspot.com/2009/12/if-then-else.html">if then else</a> yang kalo di jelasin jika <i>file</i> pada alamat C:/tempe.log adalah kosong ("" tuh maksutnya 0 nol atau kosong) maka akan muncul <i>message box</i> yang isinya "File tidak ditemukan", <i>else</i> tuh kalau sebaliknya jika <i>file</i> dengan alamat tersebut ada maka yang muncul <i>message box</i> "File ditemukan", kira-kira begitu penjelasannya hehehe...</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> MkDir</div>
<div class="MsoNormal">
Digunakan untuk membuat <i>folder</i> baru.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> dasar :</div>
<div class="MsoNormal">
MkDir path</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh :</div>
<blockquote class="tr_bq">
MkDir “c:\VisualBasic\”</blockquote>
<div class="MsoNormal">
Penjelasan :</div>
<div class="MsoNormal">
Saya rasa cukup jelas lah, cuman yang harus diperhatiin untuk penulisan<i> path</i> nya yang agak berbeda dari <i>syntax</i> Dir$(), kalo untuk mencari <i>file</i> atau menyatakan <i>direktori</i> tuh path nya pake tanda "/" tetapi untuk membuat dan menghapus <i>folder</i> memakai tanda "\", inget yah beda banget tuh!</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax</i> RmDir</div>
<div class="MsoNormal">
Digunakan untuk menghapus<i> folder</i>.</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<i>Syntax </i>dasar :</div>
<div class="MsoNormal">
RmDir path</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
Contoh : </div>
<blockquote class="tr_bq">
RmDir “c:\VisualBasic\”</blockquote>
Penjelasan :<br />
hehehe...idem lah seperti penjelasan <i>syntax</i> MkDir.<br />
<br />
Oke sekian dulu pembahasan <i>syntax</i> kali ini, <i>thank's</i> udah ngebaca...^^<br />
<div style="text-align: right;">
Ditulis ulang oleh <i><a href="http://facebook.com/paijojr">paijo_jr</a></i> (sumber<i> Syntax</i>)</div>
<div style="text-align: right;">
<span style="color: #666666; font-family: arial;"><span style="font-size: 12px; line-height: 19px;"><br /></span></span></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com0tag:blogger.com,1999:blog-7772107655617385734.post-40141637809084092912011-09-24T10:07:00.002+07:002011-09-24T10:07:52.824+07:00Syntax Len Mid$() Left$() Right$()<div style="text-align: center;">
<a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=search-button.jpg" target="_blank"><img alt="Photobucket" border="0" height="200" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/search-button.jpg" width="200" /></a>
</div>
Setelah membahas <i>syntax</i> <a href="http://kolektor-veebee.blogspot.com/2011/09/syntax-do-loop-dan-for-next.html"><i>Do...Loop dan For... Next</i></a>, kali ini kita akan membahas <i>syntax</i> yang lainnya yakni <i>syntax</i> Len, Mid$(), Left$(), Right$(). Keempat <i>syntax</i> tersebut dibahas karena sering kali digunakan dalam sebuah <i>project</i> aplikasi <i>visual basic</i>. Mari yuk mari dibahas dan dibongkar satu persatu (kek gudang aje hohohoho...) :<br />
<br />
<br />
<div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
1.<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span><i>Syntax</i> <b>Len</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Digunakan untuk mendapatkan informasi
panjang dari sebuah <i>string</i>.<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
<i>Syntax</i> dasar :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Len</b> (string)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Contoh :<o:p></o:p></div>
<blockquote>
Dim x as String<br />
x = “Tutorial Visual Basic”<br />
MsgBox x & “ = “ & <b>Len(x)</b> & “
karakter”</blockquote>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Penjelasan : <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Dim x as String <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
‘yakni mendefinisikan bahwa “x” bernilai
<i>string;</i><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
x = “Tutorial Visual Basic” <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
‘yakni “x” tersebut berisi kalimat Tutorial
Visual Basic;<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
MsgBox x & “ = “ & <b>Len(x)</b> & “
karakter”<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
‘yakni
membuat <i>MsgBox</i> yang menampilkan pesan “x” (Tutorial Visual Basic), “& “=”&”
(“& “untuk menggabungkan karakter “x”
dengan karakter “ = “(spasi = spasi)), “<b>Len (x)</b>” (mendapatkan informasi panjang
dari “x”(Tutorial Visual Basic) yang kalau dihitung adalah 21 (termasuk spasi
juga dihitung)), “& “ karakter” (penjelasan sama dengan “& “=”&”).<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Hasilnya dalam <i>MsgBox</i> : <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Tutorial Visual Basic = 21 karakter<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
2.<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span><i>Syntax</i> <b>Mid$()</b></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Digunakan untuk mendapatkan bagian tertentu
dari sebuah <i>string.</i><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
<i>Syntax</i> dasar :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Mid$</b> (string, start[, length])<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Contoh :<o:p></o:p></div>
<blockquote>
Dim x as String<br />
x = <b>Mid$ (“Tutorial Visual Basic”, 17, 5)</b><br />
MsgBox x</blockquote>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Penjelasan :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Dim x as String <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
‘yakni mendefinisikan bahwa “x” bernilai
<i>string;</i><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
x = <b>Mid$ (“Tutorial Visual Basic”, 17, 5)</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
‘ yakni dalam <i>string</i> “Tutorial Visual Basic” tersebut mulai
dihitung dari kiri ke kanan 17 karakter (termasuk spasi juga dihitung), setelah
didapat 17 karakter tersebut maka itu merupakan titik awalnya (yakni huruf “B”)
sedangkan “5” merupakan panjangnya dimulai dari titik awal (yakni “Basic”).<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Hasilnya dalam <i>MsgBox </i>: <o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Basic<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
3.<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> </span><i>Syntax</i> <b>Left$()</b></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Digunakan untuk mendapatkan bagian tertentu
dari sebuah <i>string</i>, yang dimulai dari sisi kiri <i>string</i>.<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
<i>Syntax</i> dasar :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Left$</b> (string), length)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Contoh :<o:p></o:p></div>
<blockquote>
Dim x as Sting<br />
x = <b>Left$ (“Tutorial Visual Basic”, 15)</b><br />
MsgBox x</blockquote>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
</div>
<div class="MsoListParagraphCxSpFirst">
Penjelasan :<o:p></o:p></div>
<div class="MsoListParagraphCxSpFirst">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
x = <b>Left$ (“Tutorial Visual Basic”, 15)</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
‘yakni angka 15 maksudnya dari kalimat
Tutorial Visual Basic tersebut dibaca dari kiri 15 karakter (termasuk spasi)
dan didapat Tutorial Visual.<o:p></o:p></div>
<br />
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Hasilnya dalam <i>MsgBox</i> :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Tutorial Visual<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
4.<span style="font: normal normal normal 7pt/normal 'Times New Roman';"> <i> </i></span><i>Syntax</i> <b>Right$()</b></div>
<div class="MsoListParagraphCxSpMiddle" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Digunakan untuk mendapatkan bagian tertentu
dari sebuah <i>string</i>, yang dimulai dari sisi kanan <i>string</i>.<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
<i>Syntax</i> dasar :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Right$</b> (string, length)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Contoh :<o:p></o:p></div>
<blockquote>
Dim x as String<br />
x = <b>Right$(“Tutorial Visual Basic”, 12)</b><br />
MsgBox x</blockquote>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
</div>
<div class="MsoListParagraphCxSpFirst">
Penjelasan :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
x = <b>Right$(“Tutorial Visual Basic”, 12)</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
‘yakni angka 12 maksudnya dari kalimat
Tutorial Visual Basic tersebut dibaca dari kanan 12 karakter (termasuk spasi)
dan didapat Visual Basic.<o:p></o:p></div>
<br />
<div class="MsoListParagraphCxSpMiddle">
Hasilnya dalam <i>MsgBox</i> : <o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
Visual Basic<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<br /></div>
<div class="MsoListParagraphCxSpLast" style="text-align: right;">
Ditulis oleh<i> paijo_jr</i> (sumber Syntax)</div>
paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com2Kendari, Indonesia-3.957962 122.5713329-3.9896435 122.5318509 -3.9262805000000003 122.61081490000001tag:blogger.com,1999:blog-7772107655617385734.post-71661770350068444862011-09-24T09:20:00.000+07:002011-09-24T09:20:05.035+07:00Syntax Do... Loop dan For... Next<div style="text-align: center;">
<a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=perulangan.jpg" target="_blank"><img alt="Photobucket" border="0" height="195" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/perulangan.jpg" width="200" /></a> </div>
<i>Syntax</i> atau dalam bahasa Indonesia <a href="http://id.wikipedia.org/wiki/Sintaksis">Sintaksis</a> adalah ilmu mengenai prinsip dan peraturan untuk membuat kalimat dalam bahasa alami. Selain aturan ini, kata sintaksis juga digunakan untuk merujuk langsung pada peraturan dan prinsip yang mencakup struktur kalimat dalam bahasa apapun.<br />
Dalam hal ini <i>Syntax</i> yang akan dibahas merupakan <i>Syntax</i> untuk pemrograman <i>Visual Basic 6.0</i>.
Dalam <i>Syntax Visual Basic 6.0</i> terdapat banyak sekali <i>Syntax</i> yang salah satunya adalah <i>syntax</i> perulangan yakni <b>Do... Loop</b> dan <b>For... Next</b> (satu-satu ngebahasnya kalo semua bahhh bisa panjang banget <i>page</i> nya hehehe...)<br />
<br />
Syntax <b>Do… Loops</b><br />
Digunakan sebagai statemen perulangan.<br />
<br />
Syntax 1 :<br />
<div class="MsoListParagraphCxSpFirst">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Do</b> <b>Until</b> (Expression)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
(code
to execute)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Loop</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
Contoh : </div>
<blockquote>
Dim x as Integer
<br />
x=0
<br />
<b>Do Until</b> x = 50
<br />
x = x+1
<br />
<b>Loop</b></blockquote>
<div class="MsoListParagraphCxSpFirst">
Syntax 2 :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Do While</b> (expression)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
(code
to execute)<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<o:p></o:p></div>
<b>Loop</b><br />
Contoh :<br />
<blockquote>
Dim x as Integer<br />
<div class="MsoListParagraphCxSpFirst">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Do While</b> x = 100<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
x = x+1<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<b>Loop</b></div>
</blockquote>
<div class="MsoListParagraphCxSpFirst">
Syntax 3 :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Do</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
(code
to execute)<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Loop While</b> (expression)<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<o:p></o:p></div>
Contoh :<br />
<blockquote>
<div class="MsoListParagraphCxSpMiddle">
</div>
<div class="MsoListParagraphCxSpFirst">
Dim x as Integer<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>Do</b><o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
x = x+1<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<b>Loop While</b> x = 100</div>
</blockquote>
Syntax <b>For… Next</b><br />
<div class="MsoListParagraphCxSpFirst" style="mso-list: l0 level1 lfo1; text-indent: -.25in;">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
Digunakan sebagai statemen perulangan<o:p></o:p><br />
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Syntax dasar :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<b>For</b> counter = start <b>To</b> end [ step step ]<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
(code
to execute)<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
<b>Next</b> [ counter ]<o:p></o:p></div>
<div class="MsoListParagraphCxSpLast">
</div>
<div class="MsoListParagraph">
<br /></div>
<div class="MsoListParagraph">
</div>
<div class="MsoListParagraphCxSpFirst">
Contoh 1 :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<blockquote>
Dim x as Integer<br />
<b>For</b> x = 0 <b>To</b> 10<br />
MsgBox
“Nilai x = “ & x<br />
<b>Next</b> <b>x</b></blockquote>
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<br /></div>
<div class="MsoListParagraphCxSpMiddle">
Contoh 2 :<o:p></o:p></div>
<div class="MsoListParagraphCxSpMiddle">
<blockquote>
Dim x as Integer<br />
<b>For</b> x = 0 <b>To</b> 10 <b>step</b> 2<br />
MsgBox
“Nilai x = “ & x<br />
<b>Next x</b></blockquote>
<br />
<div style="text-align: right;">
Ditulis ulang oleh <i>paijo_jr</i> (sumber Syntax) </div>
</div>
paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com5Kendari, Indonesia-3.957962 122.5713329-3.9896435 122.5318509 -3.9262805000000003 122.61081490000001tag:blogger.com,1999:blog-7772107655617385734.post-43438044341517708302010-11-19T22:06:00.000+07:002012-07-21T10:38:58.750+07:00Date and Time<br />
<br />
<br />
<br />
<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=timedate.jpg" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/timedate.jpg" /> </a></center><center><div style="text-align: justify;">
Pada tutorial kali ini akan saya bahas mengenai <i>date and time</i> alias tanggal dan waktu. Mungkin tutorial ini banyak yang sudah mengerti, tetapi apa boleh buat berhubung ada yang <i>request</i> ya sejenak kita bahas oke. <i>Date and Time</i> saya rasa sudah tahu semua apa maksudnya, yup benar kali ini kita akan mengupas masalah <i>format date and time</i> dalam <i>Visual Basic 6.0</i>. Berikut ini sejumlah contoh penggunaan <i>format date and time</i> :<br />
1. <i>Date</i> pasti semua orang sudah tahu, tanggal bahasa Indonesia nya. Sedangkan <i>format </i>tanggal itu sendiri ada bermacam-macam misal : 19 November 2010, 19 Nov 2010, 19-10-2010, November, 19 2010 dan sebagainya.<br />
2. <i>Time</i> atau waktu pun juga mempunyai <i>format</i> untuk di masukkan dalam program <i>Micr*soft Visual Basic </i>6.0, sebagai contoh yakni : 20:00, 08.00 PM, dan sebagainya.<br />
<br />
Simulasi date and time pada visual basic :<br />
1. Bukalah <i>Micr*soft Visual Basic 6.0</i> anda dan pilihlah <i>StandardEXE</i><br />
2. Pilih satu<i> label</i> dan ubah ukuran sesuai dengan yang di inginkan (ingat jangan ubah <i>Name</i>)<br />
3. Klik 2 kali pada <i>form load</i> nya dan isikan sebagai berikut :<br />
<blockquote>
Private Sub Form_Load()<br />
Label1.caption= Format(Now, "Long Date")<br />
End Sub</blockquote>
4. Klik<i> run</i> atau<i> F5</i> maka akan menghasilkan Friday, November 19, 2010<br />
<br />
Gantilah Format(Now, "Long Date") dengan berikut ini dan coba klik <i>run </i>atau<i> F5</i>:<br />
<i><b>Date</b></i><br />
<blockquote>
1. Format(Now, "Medium Date") >> 19-Nov-10<br />
2. Format(Now, "Short Date") >> 11-19-2010<br />
3. Format(Now, "dd-mm-yyyy") >> 19-11-2010 (dd day, mm month, yyyy year)<br />
<i>etc</i></blockquote>
<i><b>Time</b></i><br />
<blockquote>
1. Format(Now, "Long Time") >> 10:33:00 PM<br />
2. Format(Now, "Medium Time") >> 10:33 PM<br />
3. Format(Now, "Short Time") >> 22:33 (hh hour, mm minutes, ss secon)<br />
4. Format(Now, "hh:mm:ss") >> 22:33:00<br />
5. Format(Now, "hh:mm AM/PM") >> 10:33 PM (sama dengan medium time)</blockquote>
<br />
<i>Format</i> di atas hanya sebagian yang ditulis, masih ada kemungkinan-kemungkinan <i>format </i>yang lain. Untuk itu saya sediakan <i>freeware</i> yang berisi <i>format format date and time</i><br />
<br />
Sekian dan terima kasih<br />
<br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax4J0">Download</a><br />
<a href="http://adf.ly/Al7za" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br />
<div style="text-align: right;">
Ditulis oleh <i><a href="http://facebook.com/paijojr">paijo_jr</a></i></div>
</div>
</center>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com4tag:blogger.com,1999:blog-7772107655617385734.post-75749294571774115422010-05-01T21:12:00.024+07:002012-07-21T10:40:24.430+07:00Menampilkan Dialog Browse<br />
<br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_0.jpg" target="_blank"><img alt="dialog_0" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_0.jpg" /></a></center><br />
<span style="font-size: 100%;"><span style="font-family: 'trebuchet ms';">Sebenarnya bingung juga mo ngasih judul apa pada postingan kali ini tapi akhirnya kuberi judul ini aja “Menampilkan Dialog Browse”. Apa lagi maksudnya itu???secara ringkas tak kasih sedikit gambaran, kalo kamu kamu familiar sama <span style="font-style: italic; font-weight: bold;">Operating System Wind*ws</span> misalnya yang <span style="font-style: italic;"> <span style="font-weight: bold;">simple Notepad.exe</span></span>. Setelah <span style="font-style: italic;"><span style="font-weight: bold;">notepad.ex</span>e</span> kamu buka maka akan keluar khan <span style="font-style: italic; font-weight: bold;">notepad</span> nya (ya jelaslah hehehehe…), trus coba kamu tekan <span style="font-style: italic; font-weight: bold;">File-Open</span> (atau tekan <span style="font-style: italic; font-weight: bold;">Ctrl+O</span>) maka akan muncul dialog “<span style="font-style: italic; font-weight: bold;">Open</span>” seperti gambar di bawah ini, nah artikel kali ini saya akan <span style="font-style: italic;">share</span> ilmu “Menampilkan Dialog Browse”. <br />
<br />
</span><br />
<br />
<span class="fullpost"><br />
</span></span><br />
<br />
<center><span style="font-size: 100%;"><span class="fullpost"><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_1.jpg" target="_blank"><img alt="dialog_1" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_1.jpg" /></a></span></span></center><span style="font-size: 100%;"><span class="fullpost"><br />
<span style="font-family: 'trebuchet ms';">Ikutilah langkah-langkah dibawah ini :</span><br />
<span style="font-family: 'trebuchet ms';">Tahap pertama, yakni membuat <span style="font-style: italic; font-weight: bold;">module</span> :</span><br />
<span style="font-family: 'trebuchet ms';">Seperti biasa buka <span style="font-style: italic; font-weight: bold;">Micros*ft Visual Basic</span> anda dan pilih <span style="font-style: italic; font-weight: bold;">standardEXE</span></span><br />
<span style="font-family: 'trebuchet ms';">Pada artikel kali ini, kita membutuhkan sebuah <span style="font-style: italic; font-weight: bold;">module</span>, jadi tekan <span style="font-style: italic; font-weight: bold;">Alt+P</span> (<span style="font-style: italic; font-weight: bold;">Project</span>) lalu pilih <span style="font-style: italic; font-weight: bold;">Add Module</span> (atau tekan huruf M), </span><br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_2.jpg" target="_blank"><img alt="dialog_2" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_2.jpg" /></a></center><br />
<span style="font-family: 'trebuchet ms';">Lalu tekan <span style="font-style: italic; font-weight: bold;">Open</span> dan muncullah jendela seperti gambar di bawah ini</span><br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_3.jpg" target="_blank"><img alt="dialog_3" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_3.jpg" /></a></center><br />
<span style="font-family: 'trebuchet ms';">Isi <span style="font-style: italic; font-weight: bold;">module</span> dengan <span style="font-style: italic; font-weight: bold;">source code</span> dibawah ini, </span><br />
<br />
<div style="border: 1px solid rgb(0, 102, 0); height: 100px; overflow: auto; width: 420px;">
Option Explicit<br />
<br />
Private Type BrowseInfo<br />
lngHwnd As Long<br />
pIDLRoot As Long<br />
pszDisplayName As Long<br />
lpszTitle As Long<br />
ulFlags As Long<br />
lpfnCallback As Long<br />
lParam As Long<br />
iImage As Long<br />
End Type<br />
Private Const BIF_RETURNONLYFSDIRS = 1<br />
Private Const MAX_PATH = 260<br />
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem _<br />
As Long)<br />
Private Declare Function lstrcat Lib "Kernel32" Alias "lstrcatA" _<br />
(ByVal lpString1 As String, ByVal lpString2 As String) As Long<br />
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi _<br />
As BrowseInfo) As Long<br />
Private Declare Function SHGetPathFromIDList Lib "Shell32" _<br />
(ByVal pidList As Long, ByVal lpBuffer As String) As Long<br />
<br />
Public Function BrowseForFolder(ByVal strPrompt As String) As _<br />
String<br />
On Error GoTo ehBrowseForFolder<br />
Dim intNull As Integer<br />
Dim lngIDList As Long, lngResult As Long<br />
Dim strPath As String<br />
Dim udtBI As BrowseInfo<br />
With udtBI<br />
.lngHwnd = 0<br />
.lpszTitle = lstrcat(strPrompt, "")<br />
.ulFlags = BIF_RETURNONLYFSDIRS<br />
End With<br />
lngIDList = SHBrowseForFolder(udtBI)<br />
If lngIDList <> 0 Then<br />
strPath = String(MAX_PATH, 0)<br />
lngResult = SHGetPathFromIDList(lngIDList, strPath)<br />
Call CoTaskMemFree(lngIDList)<br />
intNull = InStr(strPath, vbNullChar)<br />
If intNull > 0 Then<br />
strPath = Left(strPath, intNull - 1)<br />
End If<br />
End If<br />
BrowseForFolder = strPath<br />
Exit Function<br />
ehBrowseForFolder:<br />
BrowseForFolder = Empty<br />
End Function</div>
<br />
<br />
<span style="font-family: 'trebuchet ms';">Kemudian pada <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html" style="font-style: italic; font-weight: bold;">properties window</a><span style="font-style: italic; font-weight: bold;"> </span>ganti nama <span style="font-style: italic; font-weight: bold;">module</span> menjadi “mdlDialog”</span><br />
<span style="font-family: 'trebuchet ms';"> Tahap kedua, yakni menambahkan komponen <span style="font-style: italic; font-weight: bold;">Common Dialog</span> :</span><br />
<span style="font-family: 'trebuchet ms';">Pada tahap ini kita membutuhkan komponen yang namanya “<span style="font-style: italic; font-weight: bold;">Common Dialog</span>”, untuk itu aktifkan komponen tersebut dengan melakukan centang pada “<span style="font-style: italic; font-weight: bold;">Micros*ft Common Dialog Control 6.0</span>”</span><br />
<span style="font-family: 'trebuchet ms';">Langkah-langkahnya tekan <span style="font-style: italic; font-weight: bold;">Project</span>-lalu pilih <span style="font-style: italic; font-weight: bold;">Component</span> (atau jalan pintasnya tekan <span style="font-style: italic; font-weight: bold;">Ctrl+T </span>untuk menampilkan <span style="font-style: italic; font-weight: bold;">component</span>), <span style="font-style: italic; font-weight: bold;">scroll</span> ke bawah lalu cari <span style="font-style: italic; font-weight: bold;">Micros*ft Common Dialog Control 6.0</span> serta centang dan tekan <span style="font-style: italic; font-weight: bold;">OK</span></span><br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_4.jpg" target="_blank"><img alt="dialog_4" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_4.jpg" /></a></center><br />
<span style="font-family: 'trebuchet ms';">Setelah itu lihat pada <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html" style="font-style: italic; font-weight: bold;">Toolbox</a>, maka akan ada penambahan komponen berupa <span style="font-style: italic; font-weight: bold;">CommonDialog</span></span><br />
<br />
<span style="font-family: 'trebuchet ms';">Tahap Ketiga :</span><br />
<span style="font-family: 'trebuchet ms';">Masukkan 2 buah <span style="font-style: italic; font-weight: bold;">TextBox</span>, 2 buah <span style="font-style: italic; font-weight: bold;">CommandButton</span> dan 1 buah <span style="font-style: italic; font-weight: bold;">CommonDialog</span></span><br />
<span style="font-family: 'trebuchet ms';">Atur <span style="font-style: italic; font-weight: bold;">properties</span> pada masing-masing komponen sebagai berikut : (untuk ukuran/ <span style="font-style: italic; font-weight: bold;">size</span> terserah )</span><br />
<br />
</span> <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"><tbody>
<tr> <td style="border: 1pt solid black; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Form<o:p></o:p></div>
</td> <td style="border-color: black black black -moz-use-text-color; border-style: solid solid solid none; border-width: 1pt 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
frmDialog<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
BorderStyle<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
1 – Fixed Single<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Caption <o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Menampilkan Dialog Browse<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
TextBox1<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
txtFolder<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Folder<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
TextBox2<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
txtFiles<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Files<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
CommandButton1<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
cmdFolder<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Browse Folder<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
CommandButton2<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
cmdFiles<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Browse Files<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
CommonDialog<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
CD1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color black black; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color black black -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0in 5.4pt; width: 239.4pt;" valign="top" width="319"><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt;">
<o:p> </o:p></div>
<br /></td> </tr>
</tbody> </table>
<br />
<span style="font-size: 100%;"><br />
<span style="font-family: 'trebuchet ms';">Lalu atur komponen tersebut seperti dibawah ini :</span><br />
<center><a href="http://s751.photobucket.com/albums/xx155/paijo_jr/veebee/?action=view&current=dialog_5.jpg" target="_blank"><img alt="dialog_5" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/dialog_5.jpg" /></a></center><br />
<span style="font-family: 'trebuchet ms';">Buka <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html"><span style="font-style: italic; font-weight: bold;">Code Window</span></a> dan masukkan <span style="font-style: italic; font-weight: bold;">source code</span> dibawah ini:</span><br />
<br />
<div style="border: 1px solid rgb(0, 102, 0); height: 100px; overflow: auto; width: 420px;">
<br />
Private Sub cmdFiles_Click()<br />
On Error GoTo akhir<br />
Dim Filename As String<br />
CD1.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg<br />
CD1.ShowOpen<br />
Filename = CD1.Filename<br />
akhir:<br />
If Len(Filename) > 0 Then<br />
txtFiles.Text = Filename<br />
End If<br />
End Sub<br />
<br />
Private Sub cmdFolder_Click()<br />
Dim brwVal As String<br />
brwVal = BrowseForFolder("Select Drive And Directory:")<br />
If Len(brwVal) > 0 Then<br />
txtFolder.Text = brwVal<br />
End If<br />
End Sub<br />
<br /></div>
<br />
<br />
<span style="font-family: 'trebuchet ms';">Selesai, coba tekan <span style="font-style: italic; font-weight: bold;">Run</span> atau <span style="font-style: italic; font-weight: bold;">F5</span></span><br />
<span style="font-family: 'trebuchet ms';">Nah mudah bukan menampilkan <span style="font-style: italic; font-weight: bold;">dialog browse</span> hehehe… terus belajar bro.<br />
<br />
<br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4U5" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br />
<div style="text-align: right;">
Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic; font-weight: bold;">paijo_jr</span></a></div>
</span></span></span>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com6tag:blogger.com,1999:blog-7772107655617385734.post-63160268610178605322010-03-04T10:06:00.008+07:002012-07-21T10:43:45.601+07:00Membuat Explorer<br />
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/explorer.jpg" /></center><br />
<span style="font-family: 'trebuchet ms'; font-size: 100%;"><br />Hmm... udah lama nggak <span style="font-style: italic; font-weight: bold;">posting</span> nieh^^<br />Kali ini kita akan membuat aplikasi bernama "<span style="font-style: italic; font-weight: bold;">explorer</span>". Sebenarnya aplikasi ini untuk menjelaskan bagaimana menyelaraskan <span style="font-style: italic; font-weight: bold;">drivelistbox, dirlistbox dan filelistbox</span>. Kenapa aplikasi ini perlu gw <span style="font-style: italic; font-weight: bold;">posting</span> karena pada jaman dulu kala gw kesulitan banget buat meng-konek-an ketiga <span style="font-style: italic; font-weight: bold;">toolbox</span> tersebut (emang dasar oon gw) hehehe...</span><br />
<br />
<br />
<center><span style="font-family: 'trebuchet ms'; font-size: 100%;"><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/ddf.jpg" /></span></center><span style="font-family: 'trebuchet ms'; font-size: 100%;"><br /><br />Langkah pertama seperti biasa buka <span style="font-style: italic; font-weight: bold;">Microsoft Visual Basic</span> dan pilih <span style="font-style: italic; font-weight: bold;">new project</span><br /><br />Langkah kedua, pada <span style="font-style: italic; font-weight: bold;">toolbox</span> klik <span style="font-style: italic; font-weight: bold;">drivelistbox, dirlistbox dan filelistbox</span> kemudian atur posisi ketiganya seperti gambar di bawah ini<br /><br /><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/posisiexplorer.jpg" /></center><br /><br />Untuk propertinya standar saja (nggak usah diubah)<br /><br />Langkah ketiga masukkan <span style="font-style: italic; font-weight: bold;">source code</span> dibawah ini<br /><br /><div style="border: 1px solid rgb(0, 102, 0); height: 100px; overflow: auto; width: 420px;">
<br />
Private Sub Dir1_Change()<br />
File1.Path = Dir1.Path<br />
File1.FileName = "*.*" 'edit ini misal "*.doc"<br />
End Sub<br />
<br />
Private Sub Drive1_Change()<br />
Dir1 = Drive1<br />
End Sub<br />
<br />
Private Sub Form_Load()<br />
'saat form di load maka akan menjalankan perintah di bawah ini<br />
Dir1 = Drive1<br />
File1.Path = Dir1.Path<br />
File1.FileName = "*.*"<br />
End Sub<br />
<br /></div>
<br /><br />Langkah terakhir jalankan program dengan menekan tombol F5, lalu <span style="font-style: italic; font-weight: bold;">compile</span> menjadi *.exe<br /><br />Ternyata mudah ya…. tapi kenapa koq dulu gw nggak bisa xixixi<br /><br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax5Yy" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<span style="font-family: 'trebuchet ms';"><br /></span><br />
<div style="text-align: right;">
<span style="font-family: 'trebuchet ms'; font-size: 100%;"><klik>Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html" style="font-style: italic;">paijo_jr</a></klik></span></div>
</span>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com1tag:blogger.com,1999:blog-7772107655617385734.post-31877507782035438412010-01-02T16:57:00.008+07:002012-07-21T10:46:06.336+07:00Show Super Hidden<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/SSH.gif" /></center><br />
<div style="font-family: trebuchet ms; text-align: justify;">
Nah kelihatan keren kan judul postingan di atas hehehehe… <span style="font-style: italic; font-weight: bold;">Show Super Hidden</span>, apa maksudnya tuh?!?kamu pasti pernah men <span style="font-style: italic; font-weight: bold;">setting</span> dokumen/<span style="font-style: italic; font-weight: bold;">file</span> ke atribut <span style="font-style: italic; font-weight: bold;">hidden</span> (biar kagak bisa diliat temen2 kamu hohoho), kalo <span style="font-style: italic; font-weight: bold;">super hidden</span> tuh di atas nya <span style="font-style: italic; font-weight: bold;">hidden</span> atau kalau di <span style="font-style: italic; font-weight: bold;">explorer</span> tuh dibaca atribut <span style="font-style: italic; font-weight: bold;">system</span>.<br />
<br />
Sebenarnya banyak lho <span style="font-style: italic; font-weight: bold;">file-file</span> dengan atribut <span style="font-style: italic; font-weight: bold;">system</span> yang ada di <span style="font-style: italic; font-weight: bold;">windows</span>, nah supaya kagak semrawut dan menghindari <span style="font-style: italic; font-weight: bold;">user</span> mengubah atau menghapus <span style="font-style: italic; font-weight: bold;">file-file</span> penting tersebut maka <span style="font-style: italic; font-weight: bold;">Microsoft</span> memberi atribut <span style="font-style: italic; font-weight: bold;">system</span>. Kalau kita ingin melihat <span style="font-style: italic; font-weight: bold;">file</span> dengan atribut <span style="font-style: italic; font-weight: bold;">system</span> maka cara normalnya melalui <span style="font-style: italic; font-weight: bold;">windows explorer</span> trus <span style="font-style: italic; font-weight: bold;">folder options</span> dan seterusnya atau lewat <span style="font-style: italic; font-weight: bold;">registry</span> (hm.. ribet banget kan). Biar nggak ribet kita buat aja aplikasi untuk memunculkan <span style="font-style: italic; font-weight: bold;">file-file</span> tersebut.<br />
<br />
Begini untuk membuat aplikasi ini, pada dasarnya kita mengubah nilai pada <span style="font-style: italic; font-weight: bold;">registry</span> (biasa dikenal <span style="font-style: italic; font-weight: bold;">regedit</span>). Jadi kita harus tahu terlebih dahulu alamat <span style="font-style: italic; font-weight: bold;">superhidden</span> ini, buka <span style="font-style: italic; font-weight: bold;">registry</span> caranya <span style="font-style: italic; font-weight: bold;">start</span> -<span style="font-style: italic; font-weight: bold;">run</span> lalu ketik<span style="font-style: italic; font-weight: bold;"> regedit</span> dan <span style="font-style: italic; font-weight: bold;">enter</span></div>
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/regedit.gif" /></center><br />
<span style="font-family: 'trebuchet ms';">Cari dan lihat pada alamat dibawah ini :</span><br />
<ul>
<li style="font-family: trebuchet ms;">HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden</li>
<li style="font-family: trebuchet ms;">HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden</li>
<li><span style="font-family: 'trebuchet ms';">HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt</span></li>
</ul>
<div style="font-family: trebuchet ms; text-align: justify;">
Hm...apa tuh maksudnya alamat <span style="font-style: italic; font-weight: bold;">registry</span> diatas??kalau di lihat alamat full kayak diatas memang bikin pusing, saran saya ambil bagian belakangnya yakni <span style="font-style: italic; font-weight: bold;">ShowSuperHidden</span>, <span style="font-style: italic; font-weight: bold;">Hidden</span> dan <span style="font-style: italic; font-weight: bold;">HideFileExt</span>.</div>
<br />
<div style="font-family: trebuchet ms; text-align: justify;">
Maksud dari ketiganya yakni :</div>
<ol style="text-align: justify;">
<li face="trebuchet ms"><span style="font-style: italic; font-weight: bold;">ShowSuperHidden</span>, ini yang dapat memunculkan <span style="font-style: italic; font-weight: bold;">file</span> ber atribut <span style="font-style: italic; font-weight: bold;">system</span>. Pada settingan normal akan bernilai 0 yang artinya <span style="font-style: italic; font-weight: bold;">file</span> ber atribut <span style="font-style: italic; font-weight: bold;">system</span> tidak akan kelihatan;</li>
<li face="trebuchet ms"><span style="font-style: italic; font-weight: bold;">Hidden</span>, ini hanya memunculkan <span style="font-style: italic; font-weight: bold;">file</span> ber atribut <span style="font-style: italic; font-weight: bold;">hidden</span> saja. Sama seperti <span style="font-style: italic; font-weight: bold;">ShowSuperHidden</span>, pada settingan normal bernilai 0;</li>
<li><span style="font-family: 'trebuchet ms';"><span style="font-style: italic; font-weight: bold;">HideFileExt</span>, ini merupakan ekstensi dari <span style="font-style: italic; font-weight: bold;">file-file</span> yang ada di <span style="font-style: italic; font-weight: bold;">windows explorer</span>, misal : <span style="font-style: italic; font-weight: bold;">file Microsoft Word</span> sebenarnya berekstensi ***.doc tetapi agar ekstensi ini tidak terlihat maka nilai <span style="font-style: italic; font-weight: bold;">HideFileExt</span> harus bernilai 1.</span></li>
</ol>
<div style="font-family: trebuchet ms; text-align: justify;">
Dari penjelasan ketiganya tersebut, maka yang akan kita lakukan yakni mengubah nilai ketiga nya melalui <span style="font-style: italic; font-weight: bold;">visual basic</span>:</div>
<ol style="text-align: justify;">
<li style="font-family: trebuchet ms;"><span style="font-style: italic; font-weight: bold;">ShowSuperHidden</span>, nilai 0 diubah menjadi 1;</li>
<li style="font-family: trebuchet ms;"><span style="font-style: italic; font-weight: bold;">Hidden</span>, nilai 0 diubah menjadi 1;</li>
<li><span style="font-family: 'trebuchet ms';"><span style="font-style: italic; font-weight: bold;">HideFileExt</span>, nilai 1 diubah menjadi 0.</span></li>
</ol>
<br />
<div face="trebuchet ms" style="text-align: justify;">
Bukalah <span style="font-style: italic; font-weight: bold;">Microsoft Visual Basic</span> anda lalu pilihlah <span style="font-style: italic; font-weight: bold;">StandardEXE</span><br />
<br />
Masukkan 3 buah <span style="font-style: italic; font-weight: bold;">CommandButton</span> lalu ganti <span style="font-style: italic; font-weight: bold;">properties</span> seperti dibawah ini :<br />
<br />
<style>
<!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->
</style> <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"> <tbody>
<tr> <td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Form<o:p></o:p></div>
</td> <td style="border-color: windowtext windowtext windowtext -moz-use-text-color; border-style: solid solid solid none; border-width: 1pt 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name <o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
frmSSH<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
BorderStyle<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Fixed Single<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Show Super Hidden<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
ControllBox<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
False<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
CommandButton1<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
cmdLihat<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
&Show<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
CommandButton2<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
cmdSembunyi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
&Don’t Show<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
CommandButton3<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
cmdKeluar<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
E&xit<o:p></o:p></div>
</td> </tr>
</tbody></table>
<br />
<br />
Atur seperti gambar paling atas (<span style="font-style: italic;">image</span> merupakan tambahan saja)<br />
<br />
Masukkan <span style="font-style: italic; font-weight: bold;">source code</span> dibawah ini pada <span style="font-style: italic; font-weight: bold;">Code Window</span></div>
<br />
<br />
<div style="border: 1px solid rgb(0, 102, 0); height: 100px; overflow: auto; width: 420px;">
<br />
'perintah untuk melihat file system<br />
Private Sub Lihat()<br />
On Error Resume Next<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 1<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0<br />
MsgBox "Klik kanan lalu Refresh"<br />
End Sub<br />
<br />
'perintah untuk menyembunyikan file system<br />
Private Sub Sembunyi()<br />
On Error Resume Next<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0<br />
RegDword "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1<br />
MsgBox "Klik kanan lalu Refresh"<br />
End Sub<br />
<br />
'fungsi untuk merubah nilai pada registry<br />
Function RegDword(HiveAndKey As String, Value As Integer)<br />
Dim newbie As Variant<br />
Set newbie = CreateObject("Wscript.Shell")<br />
newbie.regwrite HiveAndKey, Value, "REG_DWORD"<br />
End Function<br />
<br />
Private Sub cmdKeluar_Click()<br />
MsgBox "http://www.kolektor-veebee.blogspot.com"<br />
'keluar<br />
Unload Me<br />
End Sub<br />
<br />
Private Sub cmdLihat_Click()<br />
'memanggil perintah lihat<br />
Call Lihat<br />
End Sub<br />
<br />
Private Sub cmdSembunyi_Click()<br />
'memanggil perintah sembunyi<br />
Call Sembunyi<br />
End Sub</div>
<br />
<br />
<br />
<div style="font-family: trebuchet ms; text-align: justify;">
Jalankan aplikasi dengan menekan F5 lalu <span style="font-style: italic; font-weight: bold;">compile</span> menjadi <span style="font-style: italic; font-weight: bold;">.exe</span></div>
<br />
<div style="font-family: trebuchet ms; text-align: justify;">
Cara kerja :</div>
<ul style="font-family: trebuchet ms; text-align: justify;">
<li>Jalankan aplikasi</li>
<li>Klik <span style="font-style: italic; font-weight: bold;">Show</span></li>
<li>Klik kanan pada <span style="font-style: italic; font-weight: bold;">windows</span> /<span style="font-style: italic; font-weight: bold;"> explorer</span> lalu <span style="font-style: italic; font-weight: bold;">refresh</span> dan lihat hasilnya</li>
</ul>
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';"><br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4Nx" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<span style="font-family: 'trebuchet ms';"><br /></span></span></div>
<div style="font-family: trebuchet ms; text-align: right;">
Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html" style="font-style: italic;">paijo_jr</a></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com5tag:blogger.com,1999:blog-7772107655617385734.post-1505666014353278202009-12-25T14:01:00.033+07:002012-08-10T01:28:24.331+07:00Download Source Code<br />
<br />
<br />
<br />
<center>
<img src="http://i751.photobucket.com/albums/xx155/paijo_jr/dlsc.gif" /></center>
<br />
<span style="font-family: 'trebuchet ms';">Untuk mempermudah serta merapikan file source code yang mau di download maka mau nggak mau harus disediain satu halaman khusus buat download hehehe... Jadi disamping ada link untuk download source code, ada juga link ke artikel nya sepp^^</span><br />
<span style="background-color: white; font-family: 'trebuchet ms';"><br /></span>
<br />
<ul>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Halo Indonesia | </span><a href="http://adf.ly/AxC7K" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4Zq">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Membuat Jam | </span><a href="http://adf.ly/AxC9K" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4VS">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">If Then Else | </span><a href="http://adf.ly/AxCBQ" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4QS">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Cari Hari Lahir Anda | </span><a href="http://adf.ly/AxCDW" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4Y5">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Show Super Hidden | </span><a href="http://adf.ly/AxCFP" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4Nx">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Membuat Explorer | </span><a href="http://adf.ly/AxCH8" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax5Yy">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Menampilkan Dialog Browse | </span><a href="http://adf.ly/AxCJL" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4U5">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Date And Time | </span><a href="http://adf.ly/AxCLI" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Ax4J0">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Menghitung Umur Anda | </span><a href="http://adf.ly/Al5GU" style="background-color: white; font-family: 'trebuchet ms';">Artikel</a><span style="background-color: white; font-family: 'trebuchet ms';"> | <a href="http://adf.ly/Al7za">Download Source Code</a> |</span></li>
<li><span style="background-color: white; font-family: 'trebuchet ms';">Membuat Animasi Form Fade In Fade Out | <a href="http://adf.ly/Bj4Ee" target="_blank">Artikel</a> | <a href="http://adf.ly/Biw7f" target="_blank">Download Source Code</a>|</span></li>
</ul>
<div style="text-align: right;">
<span style="font-family: 'trebuchet ms';">Ditulis oleh <i><a href="http://facebook.com/paijojr">paijo_jr</a></i></span></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com12tag:blogger.com,1999:blog-7772107655617385734.post-11462021255349686022009-12-24T16:20:00.016+07:002012-07-21T10:47:12.641+07:00Cari Hari Lahir Anda<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/harilahir1.gif" style="height: 181px; width: 226px;" /></center><br />
<div style="font-family: trebuchet ms; text-align: justify;">
Tahukah hari lahir kamu???berdasarkan pengamatan, kebanyakan orang tuh pada kagak tahu hari lahir masing-masing tetapi kalau tanggal lahir pasti hafal lah. <span style="font-weight: bold;">Tutorial</span> kali ini, kita akan membuat aplikasi untuk mencari hari lahir biar pada tahu hari lahir masing-masing hehehe...<br />
<br />
Kalau pada aplikasi sebelumnya, <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html"><span style="font-style: italic; font-weight: bold;">toolbox</span></a> yang sudah kita gunakan yaitu <span style="font-style: italic; font-weight: bold;">commanbutton</span>, label serta <span style="font-style: italic; font-weight: bold;">timer</span> dan kali ini kita akan tambahkan satu lagi <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html"><span style="font-style: italic; font-weight: bold;">toolbox</span></a> yakni <span style="font-style: italic; font-weight: bold;">textbox</span>. Apa perbedaan <span style="font-style: italic; font-weight: bold;">label</span> dengan<span style="font-style: italic; font-weight: bold;"> textbox</span>???perbedaan kedua <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html"><span style="font-style: italic; font-weight: bold;">toolbox</span></a> tersebut ialah kalau label kita tidak akan bisa mengisi sendiri <span style="font-style: italic; font-weight: bold;">caption</span> kecuali melalui pihak kedua (misal <span style="font-style: italic; font-weight: bold;">commandbutton</span> atau <span style="font-style: italic; font-weight: bold;">timer</span>) tetapi kalau <span style="font-style: italic; font-weight: bold;">textbox</span> tidak ada <span style="font-style: italic; font-weight: bold;">properties</span> yang bernama <span style="font-style: italic; font-weight: bold;">caption</span>, yang ada yakni <span style="font-style: italic; font-weight: bold;">text</span> dan di <span style="font-style: italic; font-weight: bold;">properties text</span> ini kita bisa mengisi sendiri sesuai dengan keinginan kita.<br />
<br />
Langkah pertama, bukalah<span style="font-style: italic; font-weight: bold;"> Microsoft Visual Basic</span> anda dan pilih <span style="font-style: italic; font-weight: bold;">StandardEXE</span><br />
Langkah kedua, pada bagian <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html"><span style="font-style: italic; font-weight: bold;">toolbox</span></a> pilihlah 3 buah <span style="font-style: italic; font-weight: bold;">label</span>, 3 buah <span style="font-style: italic; font-weight: bold;">textbox</span> dan satu <span style="font-style: italic; font-weight: bold;">commandbutton</span> dan atur <span style="font-style: italic; font-weight: bold;">properties</span> seperti dibawah ini</div>
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"> <tbody>
<tr> <td colspan="2" style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Form1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
frmCari<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
BorderStyle<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
1 – Fixed Single<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Cari Hari Lahir Anda<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Label 1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
lblTanggal<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Tanggal Lahir<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Label 2<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
lblHari<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Hari Lahir<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Label 3<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
lblBintang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Bintang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
TextBox 1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
txtTanggal<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Dikosongi / Tidak diisi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
ToolTipText<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
contoh : 17 08 1945<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
TextBox 2<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
txtHari<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Dikosongi / Tidak diisi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
TextBox 3<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
txtBintang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Dikosongi / Tidak diisi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
CommandButton<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
cmdCari<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption <o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Cari Hari Lahir Saya<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><br /></td> </tr>
</tbody></table>
<br />
<br />
<span style="font-family: 'trebuchet ms';">Langkah ketiga, atur seperti gambar di bawah ini</span><br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/harilahir2.gif" /></center><br />
<span style="font-family: 'trebuchet ms';">Langkah keempat, masukkan <span style="font-style: italic; font-weight: bold;">source code</span> di bawah ini pada <span style="font-style: italic; font-weight: bold;">Code Window</span></span><br />
<br />
<div style="border: 1px solid rgb(0, 102, 0); height: 100px; overflow: auto; width: 420px;">
<br />
<span style="font-family: arial;">Private Sub cmdCari_Click()</span><br />
<span style="font-family: arial;">'Mencari hari lahir</span><br />
<span style="font-family: arial;">Dim KodeHari As Byte</span><br />
<span style="font-family: arial;">Dim Hari As String</span><br />
<span style="font-family: arial;">KodeHari = Weekday(txtTanggal.Text)</span><br />
<span style="font-family: arial;">Select Case KodeHari</span><br />
<span style="font-family: arial;"> Case 1: Hari = "Minggu"</span><br />
<span style="font-family: arial;"> Case 2: Hari = "Senin"</span><br />
<span style="font-family: arial;"> Case 3: Hari = "Selasa"</span><br />
<span style="font-family: arial;"> Case 4: Hari = "Rabu"</span><br />
<span style="font-family: arial;"> Case 5: Hari = "Kamis"</span><br />
<span style="font-family: arial;"> Case 6: Hari = "Jumat"</span><br />
<span style="font-family: arial;"> Case 7: Hari = "Sabtu"</span><br />
<span style="font-family: arial;">End Select</span><br />
<span style="font-family: arial;">txtHari.Text = Hari</span><br />
<br />
<span style="font-family: arial;">'Mencari Bintang</span><br />
<span style="font-family: arial;">Dim Tgl, Bln As Byte</span><br />
<span style="font-family: arial;">Dim Bintang As String</span><br />
<span style="font-family: arial;">Tgl = Day(txtTanggal.Text): Bln = Month(txtTanggal.Text)</span><br />
<span style="font-family: arial;">If (Tgl >= 21 And Bln = 3) Or (Tgl <= 20 And Bln = 4) Then Bintang = "ARIES" </span><br />
<span style="font-family: arial;"> If (Tgl >= 21 And Bln = 4) Or (Tgl <= 21 And Bln = 5) Then Bintang = "TAURUS" </span><br />
<span style="font-family: arial;">If (Tgl >= 22 And Bln = 5) Or (Tgl <= 21 And Bln = 6) Then Bintang = "GEMINI" </span><br />
<span style="font-family: arial;">If (Tgl >= 22 And Bln = 6) Or (Tgl <= 22 And Bln = 7) Then Bintang = "CANCER" </span><br />
<span style="font-family: arial;">If (Tgl >= 23 And Bln = 7) Or (Tgl <= 22 And Bln = 8) Then Bintang = "LEO" </span><br />
<span style="font-family: arial;">If (Tgl >= 23 And Bln = 8) Or (Tgl <= 22 And Bln = 9) Then Bintang = "VIRGO" </span><br />
<span style="font-family: arial;">If (Tgl >= 23 And Bln = 9) Or (Tgl <= 22 And Bln = 10) Then Bintang = "LIBRA" </span><br />
<span style="font-family: arial;">If (Tgl >= 23 And Bln = 10) Or (Tgl <= 21 And Bln = 11) Then Bintang = "SCORPIO" </span><br />
<span style="font-family: arial;">If (Tgl >= 22 And Bln = 11) Or (Tgl <= 21 And Bln = 12) Then Bintang = "SAGITARIUS" </span><br />
<span style="font-family: arial;">If (Tgl >= 22 And Bln = 12) Or (Tgl <= 20 And Bln = 1) Then Bintang = "CAPRICORN" </span><br />
<span style="font-family: arial;">If (Tgl >= 21 And Bln = 1) Or (Tgl <= 19 And Bln = 2) Then Bintang = "AQUARIUS" </span><br />
<span style="font-family: arial;"> If (Tgl >= 20 And Bln = 2) Or (Tgl <= 20 And Bln = 3) Then Bintang = "PISCES" </span><br />
<span style="font-family: arial;"> txtBintang.Text = Bintang </span><br />
<span style="font-family: arial;">End Sub </span><br />
<br />
<span style="font-family: arial;">Private Sub Form_Load() </span><br />
<span style="font-family: arial;">cmdCari.Enabled = False </span><br />
<span style="font-family: arial;">End Sub </span><br />
<br />
<span style="font-family: arial;">Private Sub txtTanggal_Change() </span><br />
<span style="font-family: arial;">If IsDate(txtTanggal.Text) Then </span><br />
<span style="font-family: arial;">cmdCari.Enabled = True </span><br />
<span style="font-family: arial;">Else </span><br />
<span style="font-family: arial;">cmdCari.Enabled = False </span><br />
<span style="font-family: arial;">End If </span><br />
<span style="font-family: arial;">End Sub </span></div>
<br />
<br />
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';">Langkah kelima, tekan <span style="font-style: italic; font-weight: bold;">Run</span> atau <span style="font-weight: bold;">F5</span> dan <span style="font-style: italic; font-weight: bold;">compile</span> aplikasi ini dengan menekan tombol <span style="font-weight: bold;">Alt+F</span> dan pilih <span style="font-style: italic; font-weight: bold;">make project1.exe</span>(atau tekan huruf “k” pada <span style="font-style: italic;">keyboard</span>).</span><br />
<br/>
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4Y5" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br />
<div style="text-align: right;">
Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic; font-weight: bold;">paijo_jr</span></a></div>
</div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com20tag:blogger.com,1999:blog-7772107655617385734.post-38940713569446629922009-12-17T19:10:00.011+07:002012-07-21T10:48:52.343+07:00If Then Else<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/logikaifthen.gif" /></center><br />
<div style="font-family: trebuchet ms; text-align: justify;">
<span style="font-style: italic;">Statement</span> bercabang digunakan untuk melakukan suatu tindakan di dalam suatu program berdasarkan kondisi tertentu. Salah satu percabangan yang tidak asing di telinga kita adalah percabangan <span style="font-style: italic; font-weight: bold;">if then else</span> karena pada aplikasi <span style="font-style: italic;">excel</span> percabangan tersebut juga kita gunakan. Percabangan <span style="font-style: italic; font-weight: bold;">if then else</span> ini digunakan untuk menjalankan satu blok perintah yang nilainya tergantung pada kondisi yang diuji. Penulisannya adalah sebagai berikut :</div>
<br />
<span style="font-family: arial;">If </span>kondisi<span style="font-family: arial;"> then</span><br />
pernyataan 1<br />
<span style="font-family: arial;">Else</span><br />
pernyataan 2<br />
<span style="font-family: arial;">End if</span><br />
<br />
<span style="font-family: 'trebuchet ms';">Atau kita bisa menambahkan <span style="font-style: italic;">statement</span> <span style="font-style: italic; font-weight: bold;">ElseIf</span>, sehingga menjadi :</span><br />
<br />
<span style="font-family: arial;">If </span>kondisi 1<span style="font-family: arial;"> then</span><br />
pernyataan 1<br />
<span style="font-family: arial;">ElseIf </span>kondisi 2<span style="font-family: arial;"> then</span><br />
pernyataan 2<br />
<span style="font-family: arial;">Else</span><br />
pernyataan 3<br />
<span style="font-family: arial;">End If</span><br />
<br />
<div style="text-align: justify;">
<kondisi style="font-family: trebuchet ms;">Bingung khan?!?aku aja juga bingung sob hehehe… </kondisi><br />
<kondisi style="font-family: trebuchet ms;">Nie kan aku coba jelasin yah, yang namanya percabangan khan pasti ada pilihan lebih dari satu(pernyataan), bisa A, B, C sampe seterusnya. Untuk percabangan <span style="font-style: italic;">If-Then-Else-End If</span> ini, pertama kita mendeklarasikan satu kondisi terlebih dahulu, sesudah itu pasti ada pilihan jawabannya bisa benar ato bisa salah. Jadi percabangan <span style="font-style: italic;">If-Then-Else-End-If</span> ini memerlukan kondisi yang tempatnya setelah perintah <span style="font-style: italic; font-weight: bold;">If</span>, dan jawaban dari kondisi tadi jika benar maka dijawab dengan pernyataan 1 yang terletak setelah <span style="font-style: italic; font-weight: bold;">Then</span> tapi jika salah maka pernyataan 2 tempatnya terletak setelah <span style="font-style: italic; font-weight: bold;">Else</span> dan yang terakhir menutup perintah <span style="font-style: italic; font-weight: bold;">If</span> dengan <span style="font-style: italic; font-weight: bold;">End If</span>. Misal jika paijo_jr cowok maka paijo_jr ganteng tapi jika paijo_jr bukan cowok maka paijo_jr cantik(hiks…). Tuh tadi soalnya, jika soal itu diubah menjadi bahasa kayak di atas tadi maka bunyinya begini :</kondisi></div>
<br />
<span style="font-family: arial;">If paijo_jr=cowok then</span><br />
<span style="font-family: arial;">paijo_jr ganteng</span><br />
<span style="font-family: arial;">Else</span><br />
<span style="font-family: arial;">paijo_jr cantik</span><br />
<span style="font-family: arial;">End if </span><br />
<br />
<div style="text-align: justify;">
<kondisi style="font-family: trebuchet ms;">Hm…udah berkurang bingungnya?!?wah masih belum jelas, oke kita buat <span style="font-style: italic;">project</span> baru saja untuk mempraktekkan percabangan <span style="font-style: italic; font-weight: bold;">if then else</span> ini.</kondisi></div>
<br />
<br />
<kondisi style="font-family: trebuchet ms;">Pertama buat <span style="font-style: italic; font-weight: bold;">project</span><span style="font-weight: bold;"> </span>baru, buka <span style="font-style: italic; font-weight: bold;">Microsoft Visual Basic</span> nya lalu klik <span style="font-style: italic; font-weight: bold;">StandardEXE</span>;</kondisi><br />
<kondisi style="font-family: trebuchet ms;">Kedua tambahkan satu buah <span style="font-style: italic; font-weight: bold;">Label</span>, satu buah <span style="font-style: italic; font-weight: bold;">TextBox</span> dan satu buah <span style="font-style: italic; font-weight: bold;">CommandButton</span> kemudian atur seperti gambar dibawah ini:</kondisi><br />
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/cabang.gif" /></center><br />
<div style="text-align: justify;">
<kondisi style="font-family: trebuchet ms;">Ketiga atur <span style="font-style: italic;">properties</span> masing-masing komponen sebagai berikut:</kondisi></div>
<br />
<br />
<br />
<style>
<!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->
</style> <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"> <tbody>
<tr> <td colspan="2" style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal" style="text-align: justify;">
Form<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
frmCabang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
Contoh Percabangan<o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal" style="text-align: justify;">
Label1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
lblCabang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Alligment <o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
Center<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
AutoSize<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
True<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
“” Dikosongi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Font<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
Size 12<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
ForeColor<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
Pilih Warna Biru<o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal" style="text-align: justify;">
CommandButton<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
cmdCabang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
Test Cabang<o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal" style="text-align: justify;">
TextBox<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
txtCabang<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Text<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 135pt;" valign="top" width="180"><div class="MsoNormal">
“” Dikosongi<o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
</tbody></table>
<br />
<br />
<div style="text-align: justify;">
<kondisi style="font-family: trebuchet ms;">Keempat, klik cmdCabang atau pindah ke <span style="font-style: italic;">Code Window</span> lalu isikan <span style="font-style: italic; font-weight: bold;">source code</span> di bawah ini :</kondisi></div>
<br />
<span style="font-family: arial;">Private Sub cmdCabang_Click()</span><br />
<span style="font-family: arial;">If txtCabang.Text = "" Then</span><br />
<span style="font-family: arial;">lblCabang.Caption = "TextBox Kagak Ada Isinya"</span><br />
<span style="font-family: arial;">Else</span><br />
<span style="font-family: arial;">lblCabang.Caption = "Wah Tuh Ada Isinya Boz"</span><br />
<span style="font-family: arial;">End If</span><br />
<span style="font-family: arial;">End Sub</span><br />
<br />
<div style="text-align: justify;">
<kondisi style="font-family: trebuchet ms;">Kelima, klik F5 dan klik Test Cabang lihat hasilnya ketika textbox kosong dengan ketika <span style="font-style: italic;">textbox</span> ada hurufnya;</kondisi></div>
<br />
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/perbandingancabang.gif" /></center><br />
<div style="text-align: justify;">
<kondisi face="trebuchet ms">Penjelasan<span style="font-style: italic; font-weight: bold;"> Source Code</span> :<br /><kondisi face="trebuchet ms"><br /><kondisi face="trebuchet ms">Private Sub cmdCabang_Click()</kondisi><br /><kondisi style="font-family: trebuchet ms;">Maksud dari perintah diatas adalah apabila <span style="font-weight: bold;">cmdCabang</span> (CommandButton) di klik maka akan menjalankan perintah dibawahnya dan <span style="font-style: italic;">End Sub</span> untuk mengakhiri perintah.</kondisi></kondisi></kondisi></div>
<br />
<kondisi style="font-family: trebuchet ms;"></kondisi><br />
<kondisi style="font-family: trebuchet ms;"> If txtCabang.Text = "" Then</kondisi><br />
<kondisi style="font-family: trebuchet ms;">Disini perintah percabangan dimulai, dimana pada awalnya di lihat apakah <span style="font-weight: bold;">txtCabang.Text </span>tidak ada isinya (tanda petik dua berarti kosong “”), kalau <span style="font-weight: bold;">txtCabang.Text</span> ternyata kosong maka memberi perintah kepada <span style="font-weight: bold;">lblCabang.Caption</span> untuk mengisi "TextBox Kagak Ada Isinya" , tetapi jika ternyata <span style="font-weight: bold;">txtCabang.Text</span> tersebut tidak kosong atau berisi minimal satu karakter (huruf atau angka) maka memberi perintah untuk mengisi <span style="font-weight: bold;">lblCabang.Caption</span> menjadi "Wah Tuh Ada Isinya Boz". Dan perintah <span style="font-style: italic; font-weight: bold;">If</span> tersebut diakhiri dengan <span style="font-style: italic; font-weight: bold;">End If</span></kondisi><br />
<kondisi style="font-family: trebuchet ms;"></kondisi><br />
<kondisi style="font-family: trebuchet ms;">Nah pasti sekarang udah agak paham ya, hehehe…gak sia-sia aku buat <span style="font-style: italic;">tutorial</span> percabangan <span style="font-style: italic; font-weight: bold;">if then else ini</span>.</kondisi><br />
<kondisi style="font-family: trebuchet ms;"><br /></kondisi><br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4QS" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<kondisi style="font-family: trebuchet ms;"></kondisi><br />
<kondisi style="font-family: trebuchet ms;"></kondisi><br />
<div style="text-align: right;">
<kondisi style="font-family: trebuchet ms;">Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic;">paijo_jr</span></a></kondisi></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com7tag:blogger.com,1999:blog-7772107655617385734.post-32808761291968312972009-12-13T00:16:00.004+07:002009-12-13T00:29:23.095+07:00Operator Logika<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/operator.jpg" /></center><br /><span style="font-family: trebuchet ms;">Sedikit berbagi aja dari yang pernah aku baca di buku, sebenarnya seh aku kurang paham ma operator logika ini tapi semoga yang baca tulisan di bawah ini lebih paham ya hehehe… Operator logika itu mengikuti aritmatika dalam pengutamaan perhitungan. Adapun operator-operator tersebut adalah :</span><br /><br /><div align="center"><style> <!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} --> </style><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} table.MsoTableGrid {mso-style-name:"Table Grid"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-border-insideh:.5pt solid windowtext; mso-border-insidev:.5pt solid windowtext; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]--> <table class="MsoTableGrid" style="border: medium none ; border-collapse: collapse; width: 255px; height: 148px;" border="1" cellpadding="0" cellspacing="0"> <tbody><tr style=""> <td style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"><div style="text-align: center;"> </div><p style="text-align: center;" class="MsoNormal">Operator<o:p></o:p></p> </td> <td style="border-style: solid solid solid none; border-color: windowtext windowtext windowtext -moz-use-text-color; border-width: 1pt 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"><div style="text-align: center;"> </div><p style="text-align: center;" class="MsoNormal">Keterangan<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">Not<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Logika bukan<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">And<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Logika dan<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">Or<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Logika atau<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">Xor<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Exclusive Or<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">Eqv<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Ekivalen<o:p></o:p></p> </td> </tr> <tr style=""> <td style="border-style: none solid solid; border-color: -moz-use-text-color windowtext windowtext; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 68.4pt;" width="91" valign="top"> <p class="MsoNormal">Imp<o:p></o:p></p> </td> <td style="border-style: none solid solid none; border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 99pt;" width="132" valign="top"> <p class="MsoNormal">Implikasi<o:p></o:p></p> </td> </tr> </tbody></table> </div><br /><span style="font-family: trebuchet ms;">Keterangan :</span><br /><ol style="font-family: trebuchet ms;"><li>Operator Not akan menghasilkan nilai true jika ungkapannya memang salah;</li><li>Operator And akan menghasilkan nilai true jika semua ungkapan benar dan akan menghasilkan false, jika salah satu ungkapan salat atau semua ungkapan salah;</li><li>Operator Or akan menghasilkan nilai true jika salah satu ungkapan benar dan akan menghasilkan false jika semua ungkapan salah;</li><li>Operator Xor akan menghasilkan nilai true jika satu ungkapan salah dan satu ungkapan lain benar dan akan menghasilkan nilai false apabila semua ungkapan benar atau semua ungkapan salah;</li><li>Operator Eqv adalah kebalikan dari operator Xor, akan menghasilkan nilai true jika kedua ungkapan sama-sama benar atau sama-sama salah, dan akan menghasilkan false jika satu ungkapan salah dan satu ungkapan lain benar;</li><li>Operator Imp akan menghasilkan nilai true jika ungkapan pertama benar dan ungkapan kedua salah, selain kondisi tersebut akan menghasilkan false.<br /></li></ol><div style="text-align: right;"><span style="font-family: trebuchet ms;">Ditulis ulang oleh<span style="font-style: italic;"> paijo_jr</span> (sumber computer worm1)</span><br /></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com7tag:blogger.com,1999:blog-7772107655617385734.post-78198289013882883562009-12-03T12:13:00.003+07:002009-12-03T12:21:48.103+07:00Icon Sucker 2<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/iconsuck1.gif" /></center><br /><br /><div style="text-align: justify; font-family: trebuchet ms;">Untuk melengkapi postingan sebelumnya yakni <a href="http://kolektor-veebee.blogspot.com/2009/12/mengganti-icon-pada-aplikasi.html" target="_blank">Mengganti Icon</a> pada Aplikasi, tidak lengkap rasanya kalo nggak cantumin <span style="font-style: italic;">software</span> buat mengambil <span style="font-style: italic;">icon</span> yakni <span style="font-style: italic;">Icon Sucker 2</span>. <span style="font-style: italic;">Software</span> ini merupakan salah satu <span style="font-style: italic;">software</span> yang berfungsi mengambil <span style="font-style: italic;">icon</span> pada aplikasi (ber ekstensi *.exe). Silakan <span style="font-style: italic;">download</span> terlebih dahulu <span style="font-style: italic;">software Icon Sucker 2</span> di sini <a href="http://www.ziddu.com/download/7576635/IconSuckerStd2.zip.html" target="”_blank”">download Icon Sucker 2</a><br /><br />Setelah selesai <span style="font-style: italic;">download</span>nya, lalu <span style="font-style: italic;">install</span> aplikasi tersebut pada kompie anda. Ikuti langkah-langkahnya :<br /></div><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/iconsuck2.gif" /></center><br /><span style="font-family: trebuchet ms;">Pilih<span style="font-style: italic;"> Next</span></span><br /><br /><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/iconsuck3.gif" /></center><br /><div style="text-align: justify;"><span style="font-family: trebuchet ms;">Pilih<span style="font-style: italic;"> I Agree</span></span><br /><span style="font-family: trebuchet ms;">Lalu pilih mau diletakkan dimana lalu klik <span style="font-style: italic;">Next</span> dan <span style="font-style: italic;">Install</span></span><br /><br /><span style="font-family: trebuchet ms;">Langkah selanjutnya setelah terinstall <span style="font-style: italic;">software Icon Sucker 2</span> tersebut maka jalankan aplikasi nya baik melalui tombol <span style="font-style: italic;">start</span> lalu <span style="font-style: italic;">program files</span> atau pada<span style="font-style: italic;"> icon</span> di <span style="font-style: italic;">desktop</span>. Setelah itu ada 4 langkah untuk mendapatkan <span style="font-style: italic;">icon</span> dari aplikasi lain (dalam hal ini saya akan mengambil i<span style="font-style: italic;">con <span style="font-weight: bold;">Windows Media Player</span></span>)</span><br /><span style="font-family: trebuchet ms;">Langkah 1 : Cari <span style="font-style: italic;">folder</span> aplikasi <span style="font-weight: bold; font-style: italic;">Windows Media Player</span> (yakni di folder C:\Program Files\Windows Media Player\)*;</span><br /><span style="font-family: trebuchet ms;">Langkah 2 : Pilih aplikasi wmplayer.exe lalu pada bagian bawah <span style="font-style: italic;">software Icon Suck</span> muncul pilihan <span style="font-style: italic;">icon </span>dari wmplayer;</span><br /><span style="font-family: trebuchet ms;">Langkah 3 : Pilih salah satu <span style="font-style: italic;">icon</span> yang muncul pada bagian bawah tersebut;</span><br /><span style="font-family: trebuchet ms;">Langkah 4 : Simpan <span style="font-style: italic;">icon </span>ke dalam <span style="font-style: italic;">folder</span> sesuai dengan keinginan kita.</span><br /></div><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/iconsuck4.gif" /></center><br /><br /><div style="text-align: justify;"><span style="font-family: trebuchet ms;">Mudah bukan</span><br /><div style="text-align: right;"><span style="font-family: trebuchet ms;">Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic;">paijo_jr</span></a></span><br /></div><br /><span style="font-family: trebuchet ms;">Note: * : tergantung dimana anda meng<span style="font-style: italic;">install</span> aplikasi <span style="font-style: italic; font-weight: bold;">Windows Media Player</span></span><br /></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com1tag:blogger.com,1999:blog-7772107655617385734.post-73658919920361838512009-12-02T10:41:00.011+07:002009-12-03T12:13:38.074+07:00Mengganti Icon pada Aplikasi<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/ganti.gif" /></center><br /><br /><div style="text-align: justify;font-family:trebuchet ms;">Tips kali ini yakni mengganti <span style="font-style: italic;">icon</span> pada aplikasi, kedua <span style="font-style: italic;">project</span> yang kita buat yaitu <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">Halo Indonesia</a> dan <a href="http://kolektor-veebee.blogspot.com/2009/11/membuat-jam.html">Membuat Jam</a> hanya mempunyai <span style="font-style: italic;">icon standart</span> bawa-annya <span style="font-style: italic;">Microsoft Visual Basic</span>. Nah tugas kita sekarang mengubah <span style="font-style: italic;">icon standart</span> tersebut menjadi <span style="font-style: italic;">icon</span> yang sesuai dengan keinginan kita.<br /><br />Sebenarnya apa sih perbedaan atau keuntungan mengganti <span style="font-style: italic;">icon</span>???kalo diliat dari performa aplikasi yang telah kita buat (misal saya ambil contoh <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">Halo Indonesia</a>) mengganti <span style="font-style: italic;">icon</span> tidak mempengaruhi kinerja aplikasi tersebut tetapi dari segi tampilan baik pada <span style="font-style: italic;">form</span> aplikasi itu sendiri maupun pada <span style="font-style: italic;">window explorer</span>, perubahan <span style="font-style: italic;">icon</span> tersebut akan membuat aplikasi kita mempunyai ciri khas berupa <span style="font-style: italic;">icon</span> yang berbeda dengan aplikasi lainnya.<br /><br />Alat-alat yang dibutuhkan yakni obeng, kunci, tang (kayak mo buka bengkel aja hakhakhak…) becanda hehehe… Alatnya ya cuman <span style="font-style: italic;">icon</span> duank, makanya cari icon sendiri yah yang penting <span style="font-style: italic;">file</span> tersebut ekstensinya *.ico<br />Kalo udah ketemu sekarang kita mulai <span style="font-style: italic;">face off project</span> <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">Halo Indonesia</a> (<span style="font-style: italic;">project</span> baru juga gak pa pa). Buka <span style="font-style: italic;">project</span> <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">Halo Indonesia</a>, setelah itu aktifkan frmHalo (form halo) dan pada <span style="font-style: italic;">properties</span>nya cari yang namanya <span style="font-style: italic;">icon</span>, nah di situ ada tanda titik tiga (…) klik aja di situ.<br /></div><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/icon.gif" /></center><br /><br /><div style="text-align: justify;"><span style="font-family:trebuchet ms;">Langkah selanjutnya pilih <span style="font-style: italic;">icon</span> yang sudah anda siapkan tadi (disini saya pilih <span style="font-style: italic;">icon</span>nya <span style="font-style: italic;">process explorer</span> hehehe…) lalu tekan <span style="font-style: italic;">open</span>. Nah udah ganti kan.</span><br /></div><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/frmudahganti.gif" /></center><br /><br /><div style="text-align: justify;font-family:trebuchet ms;">Langkah terakhir yakni <span style="font-style: italic;">compile</span> menjadi <span style="font-style: italic;">file</span> *.exe dengan menekan Alt+f lalu pilih make****.exe dan inilah hasilnya<br /></div><center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/hasil.gif" /></center><span style="font-family:trebuchet ms;">Gimana udah </span><span style="font-style: italic;font-family:trebuchet ms;" >eye cacthing </span><span style="font-family:trebuchet ms;"> pa belum^^</span><br /><div style="text-align: right;"><span style="font-family:trebuchet ms;">Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic;">paijo_jr</span></a></span><br /></div><div style="text-align: justify;"><span style="font-family:trebuchet ms;">Note: *** : maksudnya sesuai dengan nama <span style="font-style: italic;">file</span> anda.<br /><br /></span></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com5tag:blogger.com,1999:blog-7772107655617385734.post-46959706167452335532009-11-28T11:28:00.015+07:002012-07-21T10:51:11.900+07:00Membuat Jam<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/jadi.gif" /></center><br />
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';">Pernah dengar pepatah “waktu adalah uang”, yup pasti pernah dengar semua kan, sedangkan waktu itu sendiri bisa tahun, bulan, hari sampai jam. Nah disini kita akan membuat aplikasi sederhana yakni membuat jam (hehehe… sangat sederhana banget kan). Dalam aplikasi ini, kita akan membuat 2 jam, dimana yang pertama akan aktif di <span style="font-style: italic;">form</span> sedangkan yang kedua yaitu jam tersebut kita tempatkan pada <span style="font-style: italic;">title bar</span> (disamping judul).</span><br />
<br />
<span style="font-family: 'trebuchet ms';">Pertama-tama yang dibutuhkan yakni 1 buah <span style="font-style: italic;">label</span> dan 1 buah <span style="font-style: italic;">timer</span> (hagh..masak cuman 2 buah komponen itu saja??yup emang bener cuman 2 komponen sob). </span></div>
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/tool.gif" /></center><br />
<span style="font-family: 'trebuchet ms';">Buka </span><span style="font-family: 'trebuchet ms'; font-style: italic;">Microsoft Visual Basic 6.0</span><span style="font-family: 'trebuchet ms';"> anda lalu pilih </span><span style="font-family: 'trebuchet ms'; font-style: italic;">Standard EXE</span><br />
<span style="font-family: 'trebuchet ms';">Pilih </span><span style="font-family: 'trebuchet ms'; font-style: italic;">Timer</span><span style="font-family: 'trebuchet ms';"> 1 biji dan </span><span style="font-family: 'trebuchet ms'; font-style: italic;">Label</span><span style="font-family: 'trebuchet ms';"> 1 biji dan atur seperti berikut ini:</span><br />
<br />
<br />
<center><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/form.gif" /></center><br />
<br />
<span style="font-family: 'trebuchet ms';">Ubah</span><span style="font-family: 'trebuchet ms'; font-style: italic;"> properties</span><span style="font-family: 'trebuchet ms';"> seperti berikut ini :</span><br />
<style>
<!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->
</style> <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"> <tbody>
<tr> <td colspan="2" style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Form<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
frmJam<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Dikosongi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Label1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
lblJam<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
AutoSize<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
True<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Dikosongi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Font<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Silakan dipilih sendiri<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
ForeColor<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Warna merah<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 442.8pt;" valign="top" width="590"><div class="MsoNormal">
Timer1<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
tmrJam<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
Interval<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 221.4pt;" valign="top" width="295"><div class="MsoNormal">
1000<o:p></o:p></div>
</td> </tr>
</tbody></table>
<br />
<br />
<div style="font-family: trebuchet ms; text-align: justify;">
Sudah diubah <span style="font-style: italic;">properties</span>nya^^, selanjutnya klik 2x komponen <span style="font-style: italic;">timer</span> yang ada pada <span style="font-style: italic;">form</span> <span style="font-style: italic;">designer</span> lalu kita isikan <span style="font-style: italic;">source code</span> berikut ini :</div>
<br />
<span style="font-family: 'trebuchet ms';">Private Sub tmrJam_Timer()</span><br />
<span style="font-family: 'trebuchet ms';">lblJam.Caption = Format(Date, "Short Date") & " " & Time</span><br />
<span style="font-family: 'trebuchet ms';">frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time</span><br />
<span style="font-family: 'trebuchet ms';">End Sub</span><br />
<br />
<span style="font-family: 'trebuchet ms';">Jalankan program dengan menekan tombol F5 pada </span><span style="font-family: 'trebuchet ms'; font-style: italic;">keyboard</span><span style="font-family: 'trebuchet ms';">, bisa kan^^</span><br />
<br />
Langkah terakhir yakni meng <span style="font-style: italic;">compile</span> <span style="font-style: italic;">project</span> ini menjadi file *.exe, yakni tekan alt+f dan pilih make project1.exe<br />
<br />
<span style="font-family: 'trebuchet ms';">Penjelasan :</span><br />
<br />
<div style="font-family: trebuchet ms; text-align: justify;">
Untuk <span style="font-style: italic;">properties form</span> dan <span style="font-style: italic;">label</span> penjelasannya hampir sama seperti <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">project Halo Indonesia</a>. Sedangkan untuk komponen<span style="font-style: italic;"> timer</span>, <span style="font-style: italic;">name</span> berarti nama <span style="font-style: italic;">timer</span> ini diganti menjadi tmrJam, <span style="font-style: italic;">interva</span>l maksudnya<span style="font-style: italic;"> interval</span> waktu <span style="font-style: italic;">timer</span> itu sendiri yakni 1000 yang artinya<span style="font-style: italic;"> source code</span> yang dijalankan oleh <span style="font-style: italic;">timer</span> ini akan diulang setiap 1 detik (note : 1 detik berarti 1000 harap diingat). Komponen <span style="font-style: italic;">timer</span> ini pada saat aplikasi dijalankan bersifat tidak terlihat sehingga jangan heran kalo <span style="font-style: italic;">timer</span>nya koq nggak kelihatan (mana timernya mana timernya???capek deh^^)<br />
<br />
<span style="font-style: italic;">Source code</span> pada aplikasi ini hanya dijalankan oleh <span style="font-style: italic;">timer</span>, kalo kemaren <a href="http://kolektor-veebee.blogspot.com/2009/11/halo-indonesia.html">Halo Indonesia</a> menggunakan<span style="font-style: italic;"> commandbutton</span> sehingga membutuhkan klik dari <span style="font-style: italic;">mouse</span> untuk menjalankan perintah.<br />
lblJam.Caption = Format(Date, "Short Date") & " " & Time<br />
Maksud dari <span style="font-style: italic;">source code</span> ini bahwa <span style="font-style: italic;">label</span> jam tadi kan kosong (gak ada isinya), lha oleh <span style="font-style: italic;">timer</span> ini secara periodik (tergantung <span style="font-style: italic;">interval timer</span>) <span style="font-style: italic;">caption</span> yang kosong tadi di isi dengan perintah Format(Date, "Short Date") & " " & Time. <span style="font-style: italic;">Date</span> artinya tanggal, bulan serta tahun hari ini dan <span style="font-style: italic;">short date</span> maksudnya tanggal, bulan serta tahun tersebut dipendekkan/disingkat penulisannya (sekarang dicoba <span style="font-style: italic;">short date</span> diganti dengan <span style="font-style: italic;">long date</span> dan lihat perbedaannya). Sedangkan <span style="font-style: italic;">Time</span> ya jelaslah waktu hari ini hehehe…^^<br />
<br />
frmJam.Caption = "Membuat Jam " & Format(Date, "Short Date") & " " & Time<br />
Maksud dari perintah ini hampir sama dengan perintah pada <span style="font-style: italic;">label</span> diatas, hanya tempatnya saja di<span style="font-style: italic;"> title bar</span> nya <span style="font-style: italic;">form</span> dengan tambahan judul<span style="font-style: italic;"> form</span> yaitu Membuat Jam. Untuk penulisan judul jam ini harus menggunakan tanda (“), kalo diawali tanda (‘) tidak akan terbaca sebagai perintah melainkan sebagai keterangan saja. Antara judul dengan jam tersebut kan tersambung sedangkan yang satu berisi masukan huruf (judul) dan yang satunya berisi perintah sehingga untuk menyambung keduanya digunakan tanda (&)<br />
<br />
Sekian dulu yah tutorial aplikasi kali ini dan semoga bermanfaat^^<br />
<br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4VS" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br />
<span style="font-family: 'trebuchet ms';">Note : kalo sob lupa yang mana main tool bar, yang mana form designer baca <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html">ini</a> </span><br />
<br />
<div style="font-family: trebuchet ms; text-align: right;">
Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic;">paijo_jr</span></a></div>
<br />
<div style="text-align: justify;">
<br /></div>
<a href="http://kolektor-ebook.blogspot.com/" target="_blank"><br /></a><br />
<div style="text-align: center;">
<a href="http://kolektor-ebook.blogspot.com/" target="_blank"><img alt="Kolektor E-books" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/lbacklink.jpg" /> </a><a href="http://kolektor-veebee.blogspot.com/" target="_blank"><img alt="Kolektor E-books" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/kvbgif.gif" /></a></div>
</div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com1tag:blogger.com,1999:blog-7772107655617385734.post-81014013865698810502009-11-26T22:59:00.023+07:002012-07-21T10:53:28.239+07:00Halo Indonesia<div align="center">
<img src="http://i751.photobucket.com/albums/xx155/paijo_jr/Halo.gif" /></div>
<br />
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';">Seperti biasa project awal kita adalah membuat program/aplikasi Halo Indonesia. Pertama-tama buka program visual basic anda, setelah itu pilihlah Standard EXE dan muncullah Form 1 pada form designer. Pada toolbox pilihlah 1 buah label dengan cara klik 2 kali dan 1 buah CommandButton </span></div>
<span style="font-family: 'trebuchet ms';"></span><br />
<div align="center">
<span style="font-family: 'trebuchet ms';"><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/toolbox.gif" style="font-family: trebuchet ms;" /></span></div>
<span style="font-family: 'trebuchet ms';"><br /><br /><span style="font-family: 'trebuchet ms';">Kemudian atur pada form seperti berikut:<div align="center">
<br />
<img src="http://i751.photobucket.com/albums/xx155/paijo_jr/form1.gif" style="font-family: trebuchet ms;" /></div>
<br /><span style="font-family: 'trebuchet ms';">Pada Properties Window ganti atribut masing-masing yakni:</span></span></span><style>
<!-- /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:"Times New Roman";} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} -->
</style> <br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: medium none;"> <tbody>
<tr> <td colspan="2" style="border: 1pt solid windowtext; padding: 0cm 5.4pt; width: 248.4pt;" valign="top" width="331"><div>
</div>
<div class="MsoNormal" style="text-align: left;">
Form1 (klik form1) ganti properties berikut :<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
frmHalo<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
BorderStyle<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
1 – Fixed Single<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
Halo <st1:country-region><st1:place>Indonesia</st1:place></st1:country-region><o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 248.4pt;" valign="top" width="331"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 248.4pt;" valign="top" width="331"><div class="MsoNormal">
Label1 (klik label1 pada project designer) ganti properties berikut :<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
lblHalo<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Alignment<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
2 – center<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
AutoSize<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
True<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
“”dikosongi<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Font<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
Size ukuran 14<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
ForeCollor<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
pilih warna merah<o:p></o:p></div>
</td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 248.4pt;" valign="top" width="331"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
<tr> <td colspan="2" style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 248.4pt;" valign="top" width="331"><div class="MsoNormal">
CommandButton1 (klik CommandButton1 pada project designer) ganti properties berikut :<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Name<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
cmdHalo<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
Caption<o:p></o:p></div>
</td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
Klik Saya<o:p></o:p></div>
</td> </tr>
<tr> <td style="border-color: -moz-use-text-color windowtext windowtext; border-style: none solid solid; border-width: medium 1pt 1pt; padding: 0cm 5.4pt; width: 86.4pt;" valign="top" width="115"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> <td style="border-color: -moz-use-text-color windowtext windowtext -moz-use-text-color; border-style: none solid solid none; border-width: medium 1pt 1pt medium; padding: 0cm 5.4pt; width: 162pt;" valign="top" width="216"><div class="MsoNormal">
<o:p> </o:p></div>
<br /></td> </tr>
</tbody></table>
<br />
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Ketik source code berikut ini pada Code Window, caranya klik View Code pada Project Window atau klik 2x cmdHalo sehingga muncul Code Window :</span></span></span><br />
<span style="color: #3333ff; font-family: 'trebuchet ms';"> Private Sub <span style="color: black;">cmdHalo_Click()</span></span><span style="color: #3333ff; font-family: 'trebuchet ms';"><br /> <span style="color: black;">lblHalo.Caption = "HALO INDONESIA"</span></span><span style="color: #3333ff; font-family: 'trebuchet ms';"><br /> End Sub</span><br />
<br /></div>
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"></span></span><br />
<div align="center">
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/codewindow.gif" style="font-family: trebuchet ms;" /></span></span></div>
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><br /></span></span><br />
<div style="text-align: justify;">
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">setelah itu klik Start pada Main Toolbar atau klik F5 lalu klik Command Button Klik Saya, mudah kan </span><img src="http://i751.photobucket.com/albums/xx155/paijo_jr/AddEmoticons04224.gif" style="font-family: trebuchet ms;" /></span></span><br />
<br />
Langkah terakhir yakni meng compile project ini menjadi file *.exe, yakni tekan alt+f dan pilih make project1.exe<br />
<br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Penjelasan :</span></span></span><br />
<br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Form1</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Pada form1 ini kita mengubah nama form1 menjadi frmHalo, nama ini terserah kita yang menentukan tetapi jangan menggunakan spasi.</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">BorderStyle pada project ini kita pilih Fixed Single artinya setelah aplikasi ini di jalankan kita tidak bisa mengubah ukuran serta tidak tersedia pilihan untuk me minimize ataupun maximize yang ada hanya tombol close (X) pada aplikasi. Selain Fixed Single ada beberapa pilihan lagi, sekarang coba diganti-ganti sesuai dengan pilihan anda dan lihat perbedaannya (note: kalo memilih none untuk mematikan aplikasi klik End pada Main Toolbar)</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Caption kita ganti menjadi Halo Indonesia, di sini kita mengubah header pada aplikasi menjadi Halo Indonesia</span></span></span><br />
<br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Label</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Pada label ini aligment dipilih center, maksudnya tulisan yang ada pada label tersebut berada di tengah-tengah ukuran label</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Autosize dipilih true, maksudnya label ini ukurannya mengikuti caption yang akan diisikan</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">FontCollor dipilih warna merah maksudnya huruf pada label ini berwarna merah (bisa diganti sesuai selera)</span></span></span><br />
<br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Source Code</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Private Sub cmdHalo_Click()</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">lblHalo.Caption = "HALO INDONESIA"</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">End Sub</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Private Sub cmd Halo_Click(), maksudnya kita mendefinisikan cmdHalo ini kalo ditekan (click) akan menjalankan perintah dibawahnya</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"> lblHalo.Caption = "HALO INDONESIA", yang berarti lblHalo.Caption yang sebelumnya tidak diisi (kosong) diperintahkan untuk diisi tulisan HALO INDONESIA (note:bedakan antara properties Name dengan properties Caption, jangan sampai terbalik)</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">End Sub, merupakan akhir dari perintah</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Selesai sudah Project pertama kita, begitu mudah bukan^^</span></span></span><br />
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><br />
Dapatkan <i>Source Code</i> nya di bawah ini atau masuk pada halaman <a href="http://adf.ly/Ax5pH">Download</a><br />
<a href="http://adf.ly/Ax4Zq" target="_blank"><img alt="Photobucket" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/veebee/tomboldownload.png" /></a><br />
<br /><br />Note : kalo sob lupa yang mana main tool bar, yang mana form designer baca <a href="http://kolektor-veebee.blogspot.com/2009/11/apa-sih-visual-basic-itu.html">ini</a><br /></span></span></span><br />
<div style="text-align: right;">
<span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';"><span style="font-family: 'trebuchet ms';">Ditulis oleh <a href="http://kolektor-veebee.blogspot.com/2009/11/about-me.html"><span style="font-style: italic;">paijo_jr</span></a></span></span></span><br />
<div style="text-align: justify;">
<br /></div>
</div>
</div>
<a href="http://kolektor-ebook.blogspot.com/" target="_blank"><br /></a><br />
<div style="text-align: center;">
<a href="http://kolektor-ebook.blogspot.com/" target="_blank"><img alt="Kolektor E-books" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/lbacklink.jpg" /> </a><a href="http://kolektor-veebee.blogspot.com/" target="_blank"><img alt="Kolektor E-books" border="0" src="http://i751.photobucket.com/albums/xx155/paijo_jr/kvbgif.gif" /></a></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com0tag:blogger.com,1999:blog-7772107655617385734.post-28211789612878217062009-11-24T19:55:00.011+07:002009-12-02T08:25:43.330+07:00Apa sih Visual Basic itu?<div align="center"><img alt="Splash Screen" src="http://i751.photobucket.com/albums/xx155/paijo_jr/Visual_Basic_6.gif" border="0" /></div><br /><br /><div style="text-align: justify;font-family:trebuchet ms;">Pertanyaan itu terbersit ketika pertama kali aku membaca buku <span style="font-style: italic;">Computer Worm</span> yang diterbitkan oleh <span style="font-weight: bold; font-style: italic;">Jasakom</span>. Sederet pertanyaan pun timbul apakah <span style="font-style: italic;">visual basic</span> tuh sama kayak delphi 7 (tuh pas aku masih kuliah tahun 2006). Setelah mencari <span style="font-style: italic;">software</span> (walaupun kagak asli, maaf <span style="font-style: italic;">microsoft</span> hehehe…) kemana-mana akhirnya ketemulah sama <span style="font-style: italic;">software Microsoft Visual Basic 6.0</span> dan ehm...ternyata hampir sama tetapi ada juga perbedaannya. Persamaannya yakni keduanya merupakan program <span style="font-style: italic;">development</span> untuk membangun aplikasi dalam lingkungan Windows dan keduanya menggunakan pendekatan <span style="font-style: italic;">visual</span> untuk merancang <span style="font-style: italic;">user interface</span> atau biasa kita kenal GUI (<span style="font-style: italic;">Graphic User Interface</span>).<br /><br />Sedangkan perbedaannya yah jelas sekali kalo <span style="font-style: italic;">Visual Basic</span> tuh buatan <span style="font-style: italic;">Microsoft</span> sedangkan Delphi tuh buatan Borland (hehehe…). Tetapi tidak itu saja, dari segi ukuran file aplikasi yang dihasilkan <span style="font-style: italic;">Visual Basic</span> mempunyai <span style="font-style: italic;">output </span>ukuran yang lebih kecil dibandingkan ukuran file yang dihasilkan oleh Delphi karena <span style="font-style: italic;">Visual Basic</span> mempunyai <span style="font-style: italic;">support</span> di windows (yah yang buat aja sama Microsoftnya) yakni file <span style="font-style: italic;">msvbvm60.dll</span> (coba cari di folder <span style="font-style: italic;">\Windows\System32\msvbvm60.dll</span>) sehingga banyak yang berpendapat kalo<span style="font-style: italic;"> Visual Basic</span> tuh lebih labil (nggak stabil) daripada Deplhi. Walaupun ukuran Delphi lebih besar tetapi aplikasi yang dihasilkan oleh Delphi dapat berjalan stabil karena tidak tergantung oleh file <span style="font-style: italic;">msvbvm60.dll</span> (inget kan worm-worm pada masa 2006an yang pake <span style="font-style: italic;">visual basic</span> akan rontok kalau file<span style="font-style: italic;"> msvbvm60.dll</span> didelete hehehe…). Eits kok malah membahas perbedaan <span style="font-style: italic;">Visual Basic</span> ma Delphi, balik ke pembahasan <span style="font-style: italic;">Visual Basic</span>.<br /><br />Pertama kali program <span style="font-style: italic;">visual basic</span> di buka akan kelihatan seperti ini :<br /><br /></div><div align="center"><img alt="Pilih Project" src="http://i751.photobucket.com/albums/xx155/paijo_jr/newproject.gif" border="0" /></div><br /><div style="text-align: justify;"><span style="font-family:trebuchet ms;">Gambar di atas merupakan dialog pilihan terhadap jenis <span style="font-style: italic;">project</span> yang akan dibuat, biasanya untuk proses awal memilih <span style="font-style: italic;">project Standard EXE</span>.</span><br /><br /><span style="font-family:trebuchet ms;">Setelah memilih <span style="font-style: italic;">standard EXE</span> lalu muncullah jendela berikut ini:</span><br /><br /></div><div align="center"><img alt="IDE" src="http://i751.photobucket.com/albums/xx155/paijo_jr/ide.gif" border="0" /></div><br /><div style="text-align: justify;font-family:trebuchet ms;">Penjelasan singkat :<br /><ul><li><span style="font-style: italic; font-weight: bold;">Menu Bar</span> : digunakan untuk memilih tugas-tugas tertentu seperti menyimpan <span style="font-style: italic;">project</span>, membuka <span style="font-style: italic;">project</span> dsb;</li><li><span style="font-style: italic; font-weight: bold;">Main Toolbar</span> : digunakan untuk melakukan tugas-tugas tertentu dengan cepat;</li><li><span style="font-weight: bold; font-style: italic;">Project Window</span> : merupakan gambaran semua modul yang terdapat dalam aplikasi (dapat dikelompokkan secara group maupun urut berdasarkan nama);</li><li><span style="font-style: italic; font-weight: bold;">Form Designer</span> : merupakan tempat untuk merancang <span style="font-style: italic;">user interface</span> dari aplikasi;</li><li><span style="font-style: italic; font-weight: bold;">Toolbox</span> : berisi komponen yang digunakan untuk mengembangkan <span style="font-style: italic;">user interface</span>;</li><li><span style="font-weight: bold; font-style: italic;">Properties Window</span> : merupakan daftar <span style="font-style: italic;">properties</span> dari objek yang sedang terpilih;</li><li><span style="font-style: italic; font-weight: bold;">Code Window</span> : merupakan jendela yang berisikan <span style="font-style: italic;">source code</span> yang berisi instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan;</li><li><span style="font-style: italic; font-weight: bold;">Form Layout Window</span> :jendela ini akan menunjukkan bagaimana <span style="font-style: italic;">form</span> bersangkutan ditampilkan ketika<span style="font-style: italic;"> runtime</span>.</li></ul>Untuk sementara itu dulu perkenalan dasar dari tampilan program <span style="font-style: italic;">visual basic</span>.<br /><br /><div style="text-align: right;"><span style="font-style: italic;">Ditulis oleh paijo_jr</span><br /></div><div style="text-align: center;"><a href="http://www.kolektor-veebee.blogspot.com/">:::science for share not for sale:::<br /></a></div></div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com2tag:blogger.com,1999:blog-7772107655617385734.post-64996778726179673502009-11-24T12:16:00.007+07:002009-11-24T20:15:38.729+07:00About Me<img alt="paijo_jr" src="http://i751.photobucket.com/albums/xx155/paijo_jr/djoegif.gif" border="0" /><br /><span style="font-family: trebuchet ms;">Assalamu'alaikum wr wb</span><br /><br /><div style="text-align: justify; font-family: trebuchet ms;">Pepatah bilang "tak kenal maka tak sayang", bener juga tuh pepatah hehehehe...<br /><br />Perkenalkan namaku irvan tapi di dunia bob ini aku lebih dikenal pake nick paijo_jr, yah emang aku anak deso jadi lebih pantes pake nama paijo_jr. Sebenarnya basic pendidikan ku seh bukan dari teknik informatika atau sekolah yang berhubungan ma kompie tapi aku lulusan SH (sarjana hura-hura) dari salah satu PTN di negeri ini hehehe...<br /><br />Pertama kenal sama visual basic tuh secara nggak sengaja, waktu itu lagi gencar-gencarnya worm-worm buatan anak negeri jadi ahh kenapa aku nggak buat sendiri (emang bisa?!?). Akhirnya aku cari-cari buku di toko buku dan ketemu ma buku Computer Worm 1 n Computer Worm 2 buatan Jasakom, dan ternyata di buku tuh pake software Micros*ft Visual Basic 6.0 (aduh software apaan tuh, pikirku gitu). Dan hari itu juga hunting software, eits mo beli yang asli mana cukup duitku jadinya nyari pinjeman (pinjem di rental maksudnya, untungnya masih da rental yang mo pinjemin hohoho...).<br /><br />Setelah dapet langsung aku install n praktekin yang di buku ke software (halah pertama-tama seh kagak paham nie source kode apaan) tapi dikit-dikit mulai nyambung, ternyata nyenengin banget buat program tuh sampe-sampe lupa ma skripsiku. Ketika buku Computer Worm 1 udah mulai khatam, aku jadi keinget ngapain buat program worm yang nyusahin orang lain pa lagi orang tuh kagak paham ma komputer, hiks jadi kasihan. Akhirnya program worm yang udah aku susun sekompleks mungkin kagak jadi aku compile. Yah rugi dunk belajar buku itu?!? ternyata enggak rugi jawabannya karena dari buku itu aku sedikit paham ma source code visual basic.<br /><br />Tuh sedikit gambaran darimana aku kenal visual basic, yah walaupun orang bilang jadul ataupun programnya anak kecil tapi terserah itu pendapat mereka (cueks is d'best).<br /><br />Wassalamu'alaikum wr wb<br /></div><br /><div style="text-align: right; font-family: trebuchet ms;">Contact Me : paijo_jr@yahoo.co.id</div>paijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com5tag:blogger.com,1999:blog-7772107655617385734.post-63711417325147716392009-11-22T23:23:00.001+07:002009-11-22T23:25:18.303+07:00This Blog Under Constructionsbelajar buat dulu ato lagi milih-milih template yang okpaijo_jrhttp://www.blogger.com/profile/08511166843472092401noreply@blogger.com0