vibi1 tgs5 npm mahasiswa stmik pringsewu

NPM

LOGIKA NPM MAHASISWA

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

Txtjurusan.Text = “”

Txtprogramstudi.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

txtnpm.Text = “”

Txtjurusan.Text = “”

Txtprogramstudi.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttm.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

Txtjurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjurusan.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjurusan.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjurusan.Text = “Manajemen Komputer & Akutansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “00” Then

Txtprogramstudi.Text = “Strata Satu”

ElseIf S = “1” Then

Txtprogramstudi.Text = “Diploma Tiga”

ElseIf S = “02” Then

Txtprogramstudi.Text = “Diploma Empat”

ElseIf S = “03” Then

Txtprogramstudi.Text = “Diploma Dua”

End If

Txturut.Text = Right(txtnpm.Text, 3)

End Sub

 

 

Private Sub Command1_Click()

 

End Sub

 

Private Sub Command4_Click()

 

End Sub

 

Private Sub Form_Load()

 

End Sub

Iklan

aplikasi perhitungan gaji

RUMUS APLIKASI PERHITUNGAN GAJI

Private Sub Form_Load()

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 command1_click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub command2_click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub command3_click()

Unload Me

End Sub

APG

huruf mutu mahasiswa

RUMUS HURUF MUTU MHW

Private Sub combo1_change()

Dim nama, jurusan, hm As String

Select Case Combo1.Text

Case “1210063”

nama = “ria yuliana”

jurusan = “sistem informasi”

Case “12100073”

nama = “bela”

jurusan = “informatika”

Case “1210056”

nama = “lela”

jurusan = “informasi”

End Select

Text1.Text = nama

Text2.Text = jurusan

Text3.SetFocus

End Sub

Private Sub Command1_Click()

Dim na As Integer

Dim hs As String

quis = Val(Text3.Text)

uts = Val(Text5.Text)

uas = Val(Text6.Text)

na = (quis + tugas + uts + uas) / 4

Text7.Text = na

Select Case Text7.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

Text8.Text = hm

End Sub

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “‘”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “1210063”

Combo1.AddItem “12100073”

Combo1.AddItem “12100056”

End Sub

Private Sub Text3_keypress(keyascii As Integer)

If keyascii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_keypress(keyascii As Integer)

If keyascii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_keypress(keyascii As Integer)

If keyascii = 13 Then

Text6.SetFocus

End If

End Sub

 

huruf mutu mhw

perkalian dua bilangan

PERKLIAN 2 BILANGAN

RUMUS PERKALIAN 2 BILANGAN

Private Sub Form_Load()

End Sub

Private Sub text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub command1_click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub command2_click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub command3_click()

Unload Me

End Sub

rumus perhitungan harga setelah diskon

PHS

RUMUS PERHITUNGAN HARGA SETELAH DISKON

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

Private Sub text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub command1_click()

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub command2_click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

vb. kalkulator

RUMUS KALKULATOR

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

tambh bgi kurag

Titik air menitik Berbaris jarum jam berdetik Tak henti dalam putaran waktu Menembus masuk roda itu Menjadi pilar generasi penerus Bermuara menjelma sebagai arus Berbaris ditengah tangisan pertiwi Tak buat henti langkahkan kaki Baktiku hanya tuk negeri ini Ku akan jadi lilin ditengah kegelapan Melawan segala kemunafikan Semangatku bagai pejuang 45’ Penerus cita – cita pahlawan kita Wahai sang guruku Tuntunlah aku menjadi aku Jasamu tak tampak mata Berwujud dalam hati sanubari Titik air menitik Ilmu mu kan ku petik Bukan buat negara munafik