Mengenal Tipe Data Object (Pada Deklarasi) Beserta Penggunaan Dan Cara Membuatnya ~Tutorial Gambas

Mungkin bagi pemula sampai tingkat menengah, penggunaan tipe data Objek belum terlalu dibutuhkan, karena untuk penggunaan dan kebutuhan standar, menu Object yang tersedia pada IDE sudah mencukupi seperti TextBox, Label, ButtonBox, ComboBox, Panel, dll.

Nah, untuk tipe data Object akan dibutuhkan penggunaannya saat dalam kondisi tertentu. Tapi disini saya tidak membahas kondisi seperti apa saja, melainkan hanya memberi contoh penggunaannya.

Ok langsung materi.

Ada dua cara membuat Object, pertama, jenis object ditentukan saat deklarasi, kedua, jenis object tidak ditentukan saat deklarasi.

Contoh Object yang ditentukan secara spesifik saat deklarasi

‘Gambas class file

‘Variabel Tes dideklarasikan sebagai TextBox

Public Tes As TextBox

Public Sub _new()

   Tes = New TextBox(Me) As "Tes"

   Tes.X = 20 ‘Posisi X (kesamping/kanan-kiri)

   Tes.Y = 40 ‘Posisi Y (atas-bawah)

   Tes.W = 100 ‘Lebar

   Tes.H = 30 ‘Tinggi

End

Public Sub Form_Open()

   Tes.Text = “Kata pada Object Tes”

End

Contoh Object yang tidak ditentukkan saat deklarasi, melainkan ditentukan saat instansiasi:

‘Gambas class file

‘Variabel Tes tidak dideklarasikan sebagai object secara umum

Public Tes As Object

Public Sub _new()

   ‘Instansiasi Object sebagai TextBox

   Tes = New TextBox(Me) As "Tes"

   Tes.X = 20 ‘Posisi X (kesamping/kanan-kiri)

   Tes.Y = 40 ‘Posisi Y (atas-bawah)

   Tes.W = 100 ‘Lebar

   Tes.H = 30 ‘Tinggi

End

Public Sub Form_Open()

   Tes.Text = “Kata pada Object Tes”

End

Saat instansiasi objek, kegunaan dari As “Tes” adalah sebagai nama event dari Object. Misalnya jika pemberian nama Event adalah = New TextBox(Me) As “EventKu” maka saat pemanggilan Event:

Public Sub EventKu_Change()

   Print “Tes Event”

End

Maka saat kolom Tes.Text di input (artinya ada perubahan dari kosong ke isi) maka akan keluar output/teks “Tes Event” pada Console.

Trus apa kegunaan/kelebihan deklarasi dengan tipe data Object?

Dengan menggunakan tipe data Object artinya nama variabel object yang dideklarasikan dapat diganti objectnya sesuai kebutuhan/selera dengan nama variabel (objek) yang sama.

Misal

‘Gambas class file

Public Tombol As Object

Public Sub _new()

   ‘Instansiasi Object sebagai TextBox

   Tombol = New ComboBox(Me) As "Tombol"

   Tombol.X = 20

   Tombol.Y = 40

   Tombol.W = 200

   Tombol.H = 30

End

Public Sub Form_Open()

    Tombol.Text = “Tes aja”

End

Public Sub Button1_Click()

  Tombol = New TextBox(Me) As "Tombol"

   Tombol.X = 20

   Tombol.Y = 40

   Tombol.W = 200

   Tombol.H = 30

   ‘Maka ComboBox akan menjadi TextBox

End

Tipe data Object juga dapat berupa array (Object[]):

Public aobjDisplay As New Object[3, 3]

Public Sub Form_Open()

   Dim r As Integer

   Dim c As Integer

   Dim objTextBox As TextBox

   For r = 0 To 2

     For c = 0 To 2

       objTextBox = New TextBox(Me) ' create the next of the 9*9 TextBoxes

       objTextBox.Y = 9 + r * 40

       objTextBox.X = 9 + c * 40

       objTextBox.Width = 32

       objTextBox.Height = 32

       aobjDisplay[r, c] = objTextBox

     Next ' c

   Next ' r

End