CycLopz Bzoner's: TUGAS Pemograman Terstruktur

TUGAS Pemograman Terstruktur

by Blackberry Kepler Community on Nov.22, 2009, under Pemograman VB

Akhirnya Ini Tugas Selesai Juga >>!!!<<

Label1 Caption Masukan Kata : (Name) Label1
Label2 Caption DiKOSONGKAN (Name) Tampil

Textbox Caption Dikosongkan (Name) txtkata

Frame1 Caption Pilihan Didepan P di pakaikan & (Name) Frame1

OptionButton1 Caption Merah di depan M di pakaikan & (Name) Option1
OptionButton2 Caption Biru Di depan huruf i di pakaikan & (Name) Option2
OptionButton3 Caption Hijau Di depan huruf H di pakaikan & (Name) Option3
OptionButton4 Caption Kuning Di depan huruf K di pakaiakan & (Name) Option4
CheckBox1 Caption Tebal Di depan huruf a di pakaikan & (Name) Check1
CheckBox2 Caption Miring Di depan huruf r di pakaikan & (Name) Check2
CheckBox3 Catpion Garis Bawah Di depan huruf G di pakaikan & (Name) Check3

CommandButton1 Caption Bersih Di depan huruf B di pakaikan & (Name) cmdbersih
CommandButton2 Caption Exit Di depan huruf E di pakaikan & (Name) Command1
CommandButton3 Caption Tampil Di depan huruf T di pakaikan & (Name) cmdtampilkata

STRING Yang di GUNAKAN

Private Sub Check1_Click()
tampil.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
tampil.FontItalic = Check2.Value
End Sub

Private Sub Check3_Click()
tampil.FontUnderline = Check3.Value
End Sub

Private Sub cmdbersih_Click()
txtkata.Text = ""
tampil.Caption = ""
End Sub

Private Sub cmdtampilkata_Click()
tampil.Caption = txtkata.Text
tampil.Alignment = False
txtkata.FontBold = False
txtkata.FontItalic = False
End Sub

Private Sub Command1_Click()
p = MsgBox("Sumpeh Lu Mau Keluar ?", 32 + 1, "Konfirmasi")
If p = vbOK Then
End
End If
End Sub

Private Sub Option1_Click()
tampil.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
tampil.ForeColor = vbRed
End Sub

Private Sub Option3_Click()
tampil.ForeColor = vbYellow
End Sub

Private Sub Option4_Click()
tampil.ForeColor = vbGreen
End Sub

Hasil saya Berupa File Exe