Program Sederhana Pembuatan Biodata ( Konsep Dasar )

Halo sobat blogger dan anak-anak RPLa yang seru aja nih haha kali ini saya akan memberikan tutorial cara membuat program sederhana pada visual basic ya seperti membuat biodata

Pertama kita buat dulu label label nya dulu seperti Nama , Nis , Kelas , dan Kompetensi Keahlian

Kedua kita buat command button seperti Tampilkan data saya , Sembunyikan Huruf , Ubah Warna , dan Keluar

Comman button masih ingatkan fungsinya ?? Command button ialah suatu tombol untuk memerintahkan program tersebut

Lalu buatlah textbox lalu letakkan disamping masing masing label . 

Textbox disini digunakan untuk menampilkan hasil dari command button yang kita klik nanti

Setelah itu buatlah sebuah combobox yang digunakan untuk mengganti warna background pada form visual basic 

Berikut ini tampilannya 

Berikut ini source code nya :

Public Function warna(wrn) 'menjelaskan ketika kita memilih warna dari combobox

Select Case wrn

Case "putih"

warna = "&HFFFFFF"

Case "merah"

warna = "&H0000FF"

Case "hijau"

warna = "&H00FF00"

Case "kuning"

warna = "&H00FFFF"

Case "biru"

warna = "&HFF0000"

Case "lembayung"

warna = "&HC000C0"

Case "biru laut"

warna = "&HFFFF00"

Case "hitam"

warna = "&H000000"

End Select

End Function

Private Sub Combo1_Click()

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click() 'menjelaskan commandbutton dari tampilkan data saya

Text1.Text = "azizal" 'kita tahu bahwa peletakan text1 berada di sebelah label nama maka untuk menampilkannya kita harus mengetik text1.text , .text disini menjelaskan dari properties dari text1 tersebut kalo kita tulis text1.text = "azizal" maka jika kita klik perintah dari commandbutton otomatis text nya akan menampilkan teks yang bertuliskan azizal

Text2.Text = "10001960"

Text3.Text = "XRPLA"

Text4.Text = "rekayasa perangkat lunak"

End Sub

Private Sub Command3_Click()

bdata.BackColor = vbBlue 'menjelaskan dari commandbutton ubah warna

End Sub

Private Sub Command4_Click() 'menjelaskan dari commandbutton sembunyikan huruf

Text1.Text = "" 'menjelaskan dari karakter kosong bila kita klik maka nantinya akan tertampil karakter kosong yang berarti tidak ada huruf/angka sama saja kita dengan menghapusnya

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Form_Load() 'menambahkan list dari combobox

Combo1.AddItem "putih" 'fungsi additem disini adalah menambahkan list dari combobox , harus diletakkan di form load

Combo1.AddItem "merah"

Combo1.AddItem "hijau"

Combo1.AddItem "kuning"

Combo1.AddItem "biru"

Combo1.AddItem "lembayung"

Combo1.AddItem "biru laut"

Combo1.AddItem "hitam"

End Sub

Download projectnya

Posted in: data RPLA,tutorial,visual basic