LAPORAN
AKHIR PRAKTIKUM
(Delphi
dan Visual Basic)
NPM :
2C114121
Kelas :
1KB06
Materi Praktikum :
Delphi dan Visual Basic
Tanggal Praktikum : 31 Desember 2014
Asisten Baris :
Ketua Asisten : Valdi
Paraf Asisten
(..............................................)
UNIVERSITAS
GUNADARMA
LABORATORIUM
SISTEM INFORMASI
2014/2015
Perulangan Pada Delphi
1.
Langkah Pertama Bukalah Aplikasi
Delphi 7
2.
Langkah ke dua Buatlah Form ,1 Combo Box,2
Label, 1 Edit Text,1 Button,1 Memo Seperti Gambar Di bawah Ini
3. Masukan Source Code pada button
Proses
procedure TForm1.Button1Click(Sender:
TObject);
var a,b : integer;
begin
a :=
strtoint(edit1.Text);
b :=
combobox1.itemindex;
case b of
1 : begin
memo1.clear;
while a < 10 do
begin
memo1.lines.append(inttostr(a));
inc(a);
end;
end;
2 : begin
memo1.clear;
for a := strtoint(edit1.Text)
downto 1 do
begin
memo1.lines.append(inttostr(a));
end;
end;
3 : begin
memo1.clear;
repeat
memo1.lines.append(inttostr(a));
dec(a);
until a = 0;
end;
4 : begin
memo1.clear;
repeat
memo1.lines.Append(inttostr(a));
inc(a);
until a = 10;
end;
end;
end;
end.
4.
Langkah selanjutnya adalah
jalankan Program Delphi
5. Buka aplikasi Visual Basic yang sudah ada pada
laptop atau notebook anda
6. Berikut ini dalah tampilan awal dari Visual
Basic
7.
Buatlah Form, 8 Label, 6Text Box,
1 Frame, 1 command Button Dan Ganti Caption pada Label 1
8. Masukan source code pada
Command Button Proses
Private Sub Command1_Click()
Dim a, b, c, d, e As Integer
a = Val(Text2.Text)
b = Val(Text3.Text)
c = Val(Text4.Text)
d = Val(Text5.Text)
e = a + b + c + d
Label7.Caption = e / 4
If Label7.Caption > 90 Then
Label9.Caption = "nilai A"
Else
If Label7.Caption > 80 Then
Label9.Caption = "nilai B"
Else
If Label7.Caption > 70 Then
Label9.Caption = "nilai C"
Else
If Label7.Caption > 60 Then
Label9.Caption = "nilai D"
Else
Label9.Caption = "nilai E"
End If
End If
End If
End If
End Sub
9. Langkah selanjutnya yaitu jalankan
Program Nilai Rata - Rata
No comments:
Post a Comment