Kamis, 01 Maret 2012

membuat aplikasi dengan Visual Basick

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda
Program Aplikasi mp3 player dengan VB
Gambar program aplikasi mp3 player dengan vb 6.0

4.  Aturlah properties masing-masing kontrol seperti dibawah ini :

tabel keterangan desain form mp3 player dengan VB 6.0
5.  kemudian ketikkan kode/listing/script program dibawah ini :
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub

6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan
Hasil program aplikasi mp3 player dengan vb 6.0
Gambar Hasil program aplikasi mp3 player dengan vb 6.0
7. Mudahkan, Selamat Mencoba…!!!
Wahai manusia, kenalilah dirimu, niscaya kamu akan mengenal Tuhanmu. (Al-Hadits)
Alhamdulillah blog ini sudah menembus 200 pengunjung dalam sehari dan selalu mengalami peningkatan pagerank terima kasih kepada Anda sudah berkenan mengunjugi blog ini.
Baiklah kita akan membuat program 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 :
program aplikasi alarm dengan VB 6.0
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 :Contoh program aplikasi alarm dengan VB 6.0
Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0
6.    Mudahkan, Selamat Mencoba…!!!
Dia mengalirkan dua laut yang keduanya bertemu, di antara keduanya ada batas yang tidak dilampauinya. (QS Ar-Rahman :19-20)
Minggu-minggu ini saya lagi semangat-semangatnya untuk membuat postingan selain dikarenakan hari libur semester, juga untuk terus meningkatkan page rank blog saya baik digoogle maupun alexa. Dimana tiada waktu tanpa SEO dan membuat postingan, bagiku ngeblog sudah menjadi hobi dan sesuatu yang sangat menarik. Dikarenakan menurut saya banyak sekali keuntungan dari ngeblog atau blogging itu sendiri diantaranya :
·                     dapat menghasilkan dollars dengan iklan yang kita pasang dblog kita
·                     dalam membuat postingan kita tidak sadar bahwa kita sedang belajar, apalagi tema blognya tentang ilmu pendidikan
·                     dengan berbagi ilmu dan informasi kita akan mendapatkan amal jariah yang tidak putus-putus kecuali isi blog yang dilarang seperti pornografi dan lain-lain
·                     dan masih banyak yang lainnya.
Jadi saya sarankan bagi pembaca mulai sekarang belajarlah untuk membuat blog. Karena ngeblog itu indah..hehehe…
Cukup sekian dulu curhat/motivasi dari saya, semoga berguna bagi anda. Dan sekarang seperti biasa, saya akan melaksanakan tugas saya sebagai blogger dengan menyuguhkan postingan sebagus mungkin kepada anda semoga anda terbantu.
Baiklah dalam postingan kita akan membuat program-program matematika sederhana dengan VB dimana materi ini juga sudah pernah saya bahas dalam postingan MEMBUAT CONTOH-CONTOH PROGRAM SEDERHANA DENGAN BAHASA PEMROGRAMAN C++, tetapi bedanya postingan kemaren menggunakan bahasa pemrograman C++:
contoh 1 : Membuat Program Faktorial Dengan Vb 6.0
a.    Buatlah New Project pada software VB anda kemudian tambahkan tiga buah label, tiga commandbutton dan dua textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :

program faktorial dengan VB 6.0
Gambar Program faktorial
b.    kemudian ketikkan code/listing/script program berikut :
Private Sub Command1_Click()
Dim a, b, i As Integer
i = 1
b = Text1.Text
For a = 1 To b
i = i * a
Next
Text2.Text = i
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub
c.     Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :
contoh program matematika dengan VB
Gambar Program faktorial dengan VB 6.0
contoh 2 : Membuat Program Penghitung Determinan dan Penjumlahan, Perkalian Matriks Berordo 2x2 dengan VB 6.0
a.    Buatlah New Project pada software VB anda kemudian tambahkan 5 buah label, tiga commandbutton, 13 textbox dan 3  optionbutton pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :
program matriks dan determinan dengan VB 6.0
Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB
b.    kemudian ketikkan code/listing/script program berikut :
Private Sub Command1_Click()
If Option2.Value = True Then
Text12.Text = Val(Text1.Text) + Val(Text8.Text)
Text11.Text = Val(Text2.Text) + Val(Text7.Text)
Text10.Text = Val(Text3.Text) + Val(Text6.Text)
Text9.Text = Val(Text4.Text) + Val(Text5.Text)
ElseIf Option3.Value = True Then
Text13.Text = (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text) - Val(Text7.Text) * Val(Text6.Text))
Else
Text12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text))
Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text))
Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text))
Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub
c.     Silahkan run(F5) program anda coba masukkan nilai pada matriks A dan matriks B kemudian pilih salah satu option lalu tekan tombol proses,,selamat mencoba !
program aplikasi matriks dan determinan dengan VB
Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB 6.0
Seperti biasa tiapi akhir week end atau hari libur saya menyempatkan diri untuk membuat postingan, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.    Buatlah New Project pada software VB anda kemudian tambahkan dua buah kontrol frame, enam kontrol OptionButton, dua kontrol TextBox dan satu kontrol commandButton pada form, kemudian atur letaknya seperti pada gambar berikut :
aplikasi pengkonversi suhu dengan VB
 Gambar Program konversi Suhu

2.    Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :
Kontrol
Properti
Setting
Frame1
Caption
Pilih Data Input
Option1
Caption
Celcius
Option2
Caption
reamur
Option3
Caption
Farenheit
TextBox1
Text
Kosongkan
Frame2
Caption
Pilih Data output
Option4
Caption
Celcius
Option5
Caption
reamur
Option6
Caption
Farenheit
TextBox2
Text
Kosongkan
Command1
Caption
Selesai

3.    Aktifkan jendela kode, dengan cara klik menu view, pilih code. Buat prosedur rumus dengan cara ketikkan sub rumuskonversi dan akhiri dengan enter .

4.    Di dalam prosedur Sub Rumus, berikan perintah untuk masing-masing Opt sebagai berikut :
Private Sub rumus ()
If Option1.Value = True And Option4.Value = True Then
Text1.Text = Text2.Text
ElseIf Option1.Value = True And Option5.Value = True Then
Text2.Text = Val(Text1.Text) * 4 / 5
ElseIf Option1.Value = True And Option6.Value = True Then
Text2.Text = (Val(Text1.Text) * 9 / 5) + 32
End If
If Option2.Value = True And Option5.Value = True Then
Text1.Text = Text2.Text
ElseIf Option2.Value = True And Option4.Value = True Then
Text2.Text = Val(Text1.Text) * 5 / 4
ElseIf Option2.Value = True And Option6.Value = True Then
Text2.Text = (9 / 4 * Val(Text1.Text)) + 32
End If
If Option3.Value = True And Option6.Value = True Then
Text1.Text = Text2.Text
ElseIf Option3.Value = True And Option5.Value = True Then
Text2.Text = 5 / 9 * (Val(Text1.Text) - 32)
ElseIf Option3.Value = True And Option4.Value = True Then
Text2.Text = 4 / 9 * (Val(Text1.Text) - 32)
End If
End Sub

5.    Kemudian klik ganda semua option dengan satu persatu, lalu ketikkan kode/script/listing program berikut ini :
Private Sub Option1_Click()
Call rumus
End Sub

Private Sub Option2_Click()
Call rumus
End Sub

Private Sub Option3_Click()
Call rumus
End Sub

Private Sub Option4_Click()
Call rumus
End Sub

Private Sub Option5_Click()
Call rumus
End Sub

Private Sub Option6_Click()
Call rumus
End Sub

6.    klik ganda text1 lalu ketikkan kode/script/listing program berikut ini :
Private Sub Text1_Change()
Call rumus
End Sub

7.    klik ganda command1 lalu ketikkan kode/script/listing program berikut ini :
Private Sub Command1_Click()
End
End Sub

8.    Jalankan program / run (F5), coba masukkan nilai berapa saja di text1 kemudian centang pada pilihan data inputnya dan data outputnya.

9.    Hasil programnya seperti gambar dibawah ini :
program konversi suhu dengan VB 6.0
 Gambar Program Pengkonversi Suhu

10. Selamat mencoba,,,Sesungguhnya ilmu yang bermanfaat adalah ilmu yang disampaikan kepada orang lain walaupun sedikit..!

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

MEMBUAT PROGRAM SIMULASI RUNNING LED DENGAN VB

1. Buat Project baru, kemudian tambahkan frame, Label, 5 buah shape, command button dan kontrol timer, dengan merubah properti seperti tabel berikut: 
Kontrol
Properti
Setting
Label
Caption
Simulasi Led Berjalan Dengan Visual Basic
Frame
Caption
Led
Shape
FillColor
FillStyle
Pilih Warna Putih
Solid
Timer
Enabled
Interval
False
100
CommandButton
Caption
Mulai
2. Aturlah Desain form seperti gambar berikut :







3. Klik ganda pada Kontrol Timer dan ketik program sebagai 
berikut : 
Dim a As Integer
a = Timer1.Interval
Timer1.Interval = a + 100
Select Case a
Case 100
Shape5.FillColor = vbWhite
Shape1.FillColor = vbRed
Case 200
Shape1.FillColor = vbWhite
Shape2.FillColor = vbRed
Case 300
Shape2.FillColor = vbWhite
Shape3.FillColor = vbRed
Case 400
Shape3.FillColor = vbWhite
Shape4.FillColor = vbRed
Case 500
Shape4.FillColor = vbWhite
Shape5.FillColor = vbRed
Timer1.Interval = 100
End Select
4. Klik ganda Command1Button Mulai dan ketik program sebagai 
berikut :
Timer1.Enabled = True
5. Klik ganda Command2Button Stop dan ketik program sebagai 
berikut :
Timer1.Enabled = False
Shape1.FillColor = vbWhite
Shape2.FillColor = vbWhite
Shape3.FillColor = vbWhite
Shape4.FillColor = vbWhite
Shape5.FillColor = vbWhite
5. Jalankan program dan coba klik tombol Mulai untuk menjalankan
Simulasi Led Berjalan dengan Visual Basic.
6. Untuk melihat simulasinya bisa anda tekan tombol Play pada Video 
dibawah ini:


1. Buat project baru, kemudian tambahkan kontrol Image, CommandButton dan Timer pada form.dengan merubah property seperti tabel berikut:
Kontrol
Properti
Setting
Image
Picture
Strecth
Pilih Gambar yg diingikan
True
Command1
Name
Caption
CmdMulai
Mulai
Timer
Enabled
Interval
False
100
2. 
2.2.   Atur Desain form seperti gambar berikut :







3. Klik ganda kontrol Timer, kemudian ketik program berikut :
    Image1.Move Image1.Left - 100, Image1.Top 
If Image1.Left + Image1.Width <> then 
Image1.Left = ScaleWidth  
End If
   Perintah diatas akan menyebabkan objek bergerak kearah kiri, setelah sampai pada tepi form, objek akan muncul kembali dari tepi kanan form sehingga objek akan terus bergerak secara berulang-ulang.
4.  Klik ganda CmdMulai,Kemudian Ketik kode program berikut : 
Timer1.Enabled= True ‘mengaktifkan Timer'
5. Jalankan program dan coba klik tombol Mulai untukmenjalankan animasi objek

6. Untuk melihat simulasinya bisa anda tekan tombol Play pada Video dibawah ini:
1.     Langkah pertama buka program Visual Basic
2.     Pilih standar.exe untuk New Project kemudian Klik Open

VB 6.0

3.     Tambahkan 5 Label 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle mendaji solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

simulasi lampu lalu lintas dengan vb

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.
5.     Masukkan kode program seperti dibawah ini :
Private Sub tunda()
a = Timer
Do While Timer < 1 + a
DoEvents
Loop
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
For i = 0 To 10
Label1(0).Caption = 11 - i
Label1(1).Caption = 21 - i
Label1(2).Caption = 31 - i
Label1(3).Caption = 41 - i
If i = 0 Then
Shape10.FillColor = &HC0C0&
Shape1.FillColor = &HC0&
Shape2.FillColor = vbYellow
Shape5.FillColor = vbRed
Shape8.FillColor = vbRed
Shape11.FillColor = vbRed
Else
Shape12.FillColor = &H8000&
Shape2.FillColor = &HC0C0&
Shape3.FillColor = vbGreen
End If
tunda
Next i
For i = 10 To 20
Label1(0).Caption = 51 - i
Label1(1).Caption = 21 - i
Label1(2).Caption = 31 - i
Label1(3).Caption = 41 - i
If i = 10 Then
Shape5.FillColor = &HC0&
Shape3.FillColor = &H8000&
Shape2.FillColor = vbYellow
Shape4.FillColor = vbYellow
Else
Shape2.FillColor = &HC0C0&
Shape4.FillColor = &HC0C0&
Shape1.FillColor = vbRed
Shape5.FillColor = &HC0&
Shape6.FillColor = vbGreen
End If
tunda
Next i
For i = 20 To 30
Label1(0).Caption = 51 - i
Label1(1).Caption = 61 - i
Label1(2).Caption = 31 - i
Label1(3).Caption = 41 - i
If i = 20 Then
Shape8.FillColor = &HC0&
Shape6.FillColor = &H8000&
Shape4.FillColor = vbYellow
Shape7.FillColor = vbYellow
Else
Shape4.FillColor = &HC0C0&
Shape7.FillColor = &HC0C0&
Shape5.FillColor = vbRed
Shape8.FillColor = &HC0&
Shape9.FillColor = vbGreen
End If
tunda
Next i
For i = 30 To 40
Label1(0).Caption = 51 - i
Label1(1).Caption = 61 - i
Label1(2).Caption = 71 - i
Label1(3).Caption = 41 - i
If i = 30 Then
Shape11.FillColor = &HC0&
Shape9.FillColor = &H8000&
Shape7.FillColor = vbYellow
Shape10.FillColor = vbYellow
ElseIf i = 40 Then
Shape2.FillColor = vbYellow
Shape10.FillColor = vbYellow
Shape12.FillColor = &H8000&
Shape1.FillColor = &HC0&
Else
Shape7.FillColor = &HC0C0&
Shape10.FillColor = &HC0C0&
Shape8.FillColor = vbRed
Shape11.FillColor = &HC0&
Shape12.FillColor = vbGreen
End If
tunda
Next i
End Sub

Tidak ada komentar:

Poskan Komentar

Diberdayakan oleh Blogger.

Out Sponsor