Source Code

Selasa, 11 Juni 2013 Writen Unknown 0 komentar » Posted in Programing

Program Sederhana Menghitung Jumlah Tahun Kabisat di Delphi / GUI

Tugas Ujian Semester Akhir pada semester II di STMIK Yadika Bangil

Ini adalah Program menghitung jumlah tahun kabisat, petunjuk jika angka tersebut (data
yang diimputkan) habis dibagi 4 maka tambahkan 1 pada variabel penambung data kabisat.

Berikut adalah langkah-langkahnya.

Desains Utama Program

Object View

Koding Program

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,a,t:integer;
tahun:array[1..10] of string;
s:string;
begin
s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','');
t:=0;
for i:=1 to strtoint(s) do
begin
tahun[i]:=inputbox('Tahun Ke : '+inttostr(i),'Masukkan Tahun','');
ListBox1.Items.Add(tahun[i]);
edit1.Text:=inttostr(ListBox1.Items.Count);
a:=strtoint(tahun[i]);
if a mod 4=0
then t:=t+1
else t:=t+0;
edit2.Text:=inttostr(t);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;

end.

Running Program

Masukkan Jumlah Tahun yang di Input

Masukkan Tahun yang akan di proses

Hasil Proses

Oke itu tadi adalah program Menghitung Jumlah Tahun Kabisat di Delphi, semoga apa yang sudah saya posting ini bermanfaat.. Amin Amin

Nama : Mizan Sya' Roni (2B) NIM | 112222062 [STMIK YADIKA BANGIL]

Kamis, 25 April 2013 Writen Unknown 0 komentar »

UTS Semester Genap - Bilangan Berpangkat (Latihan3)

Source Code

unit Latihan3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

   procedure pangkat1(p,l:string);

   function pangkat2(p,l:string):string;

   function pangkat3(m,n:integer):integer;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,i,c:integer;

begin

i:=1;

c:=1;

a:=strtoint(edit2.Text);

b:=strtoint(edit1.Text);

while i<=a do

begin

c:=c*b;

i:=i+1;

end;

edit3.Text:=inttostr(c);

end;

procedure TForm1.pangkat1(p,l:string);

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

while i<=a do

begin

c:=c*b;

i:=i+1;

end;

edit3.Text:=inttostr(c);

end;

function TForm1.pangkat2(p,l:string):string;

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

a:=strtoint(p);

b:=strtoint(l);

while i<= a do

begin

c:=c*b;

i:=i+1;

end;

pangkat2 := inttostr(c);

end;

function TForm1.pangkat3(m,n:integer):integer;

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

while i<= n do

begin

c:=c*m;

i:=i+1;

end;

pangkat3 := c;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

pangkat1(edit2.Text,edit1.Text);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

edit3.Text:=pangkat2(edit2.Text,edit1.Text);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

A,B,C:INTEGER;

begin

A:=STRTOINT(EDIT1.Text);

B:=STRTOINT(EDIT2.Text);

C:=pangkat3(A,B);

EDIT3.TEXT:=INTTOSTR(C);

end;

end.

Writen Unknown 0 komentar »

UTS Semester Genap - For To Do (Latihan2)

Souce Code

unit Latiahan2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button5: TButton;
Button6: TButton;
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;b:string;
begin
b:='';j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+'';
j:=j+2;
end;
label1.Caption:=b;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;b:string;
begin
b:='';j:=2;
for i:=10 downto 10 do
begin
b:=b+inttostr(i)+'';
j:=j+2;
end;
label2.Caption:=b;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;b:string;
begin
i:=1;
b:='';
while i<=10 do
begin
b:=b+inttostr(i)+'';
i:=i+2;
end;
label3.Caption:=b;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;b:string;
begin
i:=1;
b:='';
repeat
b:=b+inttostr(j)+'';
i:=i+1;
until i>10;
label4.Caption:=b;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
bil,hasil,pangkat,a:integer;
begin
bil:=strtoint(edit1.Text);
hasil:=bil;
pangkat:=strtoint(edit2.Text);
if edit2.Text='0' then edit3.Text:='1' else
if edit2.Text='1' then edit3.Text:=edit1.text
else
begin
for a:=2 to pangkat do
hasil:=hasil*bil;

edit3.Text:=inttostr(hasil);
end;
end;

end.

Hasil Project

Writen Unknown 0 komentar » Posted in Programing

UTS Semester Genap - Gaji Pokok (Latihan1)

Source Code

unit Latihan1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Edit1: TEdit;
tGaji: TEdit;
tGol: TEdit;
total: TLabel;
Tunj: TLabel;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
gaji,tot,tunjang:integer;
begin
gaji:=StrToInt(tGaji.Text);
if tGol.Text ='A' then tunjang:=10000;
if tGol.Text ='B' then tunjang:=20000;
if tGol.Text ='C' then tunjang:=30000;
tunj.Caption := IntToStr(Tunjang);
tot:=Tunjang-Gaji;
Total.Caption := IntToStr(Tot);
end;
end.

Hasil Proses

Kamis, 18 Oktober 2012 Writen Unknown 0 komentar » Posted in Programing

Source Code Repeat .... Until

SCRIPT CODE - REPEAT UNTIL

SCRIPT CODE

program CobaRepeatUntil;
uses
Windows, SysUtils;

{$R *.res}
{$APPTYPE CONSOLE}
var
luas, keliling, diameter: real;
pilihan: char;
begin
writeln('Menghitung Luas dan Keliling Lingkaran');
writeln('===============================');
repeat
write('Diameter = '); readln(diameter);
luas:= 1/4*(22/7)*(diameter*diameter);
keliling:= pi*diameter;
writeln('Luas lingkaran : ', luas:5:2);
writeln('Keliling lingkaran : ', keliling:5:2);
write('Anda ingin menghitung lagi [Y/T] : '); readln(pilihan);
until (pilihan = 't') or (pilihan = 'T');
end.

SREENSHOOT

JIKA PILIH 'Y'

JIKA PILIH 'T'

Rabu, 17 Oktober 2012 Writen Unknown 0 komentar » Posted in Programing

Source Code - Case Of

CODE : CASE OF

Dulu saya pernah posting program tentang penentuan nilai grade dan keterangan dengan menggunakan Logika IF pada Latihan 3, dan pada postingan kali ini saya akan mengubah suatu program nilai grade tersebut yang sebelumnya menggunakan fungsi Logika IF dengan program yang sama tapi menggunakan fungsi Case - Of, okeh langsung saja kita mulai

Flowchart

1. Begin

2. Masukkan Nilai : A

3. Jika Nilai A = 0 - 25 maka mendapat predikat 'E' Jika Tidak

4. Jika Nilai A = 26 - 55 maka mendapat predikat 'D' Jika Tidak

5. Jika Nilai A = 56 - 70 maka mendapat predikat 'C' Jika Tidak

6. Jika Nilai A = 76 - 85 maka mendapat predikat 'B' Jika Tidak

7. Jika Tidak Nilai A mendapat predikat A

8. Cetak Predikat Nilai

9. End.

CODE SCRIPT :

program Project5;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
nilai : integer;
ket1, grade : string;
begin
write ('Masukkan Nilai = ');readln(nilai);
Case nilai of

0 .. 25 : begin
grade:='E';
ket1:='TIDAK LULUS';
end;

26 .. 55 : begin
grade:='D';
ket1:='MENGULANG';
end;

56 .. 70 : begin
grade:='C' ;
ket1:='CUKUP';
end;

71 .. 85 : begin
grade:='B';
ket1:='BAIK';
end;
else
grade:='A';
ket1:='SANGAT BAIK';

end;
writeln ('Grade = ',grade);
write ('Keterangan = ',ket1);
readln;
end.

SCREENSHOOT

IF GRADE = A

IF GRADE = B

IF GRADE = C

IF GRADE = D

IF GRADE = E

Tutorial Delphi yang lain :
1. Logika IF (1)
2. Logika IF (2)
3. Logika IF (3)

Terima Kasih atas kunjungannya, SEMOGA BERMANFAAT tutorial tentang fungsi Case of ini, Good Luck !!
Jika tutorial ini bermanfaat silahkan beri +1 Google ya, karena +1 kamu sangat berarti sekali untuk situs kami ini. Terimakasih :)

Souce Code Fungsi Logika IF (3)

Dasar dari Script Logika IF sudah saya terapkan pada Latihan 1 dan Latihan 2, sekarang saya akan membuat Program Nilai ujian disertai dengan Nilai Grade dalam artian kita akan mendapatkan predikat nilai A, B, C, D dan E sesuai nilai yang kita dapatkan !!

Flowchart

1. Begin

2. Masukkan Nilai : A

3. Jika Nilai A > 85 maka mendapat predikat A Jika Tidak

4. Jika Nilai A > 75 maka mendapat predikat B Jika Tidak

5. Jika Nilai A > 65 maka mendapat predikat C Jika Tidak

6. Jika Nilai A > 55 maka mendapat predikat D Jika Tidak

7. Jika Tidak Nilai A mendapat predikat E

8. Cetak Predikat Nilai

9. End.

SCRIPT

program Project3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

nilai : integer;

grade : string;

begin

write ('Massukkan Nilai : ');readln(nilai);

begin

if nilai > 85 then

grade:='A' else

if nilai > 75 then

grade:='B' else

if nilai > 65 then

grade:='C' else

if nilai > 55 then

grade:='D' else

grade:='E'

end;

write('Nilai Anda Adalah : ');writeln(nilai);

write('Masuk Kategori : ');Write(grade);

readln;

end.