TUGAS 2 PROGRAM 3 BP1


Private Sub Cmdkeluar_Click()
Unload Me

End Sub
Private Sub cmdProses_Click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * (0.1)
Text6 = Val(Text4) - Val(Text5)
End Sub

Private Sub cmdUlang_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""

End Sub

Komentar

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone