belajar visual basic

Private pilihan As String
Private x As Double
Private y As Double


Private Sub Command10_Click()
If x < 0 Then
Text1.Text = -x
x = -x
Else
Text1.Text = "-" & Text1.Text
x = -x
End If
End Sub

Private Sub c_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command11_Click()
If Text1.Text = "" Then
Text1.Text = "0."
Else
Text1.Text = Text1.Text & "."
End If
End Sub

Private Sub Command12_Click()
Unload Me
End Sub

Private Sub Command2_Click()
Text1.Text = ""
y = x = 0
tanda.Enabled = False
End Sub

Private Sub Command3_Click()
Text1.Text = x ^ 2
End Sub

Private Sub Command4_Click()
Text1.Text = ""
pilihan = "tambah"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Command5_Click()
Text1.Text = ""
pilihan = "bagi"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Command6_Click()
Text1.Text = ""
pilihan = "kurang"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Command7_Click()
Text1.Text = ""
pilihan = "kali"
y = x
x = 0
tanda.Enabled = False
End Sub

Private Sub Command8_Click()
If x < 0 Then
Text1.Text = "Angka Tidak Boleh Negatif Coy"
Else
Text1.Text = Sqr(x)
End If

End Sub

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
x = Text1.Text
tanda.Enabled = True
End Sub

Private Sub Command9_Click()
If pilihan = "tambah" Then
x = y + x
Text1.Text = x
ElseIf pilihan = "kurang" Then
x = y - x
Text1.Text = x
ElseIf pilihan = "kali" Then
x = y * x
Text1.Text = x
ElseIf pilihan = "bagi" And x <> 0 Then
x = y / x
Text1.Text = x
Else
Text1.Text = "Tidak Terdefinisi"
End If

End Sub

Private Sub Form_Load()
tanda.Enabled = False
End Sub

belajar DELPI

KETENTUAN SOAL:

     1.      Pilih kode kursus maka muncul materi dan biaya kursus

Kode kursus	Materi kursus	Biaya
BI001	Bahasa Inggris	350000
KMP02	Komputer	500000
MTK03	Matermatika	300000

     2.  pilih waktu kursus

    Jika waktu kursus yang dipilih adalah sore maka tambahan biaya 150000

    Jika waktu kursus yang dipilih pagi maka tidak ada tambahan biaya

     3.     Klik tombol hitung untuk menghitung total biaya

    Total biaya= biaya + biaya tambahan

     4.      Klik bersih maka form dalam keadaan bersih dan kursor berada pada no. kursus

     5.      Klik tombol close maka muncul pesan

Listing Program

procedure TForm1.ckodeChange(Sender: TObject);

begin

if ckode.ItemIndex=0 then

  begin

  txtmateri.Text:='Bahasa Ingris';

  txtbiaya.Text:='350000';

  end

else if ckode.ItemIndex=1 then

  begin

  txtmateri.Text:='Komputer';

  txtbiaya.Text:='500000';

  end

else

  begin

  txtmateri.Text:='Matematika';

  txtbiaya.Text:='300000';

  end;

end;

procedure TForm1.cmdhitungClick(Sender: TObject);

begin

if rsore.Checked=true then

  txttotal.Text:=inttostr(strtoint(txtbiaya.Text) + 150000)

else

  txttotal.Text:=inttostr(strtoint(txtbiaya.Text) + 0);

end;

procedure TForm1.cmdbersihClick(Sender: TObject);

begin

txtno.Text:='';

txtnama.Text:='';

txtmateri.Text:='';

txttotal.Text:='0';

txtbiaya.Text:='0';

ckode.Text:='==PILIH KODE==';

txtno.SetFocus;

end;

procedure TForm1.cmdcloseClick(Sender: TObject);

begin

if (Application.MessageBox('Yakin akan Keluar','info',MB_OKCANCEL+32)=idok) then

close;

end;

//apabila langsung dipilih waktu kursusnya tanpa ada tombol hitung

procedure TForm1.rpagiClick(Sender: TObject);

begin

txttotal.Text:=inttostr(strtoint(txtbiaya.Text) +0 )

end;

procedure TForm1.rsoreClick(Sender: TObject);

begin

txttotal.Text:=inttostr(strtoint(txtbiaya.Text) + 150000)

end;

end.

Kode kursus

Materi kursus

Biaya

BI001

Bahasa Inggris

350000

KMP02

Komputer

500000

MTK03

Matermatika

300000