Saudi's Weblog

Jumpa lagi kawan2…

Ayo kita bahas soal progkom Jum’at 13 Nopember 2009. Ini sy buat sebisaku ya..Langkah2-nya seperti ini.

1. Buat tampilan form1 seperti ini

komponen pada form1 di samping ini adalah : button 1, 2 dan 3..stringgrid1 dan2..label 1 sampe 4..openDialog..MainMenu..Image (cari sendiri ya letaknya)

2. Buat tampilan form2 seperti ini

komponen yang dipake : ListBox (pada object inspector lihat items, ketikkan region2-nya.

3. Format Data pada Notepad lihat saja di file yang didownload nanti.

4. Buat Program Open File Notepad

5. Buat Program Sorting Data

6. Buat Program Menghitung Mean Density, GDP dan Stdev Density, GDP

7. Buat Program Sorting Mean Density dan GDP sehingga diperoleh mean maks dan mean min dan region mana yang memperolehnya.

8. Niih tak kasih hasil kerjaanku, belum sesuai dg harapannya Pak Dwi, y bgitulah pokoknya jadi. hahahaha…download ini world95..

9. Kalo lihat ada yang aneh atau Luar Biasa dari tampilan, lihat object inspector masing-masing komponen, perhatikan apa yang beda..

10. Setelah Download world95 tadi, ubah paksa tipe file “.ppt” menjadi “.zip”… Sudah ya..gitu aja, maaf kalo bingung, cz q juga bingung..kalo ada waktu sy tak ngobrol sama Pak Dwi ttg Kulyah qt, Insya Allah…

Oiya lupa…yang matriks varian kovarian tu kayaknya g bisa dibuat, kan jumlah datanya harus sama…iy ndak c???

Yang satu ini adalah hasil dari bantuan seorang programmer untuk membuat program menampilkan isi notepad ke stringgrid pada Delphi. Catatan untuk program ini, notepad harus diletakkan dalam satu folder dimana program kita berada.

Jika ingin mencoba, buatlah form seperti pada sebelumnya, beriku ini adalah syntax untuk Open File noteepad.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
sg2: TStringGrid;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
sx, sy : TStringList;
i, j: integer;
x: array [0..3, 0..3] of string;

begin
sx:=TStringList.Create;
sx.LoadFromFile(ExtractFilePath(Paramstr(0))+’matriks.txt’);
for i:=0 to sx.Count-1 do
begin
sy:=TStringList.Create;
sy.Text:= StringReplace(sx[i], ‘ ‘, #13#10,[rfReplaceAll]);
for  j:= 0 to sy.Count-1 do
begin
x[i][j]:=trim(sy[j]);
end;
sy.Free;
end;
sx.Free;
for i:=0 to 3 do
begin
for j:=0 to 3 do
begin
sg2.Cells[i+1,j+1]:=x[j, i];
end;
end;
end;

end.

Selamat Mencoba…

Posting yang ini lanjutan dari sorting tanpa open notepad. Sayangnya notepad yang dapat di baca dari Delphi masih angka, sedangkan untuk membaca string pada notepad masih belum bisa.

Dengan program ini, kita tidak perlu menamakan notepad sesuai dengan syntak dan notepad tidak perlu dilteakkan dalam folder Delphi. Tambahan komponen untuk open file adalah Open Dialog, letaknya yaitu pada bagian atas Delphi seperti biasanya, ada tombol panah arah kanan, klik dan carilah menu Dialogs. kemudian pilihlah Open Dialog.

Pilih Open Dialog dan letakkan di form, kemudian klik Open Dialog tersebut dan lihatlah pada Properties di Object Inspector. Pilih Filter, klik kotak … hingga muncul kotak File Editor. Isikan tipe file notepad yaitu *.txt pada keda sisi. Kemudian Klik OK!

Gunakan 2 Button pada program kali ini, Button 1 untuk open notepad dan Button 2 untuk proses sorting. Pada Button 1 klik 2 kali dan tambahkan syntak sebagai berikut.

procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
x: array[0..3,0..3]of integer;   i,j,b:integer;

begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
b:=0;
while not eof(f) do
begin
while not eoln(f) do
begin
b:=b+1;
for i:=1 to 3 do
begin
read(f,x[i,b]);
end;
end;
Readln(f);
for j:=2 to 4 do
begin
for i:=1 to 3 do
begin
sg2.Cells[j,i]:=inttostr(x[j-1,i]);
end;
end;
end;
end;
end;

Untuk Button 2, syntak sama dengan syntak sorting tanpa open notepad. Sekian dan selamat mencoba…

Maaf baru bisa upload, ini juga masih yang tanpa open notepad. Tapi saran saya jika belum bisa yang open notepad, buat saja yang ini. Ini sudah cukup untuk bermain-main dengan logika. kalo open notepad bukan hanya masalah logika tapi juga ada istilah khusus yang digunakan.

Langsung saja temen-temen bisa download file MENCARI NILAI MAKS MIN 1. Maunya langsung upload sekalian file delphinya tapi gak bisa. Jadi wordnya saja ya..

Teman-teman ProgKom, ayo sekarang kita belajar pakai checkBox-nya delphi.

Statistik deskriptif yang dipakai masih mean varians dan standard deviasi. Statistik yang lain silahkan ditambahkan sendiri ya!!.

Kalo ada yang tidak mengerti silahkan ditanyakan. Akan kami coba jawab sebisanya.

Silahkan download word-nya MENGHITUNG MEAN,varians,stDev. Jangan lupa isi comment-nya!! (n_n)

Untuk Windows Xp, selain XP tanyakan sama yang bisa aja ya..

1. Extract file Zip menjadi folder ‘Delphi 7′

2. Cari file install atau pada folder ‘install’ cari file setup > klik

3. Klik next terus seperti biasanya, jika sampai pada ‘use visi broker’    hilangkan centangnya.

4. Jika minta Serial Number bisa dilihat di folder keygen, masukkan Serial Numbernya yang ada di situ.

5. Selesai

Menghitung Matriks Varian Kovarian

Rumus Varians & Rumus Kovarians :

Diagonal utama matriks varian kovarians adalah varians dari masing-masing kolom. Selain itu adalah Kovarians. Sintaxnya silahkan download Matriks Vaians kovarians …. Jangan Lupa Comment-nya diisi ya..