slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
OBYEK COMBO BOX PowerPoint Presentation
Download Presentation
OBYEK COMBO BOX

Loading in 2 Seconds...

play fullscreen
1 / 20

OBYEK COMBO BOX - PowerPoint PPT Presentation


  • 243 Views
  • Uploaded on

Down Button. Combo Box. OBYEK COMBO BOX. OBYEK COMBO BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DAPAT DI TAMPILKAN BILA DI KLIK DOWN BUTTON-NYA. Combo Box sebelum di buka. Combo Box sesudah di buka.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'OBYEK COMBO BOX' - rosa


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
slide1

Down Button

  • Combo Box

OBYEK COMBO BOX

OBYEK COMBO BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DAPAT DI TAMPILKAN BILA DI KLIK DOWN BUTTON-NYA

Combo Box sebelum di buka

Combo Box sesudah di buka

slide3

Style : jenis combo box

A. 0-DropDown Combo : Combo box akan menampilkan pilihan bila drop button di Click, dan text box dapat di entri, sehingga dapat menerima masukkan teks dari keyboard

B. Simple Combo : Combo box tidak menampilkan alternatif pilihan, sehingga tidak beda dengan text box

C. DropDown List : Combo box akan menampilkan pilihan bila drop button di Click, namun text box tidak dapat di entri, sehingga tidak dapat menerima masukkan teks dari keyboard

Untuk mengambil value dari item yang dipilih, dapat di ambil dari atribut text

contoh : msgbox(cmbHari.text)

slide4

OBJECT : CmbHari

OBJECT : CmbMatPel

LATIHAN IV-1 : COMBO BOX

Jika Tombol cmdOk di Click maka akan muncul kotak pesan sbb

slide5

OBJECT LISTBOX

OBYEK List BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DI TAMPILKAN PADA DAFTAR ITEM

  • List Box
  • Scroll Bar : untuk menggeser daftar pilihan ke atas dan ke bawah
slide6

List : Untuk memasukan item yang akan dimunculkan

Untuk meng-akses data yang dipilih, maka dapat digunakan atribut text, contoh :

msgbox(list1.text)

slide7

OBJECT LISTBOX : menggunakan Beberapa kolom

Object ListBox dapat menggunakan beberapa Kolom. Untuk Mengaturnya dengan mengubah atribut Columns.

Bila 0 maka tidak ada kolom, Jika 1 akan terdiri dari 1 kolom, artinya bisa di Scroll ke kiri dan ke k anan

List Tidak ada Kolom

List satu Kolom

slide9

Style : Jenis ListBox. Default-nya adalah “0-Standard”

Pilihan yang lain adalah

“1-CheckBox”, artinya pilihan-pilihan tersebut dapat dipilih lebih dari satu

OBJECT LISTBOX : menggunakan Style Check Box

slide10

OBJECT LISTBOX : Mengisi item ListBox dari program

  • Pengisian item pada listBox (dan juga Combo Box) dapat terdiri dari dua cara
  • Dari menu Properti, yaitu dengan mengisi atribut list
  • Dari program, yaitu dengan memanfaatkan fungsi Form_load()
  • Untuk mengaktifkan fungsi Form_load(), dengan cara double click pada form.

Private Sub Form_Load()

listMatkul.AddItem ("Algoritma")

listMatkul.AddItem ("Struktur Data")

listMatkul.AddItem ("Sistem Berkas")

listMatkul.AddItem ("Bahasa C")

listMatkul.AddItem ("I M K ")

listMatkul.AddItem ("S B P ")

listMatkul.AddItem ("Pancasila")

listMatkul.AddItem ("Kewiraan")

End Sub

slide11

OBJECT LISTBOX : mengakses item yang dipilih

bila menggunakan Style CheckBox

Private Sub Command1_Click()

For i = 0 To 7

If listMatkul.Selected(i) Then

MsgBox listMatkul.List(i)

End If

Next i

End Sub

slide13

LATIHAN IV-2 : Kombinasi Text Box, ComboBox, ListBox & CommandButton

( lanjutan )

Bila tombol “Ok” pada slide halaman 12 di tekan maka akan muncul kotak pesan sbb :

Bila tombol “Close” pada slide halaman 12 di tekan maka akan mengakhiri program

slide14

FileListBox

OBJECT FILELISTBOX

OBJECT FILELISTBOX :

gunanya untuk menampilkan daftar file yang ada pada suatu direktori. Cara penggunaanya hampir sama dengan Object ListBox

slide15

OBJECT FILELISTBOX : mengambil nama file

Object TextBox, dengan nama txtNamaFile

Object FileListBox, dengan nama File1

Agar txtNamaFile dapat menampilkan nama file yang dipilih pada File1, maka pada event click diberi perintah sbb :

Private Sub File1_Click()

txtNamaFile.Text = File1.filename

End Sub

(Untuk mengaktifkan bagian pemrograman “Private sub File1_click()”, maka anda cukup meng-click object File1 tersebut)

slide16

OBJECT FILELISTBOX : Menentukan Patern

PATERN adalah properti dari object FILELISTBOX yang berguna untuk mem-filter jenis file yang akan ditampilkan pada object tersebut

Private Sub Form_Load()

cmbPatern.AddItem ("*.*")

cmbPatern.AddItem ("*.BMP")

cmbPatern.AddItem ("*.GIF")

cmbPatern.AddItem ("*.JPG")

cmbPatern.AddItem ("*.ICO")

End Sub

Private Sub cmbPatern_Change()

File1.Pattern = cmbPatern

End Sub

Private Sub cmbPatern_Click()

File1.Pattern = cmbPatern

End Sub

Object ComboBox, dengan nama cmbPatern

slide17

OBJECT DirListBox dan DriveListBox

DirListBox, dengan nama Dir1

DriveListBox dengan nama Drive1

slide18

OBJECT DirListBox dan DriveListBox : mengakses value

Agar obyek Dir1 dapat menampil-kan direktori-direktori yang terdapat pada drive yang dipilih, maka anda harus mengedit fungsi drive1_change() sbb :

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Agar obyek File1 dapat menampil-kan File-file yang terdapat pada direktori yang dipilih, maka anda harus mengedit fungsi dir1_change() sbb :

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

slide19

LATIHAN IV-3 : OBJECT DirListBox dan DriveListBox

Object CommandButtoin dengan nama cmdView

Object Image, dengan nama image1.

Atribut stretch = true, agar gambar dapat menjadi sebesar ukuran kotak image1

Private Sub cmdView_Click()

picture1.Picture = LoadPicture(File1.Path + "\" + txtNamaFile.Text)

End Sub

slide20

LATIHAN IV-4 : OBJECT DirListBox dan DriveListBox

Buatlah agar program berikut ini tidak perlu menggunakan Command Button untuk menampilkan gambar, melainkan pada saat di FileListBox di Clik, secara otomatis menampilkan gambar