Sabtu, 13 Juli 2013

CARA MEMBUAT SELISIH TANGGAL PADA VISUAL BASIC (VB)



Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya
pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut




persiapan yang dilakukan :

Buatlah Project Baru (Standard exe)
Tambahkan :
3 Label
Label1 (Caption : Mencari Selisih Tanggal)
Label2 (Caption : Lahir :)
Label3 (Caption : Umur Anda)
1 Buah Frame ------> Caption : Masukan Tanggal Lahir
3 Buah ComboBox ----> Style : 2 - Dropdown List
1 Buah Command Button













Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function
ok sob coba deh langsung praktekkan...
terimakasih telah membaca artikel saya... :)  


Bagi yang hoby Pemroggraman komputer menggunakan Visual Basic nih.... Ada yang takut dengan virus kan.... hehe hal ini memang terbilang aneh
tapi ane hanya sekedar berniat untuk mengerjai salah satu teman ane
yang akhir-akhir ini sering sombong. Sehingga gw berusaha mencari-cari artikel mengenai
Cara Membuat Virus Komputer dengan sebuah kode script.

Cara kerja Virus ini cukup lumayan unik loh, Virus ini akan beraksi di Komputer anda dan ketika di
jalankan maka secara otomatis DVD/CD Rom yang ada pada Komputer akan terbuka dan tertutup dengan
sendirinya. Hal ini cukup membuat reda kekesalan gw terhadap teman gw yang satu ini. Bagaimana untuk
sobat sekalian? ada niat untuk mengerjai teman?. Langsung aja praktekkan. Nihh, ane kasih kode script nya.

    Set oWMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMs = oWMP.cdromCollection
    do
    if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next
    End If
    wscript.sleep 5000
    loop

Cara penggunaannya lumayan mudah, sobat buka Notpad (Start > All Programs > Assesories > Notpad), lalu
Copy-Paste kode Script di atas pada Notpad tadi. Setelah selesai Simpan dengan Ekstensi .vbs. Bagaimana ampuh tidak! wkwkwk...

Tapi loe tahu enggak bagaimana cara menghentikan Virus ini?? Hahahaa... Hati-hati saat melakukan hal
ini karena Antivirus apapun tidak akan ada yang dapat menghentikan hal ini selain loe menekan Ctrl + Alt + Del pada
papan Keyboard setelah itu matikan proses wscripts.exe nya.

Baik, sekian dulu Postingan Blogger ane kali ini mengenai Cara Membuat Virus Komputer semoga bermanfaat
dan untuk jaga-jaga ketika sobat loe ada yang mau ngerjai. Dan jangan di salah gunakan karena dapat berakibat Cacad janin serta gangguan kehamilan, wkkwkwkw!


Tidak ada komentar:

Posting Komentar