Saya membuat Program tersebut dengan menggunakan : 1. Menggunakan Label
2. Menggunakan Text
3. Menggunakan CommandButton
Setelah mengatur Interface (tampilan), maka masukan koding (kode) di tombol CommandButton yang di isi dengan nama OK.
koding (kode) teresebut adalah :
Private Sub Command1_Click()
Label4.Caption = “NAMA : ” & Text1.Text & Chr(13) & “NPM : ” & Text2.Text & Chr(13) & “KELAS : ” & Text3.Text
Label4.ForeColor = vbBlue
End Sub
Label4.Caption = “NAMA : ” & Text1.Text & Chr(13) & “NPM : ” & Text2.Text & Chr(13) & “KELAS : ” & Text3.Text
Label4.ForeColor = vbBlue
End Sub
Private Sub Command2_Click()
End
End Sub
End
End Sub
Setelah memasukan koding (kode) tersebut, maka jalankan program tersebut dengan cara Play atau menekan tombol F5 yang ada di tombol Keyboard anda. Program tersebut akan menampilkan hasil warna biru, di karenakan saya memberi warna dengan perintah yang tertera di atas. Maka akan terlihat hasil seperti gambar di bawah ini.
Karena program tersebut menghasilkan hasil dalam bentuk (urutan) ke bawah, jadi saya menggunakan perintah chr (13). Agar hasilnya akan terlihat merata ke bawah.
0 komentar :
Posting Komentar