APLIKASI STOPWATCH DENGAN DELPHI

Sekarang kita akan coba membuat aplikasi Stopwatch menggunakan Pemrograman Delphi. Komponen – komponen yang diperlukannya antara lain :

·         LCDNumber yaitu sebuah control untuk menampilkan informasi dalam bentuk digit.

·         Timer menyatakan fungsi – fungsi timer system. Eksekusi timer terjadi pada event OnTimer. Komponen Timer mempunyai property interval untuk menyatakan interval dalam satuan mili detik akan terjadinya event OnTimer.

Cobalah kawan ikuti langkah – langkah dibawah ini :

1.      Buat Aplikasi CLX dengan memilih menu File-new-CLX Aplication.

2.      Tambahkan Komponen LCDNumber dari Page Additional.

3.      Ubah Property Value=00:00.000. Ubah property SegmentStyle=ssFilled. Property SegmentStyle untuk menyatakan cara control menampilkan segmentnya.

4.      Ubah property Digit dari komponen LCDNumber menjadi 9 untuk menyatakan banyaknya digit yang ditampilkan.

5.      Tambahkan komponen Timer dari page Additional.

6.      Ubah property Interval =1 ,artinya 1 mili detik.

7.      Tambahkan tiga buah Button, masing – masing dengan Caption Mulai, Berhenti dan Reset.

Kemudian kita akan melakukan coding pada tiap – tiap Buttonnya :

1.      Untuk menyatakan keadaan dari stopwatch ( berhenti atau berjalan ) kita memerlukan sebuah variable. Deklarasikan variable Running sebagai variable private di bagian interface.

2.      Deklarasikan juga variable Awal dan Lama untuk menyatakan awal stopwatch dijalankan dan lamanya.

3.      Event handler OnTimer dari komponen Timer dipakai untuk mengubah tampilan LCDNumber. Sebelumnya akan dihitung lamanya Stopwatch berjalan.

4.      Ketiga button dipakai untuk mengubah status Running dan tombol Reset juga akan mengubah Value dari LCDNumber.

5.      Event OnMouseUp akan terjadi pada saat user melepaskan tombol mouse yang ditekan. Kita akan memakai event ini pada komponen LCDNumber. Jika tombol kiri ditekan, akan mengubah BorderStyle ke tipe berikutnya. Jika sudah mencapai nilai tertinggi, akan diulang lagi dari tipe terendah. Tombol kanan diapakai untuk mengubah Segmentstyle.

Berikut Listing Lengkapnya kawan :

unit UaplikasiStopwatch;

interface

uses

  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,

  QDialogs, QStdCtrls, QExtCtrls;

type

  TFaplikasiStopwatch = class(TForm)

    LCDNumber1: TLCDNumber;

    Timer1: TTimer;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure LCDNumber1MouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

  private

    Running :boolean;

    awal,lama:extended;

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FaplikasiStopwatch: TFaplikasiStopwatch;

implementation

{$R *.xfm}

procedure TFaplikasiStopwatch.Timer1Timer(Sender: TObject);

begin

  lama :=now-awal;

  if running then LCDNumber1.Value:=

  FormatDateTime('nn:ss:zzz',lama);

end;

procedure TFaplikasiStopwatch.Button1Click(Sender: TObject);

begin

Running :=true;

end;

procedure TFaplikasiStopwatch.Button2Click(Sender: TObject);

begin

Running :=false;

end;

procedure TFaplikasiStopwatch.Button3Click(Sender: TObject);

begin

Running :=false;

Awal :=Now; LCDNumber1.Value:='00:00.000';

end;

procedure TFaplikasiStopwatch.LCDNumber1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

  var BordereStyle, SegmentStyle :integer;

  begin

  case button of

    mbLeft:begin

                BordereStyle:=ord(LCDNumber1.BorderStyle)+1;

                if BordereStyle > ord(high(TBorderStyle)) then BordereStyle:=0;

                LCDNumber1.BorderStyle:=TBorderStyle(BordereStyle);

           end;

    mbRight:begin

                SegmentStyle:=ord(LCDNumber1.SegmentStyle)+1;

                if SegmentStyle > ord(high(TLCDSegmentStyle)) then

                SegmentStyle:=0;

                LCDNumber1.SegmentStyle:=TLCDSegmentstyle(SegmentStyle);

            end;

end;

end;

end.

Jalankan Aplikasinya, coba juga setiap tombolnya…..dan perhatikan perubahan yang akan terjadi jika anda mengklik tombol kanan atau kiri mouse pada komponen LCDNumber.

paging_2

Pagi Kawan......
Tekhnik paging lanjutan dari tekhnik kemarin nih,,,,,
Kalo tekhnik yang ini adalah pencarian data untuk database,yaaa sejenis SEO gtu...tapi tepatnya buat nyari dan nampilin data yang ingin kita cari dari database.
Langsung za....ni scriptnya,
"selamat mencoba kawan........."


<form method=get action=paging_2.php>
Isikan Nama : <input type=text name="nama">
<input type=submit name=oke value=Cari>
</form>
<?php
$oke=$_GET['oke'];
if ($oke=='Cari'){
mysql_connect("localhost","root","");
mysql_select_db("pintar");


//langkah 1

$batas = 5;
$halaman=$_GET['halaman'];
if(empty($halaman)){
    $posisi=0;
    $halaman=1;
}
else{
    $posisi=($halaman-1) * $batas;
    }

    //langkah 2
$nama=$_GET['nama'];
$tampil=mysql_query("select * from anggota where nama LIKE '%$nama%' LIMIT $posisi,$batas");
$jumlah=mysql_num_rows($tampil);

if($jumlah>0){
    echo "<table>
          <tr><th>no</th><th>nama</th><th>alamat</th></tr>";
    $no=$posisi+1;
while($data=mysql_fetch_array($tampil)){
    echo "<tr><td>$no<td>
              <td>$data[nama]</td>
              <td>$data[alamat]</td></tr>";
    $no++;
    }
    echo "</table>";
   
    // langkah 3

$tampil2="select * from anggota where nama LIKE '%$nama%'";
$hasil2=mysql_query($tampil2);
$jmldata=mysql_num_rows($hasil2);
$jmlhalaman=ceil($jmldata/$batas);
echo "<br>Halaman :";
$file="paging_2.php";
for ($i=1;$i<=$jmlhalaman;$i++)
    if($i !=$halaman){
    echo "<a href=$file?halaman=$i&nama=$nama&oke=$oke>$i</a> |";
    }
else{
    echo " <b>$i</b> | ";
    }
echo "<p> Ditemukan <b>$jmldata</b> orang dengan nama $nama</p>";
}
else {
    echo "tidak ditemukan data yang bernama <b>$nama</b>";
    }
    }
?>






   
   
   
   
   
   

paging_1

Ass.
Ni script PHP tekhnik paging,,,,,dimana tekhnik paging merupakan tekhnik dasar dalam Pemrograman PHP.
ya....walaupun saya juga masih belajar,tapi semoga bermanfaat buat temen - temen yang ge belajar php.....
ne udh konek dengan database ya kawan.........disini saya menggunakan PHPMyADMIN sebagai database managernya.
"selamat mencoba..."


<table><tr><th>No</th><th>Nama</th><th>Alamat</th></tr>
<?
mysql_connect("localhost","root","");
mysql_select_db("pintar");

//langkah 1 : Tentukan batas,cek halaman dan posisi data
$batas = 5;
$halaman=$_GET['halaman'];
if (empty($halaman)){
    $posisi=0;
    $halaman=1;
    }
else{
    $posisi=($halaman-1) * $batas;
}

// Langkah 2 : sesuaikan perintah SQL dengan posisi dan data
$tampil="select * from anggota LIMIT $posisi,$batas";
$hasil=mysql_query($tampil);

$no=$posisi+1;
while ($data=mysql_fetch_array($hasil)){
    echo "<tr><td>$no</td>
              <td>$data[nama]</td>
              <td>$data[alamat]</td></tr>";
$no++;
}
echo"</table>";

//langlah 3 : Hitung total data dan halaman serta link 1,2,3

$tampil2=mysql_query("select * from anggota");
$jmldata=mysql_num_rows($tampil2);
$jmlhalaman=ceil($jmldata/$batas);

echo "<br>Halaman";

for($i=1;$i<=$jmlhalaman;$i++)
if($i !=$halaman){
        echo "<a href=$_SERVER[PHP_SELF]?halaman=$i>$i</a> | ";
        }
    else{
        echo "<b> $i </b> | ";
    }
    echo "<p>Total Anggota : <b>$jmldata</b>orang</p>";
?>
   
   
   
   
   
   
             
             
             
             
             
             
             
             
             
             
             
             
             
             
             
             
             
             

Cara Pasang Flag Counter dan lalu ketahui perkembangan Blog Anda

Ada beberapa widget yang tersedia secara gratis, untuk mengetahui  jumlah pengunjung serta asal negaranya yang mampir ke blog, salah satunya " Flag Counter " . Selain untuk mengetahui jumlah dan asal pengunjung blog, Flag Counter juga bisa dijadikan parameter perkembangan blog kita,

Cara memasang Flag Counter di Blog adalah sebagai berikut :

1. Klik alamatnya terlebih dahulu http://flagcounter.com
    Isikan option-option pada create your free counter untuk mengatur tampilan
    flag counter dan sesuaikan dengan kondisi blog anda seperti :
    - Maximum flag to show : jumlah bendara yang akan ditampilkan
    - Columns of flag : jumlah kolom bendera
    - Label on top of counter : nama dari counter flag
    - Background color : warna latar dari counter flag
    - Text color : warna tulisan
    - Border color : warna garis tepi dari counter flag
    - Show country flag : untuk menampilkan kode negara
    - Show pageview : untuk menampilkan jumlah halaman yang dikunjungi

2. Setelah mengatur tampilan counter flag akan terlihat preview pada example flag counter with your 
   choices, jika sudah sesuai tampilannya dengan keinginan, kemudian klik get your flag counter
3. Setelah itu copy code yang berada di Code for website, dan pastekan ke dashbord blog Anda
4. Login ke Acount Blog Anda, www.blogger.com
    Lalu pilih Tata letak atau layout. Lalu pilih Elemen halaman atau Page element,  Lalu klik tambah
    Gadget atau add Gadget, lalu pilih opsi HTML/JAVA SCRIPTS setelah itu paste kode HTML Flag 
    Counter yang anda dapatkan tadi. Klik OK dan Save. Jangan Lupa Atur Letaknya sesuai keinginan.

"selamat mencoba kawan...."

Membuat Menu Vertikal

Sebelumnya kita pernah membahas tentang membuat menu horizontal, nha sekarang mari kita mencoba membuat menu vertikal. Menu vertikal ini cocok kalau dipasang di sidebar karena bentuknya berjajar sevara vertikal (ya iyalah). Contohnya seperti gambar disamping itu. Beginilah cara membuatnya :

1. Login ke blogger trus pilih "Layout-->Edit HTML"
2. Masukkan kode berikut sebelum kode ]]></b:skin> atau sebelum kode </style> . Pokoknya ditaruh di dalam Barisan kode CSS deh.

.glossymenu, .glossymenu li ul{
list-style-type: none;
margin: 0;
padding: 0;
width: 185px; /*WIDTH OF MAIN MENU ITEMS*/
border: 1px solid black;
}
.glossymenu li{
position: relative;
}
.glossymenu li a{
background: white url('http://kendhin.890m.com/blog/vertical/blue1.gif') repeat-x bottom left;
font: bold 12px Verdana, Helvetica, sans-serif;
color: white;
display: block;
width: auto;
padding: 5px 0;
padding-left: 10px;
text-decoration: none;
}
.glossymenu li ul{
position: absolute;
width: 190px;
left: 0;
top: 0;
display: none;
}
.glossymenu li ul li{
float: left;
}
.glossymenu li ul a{
width: 180px;
}
.glossymenu li a:visited, .glossymenu li a:active{
color: white;
}
.glossymenu li a:hover{
background-image: url('http://kendhin.890m.com/blog/vertical/blue2.gif');
}

* html .glossymenu li { float: left; height: 1%; }
* html .glossymenu li a { height: 1%; }

Baca selengkapnya »

Cara Membuat Kotak Blogroll dan Marquee

Kali ini aku mau ngejelasin trik kali dengan gaya puisi, biar nggak bosen, tapi jangan diketawain ya, soalnya lom pernah buat puisi nih.

Tatkala link-link jumlahnya sudah berjuta-juta
Maka semakin sesaklah dada blog ini
Jikalau hal ini tidak diatasi dengan bijaksana
Maka blognya dikau akan penuh sesak dengan link-link itu
Udah bagus nggak puisinya? ancur ya? :r Ok lanjuuut.

Oleh karena itulah
hamba memberanikan diri untuk menawarkan obat sesak tersebut
Melalui secuil ilmu berikut
Daku berharap dapat membantu kisanak supaya blognya tidak sesak

Kira-kira pada mudeng nggak ya penjelasan tadi, ah biarin deh :z
:r udah ah, udah mual2 nih pake gaya puici, sekarang ganti gaya biasa aja.

Untuk trik kali ini, ada dua macam kotak blogroll yang akan kita buat, terserah kamu mo pilih yang mana. Kotak blogroll-nya yaitu:

1. Kotak Blogroll Model Textarea

Contohnya seperti kotak blog roll seperti punyaku itu, itu lho yg atasnya ada tulisanya "Friend links"
Nha begini cara membuatnya :
Pasang code berikut ini di kedalam element kamu (Page Elements --> Add a Gadget --> HTML /Javascript)

<div style="border: 1px solid rgb(153, 153, 153);
overflow: auto;
width: 200px;
height: 200px;
text-align: center; ">

#link1 <br />
#link2 <br />
#link3 <br />
#link...

</div>

keterangan:
- Kode width: 200px; dan height: 200px; adalah ukuran lebar dan panjang kotak, kamu bisa merubahnya dan menyesuaikanya dengan ukuran yg kamu suka.
- Ganti tulisan "#link1,#link2, #link3 dst" dengan daftar link-link kamu, oh ya itu juga bisa diisi dengan banner link.
- Jika kamu pingin daftar link-linknya berjajar kayak punyaku, maka hilangkan kode <br />

2. Kotak Blogroll Model Marquee

Kotak ini juga mampu menampung banyak link dalam tempat yang sempit. Namun kotak blog roll ini berbeda dengan kotak yg diatas, karena kotak yang ini tidak memiliki rollbar (yg biasanya disebelah kanan trus ditarik keatas kebawah itu lho). Link-link ato isi didalam kotak ini akan bergerak/berjalan, bisa vertikal ato horizontal. Nah gini nih cara buatnya:
Pasang code berikut ini di kedalam element kamu (Page Elements --> Add a Gadget --> HTML /Javascript)

<MARQUEE align="center" direction="up" height="100" scrollamount= "2" onmouseover='this.stop()' onmouseout='this.start()' width="95%" >

#link1 <br />
#link2 <br />
#link3 <br />
#link...<br />

</marquee>

Baca selengkapnya »

Berapa Harga Blog Kamu????

Pernahkah kamu bertanya, kira-kira berapa harga blog yang kamu miliki setelah membanting keringat dan memeras tulang untuk membuatnya? Nha, sekarang ini ada sebuah layanan di internet yang bisa memperkirakan berapa kira-kira harga blog yang kamu miliki. Caranya sangat mudah tidak perlu bayar ataupun mendaftar, cukup dengan memasukkan alamat Blogmu trus tinggal pencet jerawat kamu, eh salah, maksudnya pencet tombol Submit gak pake lama, hasilnya akan langsung keluar. Selain itu kalo kamu mo pamer, kamu juga bisa memasang hasilnya di blogmu seperti ini nih hasilnya :

Baca selengkapnya »