Alarm with VB6

Berawal dari keisengan dan khayalan,,waktu kemarin (Selasa,7 Juni 2009 pk.22:00)lagi nonton filem strit fegter di kompi,trus gak sengaja nontn tipi trus ada brita tentang pemakaman Micahel Jackson pk.23:00,wah,gua pengen nonton tuh,penasaran sih,,duh,pdhl gwa lagi nonton pilem,dilain sisi gwa jga pelupa,jadi gwa mikir,"ah,gwa alarm aja ah",trus gwa mau pke alarm HP,tapi males,juga gak bisa nampilin pesan,jadi gwa sedikit berkhayal,"iseng2 buat alarm ah",.
Langsung dah,filem distop,buka project baru di VB6 dan langsung beraksi.,membuat alarm sederhana dengan VB6.
Buat temen2 yang mungkin pingin buat,ni aku kasih sedikit tutornya(ceila)..
Ayo mulai,..(buat yang males copy paste script,bisa download Source Codenya diakhir postingan ini).
1. Buka VB6 , project baru(standard exe).
2. Tambahkan component baru (project-component atau Ctrl+T),tambahkan Microsoft Common Dialog Control 6.0,centang,apply,dan close.


3. Tambhalan beberapa tool.(tool /property)
label
label1/caption = alarm
label2/caption = time now
label3/caption = time to set
label4/caption = -
label5/caption = alarm time
label6/caption = "kosongkan"/visible = false
text box
text1/text = "kosongkan"
text2/text = "kosongkan"
text3/text = "kosongkan"
text5/text = "kosongkan" /multiline = true/scrollbar = 3-both
commands
command1/caption = Set
commann2/caption = clear
command3/caption = open sound file
timer
timer1/interval = 1000
4. Kalo udah menambahkan tinggal diatur/didesain sehingga tampil seperti screen shoot di atas(gak sama juga gak papa).
Double klik form dah ubah posisinya menjadi di general lalus masukan script ini :
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
5. Double klik pada command open sound file,masukan script ini :
CommonDialog1.Filter = "(*.wav)|*.wav|"
CommonDialog1.ShowOpen
Label6.Caption = CommonDialog1.FileName
7. Double klik text1 dan rubah actionsnya menjadi keypress dan masukan script ini:
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
MsgBox "Inputan harus berupa angka", vbCritical, "ERROR"
Text1.Text = Empty
Text1.SetFocus
KeyAscii = 0
End If
If Len(Text1.Text) = 1 Then Text2.SetFocus
8. Pada text2 dan 3 sama seperti diatas hanya diganti pada text1 dan focusnya.
9. Double clik command clear dan masukan script berikut :
Text1.Text = Empty
Text2.Text = Empty
Text3.Text = Empty
Text5.Text = Empty
Text5.Locked = False
Label4.Caption = "-"
Text1.SetFocus
10. Double klik timer dan masukan script ini :
Dim returnval As Long
Dim soundfile As String
Label1.Caption = Format(Now, "hh:mm:ss")
If Label1.Caption = Label4.Caption Then
soundfile = Label6.Caption
returnval = PlaySound(soundfile, 0, &H0)
MsgBox Text5.Text, vbInformation, "PESAN"
End If
11. Double klik pada command set dan masukan script berikut:
Dim a As String
a = Text1.Text + ":" + Text2.Text + ":" + Text3.Text
Label4.Caption = a
Text5.Locked = True
12. Selesai dah..Mudah dan sederhana bukan.
Jangna lupa kritik dan saran juga komennya..thx.
Download Complete Source Code here

Read More......

Make Marquee Text With VB 6

Hallo temen2 semua,.
Kali ini gwa akan mostingin gimana caranya membuat Marquee Text menggunakan Visual Basic 6 (VB 6).
Secara singkat,Marquee text merupakan text yang berjalan,atau biasanya ada di stasiun TV,yang berupa News Ticker,text yang biasa berjalan yg berada di bagian bawah layar televisi kita.
Cara membuatnya sangat sederhana sekali.
1. Buka Ms.VB 6.
2. Pilih Standard Exe lalu tekan OK
3. Selanjutnya buat 2 buah label baru dan 1 timer.

4. Ubah caption dari masing2 label (terserah aja).
5. Ubah property left dari label1 & 2 menjadi 480.
6. Interval timer diberi nilai 1.
7. Double Click pda gambar timer.,Coding dah..,
nih dia scriptnya


Private Sub Timer1_Timer()
'marquee text kiri ke kanan
Label1.Left = Label1.Left - 20 '1
If Label1.Left = -3400 Then Label1.Left = 3500 '2

'marquee text kanan ke kiri
Label2.Left = Label2.Left + 20 '3
If Label2.Left = 4000 Then Label2.Left = -3500 '4

'//keterangan:
'1. Posisi dari label1(left position) akan dikurangi terus menerus
'2. Hingga nilai dari posisinya menjadi -3400,ketika mencapai nilai tersebut,maka posisi dari label1 berubah menjadi 3500
'3 & 4 prinsip sama sprti 1 & 2,hanya pda 3 nilainya di tambah terus menerus.

End Sub

8. Tinggal di RUN (pencet F5).
Gimana?Mau jalan apa nggak?.
Kalo gak jalan,brarti ada ketidakcocokkan nilai pada property left dan counternya.
Script diatas bisa dikembangkan lagi menjadi dari atas ke bawah dan sebaliknya.

Download Source Code

Jangan lupa kritik dan sarannya..

Read More......

Registry Tools : Source Code

Kemaren2 kan udah pernah diposting tentang Regsitry Tools yang dibuat pake Visual Basic 6(VB6).Nah,kali ini bakal dibongkar gimana caranya buat yang begituan,,buat para master tolong dibenerin yah kalo ada yang salah,,ni khusus buat newbie yang baru belajar aja,buat para master jga blh nonton kok,comment jga jgn lupa yah..
Buat temen2 yang pingin buat sendiri program yang seperti itu,nih,gwa kasih Source Codenya + file Exenya.Buat yang pingin manual,ngetik sendiri kodenya,ni dia listing kodenya (Source Codenya).
(Link download ada di akhri postingan)
Maaf ni,,masih acak2an.,yang buat newbie jga si..

Private Sub Check15_Click() 'checkbox untuk check all
If Check15.Value = 1 Then
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Check9.Value = 1
Check10.Value = 1
Check13.Value = 1
Check14.Value = 1
Else
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check9.Value = 0
Check10.Value = 0
Check13.Value = 0
Check14.Value = 0

End If
End Sub



Private Sub Command1_Click() 'command enable

Dim regrun As Object
Dim a, x, b, c, d As String
Set regrun = CreateObject("Wscript.shell")
a = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies"

If Check1.Value = 1 Then regrun.regwrite a & "\Explorer\NoRun", 0, "REG_DWORD"
If Check2.Value = 1 Then regrun.regwrite a & "\System\DisableTaskMgr", 0, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite a & "\System\DisableRegistrytools", 0, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD"
If Check4.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
If Check5.Value = 1 Then regrun.regwrite a & "\Explorer\NoFolderOptions", 0, "REG_DWORD"
If Check6.Value = 1 Then regrun.regwrite a & "\Explorer\NoViewContextMenu", 0, "REG_DWORD"
If Check7.Value = 1 Then regrun.regwrite a & "\Explorer\NoDesktop", 0, "REG_DWORD"
If Check9.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 1, "REG_DWORD"
If Check10.Value = 1 Then regrun.regdelete a & "\Explorer\NoDriveTypeAutoRun"
If Check13.Value = 1 Then regrun.regwrite a & "\Explorer\NoFind", 0, "REG_DWORD"
If Check14.Value = 1 Then regrun.regwrite a & "\System", 0, "REG_DWORD"

x = MsgBox("Beberapa Perubahan dapat terjadi setelah komputer di log off.Log Off sekarang?", vbYesNo, "Registry Tools")
If x = vbYes Then Shell ("shutdown -l") Else Command1.SetFocus


End Sub

Private Sub Command2_Click() 'command disable
Dim regrun As Object
Dim a, b, c, d, x As String
Set regrun = CreateObject("Wscript.shell")
a = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies"

If Check1.Value = 1 Then regrun.regwrite a & "\Explorer\NoRun", 1, "REG_DWORD"
If Check2.Value = 1 Then regrun.regwrite a & "\System\DisableTaskMgr", 1, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite a & "\System\DisableRegistrytools", 1, "REG_DWORD"
If Check3.Value = 1 Then regrun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
If Check4.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
If Check5.Value = 1 Then regrun.regwrite a & "\Explorer\NoFolderOptions", 1, "REG_DWORD"
If Check6.Value = 1 Then regrun.regwrite a & "\Explorer\NoViewContextMenu", 1, "REG_DWORD"
If Check7.Value = 1 Then regrun.regwrite a & "\Explorer\NoDesktop", 1, "REG_DWORD"
If Check9.Value = 1 Then regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD"
If Check10.Value = 1 Then regrun.regwrite a & "\Explorer\NoDriveTypeAutoRun", 255, "REG_DWORD"
If Check13.Value = 1 Then regrun.regwrite a & "\Explorer\NoFind", 1, "REG_DWORD"
If Check14.Value = 1 Then regrun.regwrite a & "\System", 1, "REG_DWORD"

x = MsgBox("Beberapa Perubahan dapat terjadi setelah komputer di log off.Log Off sekarang?", vbYesNo, "Registry Tools")
If x = vbYes Then Shell ("shutdown -l") Else Command1.SetFocus

End Sub

Sekian dulu deh,,sekali lagi,maaf banget yhah krna masih banyak banget kekurangan,.
Pliss,comment yhah,biar gwa bisa menginstropeksi diri gwa..
Oiya,ni full SCnya
Download Here

Read More......

Registry Tools

Ehem - ehem,,bentar ni,pengenalan dulu.
Temen2 smwa mungkin sering denger,ato udah pernah pake,atau bahkan udah
pernah buat ndiri.
Dari judulnya aja juga kayaknya udah gampang banget ditebak,
Registry Tools,yap,untuk apalagi kalo bukan perangkat untuk registry.
Aplikasi ini sebenernya udah banyak banget bertebaran di internet,jadi
dengan inisiatif
gwa cba untuk belajar2 dan membuat aplikasi yang sederhana ini.
Dan alhasil,jadilah Registry Tools ini yang menurut gwa gampang banget
buat dipake.
Untuk temen2 yang belum tahu,tools ini berguna untuk mengedit
registry(nilai2 pada registry secara otomatis) melalui kehendak kita.
Tapi disini dibatasin,mana aja yang bisa untuk diedit,sebenarnya si
untuk didisable / dienable,diaktifkan/dinonaktifkan.
Tools ini jga gwa buat karna adnya pertimbangan karna virus2 yang
banyak banget nyerang bagian2 registry yang gak mau virus itu bisa
terlacak.
Contohnya,TaskManager yg didisable,RegEdit yg didisable,Menu Run yg
didisable,,jadi atas pertimbangan tersebut,lahirlah suatu tools yg gwa
bri nama registry tools.
Jadi,overall,tools ini sangat berguna kalo komputer temen2 kna virus yg
nyerangnya registry(emang smwa virus nyerangnya registry kalii...)..
Yo wes,Gak usah basa - basi,langsung sedoot aja Boss..
Download here

Read More......