Membuat Jam Digital dengan Gambas

Biar lebih mudah cara pembuatannya makan name dari componennya dibiarkan default.

buat sebuah label dan tempatkan di form, lalu tambahkan timer kedalam form, klik dua kali pada component timer dan tambahkan script dibawah ini :

Label1.Caption = Format(Time, "hh:nn:ss")

sehingga menjadi

Public Sub Timer1_Timer() Label1.Caption = Format(Time, "hh:nn:ss") End

pada properties timer1 klik Enabled pilih true. Kalau tidak diubah jam tidak akam muncul.
untuk mempercantik tampilan Jam Digital tambahkan gambar kedalam form, hasil jadinya bisa dilihat di screenshoot diatas. Jam digital ini masih dalam tahap beta, dan rencana kedepan akan dibuatkan untuk beberapa timezone, misalkan Jakarta, Amerika dan Inggris 

Download project Jam Digital disini

Membuat Jam Digital Cantik Dengan jQuery

 jam digital sederhana dengan tanggal dan waktu, dengan bantuan script jQuery dan CSS3 untuk sedikit animasi, tidak ada yang cukup keras untuk memahami berbagai metode dan menggunakan kreativitas Anda dalam yang terbaik cara. Ini hanya awal! 

HTML 

Markup adalah benar-benar sederhana dan fleksibel dan menyesuaikan dengan skenario yang mungkin banyak mungkin Anda alami. Buat div "jam", buah sebuah div id "Tanggal" akan berisi data kami, akhirnya menetapkan daftar unordered yang akan berisi jam, menit dan detik.

<div class="clock">
<div id="Date"></div>
<ul>
<li id="hours"></li>
<li id="point">:</li>
<li id="min"></li>
<li id="point">:</li>
<li id="sec"></li>
</ul>
</div>

CSS 

Styling ini sangat sederhana, Anda dapat menciptakan sesuatu dengan kreativitas Anda, ini hanya setting default untuk aplikasi masa depan Anda.

/* If you want you can use font-face */
@font-face {
font-family: 'BebasNeueRegular';
src: url('BebasNeue-webfont.eot');
src: url('BebasNeue-webfont.eot?#iefix') format('embedded-opentype'),
url('BebasNeue-webfont.woff') format('woff'),
url('BebasNeue-webfont.ttf') format('truetype'),
url('BebasNeue-webfont.svg#BebasNeueRegular') format('svg');
font-weight: normal;
font-style: normal;
}

.container {width: 960px; margin: 0 auto; overflow: hidden;}

.clock {width:800px; margin:0 auto; padding:30px; border:1px solid #333; color:#fff; }

#Date { font-family:'BebasNeueRegular', Arial, Helvetica, sans-serif; font-size:36px; text-align:center; text-shadow:0 0 5px #00c6ff; }

ul { width:800px; margin:0 auto; padding:0px; list-style:none; text-align:center; }
ul li { display:inline; font-size:10em; text-align:center; font-family:'BebasNeueRegular', Arial, Helvetica, sans-serif; text-shadow:0 0 5px #00c6ff; }

#point { position:relative; -moz-animation:mymove 1s ease infinite; -webkit-animation:mymove 1s ease infinite; padding-left:10px; padding-right:10px; }

/* Simple Animation */
@-webkit-keyframes mymove
{
0% {opacity:1.0; text-shadow:0 0 20px #00c6ff;}
50% {opacity:0; text-shadow:none; }
100% {opacity:1.0; text-shadow:0 0 20px #00c6ff; }
}

@-moz-keyframes mymove
{
0% {opacity:1.0; text-shadow:0 0 20px #00c6ff;}
50% {opacity:0; text-shadow:none; }
100% {opacity:1.0; text-shadow:0 0 20px #00c6ff; }
}

jQuery 

Langkah pertama adalah untuk memanggil file jQuery.

<script type="text/javascript" src="http://code.jquery.com/jquery-1.6.4.min.js"></script>

Langkah kedua masukan code script di bawah ini

<script type="text/javascript">
$(document).ready(function() {
// Create two variable with the names of the months and days in an array
var monthNames = ["January",];
var dayNames= ["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"]

// Create a newDate() object
var newDate = new Date();
// Extract the current date from Date object
newDate.setDate(newDate.getDate());
// Output the day, date, month and year
$('#Date').html(dayNames[newDate.getDay()] + " " + newDate.getDate() + ' ' + monthNames[newDate.getMonth()] + ' ' + newDate.getFullYear());

setInterval( function() {
// Create a newDate() object and extract the seconds of the current time on the visitor's
var seconds = new Date().getSeconds();
// Add a leading zero to seconds value
$("#sec").html(( seconds < 10 ? "0" : "" ) + seconds);
},1000);

setInterval( function() {
// Create a newDate() object and extract the minutes of the current time on the visitor's
var minutes = new Date().getMinutes();
// Add a leading zero to the minutes value
$("#min").html(( minutes < 10 ? "0" : "" ) + minutes);
},1000);

setInterval( function() {
// Create a newDate() object and extract the hours of the current time on the visitor's
var hours = new Date().getHours();
// Add a leading zero to the hours value
$("#hours").html(( hours < 10 ? "0" : "" ) + hours);
}, 1000);
});
</script>

Logika :

new Date()
Ini menciptakan objek Date baru dengan nilai tanggal dan waktu pada PC browser.
setDate() and getDate()
Para setDate () metode menentukan hari bulan (dari 1 sampai 31), menurut waktu setempat, sedangkan getdate () metode mengembalikan hari bulan (dari 1 sampai 31) untuk tanggal yang ditentukan, sesuai dengan waktu setempat .
getSeconds (), getMinutes () dan getHours ()
Metode ini memungkinkan untuk mengekstrak detik, menit dan jam waktu saat ini pada PC browser.
(seconds <10 "0": "") + seconds)

Menambahkan nol ke nilai detik, yang sama berlaku untuk menit dan jam. Itu? dan: simbol yang digunakan terdiri atas operator ternary. Ini adalah operator khusus yang mengembalikan nilai sebelum usus besar jika kondisi sebelum query (?) Benar, atau nilai setelah titik dua jika kondisi adalah palsu.
setInterval fungsi
setInterval adalah fungsi JavaScript standar, bukan bagian dari jQuery. Anda menyebutnya dengan fungsi untuk mengeksekusi dan waktu dalam milidetik.

[Last edited Mar 18, 2012]

Membuat Random Password dengan mkpasswd

Untuk membuat password randon di linux bisa menggunakan mkpasswd, perintahnya sangat mudah cukup mengetikkan mkpasswd dan pada pertanyaan yang munculpassword : bisa diisi atau ngga, bebas. Nanti password yang dihasilkan akan acak. Password yang dihasilkan, dalam skala pengukuran kerumitan password, termasuk kategori strong.

Pengguna ubuntu dapat menginstall mkpasswd dengan :

sudo apt-get install mkpasswd

Delphi – Membuat Jam Analog

Membuat jam digital di Delphi sangatlah mudah. Lalu bagaimana jika kita ingin membuat jam analog? Ikuti tutorial berikut ini!

Aplikasi yang akan kita buat, hampir mirip seperti Jam pada Windows. Hasilnya akan jadi seperti ini

Buat sebuah proyek baru pada Delphi

Buat variabel berikut di atas implementation (di bawah nama form)

  i:byte;

  Diameter:integer;

  Angka, JariJam, JariMenit, JariDetik, TebalGaris, UkuranHuruf : byte;

Karena angka akan dibuat secara otomatis, tambahkan unit StdCtrls pada uses (di bawah interface). Sehingga kita bisa menggunakan komponen TLabel dan konntrol standar Delphi lainnya

Tambahkan skrip/kode berikut pada event onCreate dari form

  Self.BorderStyle:=bsNone; //Agar form tidak memiliki border
{Setting untuk ukuran jam}
  ClientWidth := 150; {menentukan lebar form}
  ClientHeight:= ClientWidth; {menentukan tinggi form}
  Diameter := ClientWidth; {menentukan diameter jam}
  jariJam := 45; {menentukan panjang jarum jam}
  jariMenit := 60; {menentukan panjang jarum menit}
  JariDetik := 70; {menentukan panjang jarum detik}

//Tentukan posisi angka
  for i:=1 to 12 do
{diulang sebanyak angka jam yaitu 12}
  begin
    TLabel.Create(Self).Name:=’angka’+IntToStr(i);
    with TLabel(FindComponent(‘angka’+IntToStr(i))) do
    begin
      Height:=10;
      Width:=15;
      Parent:=Self;
      Font.Size:=6;
      Font.Color:=clBlack;
      Font.Style:=[fsBold];
      Alignment:=taCenter;
      Caption:=IntToStr(i);
      Transparent:=true;
      Left:=((Diameter-Width) div 2)-round((jariDetik-6)*sin(-i*pi/6));
      Top:=((Diameter-Height) div 2)-round((jariDetik-6)*cos(-i*pi/6));
    end;
  end;
//Buat form jadi bulat
  SetWindowRgn(self.Handle, CreateEllipticRgn(0,0,ClientWidth,ClientHeight), true);

Buat prosedur GerakJarumJam seperti ini :

procedure TForm1.GerakJarumJam;
var
  jam,menit,detik,milidetik:word;
begin
  self.Refresh; //merefresh form
  DecodeTime(Now,jam,menit,detik,milidetik);
{mendekode atau menjabarkan waktu sekarang menjadi jam, menit, detik dan milidetik}

//Untuk jarum detik
  Canvas.Pen.Color:=clRed;
  Canvas.Pen.Width:=2;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariDetik*sin(-detik*pi/30)),
    (Diameter div 2)-round(
    jariDetik*cos(-detik*pi/30)));

// Untuk jarum menit
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Width:=3;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariMenit*sin(-menit*pi/30-detik*pi/1800)),
    (Diameter div 2)-round(
    jariMenit*cos(-menit*pi/30-detik*pi/1800)));

// Untuk jarum jam
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Width:=4;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariJam*sin(-jam*pi/6-menit*pi/360)),
    (Diameter div 2)-round(
    jariJam*cos(-jam*pi/6-menit*pi/360)));
end;

Tambahkan sebuah Timer dan masukkan skrip/kode berikut pada event onTimer dari Timer1

  GerakJarumJam; {memanggil procedure GerakJarumJam}

Jalankan aplikasi dengan menekan tombol F9

Adapun kode selengkapnya adalah sebagai berikut

unit UJam;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure GerakJarumJam;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:byte;
  Diameter:integer;
  Angka, JariJam, JariMenit, JariDetik, TebalGaris, UkuranHuruf : byte;

implementation

{$R *.dfm}

procedure TForm1.GerakJarumJam;
var
  jam,menit,detik,milidetik:word;
begin
  self.Refresh; //merefresh form
  DecodeTime(Now,jam,menit,detik,milidetik);
{mendekode atau menjabarkan waktu sekarang menjadi jam, menit, detik dan milidetik}

//Untuk jarum detik
  Canvas.Pen.Color:=clRed;
  Canvas.Pen.Width:=2;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariDetik*sin(-detik*pi/30)),
    (Diameter div 2)-round(
    jariDetik*cos(-detik*pi/30)));

// Untuk jarum menit
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Width:=3;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariMenit*sin(-menit*pi/30-detik*pi/1800)),
    (Diameter div 2)-round(
    jariMenit*cos(-menit*pi/30-detik*pi/1800)));

// Untuk jarum jam
  Canvas.Pen.Color:=clBlack;
  Canvas.Pen.Width:=4;
  Canvas.MoveTo(Diameter div 2,Diameter div 2);
  Canvas.LineTo(
    (Diameter div 2)-round(
    jariJam*sin(-jam*pi/6-menit*pi/360)),
    (Diameter div 2)-round(
    jariJam*cos(-jam*pi/6-menit*pi/360)));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  GerakJarumJam; {memanggil procedure GerakJarumJam}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.BorderStyle:=bsNone; //Agar form tidak memiliki border
{Setting untuk ukuran jam}
  ClientWidth := 150; {menentukan lebar form}
  ClientHeight:= ClientWidth; {menentukan tinggi form}
  Diameter := ClientWidth; {menentukan diameter jam}
  jariJam := 45; {menentukan panjang jarum jam}
  jariMenit := 60; {menentukan panjang jarum menit}
  JariDetik := 70; {menentukan panjang jarum detik}

//Tentukan posisi angka
  for i:=1 to 12 do
{diulang sebanyak angka jam yaitu 12}
  begin
    TLabel.Create(Self).Name:=’angka’+IntToStr(i);
    with TLabel(FindComponent(‘angka’+IntToStr(i))) do
    begin
      Height:=10;
      Width:=15;
      Parent:=Self;
      Font.Size:=6;
      Font.Color:=clBlack;
      Font.Style:=[fsBold];
      Alignment:=taCenter;
      Caption:=IntToStr(i);
      Transparent:=true;
      Left:=((Diameter-Width) div 2)-round((jariDetik-6)*sin(-i*pi/6));
      Top:=((Diameter-Height) div 2)-round((jariDetik-6)*cos(-i*pi/6));
    end;
  end;
//Buat form jadi bulat
  SetWindowRgn(self.Handle, CreateEllipticRgn(0,0,ClientWidth,ClientHeight), true);
end;

end.

Catatan :

Anda dapat menambahkan PopUp menu untuk menutup aplikasi. Anda juga dapat mengembangkannya menjadi sebuah aplikasi yang lebih kompleks lagi
Selamat mencoba!!

Membuat game menggunakan delphi

Ini dicoba untuk meningkatkan minat pada program, semoga membantu. Dimulai dengan program sederhana dulu : Var jawab, tanya,langkah : integer; begin     langkah:=0;     jawab:=random(100)+1;     repeat         write('Coba tebak angka dari 1 sampai 100 : ');readln(tanya);         if(tanya>jawab)then           writeln('Angka terlalu besar')         else           writeln('Angka terlalu kecil');         langkah:=langkah+1;     until jawab=tanya;     writeln('Selamat! Anda menjawab dalam ',langkah,' langkah');     readln; end. Dicoba dulu dari program yang sederhana. Standarnya sih katanya orang-orang bisa menjawab dalam 5 / 4 langkah.

Membuat Game Sederhana menggunakan Delphi

Program Games Sederhana Delphi 

Halo sahabat bringinfo , udah bosan bikin program dekstop atau hitung menghitung pake delphi??? Oke sekarang saatnya menyuguhka tutorial cara membuat program game sederhana menggunakan delphi,,,
Game ini sangat lucu atau cupu yaa?? langsung saja ke KTP eh salah ke TKP,,(heheheee). Game ini terdiri dari empat tombol jebakan, lho!! hati-hati yaaa,,, untuk lebih jelasnya lihat form dibawah ini untuk memulai bikin programnya,,,,

Dan seperti biasa dalam tutorial delphi di bringinfo ini hanya memberikan screenshot program dan listingnya,, jika sahabat ingin bertanya, silahkan berkomentar ria,,,,,, Dan listingnya,,,,,,
unit untGames;

interface

uses
...

type
TForm1 = class(TForm)
...
procedure Selesai;
procedure btnStartClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure edtNameKeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
Tukar, Score, Tanya : Integer;
Blink : Boolean;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Selesai;
begin
Timer1.Enabled := False;
btn1.Enabled := False;
btn2.Enabled := False;
btn3.Enabled := False;
btn4.Enabled := False;

edtName.Enabled := True;
edtName.SetFocus;

lblClick.Visible := False;
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
Score := 0;
Tukar := 0;

lblClick.Visible := True;
lblClick.Left := 16;
lblBravo.Caption := '';
lblBravo.Visible := False;
edtName.Enabled := False;
edtName.Clear;

Timer1.Enabled := True;
btn1.Enabled := True;
btn2.Enabled := True;
btn3.Enabled := True;
btn4.Enabled := True;
lblScore.Caption := '0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
CapTmp : String;
begin
CapTmp := btn1.Caption;
btn1.Caption := btn2.Caption;
btn2.Caption := btn3.Caption;
btn3.caption := btn4.Caption;
btn4.Caption := CapTmp;
Inc(Tukar);

if Tukar > 16 then
Selesai;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if btn1.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
if btn2.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
if btn3.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
if btn4.Caption = 'x' then
Score := Score + 10
else
Score := Score - 5;

lblScore.Caption := IntToStr(Score);
end;

procedure TForm1.edtNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
lblBravo.Visible := True;
if Score >= 50 then
lblBravo.Caption := 'Bravooo... ' + edtName.Text
else
lblBravo.Caption := 'Not Lucky ' + edtName.Text;

btnStart.SetFocus;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Blink := not Blink;
if Blink then
lblBravo.Font.Color := clRed
else
lblBravo.Font.Color := clBlue;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if lblClick.Left <= 230 then
lblClick.Left := lblClick.Left + 1
else
lblClick.Left := 0;
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
Tanya := Application.MessageBox('Are You Sure To Quit From This Program?',
'Confirmation', MB_YESNO + MB_ICONQUESTION);
if Tanya = 6 then
begin
Application.MessageBox('Thanx So Much... For Using This Program'
, 'Byee. .
Byee..', MB_OK + MB_ICONINFORMATION);
Application.Terminate;
end;
end;

end.

Membuat Game sederhana dengan Delphi 7

Oke langsung aja … berikut ini adalah contoh program game yang saya buat , sbenere ini tugas akhir semester ku, dari pada ndongkrok di computerku gak ada gunanye .. sekalian tak share ke temen-temen, nih screen shotnya

Game ini Cuma game sederhana gak ada bagus-bagusnya :p, walaupun sederhana tapi buatnya tu agak rumit pren.. soalna aku Cuma pake komponen standar Delphi.. fiuuuuff…. Lima hari baru selese, dan codingnya juga semrawut.. hahaha … maklum masih amatiran…

karena script nya panjaaaaaaaaaaaaaaaaaaaaaang bgt... jadinya kalo tak tulisin disini ntar jd menuh menuhin halaman.... kalo ada yang mau … silahkan donlud source nya,,,,, crazy-icon