TUGAS

TUGAS BAHASA PEMROGRAMAN 1

TUGAS 1 SOURCE CODE TUGAS 1 Private Sub chkBold_Click() ‘Membuat teks Tebal If chkBold.Value = 1 Then LblTeks.FontBold = True Else LblTeks.FontBold = False End If End Sub Private Sub ChkItalic_Click() ‘Membuat teks Italic If ChkItalic.Value = 1 Then LblTeks.FontItalic = True Else LblTeks.FontItalic = False End If End Sub Private Sub ChkStrike_Click() ‘Membuat teks… Continue reading TUGAS BAHASA PEMROGRAMAN 1

TUGAS

TUGAS PEMROGRAMAN 1

PROGRAM 1 TUGAS 1 SOURCE CODE PERKALIAN DUA BILANGAN TUGAS1 Private Sub CmdBersih_Click() TxtNilaiA.SetFocus TxtNilaiA = ” ” TxtNilaiB = ” ” TxtHasil = ” “ End Sub Private Sub CmdHitung_Click() TxtHasil = Val(TxtNilaiA) * Val(TxtNilaiB) End Sub Private Sub CmdKeluar_Click() End End Sub Private Sub TxtNilaiA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtNilaiB.SetFocus… Continue reading TUGAS PEMROGRAMAN 1

TUGAS

TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN KE 1

TUGAS 2   Private Sub CmdBatal_Click() TxtNpm = “” TxtNama = “” TxtAlamat = “” TxtPs = “” TxtJr = “” TxtAgama = “” End Sub Private Sub CmdKeluar_Click() End End Sub Private Sub CmdLagi_Click() TxtNpm.SetFocus TxtNpm = “” TxtNama = “” TxtAlamat = “” TxtPs = “” TxtJr = “” TxtAgama = “” End… Continue reading TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN KE 1

TUGAS

TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN KE 1

TUGAS 1   Private Sub CmdBatal_Click() TxtNpm = “” TxtNama = “” TxtAlmat = “” End Sub Private Sub CmdKeluar_Click() End End Sub Private Sub CmdLagi_Click() TxtNpm.SetFocus TxtNpm = “” TxtNama = “” TxtAlmat = “” End Sub Private Sub TxtNama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtAlmat.SetFocus End If End Sub Private Sub… Continue reading TUGAS BAHASA PEMROGRAMAN VB PERTEMUAN KE 1