Option Explicit
Private Sub CMDQU_Click()
End
End Sub
Private Sub CMDUL_Click()
TXTHA = “”
TXTDIS = “”
TXTAKH = “”
End Sub
Private Sub TXTHA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTDIS.Text = Val(TXTHA.Text) * 0.1
TXTAKH.Text = Val(TXTHA.Text) – Val(TXTDIS.Text)
End If
End Sub
Option Explicit
Private Sub Combatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
TXTNPM.Text = “”
Txtjurusan.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
Txturut.Text = “”
End Sub
Private Sub Comkeluar_Click()
Unload Me
End Sub
Private Sub CMDLG_Click()
TXTNM.SetFocus
TXTNM.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
TXTNUR.Text = “”
End Sub
Private Sub CMDprs_Click()
Dim s As String
TXTTHM.Text = “20” & Left(TXTNPM.Text, 2)
s = Mid(TXTNPM.Text, 3, 1)
If s = “1” Then
TXTJUR.Text = “Sistem Informasi”
ElseIf s = “2” Then
TXTJUR.Text = “Manajemen Informatika”
ElseIf s = “3” Then
TXTJUR.Text = “Teknik Informatika”
ElseIf s = “4” Then
TXTJUR.Text = “Manajemen & Komputer Akuntansi”
End If
s = Mid(TXTNPM.Text, 4, 2)
If s = “01” Then
TXTPS.Text = “strata satu”
ElseIf s = “02” Then
TXTPS.Text = “diploma tiga”
ElseIf s = “03” Then
TXTPS.Text = “diploma empat”
ElseIf s = “04” Then
TXTPS.Text = “diploma dua”
End If
TXTNUR.Text = Right(TXTNPM.Text, 3)
End Sub
Private Sub FORM_ACTIVATE()
TXTNM.SetFocus
TXTNM.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
TXTNUR.Text = “”
End Sub
Private Sub TxtNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNPM.SetFocus
End If
End Sub
Private Sub Cmdbt_Click()
CBONPM.SetFocus
CBONPM.Text = “”
TXTNM.Text = “”
TXTJUR.Text = “”
TXTNQ.Text = “”
TXTNT.Text = “”
TXTUTS.Text = “”
TXTUAS.Text = “”
TXTNAK.Text = “”
TXTHM.Text = “”
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case CBONPM.Text
Case “12201136”
nama = “fatmawati”
jurusan = “Manajement Informatika”
Case “11201101”
nama = “silvani baharani”
jurusan = “Sistem Informasi”
Case “12201789”
nama = “nilam indo”
jurusan = “Teknik Informatika”
End Select
TXTNM.Text = nama
TXTJUR.Text = jurusan
TXTNQ.SetFocus
End Sub
Private Sub Cmdkl_Click()
Unload Me
End Sub
Private Sub Cmdprs_Click()
Dim nilai As Integer
Dim hm As String
quiss = Val(TXTNQ.Text)
tugas = Val(TXTNT.Text)
uts = Val(TXTUTS.Text)
uas = Val(TXTUAS.Text)
nilai = (quiss + tugas + uts + uas) / 4
TXTNAK.Text = nilai
Select Case TXTNAK.Text
Case Is > 80
hm = “A”
Case Is > 70
hm = “B”
Case Is > 60
hm = “C”
Case Is > 50
hm = “D”
Case Is < 50
hm = “E”
End Select
TXTHM.Text = hm
End Sub
Private Sub Form_Load()
CBONPM.AddItem “12100697”
CBONPM.AddItem “12100690”
CBONPM.AddItem “12201788”
End Sub
Private Sub Txtnq_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTNT.SetFocus
End If
End Sub
Private Sub Txtnt_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTUTS.SetFocus
End If
End Sub
Private Sub Txtuts_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTUAS.SetFocus
End If
End Sub
Option Explicit
Private Sub Combatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
TXTNPM.Text = “”
Txtjurusan.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
Txturut.Text = “”
End Sub
Private Sub Comkeluar_Click()
Unload Me
End Sub
Private Sub CMDLG_Click()
TXTNM.SetFocus
TXTNM.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
TXTNUR.Text = “”
End Sub
Private Sub CMDprs_Click()
Dim s As String
TXTTHM.Text = “20” & Left(TXTNPM.Text, 2)
s = Mid(TXTNPM.Text, 3, 1)
If s = “1” Then
TXTJUR.Text = “Sistem Informasi”
ElseIf s = “2” Then
TXTJUR.Text = “Manajemen Informatika”
ElseIf s = “3” Then
TXTJUR.Text = “Teknik Informatika”
ElseIf s = “4” Then
TXTJUR.Text = “Manajemen & Komputer Akuntansi”
End If
s = Mid(TXTNPM.Text, 4, 2)
If s = “01” Then
TXTPS.Text = “strata satu”
ElseIf s = “02” Then
TXTPS.Text = “diploma tiga”
ElseIf s = “03” Then
TXTPS.Text = “diploma empat”
ElseIf s = “04” Then
TXTPS.Text = “diploma dua”
End If
TXTNUR.Text = Right(TXTNPM.Text, 3)
End Sub
Private Sub FORM_ACTIVATE()
TXTNM.SetFocus
TXTNM.Text = “”
TXTNPM.Text = “”
TXTJUR.Text = “”
TXTPS.Text = “”
TXTTHM.Text = “”
TXTNUR.Text = “”
End Sub
Private Sub TxtNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNPM.SetFocus
End If
End Sub
Option Explicit
Private Sub CMDPROSES_Click()
TXTGK.Text = Val(TXTGP.Text) + Val(TXTTJ.Text) – Val(TXTPT.Text)
TXTPJ.Text = Val(TXTGK.Text) * (0.1)
TXTGB.Text = Val(TXTGK.Text) – Val(TXTPJ.Text)
End Sub
Private Sub CMDQUIT_Click()
End
End Sub
Private Sub CMDULANG_Click()
TXTGP.SetFocus
TXTGP = “”
TXTTJ = “”
TXTPT = “”
TXTGK = “”
TXTPJ = “”
TXTGB = “”
End Sub
Private Sub TXTGP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTJ.SetFocus
End If
End Sub
Private Sub TXTTJ_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTPT.SetFocus
End If
End Sub
Option Explicit
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 If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbBlue
End Sub
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub
Private Sub btn_hitung_Click()
Dim na As Single, nh As String
Select Case na
Case Option1.Value: na = (0.4 * Val(txt_nmid)) + (0.6 * Val(txt_nf))
Case Option2.Value: na = ((0.2 * Val(txt_nt)) + (0.4 * Val(txt_nmid)) + (0.4 * Val(txt_nf)))
Case Option3.Value: na = (Val(txt_nt) + Val(txt_nmid) + Val(txt_nf)) / 3
End Select
Select Case na
Case 80 To 100: nh = “A”
Case 60 To 79: nh = “B”
Case 40 To 59: nh = “C”
Case 30 To 39: nh = “D”
Case Else: nh = “E”
End Select
txt_na.Text = na
txt_nh.Text = nh
End Sub
Private Sub btn_selesai_Click()
End
End Sub
Private Sub btn_ulang_Click()
txt_nim.Text = “”
txt_jrusan.Text = “”
txt_na.Text = “”
txt_nf.Text = “”
txt_nh.Text = “”
txt_nma.Text = “”
txt_nmid.Text = “”
txt_nt.Text = “”
End Sub
Private Sub Form_Load()
txt_nim.Text = “”
txt_jrusan.Text = “”
txt_na.Text = “”
txt_nf.Text = “”
txt_nh.Text = “”
txt_nma.Text = “”
txt_nmid.Text = “”
txt_nt.Text = “”
End Sub
Private Sub txt_nim_LostFocus()
Dim jrs As String
If Mid(Trim(txt_nim), 3, 1) = “1” Then
jrs = “Sistem Informasi”
ElseIf Mid(Trim(txt_nim), 3, 1) = “2” Then
jrs = “Teknik Informatika”
Else
jrs = “Manajemen Informatika”
End If
txt_jrusan.Text = jrs
End Sub
Every couple weeks, we’re sitting down with an Automattician to help you get to know the people who work behind the scenes to build new features, keep Automattic running, and make WordPress.com the best it can be. This week, we’re very pleased to introduce you to Ms. Kathryn Presner. Everybody, say hey to Kathryn!
As a Happiness Engineer, I help WordPress.com users solve every kind of issue imaginable: from setting up custom menus to custom DNS records.
I love troubleshooting users’ problems and finding solutions — it’s incredibly satisfying seeing someone go from frustrated and confused to delighted and enlightened. I especially enjoy “seeing the lightbulb go off” when explaining WordPress basics to beginners.
The best part of my day is when a user tells me I’ve totally lived up to my Happiness Engineer designation, which — let’s be honest — has to be…
View original post 479 more words
Private Sub Cmdhitung_Click()
txtjumlah.Text = Val(txtpanjang.Text) * Val(txtlebar.Text)
End Sub
Private Sub cmdlagi_Click()
txtpanjang.Text = “”
txtlebar.Text = “”
txtjumlah.Text = “”
txtpanjang.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdtambah_Click()
txtjumlah.Text = Val(txtpanjang.Text) + Val(txtlebar.Text)
End Sub
Private Sub cmdbagi_Click()
txtjumlah.Text = Val(txtpanjang.Text) / Val(txtlebar.Text)
End Sub
Private Sub cmdkurang_Click()
txtjumlah.Text = Val(txtpanjang.Text) – Val(txtlebar.Text)
End Sub
Private Sub Txtpanjang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtlebar.SetFocus
End If
End Sub
Dim bil1, bil2, bilhasil As Integer
bil1 = Val(txt_bil1.Text)
bil2 = Val(Txt_bil2.Text)
bilhasil = bil1 * bil2
txt_bilhasil.Text = bilhasil
FATMAWATI STMIK PRINGSEWU 