Tugas Visual Basic 1.1




Komentar

Posting Komentar

Postingan populer dari blog ini

Program G

Gambar
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtpeng = "" txttt = "" txtper = "" txth = "" End Sub Private Sub cmdproses_Click() Dim X As String txttt = "20" & Mid(txtkb, 5, 2) X = Left(txtkb, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpeng = "Fadiya Ulfa" txth = "75900" ElseIf X = "EDP" Then txtjb = "Electronik Data Processing" txtpeng = "Nurul Agustina" txth = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtpeng = "Rian Hidayat" txth = "42000" ElseIf X = ...
Baca selengkapnya

TUGAS PEMROGRAMAN 2.7

Gambar
Private Sub Cmdproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.2 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Cmdulang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.2 Text6 = Val(Text4) - Val(Text5) End If End Sub
Baca selengkapnya

Program I

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjurusan = "" txtpstudy = "" txttahun = "" txtnurut = "" txtbp = "" End Sub Private Sub cmdproses_Click() Dim Z As String txttahun = "20" & Left(txtnpm, 2) txtnurut = Right(txtnpm, 3) Z = Mid(txtnpm, 3, 1) If Z = "1" Then txtjurusan = "Sistem Informasi" ElseIf Z = "2" Then txtjurusan = "Teknik Informatika" ElseIf Z = "3" Then txtjurusan = "Manajemen Informatika" ElseIf Z = "4" Then txtjurusan = "Manajemen & Komp.Akuntansi...
Baca selengkapnya