Isi
Indeks 🔎︎

# Fungsi QBColor

Mengembalikan kode warna RGB kode warna dari warna yang dilewatkan sebagai nilai warna melalui sistem pemrograman lama berbasis MS-DOS.

## Sintaksis:

QBColor (AngkaWarna As Integer)

## Nilai hasil:

Long

## Parameter:

NomorWarna : Ekspresi integer apa pun yang menentukan nilai warna dari warna yang diteruskan dari sistem pemrograman lama berbasis MS-DOS.

AngkaWarba dapat ditentukan dengan nilai berikut:

0 : Hitam

1 : Biru

2 : Hijau

3 : Sian

4 : Merah

5 : Magenta

6 : Kuning

7 : Putih

8 : Abu-abu

9 : Biru Muda

10 : Hijau Muda

11 : Sian Muda

12 : Merah Muda

13 : Light Magenta

14 : Kuning Muda

15 : Putih Cerah

Fungsi ini hanya digunakan untuk mengonversi dari aplikasi BASIC berbasis MS-DOS lama yang menggunakan kode warna di atas. Fungsi mengembalikan nilai integer panjang yang menunjukkan warna yang akan digunakan dalam IDE LibreOffice.

## Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

## Contoh:

    Sub ExampleQBColor
    Dim iColor As Integer
    Dim sText As String
        iColor = 7
        sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
        MsgBox stext,0,"Warna " & iColor
    End Sub