PENJUMLAHAN TANPA KEYPRESS TUGAS 3

-

Private Sub Cmdhitung_Click()
Txtjumlah = Val(Txtnilai1) + Val(Txtnilai2) + Val(Txtnilai3)
End Sub

Private Sub Cmdbatal_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txtnilai3 = ""
Txtjumlah = ""
Txtnilai1.SetFocus
End Sub

Komentar

Posting Komentar

Semoga bermanfaat

Postingan populer dari blog ini

TUGAS 2 PROGRAM 2 BP1

-
Gambar
Private Sub cmdbatal_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnpm = "" txtnama = "" txtalamat = "" txtnpm.SetFocus End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub
Baca selengkapnya

Teknologi Terbaru Mungkinkan untuk Bernapas dalam Air tanpa Menggunakan Tabung Udara

-
Gambar
Sebuah teknologi terbaru memungkikan penyelam untuk bisa melakukan aktivitasnya tanpa membawa tabung udara yang cukup memberatkan. Sebagai gantinya, mereka bisa menggunakan sebuah bahan kristalin yang secara khusus telah disintesis sehingga bisa menyerap dan menyimpan oksigen dalam konsentrasi tinggi.  Kristalin tersebut berhasil ditemukan oleh para peneliti dari University of Southern Denmark. Teknologi tersebut mereka temukan dengan menggunakan bahan cobalt sebagai komponen utama. Professor Christine McKenzie dari University of Southern Denmark mengatakan kalau material kristalin tersebut berfungsi sebagai sensor sekaligus tempat untuk menyimpan oksigen.  Penggunaan teknologi ini pun bakal memberikan waktu menyelam yang lebih lama kepada para diver. Hal ini karena material tersebut dapat pula diatur untuk bisa menyerap oksigen secara langsung dari air. Untuk membuat material tersebut bisa mengeluarkan oksigen yang disimpannya, para peneliti menggunakan panas se...
Baca selengkapnya