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.

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

laporan praktikum pertemuan 3

By:Marta Nelly.Simangunsong
    Saya ingin membuat sebuah laporan mengenai  lingkungan database.sewaktu presentasi kelompok2 & kelompok 3 q tidak mendapat inti dari presentasi tersebut . bu gman ya supaya smua mahasiswa ATB khususnya semester2 mengetahui lebih dalam mengenai database tersebut.sewaktu dilab q mgerti pha yg dbilang Miss.tp kok cepat skali sih Miss menjelaskan.saya ingin sekali memahami pha tu database?????? .Bu q ngak ngerti tentang makalah u tentang bagaimana menjelaskannya.sebab q belum pernh belajar database.bukan hanya database melainkan belajar komputer pun belum pernh sebab dkmpung kami blm dha komputer baru nh lah q mengenal komputer sejak masuk sebagai mahasiswi 

praktikum database pertemuan kedua

by: marta nelly simangunsong
sebelumnya aq...tak mengerti pa.,, tuh database ... setelah aq pelajari ternyata database itu mrpkn bahasa pemograman/ tempat penyimpanan data yg dmn yang satu berhubungan satu sama lain,
aq suka cara ngajar miss sundari retno karna selain ibu tuh.. pintar bu tuh.,, jga mengajarkan qta tuk blljr mandiri aq sangat senang dgn gaya ibu tuh.. mengajar is the best for you...,,,,
 peljaran database yang aq pelajari waktu di lab
       contoh printah dri ddl:
                                   create
cretae database perpustakaan(: tuk mmbuat sebuah perpustakaan
use perpustakaan :'' dingunakan tu kembali ke perpustakaan
printah tuk membuat tabel
create tabel penerbit(
kd_penerbit char (20),
alamat_penerbit varchar(35),
no_tlp_penerbit varchar(35))
                  demikian laporan mengenai praktiku database yg.,..aq alami slm praktek

martanelly

martanelly................