TUGAS 1


 TUGAS 1.1 DATA MAHASISWA


 Private Sub Command1_Click()
Text1.SetFocus
Text1 = ""           
Text2 = ""
Text3 = ""

End Sub

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


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

End Sub

TUGAS 1.2 (PERKALIAN 2 BILANGAN)




Private Sub Cmdhitung_click()
n3 = Val(n1) * Val(n2)


End Sub

Private Sub Cmd2keluar_Click()
End

End Sub

Private Sub Cmdbersih_Click()
n1 = ""
n2 = ""
n3 = ""

End Sub

Private Sub n1_Change()
If KeyAscii = 13 Then
n3.SetFocus
End If

End Sub

Private Sub Text2_Change()
If KeyAscii = 13 Then
n3.SetFocus
End If

End Sub

TUGAS 1.3. PERKALIAN 2 BILANGAN + KEYPRESS



Private Sub cmdhitung_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdbersih_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Text1_Change()
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3 = Val(Text1) * Val(Text2)
End If
End Sub

TUGAS 1.4 PERHITUNGAN KALKULATOR



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

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Text1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text2_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text8.SetFocus
End If
End Sub

Private Sub Text3_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text4_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text6.SetFocus
End If
End Sub

TUGAS 1.5 PERHITUNGAN KALKULATOR + PEYPRESS





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

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Text1_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text2_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text8.SetFocus
End If
End Sub

Private Sub Text3_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text7.SetFocus
End If

End Sub

Private Sub Text4_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text5_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text9 = Val(Text1) + Val(Text2)
End If
End Sub

Private Sub Text6_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text10 = Val(Text4) * Val(Text6)
End If
End Sub

Private Sub Text7_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text11 = Val(Text3) - Val(Text7)
End If
End Sub

Private Sub Text8_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Text12 = Val(Text2) / Val(Text8)
End If
End Sub


Komentar

Posting Komentar

Postingan populer dari blog ini

Looping Dan contoh dalam aplikasi java

                                         LOOPING (PERULANGAN) ~Looping jika jabarkan lagi berasal dari kata Loop, artinya lingkaran. Lingkaran memiliki ciri melingkar yang memiliki arti kembali lagi, mengulang. ~Looping artinya Perulangan, dari arti ini kita dapat mengamil point awal yaitu looping adalah perulangan. Perulangan seperti apa? Jadi,Looping adalah Suatu intruksi untuk membentuk aksi kerja secara berulang pada blok yang sama, dimana didalam blok yang akan diulang ada terdapat statement atau pernyataan. Contoh looping dalam pengaplikasian Java 1.      Buatlah program untuk menerima input bilangan bulat positif n dan menampilkan n bilangan bulat positif pertama yang habis dibagi 3 tetapi tidak habis dibagi 2. Contoh : Input = 5 Output = 3 9 15 21 27 Jawab : import java.util.Scanner; /**  * @author user  */ public class s {  /...
Baca selengkapnya

CONTOH TEKNOLOGI INFORMASI

CONTOH TEKNOLOGI INFORMASI Teknologi informasi tak selalu berupa barang-barang elektronik, bisa juga berupa barang yang tak membutuhkan energi listrik namun tetap bisa menjalankan fungsinya untuk menyampaikan pesan kepada orang lain. Media cetak biasanya hanya menyampaikan pesan berupa tulisan dan gambar. 1.    Media Cetak Contoh teknologi informasi yang pastinya sudah sangat dikenal banyak orang adalah media cetak. Media ini termasuk teknologi informasi karena memiliki fungsi untuk membuat, mengubah, menyimpan, atau menyebarkanpesan kepada banyak orang.   *      Surat kabar. Surat kabar atau koran adalah media cetak yang sampai saat ini masih diminati banyak orang sekalipun informasi bisa didapat dengan mudah lewat media elektronik. Surat kabar berisi beragam pesan atau berita yang bisa dibaca oleh siapa saja, mulai dari politik, ekonomi, hingga berita hiburan. *     Majalah. Majalah adalah salah satu teknologi informasi yang tergolong ke d...
Baca selengkapnya