Tugas 2.6 Membuat Pilihan Font Color dan Font Style ( Memasukkan Teks Pada Inputan Kemudian Tampil di Label )

Gambar. Pada Saat Aplikas Runtime

Berikut adalah Source Code aplikasi tersebut :

Private Sub Check1_Click()

    Label2.FontBold = Check1.Value

End Sub

--------------------------------------------------------

Related Posts:

Tweet

Tugas 2.5 Membuat Pilihan Font Color dan Font Style Pada Kalimat di Label

Gambar. Saat Aplikasi Runtime

Berikut adalah source code untuk aplikasi diatas :

Private Sub Check1_Click()

'membuat teks tebal

If Check1.Value = 1 Then

    Label1.FontBold = True

Else

    Label1.FontBold = False

End If

End Sub

Related Posts:

Tweet

Tugas 2.4 Membuat Aplikasi Perhitungan Gaji ( Klik Tombol Hitung dan Fungsi KeyAscii )

Gambar. Saat Runtime Aplikasi

Berikut source code untuk aplikasi di atas :

Private Sub Command1_Click()

    Text4 = Val(Text1) + Val(Text2) - Val(Text3)

    Text5 = Val(Text4) * 0.1

    Text6 = Val(Text4) - Val(Text5)

End Sub

Related Posts:

Tweet

Tugas 2.3 Membuat Aplikasi Perhitungan Gaji ( Klik Tombol Hitung)

Gambar. Saat Aplikasi Runtime

Beriukut adalah source code untuk aplikasi di atas :

Private Sub Command1_Click()

    Text4 = Val(Text1) + Val(Text2) - Val(Text3)

    Text5 = Val(Text4) * 0.1

    Text6 = Val(Text4) - Val(Text5)

End Sub

Related Posts:

Tweet

Tugas 2.2 Membuat Perhitungan Harga Setelah Diskon 10% ( Klik Tombol Hitung dan Fungsi KeyAscii)

Gambar Aplikasi Saat Runtime

Berikut adalah source code aplikasi tersebut :

Private Sub Hitung_Click()

    Txtdiskon = Val(Txthrgawal) * 0.1

    Txttotal = Val(Txthrgawal) - Val(Txtdiskon)

End Sub

Related Posts:

Tweet

Tugas 2.1 Membuat Aplikasi Perhitungan Setelah Diskon 10% Menggunakan Tombol Hitung

Gambar Aplikasi Saat Runtime

Berikut Adalah Source Code Untuk Aplikasi Tersebut :

Private Sub Hitung_Click()    Txtdiskon = Val(Txthrgawal) * 0.1    Txttotal = Val(Txthrgawal) - Val(Txtdiskon)End Sub

Related Posts:

Tweet