Merubah Bilangan Ke Format Mata Uang Pada Gambas

Untuk merubah bilangan dari format sistem (default) ke format mata uang pada gambas, gunakan perintah Format(Value As Variant, Format As String) As String. Contoh:

Print Format(10000000, ",#.###")

Result: 10.000.000

Print Format(10000000, "$$,#.###")

Result: IDR 10.000.000

Print Format(10000000, "$,#.###")

Result: Rp10.000.000

Bentuk format akan mengikuti sistem komputer, jika sistem komputer menggunakan bahasa Indonesia (LANG = id_ID.utf8) maka format akan mengikuti format mata uang indonesia, jika sistem memakai bahasa (Language) Inggris maka format mata uang Inggris.

Penggunaan Perintah Val() Pada Pemrogaman Gambas

unakan untuk mengindentifikasi bahwa string yang dimuat merupakan bentuk angka maupun fromat angka yang disesuaikan dengan bahasa sistem (LANG). Umumnya perintah ini digunakan saat membuat kondisi (If - Else) ataupun Aritmatika.
Berikut beberapa contoh untuk mempermudah memahami:

Public Sub main()

  Print 1.5 + 2.5
  Print "1.5” + "2.5”
  'True / Benar

End


Perintah diatas saat dieksekusi akan sama-sama menghasilkan angka "4”.

Public Sub main()

  Print "1,5” + "2,5”
  ‘False / Salah
End

Skrip diatas akan menghasilkan error saat dieksekusi karena pada dasarnya format angka pada gambas menggunakan format inggris, dimana bilangan float ditandai dengan tanda titik.
Namun saat bahasa sistem komputer (LANG) yang dipakai menggunakan bahasa indonesia beserta format angkanya, maka kita bisa mengunakan format angka tersebut untuk melakukan kalkulasi pada gambas dengan menggunakan "Val”.
Berikut contoh saat penulis menggunakan format sistem berbahasa indonesia
OS = IGOS
LANG = id_ID.utf8

Public Sub main()

  Print Val("1,5”) + Val("2,5”)
  ‘True

End



Sebaliknya

Public Sub main()

  Print Val("1.5”) + Val("2.5”)
  ‘False

End


Jadi intinya hasil dari perintah Val() akan disesuaikan dengan format bahasa sistem
komputer.

Cara Penggunaan Perbandingan (If – Else) LANG (Bahasa System) Pada Pemrogaman Gambas

Public Sub Main()

    Dim Lang As String

    Shell "echo $LANG" To Lang

    If Lang = "id_ID.utf8\n" Then

        Print “LANG System berbahasa Indonesia”

    Else

        Print “Lang System berbahasa selain Indonesia”

    Endif

End

Perhatikan pada “id_ID.utf8” terdapat tambahab “\n”, karena pemanggilan perintah shell “echo $LANG” pada gambas akan menampilkan tambahan sepasi dibawahnya.