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
- Form1 (caption = Input Output)
- Label1 (caption = Hello Word)
- Label2 (caption = Masukkan Nama)
- Label3 (caption = Hasil, font size = 14)
- Text1 (text = )
- Command1 (name = cmd_kosong, caption = KOSONGKAN)
- Command2 (name = cmd_ok, caption = OK)
- Command3 (name = cmd_keluar, caption = KELUAR)
- Frame (caption = Opsi)
- Option1 (name = opt_merah, caption = Merah)
- Option2 (name = opt_biru, caption = Biru)
- Check1 (name = c_miring, caption = Miring)
- 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.


















