y091herl4mb4ng.files.wordpress.com€¦ · Web viewtugas individu . visual basic yahoo i. sekolah...
Transcript of y091herl4mb4ng.files.wordpress.com€¦ · Web viewtugas individu . visual basic yahoo i. sekolah...
TUGAS INDIVIDU
VISUAL BASIC YAHOO I
SEKOLAH TINGGI
MANAJEMEN INFORMATIKA DAN KOMPUTER
PRINGSEWU
2011/ 2012
TUGAS INDIVIDU
VISUAL BASIC SEMESTER GENAP
STMIK PRINGSEWU
NAMA : YOGI HERLAMBANG
NPM : 11100021
KELAS : YAHOO I
1. MENGHITUNG KELILING KUBUS
Tool yang digunakan :
Tool Label Tool Textbox Tool Command Button
Rumus :
Private Sub Command1_Click()
Txtsisi.Text = ""
Txtkeliling.Text = ""
Txtsisi.SetFocus
End Sub
Private Sub Command2_Click()
Txtkeliling.Text = 4 * Val(Txtsisi)
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Txtsisi_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtkeliling.SetFocus
End If
End Sub
2. MENGHITUNG KELILING PERSEGI PANJANG
Tool yang digunakan :
Tool Label Tool Textbox Tool Command Button
Rumus :
Private Sub Command1_Click()
Txtkeliling.Text = 2 * Val(Txtpanjang + Txtlebar)
End Sub
Private Sub Command2_Click()
Txtpanjang.Text = ""
Txtlebar.Text = ""
Txtkeliling.Text = ""
Txtpanjang.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Txtlebar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtkeliling.SetFocus
End If
End Sub
Private Sub Txtpanjang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtlebar.SetFocus
End If
End Sub