Langsung ke konten utama

TUGAS 1.6







Private Sub BATAL_Click()
Textn1 = ""
Textn2 = ""
Textn3 = ""
Textn4 = ""
Textn5 = ""
Textn6 = ""
Textn7 = ""
Textn8 = ""
Texttotal1 = ""
Texttotal2 = ""
Texttotal3 = ""
Texttotal4 = ""
Textn1.SetFocus
End Sub

Private Sub HITUNG_Click()
Texttotal1 = Val(Textn1) + Val(Textn2)
Texttotal2 = Val(Textn3) / Val(Textn4)
Texttotal3 = Val(Textn5) - Val(Textn6)
Texttotal4 = Val(Textn7) * Val(Textn8)
End Sub

Private Sub KELUAR_Click()
Unload Me
End Sub

Private Sub LAGI_Click()
Textn1 = ""
Textn2 = ""
Textn3 = ""
Textn4 = ""
Textn5 = ""
Textn6 = ""
Textn7 = ""
Textn8 = ""
Texttotal1 = ""
Texttotal2 = ""
Texttotal3 = ""
Texttotal4 = ""
Textn1.SetFocus
End Sub


Private Sub Textn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn2.SetFocus
End If
End Sub


Private Sub Textn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn3.SetFocus
End If
End Sub



Private Sub Textn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn4.SetFocus
End If
End Sub



Private Sub Textn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn5.SetFocus
End If
End Sub



Private Sub Textn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn6.SetFocus
End If
End Sub


Private Sub Textn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn7.SetFocus
End If
End Sub


Private Sub Textn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textn8.SetFocus
End If
End Sub



Private Sub Textn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Texttotal1 = Val(Textn1) + Val(Textn2)
Texttotal2 = Val(Textn3) / Val(Textn4)
Texttotal3 = Val(Textn5) - Val(Textn6)
Texttotal4 = Val(Textn7) * Val(Textn8)
End If
End Sub





Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS 3.5

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkt, 3) If B = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf B = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * (txtjt) End If End Sub
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building. Program table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan. Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada
Posting Komentar
Baca selengkapnya

TUGAS1.1

Private Sub BATAL_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub
Posting Komentar
Baca selengkapnya