Pengantar Visual Basic

Soal Latihan

Mencari Luas segi tiga

Kode Program

Private Sub CmdProses_Click()

lblOutput.Caption = Val(Text1.Text) * Val(Text2.Text)

End Sub

Soal Latihan

Menentukan Bentuk

Kode Program

Private Sub CmdPutus_Click()

ShpBentuk.BorderStyle = 2

End Sub

Private Sub CmdBersambung_Click()

ShpBentuk.BorderStyle = 3

End Sub

Soal Latihan

Konversi Satuan Ukuran

 

Kode Program

Dim inch, kaki, yard As Double

Dim cm As Double

Private Sub CmdExit_Click()

End

End Sub

Private Sub Form_Load()

  inch = 2.54

  kaki = 30.48

  yard = 91.44

End Sub

Private Sub OpsInch_Click()

 TxtHasil.Text = inch * cm

End Sub

Private Sub OpsKaki_Click()

 TxtHasil.Text = kaki * cm

End Sub

Private Sub OpsYard_Click()

 TxtHasil.Text = yard * cm

End Sub

Private Sub TxtCm_LostFocus()

 cm = Val(TxtCm.Text)

End Sub