A. Metode Common Dialog
Common Dialog Box merupakan kontrol yang menyediakan fasilitas dialog-dialog umum yang sering digunakan pada lingkungan Windows seperti File Dialog, Font Dialog, dan Printer Dialog.
Pada saat kontrol tersebut diletakkan pada form, kontrol tersebut tidak dapat diubah ukurannya seperti kontrol timer, namun kontrol tersebut dapat dilihat pada saat program dijalankan (runtime) dalam bentuk dialog.
Meskipun kontrol tersebut merupakan kontrol yang umum, namun kontrol ini tidak diletakkan pada ToolBox. Untuk menambahkan kontrol tersebut pada Toolbox ikutilah langkah-langkah berikut ini:
1.Pilih menu Project-Components atau dengan menekan Ctrl-T, maka akan ditampilkan
Components Dialog box, lihat gambar 4.14.
 |
|
|
2.Pilih Microsoft Common Dialog Box Control pada ListBox dan klik OK, maka Kontrol
Dialog Box akan ditampilkan pada ToolBox.
3.Untuk menambahkan pada form, double click pada kontrol tersebut
Untuk menampilkan Dialog box dapat digunakan salah satu Method berikut ini:
•ShowColor untuk menampilkan sebuah color dialog.
•ShowFont untuk menampilkan sebuah font dialog.
•ShowHelp untuk menampilkan sebuah help dialog.
•ShowOpen untuk menampilkan sebuah open file dialog.
•ShowPrinter untuk menampilkan sebuah printer dialog.
•ShowSave untuk menampilkan sebuah save file dialog
3.Untuk menambahkan pada form, double click pada kontrol tersebut
Untuk menampilkan Dialog box dapat digunakan salah satu Method berikut ini:
•ShowColor untuk menampilkan sebuah color dialog.
•ShowFont untuk menampilkan sebuah font dialog.
•ShowHelp untuk menampilkan sebuah help dialog.
•ShowOpen untuk menampilkan sebuah open file dialog.
•ShowPrinter untuk menampilkan sebuah printer dialog.
•ShowSave untuk menampilkan sebuah save file dialog
Contong kode Program :
cdbDialog.DialogTitle =
"File Open"
cdbDialog.Filter =
"*.txt" 'Tampilkan file text saja
cdbDialog.FileName =
"*.txt" 'Default nama file
cdbDialog.ShowOpen '
menampilkan dialog open file
B. Contoh
Tambahkan 1 Common Dialog Control dan 5 Command di Form Anda. Atur seperti berikut :
Tambahkan 1 Common Dialog Control dan 5 Command di Form Anda. Atur seperti berikut :
|
Ketikkan kode program berikut :
Private Sub cmdColor_Click()
cdbDialog.DialogTitle = "Select a
Color"
cdbDialog.ShowColor ' Display the dialog box
End Sub
Private Sub cmdFont_Click()
cdbDialog.DialogTitle = "Font"
cdbDialog.FontName = "Arial"
cdbDialog.FontBold = cdlCFBoth
cdbDialog.ShowFont
End Sub
Ketikkan kode program berikut :
Private Sub cmdPrinter_Click()
cdbDialog.DialogTitle = "Select a
Printer"
cdbDialog.ShowPrinter
End
Private Sub cmdOpen_Click()
cdbDialog.DialogTitle="File Open"
cdbDialog.Filter="*.txt" '
Tampilkan file text saja
cdbDialog.FileName="*.txt" ' Default nama file
cdbDialog.ShowOpen ' menampilkan dialog open
file
End Sub
Private Sub cmdSave_Click()
cdbDialog.DialogTitle="File Save"
cdbDialog.Filter="*.*" ' Show all files
cdbDialog.FileName="test.txt" ' Default filename
cdbDialog.ShowSave ' Trigger the dialog box
End Sub
Kontrol Animasi
Kontrol Animasi dapat digunakan untuk menjalankan file AVI dan untuk menambahkan animasi pada sebuah program aplikasi. Kontrol ini hanya mendukung file AVI saja yang tidak memiliki suara dan tidak terkompres. File AVI ini dapat digemukan pada subdirektori \Common\Graphics\Video pada Microsoft Visual Studio 6.0
Kontrol Animasi dapat digunakan untuk menjalankan file AVI dan untuk menambahkan animasi pada sebuah program aplikasi. Kontrol ini hanya mendukung file AVI saja yang tidak memiliki suara dan tidak terkompres. File AVI ini dapat digemukan pada subdirektori \Common\Graphics\Video pada Microsoft Visual Studio 6.0
Kontrol animasi menyediakan 3 properti utama. Dua diantaranya adalah Center dan BackStyle yang hanya dapat diset pada saat design time dan bersifat read only pada saat run time. Jika properti Center diset true, maka file AVI akan ditampilkan tepat ditengah.
Sedangkan properti BackStyle dapat diberi nilai 0-cc2 (BackStyle Transparent) atau 1-cc2 (BackStyle Opaque). Properti yang ketiga adalah AutoPlay yang dapat diberi nilai kapanpun juga. Jika properti ini diberi nilai True maka secara otomatis akan dimainkan segera pada saat kontrol tersebut ditampilkan.
Untuk membuka file AVI yang akan digunakan untuk ditampilkan dapat digunakan methods Open.
Contoh :
Animation1.Open
"C:\vb6\Graphics\AVIs\filecopy.avi"
Untuk menjalankan file avi dapat digunakan methods Play dengan format sebagai berikut
Play [RepeatCount], [StartFrame], [EndFrame]
• RepeatCount merupakan banyaknya perulangan animasi yang dijalankan (nilai defaultnya
adalah 1 yang akan menjalankan file AVI terus menerus).
• StartFrame menunjukkan awal frame yang dijalankan.
• EndFrame menunujukkan akhir frame.
Untuk menghentikan animasi dapat digunakan salah satu dari 2 cara tergantung pada cara memulai yaitu :
a. Jika animasi dalam mode AutoPlay, maka dapat dihentikan dengan memberi nilai
• StartFrame menunjukkan awal frame yang dijalankan.
• EndFrame menunujukkan akhir frame.
Untuk menghentikan animasi dapat digunakan salah satu dari 2 cara tergantung pada cara memulai yaitu :
a. Jika animasi dalam mode AutoPlay, maka dapat dihentikan dengan memberi nilai
properti AutoPlay menjadi false.
b Jika animasi dijalankan dengan menggunakan method play maka dapat dihentikan
b Jika animasi dijalankan dengan menggunakan method play maka dapat dihentikan
dengan menggunkan method stop.
Untuk menghemat memori, kontrol animasi dapat di-unload dengan menggunakan metoda close
 |
|
|
Contoh Program
Berikut contoh program untuk menghitung durasi waktu pada saat user klik tombol START sampai user klik tombol STOP. Ketika program dijalankan, waktu akan berjalan.
Berikut contoh program untuk menghitung durasi waktu pada saat user klik tombol START sampai user klik tombol STOP. Ketika program dijalankan, waktu akan berjalan.
Ketika user klik tombol START maka durasi waktu akan berjalan, ketika user klik tombol STOP maka waktu berhenti dan user mendapat informasi durasi waktu. Dan ketika klik tombol EXIT maka program selesai.
Buatlah tampilan form seperti gambar 4.17. Tambahkan sebuah Timer. Ketik
kode program seperti yang telah disediakan di kotak source code.
 |
|
|
Ketikkan kode program seperti berikut :
Dim Awal As Date
Dim Akhir As Date
Dim Lama As Single
Private Sub cmdProses_Click()
'Jika tombol mula-mula adalah Start
If cmdProses.Caption = "START"
Then
Awal = Now
'Tampung waktu pertama kali dimulai
lblStart.Caption = Format(Awal, "hh:mm:ss")
cmdProses.Caption = "STOP"
'Jika tombol dengan tulisan Stop ditekan
ElseIf cmdProses.Caption = "STOP"
Then
'Matikan Timer
tmrWaktu.Enabled = False
Akhir = Now
Lama = Akhir - Awal
lblDurasi.Caption = Format(Lama, "hh:mm:ss")
cmdProses.Caption = "EXIT"
ElseIf cmdProses.Caption = "EXIT"
Then
Unload Me
End If
End Sub
Private Sub tmrWaktu_Timer()
lblJam.Caption = "Sekarang Jam :
" & Format(Now, "hh:mm:ss")
If cmdProses.Caption = "STOP"
Then
'Hitung kembali durasi waktu
lblDurasi.Caption = Format(Now - Awal, "hh:mm:ss")
End If
End Sub
Buka kembali contoh program seperti pada gambar 4.17 di atas. Tambahkan satu textbox/label untuk menginformasikan berapa jumlah yang harus dibayarkan setiap durasi waktu tertentu. Misalnya setiap durasi 30 detik harus membayar Rp. 750,00. Jadi biaya akan otomatis bertambah terus menerus selama program belum diSTOP.
0 Response to "Perintah Common Dialog Box dan Kontrol Animasi"
Post a Comment