Source Code: Programing

Tampilkan postingan dengan label Programing. Tampilkan semua postingan

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 » 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.

SCREENSHOOT

Grade A

Grade B

Grade C

Grade D

Grade E

Writen Unknown 0 komentar » Posted in Programing

Script Code Fungsi Logika IF(2)

Setelah pembuatan Latihan Untuk yang Pertama, sekarang kita lanjut untuk latihan saya yang keduaa. Tidak jauh berbeda dengan Latihan Pertama, Script kali ini hampir sama cuma ada penambahan sedikit .... yuk mari kita lihat sama-sama.

Flowcart

1. Begin

2. Masukkan Nilai = A

3. Jika Nilai > 70 maka dinyatakan LULUS dan DITERIMA

4. Jika tidak maka dinyatakan TIDAK LULUS

5. Cetak Penyataan

6. End.

SCRIPT

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
nilai : integer;
ket1, ket2 : string;
begin
write('Masukkan Nilai: ');readln(nilai);
If nilai > 70 then
begin
ket1:='LULUS';
ket2:='ANDA DITERIMA'
end else
begin
ket1:='TIDAK LULUS';
ket2:='SILAKAN COBA LAGI';
end;
write('Hasil = ');writeln(ket1);
write('Keterangan = ');write(ket2);
readln;
end.

SCREENSHOOT


Jika Nilai diatas 70

Jika Nhlai dibawah 70

Writen Unknown 0 komentar » Posted in Programing

Script Code Fungsi Logika IF(1)

Percobaan Pertama, Latihan Pertama dalam pembuatan program di Delphi dalam Bentuk Aplikasi Console/Text Mode, mari langsung saja di lihat langkah demi langkahnya ....

Script Logika IF untuk Nilai Ujian .....

Flowcart
1. Begin
2. Masukkan Nilai : A
3. Jika Nilai A > 60 maka dinyatakan "LULUS"
4. Jika Tidak maka dinyatakan "TIDAK LULUS"
5. End.

SCRIPT :

program Project2;

uses

SysUtils;

var

nilai : integer;

begin

write('Masukkan Nilai = ');readln(nilai);

if nilai > 60 then

write('LULUS')

else

write('TIDAK LULUS');

readln;

end.

SCREENSHOOT

Jika Nilai Lebih Besar dari 60

Jika Nilai Lebih Kecil dari 60