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

NEW DELHI, KOMPAS.com — Dilahirkan sebagai anak kembar membuat Ganga dan Jamuna Mondal saling mendukung satu sama lain, apalagi kondisi tubuh mereka tidak seperti bayi kembar lain yang terlahir normal.

Ya, takdir berbicara lain. Ganga dan Jamuna terlahir dempet hanya memiliki satu badan. Mereka pun harus hidup berdampingan selama 39 tahun.

Tak hanya itu, kondisi tubuh mereka juga sangat memprihatinkan. Baik Ganga maupun Jamuna memiliki dua tangan. Namun, mereka cuma dikaruniai tiga kaki.

Dengan begitu, jika keduanya berjalan, maka mereka sepintas mirip laba-laba karena berjalan menggunakan keempat tangan dan kedua kaki.

Toh, kondisi tersebut tak membuat pasangan yang lahir di West Bengal, India, ini terus menangisi keadaannya. Keduanya justru ikut membantu mencari nafkah untuk keluarga.

Mereka memanfaatkan cacat tubuh untuk bermain sirkus dan menjuluki diri “The Spider Sisters” alias “Laba-Laba Bersaudara”.

Mereka berada di panggung hiburan selama lima jam dalam satu malam. Dari pertunjukan sirkus tersebut, mereka mampu mengumpulkan uang sebesar Rp 403.000.

Jumlah uang tersebut cukup untuk membiayai makan seluruh keluarga mereka yang berjumlah 22 orang selama empat malam.

“Orang-orang selalu memerhatikan kami. Mereka pikir kami aneh,” ujar Jamuna, seperti dikutip The Sun, Sabtu (24/10).

Ketika lahir, 39 tahun silam, bidan yang menolong persalinan ibu mereka sempat jatuh pingsan karena terkejut melihat kondisi bayi yang dilahirkan. Menurut dokter yang kemudian memeriksa mereka, Ganga dan Jamuna disatukan di bagian pinggul.

Masing-masing dari mereka memiliki badan bagian atas yang normal dan satu kaki yang masih berfungsi. Dua kaki lainnya mengering dan berdempetan menjadi satu tungkai dengan sembilan jari kaki.

Ahli kembar siam asal Amerika Serikat, dr James Stein, menyatakan bahwa keduanya akan tetap hidup jika dipisahkan. Hanya, mereka tak ingin dipisahkan karena khawatir terhadap keselamatan saudaranya yang lain. Akhirnya, mereka memilih untuk tetap bersama menjadi satu.

“Kami akan hidup sesuai dengan kehendak yang telah digariskan Tuhan,” ungkap Ganga. (sun/tis)

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

Judul : Winning the Mom Market In Indonesia: Strategi Membidik Pasar Ibu
Penulis : Hermawan Kartajaya
Penerbit : Gramedia Pustaka Utama
Tahun Penerbitan : 2005
Jumlah Halaman : 209
Dimensi (LxP) : 15 x 23 cm
Jenis Cover :  Soft Cover
No ISBN : 979-22-1444-5

Sebuah resensi buku tentang marketing, ditulis oleh seorang ternama dan benar-benar pakar di bidang marketing. Hermawan Kertajaya, beliau menjelaskan tentang hasil riset sebuah lembaga di AS, 80% cek di Amerika Serikat ternyata ditandatangani oleh para ibu. Sekitar 80% pengeluaran rumah tangga ditangani oleh para ibu. Seorang ibu selain memenuhi kebutuhannya sendiri, mereka juga mengendalikan pembelian anak-anak dan suaminya, lebih jauh lagi seorang ibu memicu adanya efek domino, artinya ia dapat mempengaruhi keluarga suami, tante, sepupu dan tentunya para tetangga.

Survei random terhadap 100 ibu muda rumah tangga di Jakarta menunjukkan sekitar 60% seorang ibu rumah tangga ternyata memiliki 1-2 kartu kredit. Pengeluaran rumah tangga per bulan 25% kurang lebih sebesar Rp 10 Juta, 10% kurang lebih sebesar Rp 5-10 Juta dan 65% kurang lebih sebesar Rp 2-5 Juta.

Beberapa survei di luar negeri menunjukkan nilai penting bagi seorang ibu adalah yang Pertama sebuah produk harus hemat waktu. Kedua adalah sebuah produk selain harganya murah, harus memiliki kualitas yang bagus, dan yang ketiga sebuah produk harus sehat dan aman bagi keluarga. Karena bagi ibu kenyamanan setiap anggota keluarga adalah sangat penting.

Sebagai bukti merek-merek yang sukses dalam membidik pasar ibu adalah merek-merek produk yang biasanya memenuhi kebutuhan keluarga. Beberapa contoh merek tersebut ada di dalam buku ini. Bagi Anda yang seorang marketer atau yang ingin belajar marketing, buku ini sangat membantu untuk menambah wawasan kita mengenai marketing plan.

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star

I’m in my usual park
I can see the night scenery
On the slide
That’s been my special seat for years

Whenever I’m worried about something, I come here
Just like then, I’m on my way to my dreams
But unable to fulfil them
“Maybe this is the end of the line”
There are days when I say weak things like that

But every time, I remember
That starry sky where I looked for a shooting star
The wish I made when I was little
Hasn’t changed even now

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star

Hiding out in the schoolyard at night with my mates
We climbed the wire netting
The field seemed to have a different face than during the day

We headed for our sea called the pool
We didn’t have swimming trunks, so we were all stark naked
Someone jumped in with a strange yell
The splash echoed through the night

“After him!” Everyone else piled in
We floated gently, looking up at the sky
Looked at the stars in front of us, and talked about heaps of dreams
And looked for that shooting star

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star

Looking up at the sky, there are countless stars
The same number now that there was years ago
My dreams are endless and crazy
Incredibly bright, like that star

Looking up at the sky, there are countless stars
The same number now that there was years ago
My dreams are endless and crazy
Incredibly bright, like that star

Hey! If you keep hanging your head like that
You won’t even be able to see the things you can see
Look up at the sky, keep your head up!!
Hey! “What do you think of the sky you see?”
Someday, like that shining star…
I wanna shine

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star

When I look up at the sky
The stars, see, are sparkling
Each giving off its own light
Like the people on this planet

Yeah, so I, too
Want to shine particularly bright
I close my eyes and make a vow in my heart
And entrust my dreams to that shooting star..

Lirik lagu di atas adalah salah satu OST Naruto Shippuden. lagu ini kurang lebihnya menceritakan isi perasaan sang tokoh utama yaitu Naruto. Sejak kecil dia bertemu dengan seorang teman yang namanya Sasuke. Namun Sasuke lebih memilih jalan hitam untuk menjadi lebih kuat, walaupun sama-sama digunakan untuk melawan musuh Naruto. Sasuke mempunyai bakat luar biasa, belajar jurus baru dalam waktu singkat. Sedangkan Naruto perlu waktu lama dan kerja keras untuk menyamai Sasuke. Naruto bertekad untuk membawa kembali Sasuke menjadi temannya, untuk itu dia harus lebih kuat dari Sasuke. Berkali-kali dia gagal membawa pulang Sasuke, karena setiap bertemu, Sasuke menjadi lebih kuat. Terkadang dia berpikir apakah usaha yang selama ini dilakukan dapat mengalahkan sebuah bakat luar biasa. Ketika memandangi bintang-bintang, mereka bercahaya dengan warna cahayanya masing-masing. Mungkin hal ini sama dengan orang-orang di bumi, mereka memiliki kelebihannya masing-masing yang seharusnya bisa menampakkan cahayanya. Itulah sebuah semangat, yang tak kan pernah habis, tak kan bisa dikalahkan oleh apapun. Sehingga dalam lirik lagu itu seolah dia berkata “Hey! If you keep hanging your head like that
You won’t even be able to see the things you can see, Look up at the sky, keep your head up!!, Hey! “What do you think of the sky you see?”, Someday, like that shining star…I wanna shine..

Bahasa Jepangnya bisa dilihat di : http://p4ndu3121990.wordpress.com/2007/09/12/nagareboshi-shooting-star/