Flowchart adalah gambaran dalam bentuk diagram alir dari algoritma-algoritma dalam suatu program yang menyatakan arah alur program tersebut.
Contoh :
Menentukan bilangan genap dan ganjil.
procedure TForm1.ProsesClick(SenderTObject);var
a : integer;
begin
a:=strtoint(edit1.text);
if a mod 2 = 0 then
Edit2.text:='Genap'
else
Edit2.text:='Ganjil';end;
procedure TForm1.UlangClick(Sender: TObject);
begin
edit1.clear; edit2.clear; edit1.setfocus;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
Private Sub Command1_Click()
Dim a As Integer
a = CInt(Text1.Text)
If a Mod 2 = 0 Then
Text2.Text = "Genap"
Else
Text2.Text = "Ganjil"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
End Sub
(google.com & pelajaran perkuliahan)
(google.com & pelajaran perkuliahan)
No comments:
Post a Comment