Life With Tian

Disini penulis menggunakan Media VIDEO , tujuannya agar lebih mudah dalam mengingat dan memahami apa yang di jelaskan   Salam Sahabat,

Objek Caption Label 1 Masukkan nama anda Label 2 Masukkan tahun Label 3 Umur anda Frame 1 Frame 1 Frame 2 Frame 2 Frame 3 Frame 3 Text1 Text1 Text2 Text2 Text3 Text3 Command 1 Hitung Command 2 Selesai Command 3 Bersih Coding : Private Sub Command1_Click() Text3.Text = 2013 - Val(Text2.Text) End Sub Private Sub Command2_Click() p = MsgBox("Maturnuwun", vbYesNo + vbQuestion, "warning") If p = vbYes Then End End If End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub   Salam Sahabat,

  Objek Caption Label 1 Nilai Ujian 1 Label 2 Nilai Ujian 2 Label 3 Rata-Rata Label 4 Keterangan Frame 1 Frame 1 Text 1 Text 1 Text 2 Text 2 Text 3 Text 3 Text 4 Text 4 Command 1 Hitung Command 2 Delete Coding : Private Sub Command1_Click() Text3.Text = Val(Text1.Text) / 2 + Val(Text2.Text) / 2 If Text3.Text >= 70 Then Text4.Text = "berhasil" Else Text4.Text = "gagal" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub   Salam Sahabat,