Kamis, 14 April 2011

MEMBUAT PROGRAM

unit UProgramNilai;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
Tfrmprogramnilai = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
edtnim: TEdit;
Shape1: TShape;
edtnama: TEdit;
cbokelas: TComboBox;
cbomatakuliah: TComboBox;
Shape2: TShape;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;a
Label8: TLabel;
Label9: TLabel;
edtnilaiabsen: TEdit;
edtnilaitugas: TEdit;
edtnilaikuis: TEdit;
edtnilaiuts: TEdit;
edtnilaiuas: TEdit;
Label10: TLabel;
Shape3: TShape;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
edtnilaiakhir: TEdit;
edtnilaihuruf: TEdit;
edtpredikat: TEdit;
edtketerangan: TEdit;
Shape4: TShape;
Shape5: TShape;
new: TBitBtn;
proses: TBitBtn;
exit: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure exitClick(Sender: TObject);
procedure newClick(Sender: TObject);
procedure prosesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmprogramnilai: Tfrmprogramnilai;

implementation

{$R *.dfm}

procedure Tfrmprogramnilai.FormCreate(Sender: TObject);
begin
cbokelas.Items.Add('mik 10-01');
cbokelas.Items.Add('mik 10-02');
cbokelas.Items.Add('mik 10-03');
cbokelas.Items.Add('mik 10-04');
cbokelas.Items.Add('mik 10-05');
cbokelas.Items.Add('mik 10-06');
cbokelas.Items.Add('mik 10-07');
cbokelas.Items.Add('mik 10-08');
cbokelas.Items.Add('mik 10-09');
cbokelas.Items.Add('mik 10-10');
cbokelas.Items.Add('mik 10-11');
cbokelas.Items.Add('mik 10-12');
cbokelas.Items.Add('mik 10-13');
cbokelas.Items.Add('mik 10-14');
cbokelas.Items.Add('mik 10-15');
cbokelas.Items.Add('mik 10-16');
cbokelas.Items.Add('mik 10-17');
cbokelas.Items.Add('mik 10-18');
cbokelas.Items.Add('mik 10-18');
cbokelas.Items.Add('mik 10-19');
cbokelas.Items.Add('mik 10-20');
cbokelas.Items.Add('mik 10-21');
cbokelas.Items.Add('mik 10-22');


end;

procedure Tfrmprogramnilai.exitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmprogramnilai.newClick(Sender: TObject);
begin
edtnim.Text:=' ';
edtnama.Text:=' ';
cbokelas.Text:=' ';
cbomatakuliah.Text:='0 ';
edtnilaiabsen.Text:='0 ';
edtnilaitugas.Text:='0';
edtnilaikuis.Text:='0';
edtnilaiuts.Text:='0';
edtnilaiuas.Text:='0';
edtnilaiakhir.Text:='0';
edtnilaihuruf.Text:='0';
edtpredikat.Text:='0';
edtketerangan.Text:='0';


end;

procedure Tfrmprogramnilai.prosesClick(Sender: TObject);

var
A,B,C,D,E:Integer;
f:Real;
g,h,i,j:String;
begin
a:=strtoint(edtnilaiabsen.Text);
b:=StrToInt(edtnilaitugas.Text);
c:=StrToInt(edtnilaikuis.Text);
d:=StrToInt(edtnilaiuts.Text);
e:=StrToInt(edtnilaiuas.Text);
f:=0.1*a+0.2*b+0.1*c+0.25*d+0.25*e;
if(f>=80and(f<=100)then begin g:='A'; h:='sangat memuaskan'; i:='lulus'; end; else if(f>=70 and (f<=79)then begin g:='b'; h:='memuaskan'; i:='lulus'; end; else if(f>=60 and (f<=69)then begin g:='c'; h:='cukup memuaskan'; i:='lulus'; end; else if(f>=50 and (f<=59)then begin g:='d'; h:='kurang memuaskan'; i:='gagal'; end; else if(f>=80 and (f<=100)then begin g:='e'; h:='sangat kurang memuaskan'; i:='gagal'; end; edtnilaiakhir.Text:=floattostr(f); edtnilaihuruf.Text:=g; edtpredikat.Text:=h; edtketerangan.Text:=i; if (a=0)or(b=0)or(c=0)or(d=0)or(e=0) then j:='anda harus mengikuti UPN' else if (a<>0)or(b<>0)or(c<>0)or(d<>0)or(e<>0)
then j:='anda harus mengikuti HER'
mpesan.text:=j;
end;

end.

Senin, 11 April 2011

Laporan Praktikum Database Pertemuan(4)

By:Marta Nelly Simangunsong
   
   Ok,malam nhi sya mau buat laporan praktikum database pertemuan empat(4) yang dicatat pd hari selasa minggu lalu........................
Saya akan memulainya  ckrng:

  CREATE DATABASE SEKOLAH
  Create table siswa(
  Nim char(10),
  Nama varchar(25),
  Jenis_ kelamin char (1))

SELECT*FROM SISWA
Alter table siswa add agama varchar(20)
Insert into siswa values('00002','Gina','P','Kristen')
Insert into siswa values('00004','Nino','L',Islam')
Insert into siswa values('00006','Nina','P','Budha')
  Miss.aq hanya tahu bagian char & varchar lain dari situ aq krg pahami,jd Miss maklum ja ya sama aq.
Sekian & termakasih............................................