tgas 5 program

  Tugas No.1 Private Sub Cmdkeluar_Click() Unload Me End Sub   Private Sub Cmdlagi_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” Text7.Text = “” Text8.Text = “” Text9.Text = “” Text10.Text = “” Text11.Text = “” Text12.Text = “” End Sub   Private […]

Read more "tgas 5 program"

tugas 10 pr0gram

DATA BUKU STMIK PRINGSEWU Private Sub Command1_Click() Dim J As String J = Mid(Text6.Text, 3, 3) If J = “SIM” Then Text1.Text = “SISTEM INFORMASI MANAJEMEN” Text2.Text = “YATI NUR OKTAFIA” Text5.Text = “75900” ElseIf J = “EDP” Then Text1.Text = “ELEKTRONIK DATA PROCESSING” Text2.Text = “WAGIANTO” Text5.Text = “62000” ElseIf J = “MNJ” Then […]

Read more "tugas 10 pr0gram"

tugas vb

  DATA BUKU STMIK PRINGSEWU Private Sub Command1_Click() Dim J As String J = Mid(Text6.Text, 3, 3) If J = “SIM” Then Text1.Text = “SISTEM INFORMASI MANAJEMEN” Text2.Text = “YATI NUR OKTAFIA” Text5.Text = “75900” ElseIf J = “EDP” Then Text1.Text = “ELEKTRONIK DATA PROCESSING” Text2.Text = “WAGIANTO” Text5.Text = “62000” ElseIf J = “MNJ” […]

Read more "tugas vb"

tgs web3

Private sub command1_Clik() TXTGK = Val(TXTGP) + Val(TXTT) – Val(TXTPOT) TXTP.Text = Val(TXTGK) * 0.1 TXTGD.Text = Val(TXTGK) – Val(TXTPOT) End Sub Private Sub Command2_Click() TXTGP.SetFocus TXTGK.Text = “” TXTT.Text = “” TXTPOT.Text = “” TXTGP.Text = “” TXTP.Text = “” TXTGD.Text = “” End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub […]

Read more "tgs web3"

tgs vb web3

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Check3_Click() Label2.FontUnderline = Check3.Value End Sub Private Sub Check4_Click() Label2.FontStrikethru = Check4.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private […]

Read more "tgs vb web3"

tugas vb web3

RUMUS Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End […]

Read more "tugas vb web3"

RUMUS DISKON

Private Sub Command1_Click() Dim A, B, C As Single A = Text1.Text B = Text2.Text C = A * 0.1 Text2.Text = Val(Text1.Text) * 0.1 Text3.Text = Val(Text1.Text) – Val(Text2.Text) End Sub Private Sub Command2_Click() Text1.SetFocus Text1.Text = “” Text2.Text = “” Text3.Text = “” End Sub Private Sub Command3_Click() Unload Me End Sub Private […]

Read more "RUMUS DISKON"