tugas visualbasic



NAMA                  : AHMAD SOLIHIN
NPM                      : 18100076
KELAS                    : CALIND 2
1.       Tugas 1







Private Sub tbl_bersih_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub tbl_keluar_Click()
End
End Sub

Private Sub tbl_lagi_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
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

2.       Tugas 2



Private Sub Command1_Click()
Text3 = Val(Text1) * (Text2)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
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

3.       Tugas 3







Private Sub Command1_Click()
Text3 = Val(Text1) * (Text2)
Text6 = Val(Text4) / (Text5)
Text9 = Val(Text7) + (Text8)
Text12 = Val(Text10) - (Text11)

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""

End Sub

Private Sub Command3_Click()
End
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.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

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Gambar
Apa bedanya ilmu komputer, teknik informatika, sistem informasi, teknik komputer, dan teknologi informasi? Terkesan serupa tapi tak sama. Ini penjelasannya. Tulisan ini  gue  buat spesial untuk yang tertarik atau penasaran dengan jurusan Ilmu Komputer, Teknik Informatika, atau sejenisnya. Berhubung gue lulusan Fakultas Ilmu Komputer Universitas Indonesia, jurusan/program studi (prodi) Ilmu Komputer,  gue  sering  banget  ditodong pertanyaan seperti berikut. “Fan, kuliah di Ilmu Komputer itu ngapain sih? Jadi hacker ya?” “Kak, bedanya Ilmu Komputer (UI) dengan Teknik Informatika (ITB) apa ya?” “Ilmu Komputer dengan Sistem Informasi itu sama ngga? Kalo dengan Teknik Komputer, sama juga?” dan sebagainya dan sebagainya… Karena tempo hari Zenius Blog udah sempat cerita tentang  sistem bilangan biner   dan   “kode-kodean” pake teknik kriptografi , rasanya bakal lebih komplit kalo kita sajikan tulisan yang ngebahas lebih dalam ...
Baca selengkapnya
Gambar
STMIK PRINGSEWU PERINGATI ISRA’ MI’RAJ 1439 H STMIK PRINGSEWU  – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu, Ahad malam Senin (22/4) memperingati Isra Mi’raj 1439 H sekaligus silaturahmi yang diselenggarakan di halaman kampus setempat dengan penceramah Ustadz Muhammad Saefuddin mahasiswa Sekolah Tinggi Ilmu Tarbiyah (STIT) Pringsewu. Acara diawali oleh penampilan group hadroh pondok pesantren baitul qur’an dibawah pimpinan H. Abdul Hamid Alhafiz. Peristiwa Isra’ Mi’raj merupakan sebuah peristiwa perjalanan yang dilakukan Nabi Muhammad SAW dari Masjidil Haram ke Masjidil Aqsa menuju Sidratul Muntaha dan sampai di langit ketujuh Surga Baitul Makmur untuk menerima perintah menunaikan shalat lima waktu sehari semalam. Peristiwa mulia tersebut dapat diperingati sebagai wujud rasa syukur para umatnya. Peringatan Isra Mi’raj juga dapat dijadikan momentum bagi para institusi/lembaga untuk meningkatkan keimanan dan ketaqwaan bagi para pegawai di lingkungan STM...
Baca selengkapnya
Gambar
Multimedia  adalah penggunaan  komputer  untuk menyajikan dan menggabungkan teks,  suara , gambar,  animasi ,  audio  dan  video  dengan alat bantu (tool) dan koneksi (link) sehingga pengguna dapat melakukan  navigasi , berinteraksi, berkarya dan ber komunikasi . Multimedia sering digunakan dalam dunia informatika. Selain dari dunia  informatika , multimedia juga diadopsi oleh dunia game, dan juga untuk membuat  website . Multimedia  dimanfaatkan juga dalam dunia  pendidikan  dan  bisnis . Di dunia  pendidikan , multimedia digunakan sebagai media pengajaran, baik dalam kelas maupun secara sendiri-sendiri atau otodidak. Di dunia  bisnis , multimedia digunakan sebagai media profil  perusahaan , profil produk, bahkan sebagai media  kios informasi  dan  pelatihan  dalam sistem  e-learning . Pada awalnya multimedia hanya mencakup media yang menjadi konsumsi indra pen...
Baca selengkapnya