Program sederhana merubah warna text pada Visual Basic 6.0

Program sederhana merubah warna text pada Visual Basic. Sebagai dasar untuk belajar program visual basic (VB 6.0) kali ini admin sourcekodeprogram akan berbagi sedikit program sederhana dengan menggunakan bahasa pemrograman visual basic 60 (vb 6.0).

sebelumnya bagi sobat yang belum mengenal tentang bahasa pemrograman bisa baca sekilas tentang pemrograman komputer. 

Untuk memulai membuat program komputer dengan bahasa pemrograman visual basic sobat bisa baca cara memulai bahasa pemrograman visual basic

setelah sobat mengenal dan sudah bisa memulai untuk belajar bahasa pemrograman visual basic, yang pertama yang harus sobat lakukan untuk program sederhana ini adalah membuat form seperti berikut :

komponen yang di perlukan untuk form ini adalah

• 1 buah label  yang bertulisan ( LABEL WARNA)

label ini di ganti namenya dengan "Label_warna", akan tetapi tidak boleh pakai spasi

• Option 3 buah

name dari option tidak perlu diganti, yang di ganti hanya "caption" nya saja

ganti setiap caption sesuai dengan warna masing masing option


untuk bisa melihat setiap propertis seperti gambar di atas, tinggal sobat klik komponen yang akan di rubah, dan akan tampil pada layar sebelah kanan dari aplikasi visual basic 6.0

kalau sudah selesi tinggal membuat code atau script programnya. untuk bisa melihat tempat menulis source kode programnya sobat tinggal pilih seperti gambar berikut :

sekarang kode yang akan sobat buat untuk program sederhana merubah warna text dengan vb adalah

Private Sub rubahwarnadantulisan()
If Option1 = True Then
Label_warna.Caption = "MERAH"
Label_warna.ForeColor = &HFF&
ElseIf Option2 = True Then
Label_warna.Caption = "KUNING"
Label_warna.ForeColor = &HFFFF&
ElseIf Option3 = True Then
Label_warna.Caption = "HIJAU"
Label_warna.ForeColor = &HFF00&
End If
End Sub

keterangan kode:

kode ini merupakan contoh logika "IF" sederhana, maksud dari kode ini jika Option1 di klik maka warana label akan berubah menjadi merah, begitu juga denga option2 dan option3. untuk "rubahwarnadantulisan()" merupakan penamaan sub program itu sendir.

untuk memanggil kode diatas maka sobat kembali pada disain form, kemudian sobat klik 2x komponen  option1 dan masukkan kode  berikut

Private Sub Option1_Click()
rubahwarnadantulisan
End Sub

untuk option2

Private Sub Option2_Click()
rubahwarnadantulisan
End Sub

untuk option3

Private Sub Option2_Click()
rubahwarnadantulisan
End Sub

sekarang program sudah jadi dan tinggal dijalankan dengan cara tekan F5 pada keyboard atau mengklik tompol seperti gambar

hasil dari program akan tampil seperti berikut :

Nah inilah sedikit program yang sangat sederhana dengan menggunakan bahasa pemrogram visual basic 6.0, lain kali akan ada lanjutannya...

Tweet

Artikel keren lainnya: