Cara Mengirim Nilai Variabel Antar Class Pada Gambas

Buat dua Form dan Class (FMain dan Form1 misalnya).

Pertama

Pada FMain.form buat Buttton satu aja.

Perintah pada Fmain.class:

' Gambas class file

Public Sub Form_Open()

End

Public Sub btnGo_Click() 'Tombol kirim

Dim kirim As String

kirim = "sesuatu"

Form1.Penampung(kirim)

Form1.Show

End

Kedua

Pada Form1.form buat TextBox satu saja.

Perintah pada Form1.class

' Gambas class file

Terima As String

Public Sub Form_Open()

    TextBox1.Text = Terima

End

Public Sub Penampung(Kirim As String)

    Terima = Kirim

End

Result

By IGN User

 

Mendapatkan Ukuran (Lebar-Tinggi) Layar Desktop Untuk Dijadikan Sebagai Nilai Variabel Pada Kode Program Bash(Shell) ~ Linux

Panjang banget judulnya,, biarin..

Jika kurang jelas, maksud dari judul diatas adalah jika kita mencari “screen desktop size” yang anggaplah kita tidak tahu berapa ukurannya, kemudian hasil pencarian tersebut (ukuran lebar-tinggi layar) langsung/otomatis digunakan sebagai nilai dari variable pada script program shell (bash) *bisa juga diterapkan pada pemrogram lain yang mendukung komunikasi dengan shell. Tujuannya adalah jika kita membuat program/aplikasi GUI dan menginginkan layar utama aplikasi dapat menyesuaikan dengan ukuran layar komputer manapun (yang pakai linux).

Untuk mendapatkan informasi ukuran layar desktop:

$ xwininfo -root

result:
 

Mendapatkan ukuran layar secara terpisah antara panjang dan lebar:

$ xwininfo -root | grep Width #Lebar

$ xwininfo -root | grep Height #Tinggi

Result:

Width: 1024

Height: 600

Dijadikan sebagai nilai variabel program:

lebar=(`xwininfo -root | grep Width`)

tinggi=(`xwininfo -root | grep Height`)

L=`echo ${lebar[1]}`

T=`echo ${tinggi[1]}`

echo $L x $T

Result:

1024 x 600

Digunakan untuk mengatur/menyesuaikan tinggi-lebar layar pada pemrogaman GUI Gambas (Visual Basicnya Linux):

Public Sub Form_Open()

   Dim Lebar As String

   Dim Tinggi As String

   Shell "a=(`xwininfo -root | grep Width`); echo ${a[1]}" To Lebar

   Shell "a=(`xwininfo -root | grep Height`); echo ${a[1]}" To Tinggi

   With Form1

     .Width = Val(Lebar)

     .Height = Val(Tinggi)

   End With

End

By IGN User

Source: http://www.kwikku.com/yusronbarizi/post/1445661

Cara Menghilangkan Dan Menampilkan Menubar Pada Gambas

Tulisan ini hanya sebagai pelengkap tutorial berbahasa indonesia, khusunya berkenaan dengan Gambas.

Gambas yang dimaksud disini bukanlah “buah sayuran” yang ada di indonesia, melainkan sebuah nama IDE suatu pemrogaman untuk membuat aplikasi grafis semacam Visual Basic atau Delphi, Namun Gambas juga tersedia untuk lingkungan Linux dan tersedia di berbagai macam distro, asiknya lagi GRATIS & sederhana.

Untuk menghilangkan Menubar: Tampilan >> Hide Menubar

Untuk menampilkan kembali Meubar tekan tombol sebagaimana yang ditandai garis merah pada gambar berikut:

Contoh Penggunaan Array Pada Gambas

' Gambas class file

Static Public Sub main()

   Dim i As Integer

   Dim ii As Integer

   Dim iii As Integer

   Dim narMatrix As New Integer[3, 3, 3]

   For i = 0 To 2

     For ii = 0 To 2

       For iii = 0 To 2

          Print i, ii, iii & " ==> ";

          narMatrix[i, ii, iii] = i * 9 + ii * 3 + iii

          Print narMatrix[i, ii, iii]

       Next

      Next

    Next

End

Result:

0 0 0 ==> 0

0 0 1 ==> 1

0 0 2 ==> 2

0 1 0 ==> 3

0 1 1 ==> 4

0 1 2 ==> 5

0 2 0 ==> 6

0 2 1 ==> 7

0 2 2 ==> 8

1 0 0 ==> 9

1 0 1 ==> 10

1 0 2 ==> 11

1 1 0 ==> 12

1 1 1 ==> 13

1 1 2 ==> 14

1 2 0 ==> 15

1 2 1 ==> 16

1 2 2 ==> 17

2 0 0 ==> 18

2 0 1 ==> 19

2 0 2 ==> 20

2 1 0 ==> 21

2 1 1 ==> 22

2 1 2 ==> 23

2 2 0 ==> 24

2 2 1 ==> 25

2 2 2 ==> 26

Mengetahui Format System Bahasa (LANG) Yang Sedang Digunakan Pada IGN(Linux) Menggunakan Terminal

Buka Terminal.
$ env | grep LANG
Result:
LANG=en_US.utf8
GDM_LANG=en_US.utf8

*atau semacamnya Sumber: http://www.fourlook.com/post/mengetahui-format-system-bahasa-lang-yang-sedang-digunakan-pada-ign-linux-menggunakan-terminal-55922.html