tugas fatma 6

diskon 1

 

 

 

 

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

tugas fatma 5

angel temen gbr

 

 

 

 

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

 

 

tugas fatma 3

huruf mutu

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

tugas fatma 4

npm angel

 

 

 

 

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

 

 

tugas fatma2

pehitungan gaji

 

 

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

tugas fatma1

worno

 

 

 

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

tugas vb2

vb

 

 

 

 

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