12.31
yulisriyadi
Private Sub Command1_Click()
panjang = Shape1.Width
For i = 0 To 10000
Shape1.Width = i / 10000 * panjang
Label5.Caption = "Proses " & i / 100000 * 100 & " %"
Next
Text1.Text = ((Combo1.ListIndex * 10) + Combo2.ListIndex) * 10 ^ Combo3.ListIndex
If Combo4.ListIndex = 0 Then Text2.Text = 0.05 * Val(Text1.Text)
If Combo4.ListIndex = 1 Then Text2.Text = 0.1 * Val(Text1.Text)
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
Kamis, 26 Mei 2011
Program Hitung Resistor
2 komentar:
pa'maaf waktu kemarin waktu mau mangasih hasil ulangn perbaikan ,bapa' nya sudah ga ada jadi saya sekarang menger jakan tugas nya!!!
nama :jaka
kelas :XI ti
tugas : perbaikan
1.1.email:untuk berkomunikasi lewat text
2.browsing:untukmencari informasi atau suatu website
3.chatting:untuk berkomunikasi secara lang sung dengan koneksi internet
2.(applet) dapat digunakan untuk memasukan atau menyisipkan suatu objek pada java epplet
3.actipex control suatu program/componen yang berbasis/atau terbuat dari c++,visual basic dll
4.upload adalah pasilitas untuk menyimpan suatu data atau objek kebrowser atau kesebuah website
5.google termasuk kedalam web dinamis karna nama didalam google dapat kita ubah dan kita juga dapat mencari suatu informasi didalam pencarian google
Posting Komentar