Program Kalender

Program ini dibuat untuk mengetahui tanggal dan waktu saat ini.
Berikut source codenya..!!

 

Option Explicit
Private Sub Form_Load()
    Dim hari As Variant
    hari = Now
    lbl_hari.Caption = Format(hari, "dddd")
    lbl_waktu.Caption = Format(hari, "h:mm:ss ampm")
    lbl_waktu.Caption = Time
    lbl_tanggal.Caption = Format(hari, "d  mmmm  yyyy")
  
  
End Sub

Private Sub timer1_Timer()
    lbl_waktu.Caption = Time
End Sub

Atau dapat di download disini..!!

Program Image Viewer Visual Basic

Image viewer adalah sebuah program yang dibuat untuk melihat suatu gambar dalam sebuah direktori.
Berikut Source code nya..!!

Private Sub cmd_keluar_Click()
    End
End Sub

Private Sub cmd_lihat_Click()
    Dim nama_gambar As String
   
    If Right(file_gambar.Path, 1) = "\" Then
        nama_gambar = file_gambar.Path + file_gambar.FileName
    Else
        nama_gambar = file_gambar.Path + "\" + file_gambar.FileName
    End If
    lbl_gambar.Caption = nama_gambar
    img_gambar.Picture = LoadPicture(nama_gambar)
End Sub

Private Sub dir_gambar_Change()
    file_gambar.Path = dir_gambar.Path
End Sub

Private Sub drv_gambar_Change()
    dir_gambar.Path = drv_gambar.Drive
End Sub


Atau dapat di download disini..!!

Program Bilangan Prima Visual Basic

Bilangan prima adalah sebuah bilangan yang hanya habis dibagi dengan bilangan 1 dan bilangan itu sendiri. Program ini saya buat untuk membantu kita semua dalam menentukan apakah bilangan itu bulangan prima atau bukan.

Berikut Source code nya..!!

 

Private Sub cmd_baru_Click()
    Form_Load
    Text1.SetFocus
End Sub

Private Sub cmd_hitung_Click()
    Dim angka As Integer, genap As String, prima As String, i As Integer, x As Integer
   
    angka = Text1.Text
   
    If angka Mod 2 = 0 Then
        genap = "Genap"
    Else
        genap = "ganjil"
    End If
   
    lbl_genap.Caption = genap
   
    i = 1
    x = 0
   
    Do While i <= angka
        If angka Mod i = 0 Then
            x = x + 1
        End If
       
        i = i + 1
    Loop
   
    If x = 1 Or x = 2 Then
        prima = "Prima"
    Else
        prima = "Bukan"
    End If
   
    lbl_prima.Caption = prima
   
End Sub

Private Sub cmd_keluar_Click()
    End
End Sub

Private Sub Form_Load()
    Text1.Text = Empty
    lbl_prima.Caption = Empty
    lbl_genap.Caption = Empty
End Sub
 

Atau dapat di download disini..!!

Program Rata-rata & Standar Devisiasi

Hai para sahabat pecinta Pemograman Visual Basic, aku ingin bagi program nich tentang menghitung rata-rata dan standar devisiasi. Berikut source code nya..!!

 

Program Zodiak Visual Basic

Zodiak (dari kata Yunani Zoodiacos Cyclos yang artinya Lingkaran Hewan) adalah sebuah sabuk khayal di langit dengan lebar 18° yang berpusat pada lingkaran ekliptika, tetapi istilah ini dapat pula merujuk pada rasi-rasi bintang yang dilewati oleh sabuk tersebut, yang sekarang berjumlah 13. Dipercaya awal mula konsep ini berasal dari peradaban Lembah Sungai Eufrat kemungkinan hanya dengan 6 rasi: Capricornus, Pisces, Taurus, Cancer, Virgo, dan Scorpio, yang kemudian dipecah menjadi 12 karena penampakan tahunan 12 kali Bulan purnama pada bagian-bagian berurutan dari sabuk tersebut. Sumber : (http://id.wikipedia.org/wiki/Zodiak)


Program ini dibuat untuk mengetahui apa zodiak dari tanggal kelahiran kita, berikut source code nya.