Sunday, December 28, 2008

Problem with Checkbox



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
CheckBox1: TCheckBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
m,n:integer;

implementation

{$R *.dfm}
procedure lingkaran;
begin
form1.Image1.Canvas.Brush.Color:=clwhite;
form1.Image1.Canvas.Ellipse(m-77,n-77,m+77,n+77);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=75;
n:=57;
//buat kotak putih//
form1.Image1.Canvas.Brush.Color:=clwhite;
form1.Image1.Canvas.Rectangle(0,0,form1.Image1.Width,form1.Image1.Height);
//buat pohon//
//buat lingkaran//
if form1.CheckBox1.Checked=true then begin
lingkaran;
end;
form1.Image1.Canvas.Brush.Color:=clblue;
form1.Image1.Canvas.Ellipse(m-7,n-7,m+7,n+7);
end;


end.

Problem with chekbox



var
Form1: TForm1;
m,n:integer;

implementation

{$R *.dfm}
procedure lingkaran;
begin
form1.Image1.Canvas.Brush.Color:=clwhite;
form1.Image1.Canvas.Ellipse(m-77,n-77,m+77,n+77);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=75;
n:=57;
//buat kotak putih//
form1.Image1.Canvas.Brush.Color:=clwhite;
form1.Image1.Canvas.Rectangle(0,0,form1.Image1.Width,form1.Image1.Height);
//buat pohon//
//buat lingkaran//
if form1.CheckBox1.Checked=true then begin
lingkaran;
end;
form1.Image1.Canvas.Brush.Color:=clblue;
form1.Image1.Canvas.Ellipse(m-7,n-7,m+7,n+7);
end;


end.

Saturday, December 27, 2008

opensuse11.2


Posted by ShoZu

It's captured when I am chatting with Supri.

Friday, December 26, 2008

Sound on my HP tx2510us (tx2500) using OpenSuSE 11.1 64 bit linux


Posted by ShoZu



you must have
-kernel-source
-gcc
-make
-xmlto (many tutorial forget it, causing error on make step)

you must dowload
-linuxPkgxxx from realtek.com, that is alsa customized by realtek or simply realtek HD driver for linux

you must
1. unzip it
2. cd to where path you unzip it
3. cd alsa-lib
4. ./configure
5. sudo make install
6. cd ..
7. cd alsa-tool
8. ./configure
9. make
10. sudo make install
11. cd ..
12. cd alsa-driver
13. ./configure
14. make
15. sudo make install
16. sudo alsaconf (press Enter whenever you are prompted to choose something :))
17. exit
18. restart (maybe you have heard the sound of KDE end session)
19. pray
20. ... (maybe, you want to run amarok, :))

hope it usefull

Tuesday, December 23, 2008

Figuring how digikam work


Posted by ShoZu

Sound problem on tx2510us (2500 series) within OpenSuSE 11.1 64 bit linux


We must work hard (and prepare for not sleep about a night) in order to make this laptop speak.

I have no time now (and must sleep :)), but as soon as I am getting up, I'll write what I'd done.

Posted by ShoZu

Configuring Broadcom Wifi on my tx2510 (2500) within OpenSuSE 11.1 64 bit linux


The simplest way is by update broadcom driver and firmware using OpenSuSE repository. (I think it just enough to upgrade firmware only)

The hard way is compile using STA driver obtained from Broadcom site.

and .......... yes, the wifi is succesfully on. Hm, how can we life without wifi?

Posted by ShoZu

OpenSuSE 11.1 on my TX 2510US (2500 series)


The first look is..... not so impresif. Yup, KDE 4 is cool but:
-no WiFi connection, my broadcom is shown in network setting, but I have some warning (and sugestion) when I switched the Wifi button and run dmesg. uh..
-no sound, aaaargh

At this point, its enough to think that I must working hard to 'normalizing' this, hopefully, cool SuSE

Posted by ShoZu

My TX2510US


I got many accident (yeah, truely accident: crash, fall from my motor, with cool rolling style landing on road) the day I buy this tabletPC. Anyway, here is the spec:
1GB RAM (I didnt' satisfied with this)
2GB AMD X2 64-bit (mean dual core)
3 port USB (didnt' know whereas its1.0 or 2.0)
VGA port....

accesories:
bluetooth
card reader
remote control (work with WMP only)
stylus
expansion port 3

and Vista Home Premium Preinstalled+trial office 2007+ bunch of other trial software

I append to install OpenSuSE 11.¹on it, hope it work.

Posted by ShoZu

di Warung dekat MIPA Selatan


-Berangkat kuliah
-Pengantar Mekanika Klasik
-Bro Fredrick Presentasi (Gaya Sentral...)

(seperti biasa, setelah presentasi yang "sukses", pasti ada traktiran)

-tentu saja ambil makanan sebanyak-banyaknya, mumpung gratis

................

dan ternyata yang mbayar semua Pak Steven,..........

dalam rangka ultah pernikahan beliau,

yeah..., semoga langgeng

Posted by ShoZu

Fuuton Rasengan Shuriken, heheh...


mau berangkat kuliah

Posted by ShoZu

Saturday Rainy Morning at MIPA UGM


Posted by ShoZu

hmm, its too late


Posted by ShoZu