Thursday, September 30, 2010
Cara mengetes antivirus kita bekerja atau tidak...
Posted by Anonymous at 3:02 AM 0 comments
Labels: Info
Wednesday, September 22, 2010
Tips download cepat dari 4shared
- dsid=JXIOISIMJEHWIFIBJXJJILIUKNIRJGJAHHHNICJOJPIRJOITKUIOIYIVILJEIAICHWHZGBJDKTIU
- dsid=JXKPITIMJKIBIEGHJXJCIIKVKNIRJKKTHXIHHMJCIRIRJJJIIMJAIQIQIFJWIJGCICGDHYJHIZKMIVIU
Posted by Anonymous at 6:22 AM 0 comments
Labels: Info
Friday, September 17, 2010
Another Tutorial ~ :D
Another Tutorial from meee ~ :P
Because it's sad how some peep can't use the private sub Command_Click thing D:
Jadi gimana sih cara kasih program dalam tombol 'command?'
Bahan :
Command Button [Command1]
Label [Label1]
Command bisa kita gunakan untuk macam-macam pemrograman.
Bagaimana cara memprogram command?
Mudah, tinggal 'double click' pada tombol command. Dengan demikian, ini akan muncul :
Private sub Command1_Click
End Sub
Nah, itu adalah wadah untuk menaruh program kita dalam command. Program akan terjalankan saat command di click karena private sub yang kita gunakan adalah saat command1 di-klik.
Sekarang, taruhlah program yang diinginkan. Misalkan, saya ingin membuat program dimana saat saya klik, akan tercantum "Hore saya bisa!" pada label yang sudah anda taruh terlebih dahulu dalam form.
Private Sub Command1_Click
label1.caption = "Hore saya bisa!"
end sub
Mudah kan?
Anda bisa mengganti apa yang ada di dalam private sub command1_click tersebut.
Ingin pindah form dengan mengklik command?
Tinggal memasukkan variable form1.visible = false dan form2.visible=true dalam private sub tersebut.
Selesai
~Nisie
Posted by Nisie at 3:23 AM 0 comments
Labels: Tutorial
Tuesday, September 7, 2010
A small tutorial~
Membuat label berjalan dengan timer~
Bahan :
1. Label [Label1]
2. Timer [Timer1]
Code :
Private sub Timer1_timer ()
label1.left = label1.left + 100
End sub
Dengan demikian, label anda akan berjalan terus sampai overload :D
Bagaimana cara mengembalikan label ke awal ?
Code :
Private sub Timer1_Timer ()
Label1.left = label1.left + 100
IF label1.left = [MAX Width dari window anda] then
label1.left = 0
end if
End sub
NOTE!
Saat memasukan nilai kedalam [MAX Width dari window Anda], perhatikan juga nilai "left" pada "label1"
nilai left pada label1 [Label1.left] harus bulat.
Dengan kata lain, tidak ada nilai sen.
Contoh :
>> Properties
label1.left = 192
Nilai 92 adalah nilai sen.
Bila terjadi hal seperti ini, silahkan dibulatkan ke atas sesuai dengan trik pembulatan angka.
>> Properties
label1.left = 200
Demikian juga dengan [Max Width dari Window anda],
nilai harus bulat tanpa ada sen sedikitpun.
Contoh : 2000
Selesai !
Mudah to?
~Nisie
Posted by Nisie at 7:13 AM 0 comments
Labels: Tutorial
Membuat internet anda menjadi stabil......
*) -v90=0
*) *mm12
*) nos37=12
Posted by Anonymous at 6:16 AM 0 comments
Labels: Info