Praktikum 1 - Input Text Output Caption

Salam Sukses untuk kita semua kawan kawan blogger.

semoga apa yang saya posting ini memberikan manfaat dan barokah kepada kita semua, demi menjalankan perintah yaitu "menuntut ilmu."

Hasil akhir praktikum 1 - Input output

Petunjuk Praktikum:

A. desain tampilan peserti diatas dengan ketentuan sebagai berikut

1. Form1 (caption = Input Output) 
2. Label1 (caption = Hello Word)
3. Label2 (caption = Masukkan Nama)
4. Label3 (caption = Hasil, font size = 14)
5. Text1 (text = )
6. Command1 (name = cmd_kosong, caption = KOSONGKAN)
7. Command2 (name = cmd_ok, caption = OK)
8. Command3 (name = cmd_keluar, caption = KELUAR)
9. Frame (caption = Opsi)
10. Option1 (name = opt_merah, caption = Merah)
11. Option2 (name = opt_biru, caption = Biru)
12. Check1 (name = c_miring, caption = Miring)
13. Check2 (name = c_tebal, caption = Tebal)

B. Sesuaikan dengan rumus berikut ini:

Private Sub c_miring_Click()
    Label3.FontItalic = c_miring.Value
End Sub
Private Sub c_tebal_Click()
    Label3.FontBold = c_tebal.Value
End Sub
Private Sub cmd_kosong_Click()
    Text1.Text = ""
    Text1.SetFocus
    Label3.Caption = ""
End Sub
Private Sub cmd_ok_Click()
    Label3.Caption = Text1.Text
End Sub
Private Sub cmd_keluar_Click()
    End
End Sub
Private Sub opt_merah_Click()
    Label3.ForeColor = vbRed
End Sub
Private Sub opt_biru_Click()
    Label3.ForeColor = vbBlue
End Sub

C. Jalankan Program dengan tekan F5, coba isikan nama dan uji program tersebut.


#Semoga berhasil.