Program Hitung Resistor

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

Read more »

Tugas Tabel Alamat Web

Buatlah sebuah halamat Web berupa tabel  yang terdiri dari 4 kolom sebagai berikut :
1. No
2. Nama
3. Kelas
4. Alamat Web

Berikan hyperlink pada seluruh nama yang mengarah pada alamat web masing-masing.

Selamat Bekerja !

Read more »

Posted in: Tugas

Tugas Email dan Copy Carbon

Buatlah sebuah e-mail dikirimkan ke y_riyadi@yahoo.com  dengan subjek Copy Carbon kemudian di CC(copy carbon) ke 2 teman kalian ...
Serta tuliskan alamat e-mail kalian di halaman ini.

Read more »