APLIKASI ALARM DENGAN VB 6.0

Baiklah kita akan membuat prog
ram aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :

1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe

2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :

Gambar Program Aplikasi Alarm Dengan Vb 6.0

3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga

4.    kemudian ketikkan kode/listing/script program dibawah ini :

Dim alarm As Boolean

Private Sub Command1_Click()

If alarm = True Then

Timer2.Enabled = False

Command1.Caption = "Aktif"

alarm = False

Else

Command1.Caption = "Tidak Aktif"

alarm = True

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

alarm = False

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time

If Text1.Text = Label1.Caption And alarm = True Then

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Beep

End Sub

5.    Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :

Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0

6.    Mudahkan, Selamat Mencoba…!!!

 sumber:file:///D:/vb/membuat-program-aplikasi-alarm-dengan.html

CARA MEMBUAT PERHITUNGAN HARGA BARANG DENGAN VB 6.0

1.    Buatlah New Project pada software VB anda kemudian tambahkan empat buah kontrol label, empat TextBox dan satu commandButton pada form, kemudian atur letaknya seperti pada gambar berikut : 

 Gambar aplikasi penghitung harga barang dengan VB

2.    Atur properti caption untuk masing-masing label dan commanButton seperti pada gambar diatas.

3.    Klik ganda tombol CommandButton1(proses), kemudian ketikkan kode/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text4.Text = (a * b) - (a * b * c) / 100

End Sub

Pernyataan Dim adalah untuk mendeklarasikan variabel a, b, dan c dimana variabel tersebut untuk mewakili/menampung nilai yang diketikkan pada text1, text2 dan text3 dengan tipe integer (angka). Jika tombol commandbutton1/tombol proses diklik maka pada text4 akan menampilkan hasil perhitungan antara perkalian nilai yang diketikkan pada text1 dan text2 kemudian dikalikan dengan nilai yang diketikkan pada text3.

4.    Jalankan Program dengan menekan tombol F5, kemudian coba ketikkan nilai pada masing-masing textbox dan tekan tombol proses.

5.    Hasilnya seperti berikut:

 Gambar Program Penghitung harga Barang dengan VB

6.    Simpan hasil proyek Anda dan Selamat mencoba,,Sesungguhnya sifat malas itu datang dari hati yang kotor..!

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

Cara Membuat Acak Angka Dengan VB 6.0

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

 

Kontrol	Properti	Setting
Label1, Label2, Label3, Label4, Label5	Caption Border Style Font	Semua dikosongkan 1-FixedSingle Bold dan ukuran 28
Timer1	Enabled Interval	False 100
Command1	Caption	Start
Command2	Caption	Stop
Command3	Caption	Keluar

  

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka  

9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk
     mereka yang mau berusaha dan bertawakal !

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

Sumber :file:///D:/vb/membuat-aplikasi-acak-angka-dengan.html