Saya sih bukan pendukung Ahmadiyah dan juga bukan pembenci Ahmadiyah.

Saya lebih mencintai yang namanya Islam. Walaupun saya belum 100 % dapat menjalankan ajaran-ajarannya dan belum dapat menyumbang banyak kepada Islam itu sendiri. Tapi saya merasa Islam itu indah dan menyejukkan.

Sebagai seorang yang mencintai Islam, tentunya saya tidak ingin cinta saya itu di zalimi oleh orang yang menghilangkan keindahan dan kesejukan itu, baik dari orang yang bukan Islam maupun orang-orang yang berkedok Islam sendiri.

Sungguh pemikiran bijak yang tertulis di link ini.

Dapatkah kita semua berfikir jernih seperti itu ?

Banjir Bandang Sunggal Kanan

Banjir Merendam Jalan Paya Geli

Banjir Juga Menutupi Jalan Tanjung Balai Sunggal Kanan

1. Buka Delphi 7
2. Pilih menu “Component”
3. Pilih sub menu “Import ActiveX Control”
4. Pada jendela Import ActiveX, cari “Microsoft Comm Control 6.0 (Version 1.1)”. Jika komonen Microsoft Comm Control 6.0 (Version 1.1) belum ada dalam daftar, Anda dapat mengunduhnya file MSComm32.ocx untuk diinstall terlebih dahulu. Unduh filenya disini. Jika telah terinstall ikuti langkah 5.
5. Pilih “Microsoft Comm Control 6.0 (Version 1.1)” kemudian tekan tombol “Install…”
6. Setelah selesai, masuk ke regedit dengan cara ( pilih Start – Run – ketik regedit ).
7. Setelah muncul windows “Registor Editor”, cari key HKEY_CLASSES_ROOT / Licenses /4250E830-6AC2-11cf-8ADB-00AA00C00905 , lalu isi key-nya
   dengan value berikut “kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun” (tanpa tanda petik ).
8. Komponen MSComm sudah siap untuk digunakan. Selamat berkreasi.

Layanan Google Gmail menawarkan sebuah server SMTP (outgoing mail server) untuk account Gmail. Untuk menggunakan Google Gmail SMTP server, gunakan informasi berikut:

Google Gmail Outgoing Mail Server (SMTP): smtp.gmail.com

The Gmail SMTP server requires authentication (use the same settings as for the incoming mail server)

The Google Gmail SMTP Server requires an encrypted connection (SSL) on port 465.

Mengapa kita perlu pengaturan diatas ?

Hotmail, Yahoo Mail, GMail dan penyedia email lainnya pada dasarnya adalah layanan email yang dirancang untuk memberi Anda accesss ke kotak email langsung dari web. Namun, untuk online dan log on ke situs mereka bukanlah merupakan cara yang paling nyaman untuk membaca dan mengirim email Anda.

On the other hand, you have the alternative to send and receive emails through such a mailbox by using a local email client software, such as Outlook Express, Microsoft Outlook, Thunderbird, etc. In order to properly use it, you need to configure your email software with the incoming and outgoing mail servers of your email provider (Hotmail, Gmail, Yahoo! Mail or else).

Mail Server Settings

As other web based email services, Hotmail is using the HTTP protocol for connecting you to your mailbox. If you want to send and receive Hotmail emails using an email client software, then your software must support Hotmail HTTP access for your email account. Some email clients, such as Outlook Express or Microsoft Outlook, offer builtin support for Hotmail accounts, so you only have to select HTTP when you are asked to select your email account type and select Hotmail as the HTTP Mail Service Provider.

Mail Server Settings for Hotmail using the Microsoft Outlook Connector

If you are using Microsoft Outlook & the Outlook Connector, you can define your Hotmail account just like any regular POP3 email account:

Hotmail Incoming Mail Server (POP3) – pop3.live.com (logon using Secure Password Authentification – SPA, mail server port: 995)

Hotmail Outgoing Mail Server (SMTP) – smtp.live.com (SSL enabled, port 25)

Yahoo Mail offers standard POP3 access for receiving emails incoming through your Yahoo mailbox, by using your favorite email client software. To setup your email client for working with your Yahoo account, you need to select the POP3 protocol and use the following mail server settings:

Yahoo Incoming Mail Server (POP3) – pop.mail.yahoo.com (port 110)

Yahoo Outgoing Mail Server (SMTP) – smtp.mail.yahoo.com (port 25)

POP Yahoo! Mail Plus email server settings

Yahoo Plus Incoming Mail Server (POP3) – plus.pop.mail.yahoo.com (SSL enabled, port 995)

Yahoo Plus Outgoing Mail Server (SMTP) – plus.smtp.mail.yahoo.com (SSL enabled, port 465, use authentication)

The Google GMail service offers email client access for retrieving and sending emails through your Gmail account. However, for security reasons, GMail uses POP3 over an SSL connection, so make sure your email client supports encrypted SSL connections.

Google Gmail Incoming Mail Server (POP3) – pop.gmail.com (SSL enabled, port 995)

Outgoing Mail Server – use the SMTP mail server address provided by your local ISP or smtp.gmail.com (SSL enabled, port 465)

The MSN email service allows you to use the MSN POP3 and SMTP servers to access your MSN mailbox.

MSN Incoming Mail Server (POP3) – pop3.email.msn.com (port 110, using Secure Password Authentication – SPA)

MSN Outgoing Mail Server – smtp.email.msn.com (select “My outgoing server requires authentication”)

The Lycos Mail Plus service allows you to use POP3 and SMTP servers for accessing your Lycos mailbox.

Lycos Mail Incoming Mail Server (POP3) – pop.mail.lycos.com (port 110)

Outgoing Mail Server – smtp.mail.lycos.com or use your local ISP SMTP mail server

The AOL email service is a web based system, designed for managing your AOL mailbox via HTTP IMAP access. Unlike Hotmail, you can use any email client to access your AOL mailbox, as long as it supports the IMAP protocol.

AOL Incoming Mail Server (IMAP) – imap.aol.com (port 143)

AOL Outgoing Mail Server – smtp.aol.com or use your local ISP SMTP mail server

The Mail.com email service allows you to use POP3 and SMTP servers for accessing your Mail.com mailbox.

Mail.com Mail Incoming Mail Server (POP3) – pop1.mail.com (port 110)

Outgoing Mail Server – use your local ISP SMTP mail server

The Netscape e-mail system is web-based, which means you can access their e-mail from any Internet connection. Netscape Internet Service also supports AOL® Communicator, Microsoft® Outlook, Microsoft® Outlook Express, and other POP3 e-mail software. The outgoing mail server needs SSL support, so make sure your email client software supports SSL connections over the SMTP protocol.

Netscape Internet Service Incoming Mail Server (POP3) – pop.3.isp.netscape.com (port 110)

Netscape Internet Service Outgoing Mail Server – smtp.isp.netscape.com (port 25, using a secure SSL connection)

The Tiscali email service allows you to use POP3 and SMTP servers for accessing your Tiscali mailbox.

Tiscali Incoming Mail Server (POP3) – pop.tiscali.com (port 110)

Outgoing Mail Server – use your local ISP SMTP mail server

The Freeserve email service allows you to use POP3 and SMTP servers for accessing your Freeserve mailbox.

Freeserve Incoming Mail Server (POP3) – pop.freeserve.com (port 110)

Outgoing Mail Server – use your local ISP SMTP mail server

The Supanet email service allows you to use POP3 and SMTP servers for accessing your Supanet mailbox.

Supanet Incoming Mail Server (POP3) – pop.supanet.com (port 110)

Outgoing Mail Server – use your local ISP SMTP mail server

If your email client does not support Hotmail as a Mail Service Provider or if it simply doesn’t work with your mail server settings, you can use a 3rd party solution like Hotmail Popper, IzyMail, POP Peeper or Email2Pop. When using such tools, you should define your Hotmail account as a POP3 account and you will need to define your incoming mail server will as ‘localhost’ (or 127.0.0.1).

a. Tampilan Utama Program

b. Rangkaian Power Suplay

c. Rangkaian Driver

d. Miniatur Pintu

Bila Anda berminat untuk memilikinya dapat menghubungi email berikut :
isoke@rocketmail.com

Langkah awal kita rancang suatu form dengan design sebagai berikut :

dah terserah akan dirancang seperti apa yang penting harus memperhatikan nama yg penting berikut ini :

* TForm : frmMain
* TButton : btnHook,btnUnHook
* TMemo: mLog

setelah itu supaya tampilannya mirip DOS(komponen memonya) pada event onKeyPress kita masukkan sintak :

function JournalCallBackProc(Code: Integer; wParam, lParam: longint): LRESULT;stdcall;
var y : string ;
var x : cardinal ;
var ev : t_evt;
begin
ev := ptr(lParam);
x := ev.paramL ;
if ev.message = 256 then
begin
case x of
283 : UnhookWindowsHookEx(hookhandle);
7745 : y := ‘a’ ;
12354 : y := ‘b’ ;
11843 : y := ‘c’ ;
8260 : Y := ‘d’ ;
4677 : y := ‘e’ ;
8518 : y := ‘f’ ;
8775 : Y := ‘g’ ;
9032 : y := ‘h’ ;
5961 : y := ‘i’ ;
9290 : y := ‘j’ ;
9547 : y := ‘k’ ;
9804 : y := ‘l’ ;
12877 : y := ‘m’ ;
12622 : y := ‘n’ ;
6223 : y := ‘o’ ;
6480 : y := ‘p’ ;
4177 : y := ‘q’ ;
4946 : y := ‘r’ ;
8019 : y := ‘s’ ;
5204 : y := ‘t’ ;
5717 : y := ‘u’ ;
12118 : y := ‘v’ ;
4439 : y := ‘w’ ;
11608 : y := ‘x’ ;
11353 : y := ‘y’ ;
5466 : y := ‘z’ ;
14627 : y := ‘ ‘ ;
7181 : frmMain.mLog.Lines.Add(”);
end;
end;
bla := y ;
frmMain.mLog.Text := frmMain.mLog.Text + y ;
end;

perlu diingat bahwa ini adalah native function, jadi untuk dapat dipanggil pada event selanjutnya, function ini harus berada pada urutan paling atas.

nah sekarang saatnya memasang sintak pada button, untuk button “Hook” event onClick kita akan pasangkan sintak sebagai berikut :

hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
if hookhandle = 0 then
begin
mLog.Lines.Add(‘Hook Failed’);
end
else
begin
mLog.Lines.Add(‘Hooked’);
btnHook.Enabled := FALSE;
btnUnHook.Enabled := TRUE;
end;

dan untuk button “unHook” event onClick kita pasangkan sintak sebagai berikut :

if UnhookWindowsHookEx(hookhandle) then
begin
mLog.Lines.Add(‘Unhooked’);
btnUnHook.Enabled := FALSE;
btnHook.Enabled := TRUE;
end
else
begin
mLog.Lines.Add(‘Unhooked’);
end;
nah setelah mengikuti langkah-langkah di atas sekarang saatnya mencoba aplikasi dengan menekan tombol F9 pada keyboard dan apabila telah benar maka hasilnya adalah sebagai berikut :

Aplikasi Hook Keyboard

Listing aplikasi selengkapnya adalah sebagai berikut :

unit uMain;

interface

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

type
TfrmMain = class(TForm)
Panel1: TPanel;
btnHook: TButton;
btnUnhook: TButton;
mLog: TMemo;
procedure btnHookClick(Sender: TObject);
procedure btnUnhookClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mLogKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
type t_evt = ^EVENTMSG;

var
frmMain: TfrmMain;
hookhandle : HHOOK;
bla : string;

implementation

{$R *.dfm}
function JournalCallBackProc(Code: Integer; wParam, lParam: longint): LRESULT;stdcall;
var y : string ;
var x : cardinal ;
var ev : t_evt;
begin
ev := ptr(lParam);
x := ev.paramL ;

if ev.message = 256 then begin
case x of
283 : UnhookWindowsHookEx(hookhandle);
7745 : y := ‘a’ ;
12354 : y := ‘b’ ;
11843 : y := ‘c’ ;
8260 : Y := ‘d’ ;
4677 : y := ‘e’ ;
8518 : y := ‘f’ ;
8775 : Y := ‘g’ ;
9032 : y := ‘h’ ;
5961 : y := ‘i’ ;
9290 : y := ‘j’ ;
9547 : y := ‘k’ ;
9804 : y := ‘l’ ;
12877 : y := ‘m’ ;
12622 : y := ‘n’ ;
6223 : y := ‘o’ ;
6480 : y := ‘p’ ;
4177 : y := ‘q’ ;
4946 : y := ‘r’ ;
8019 : y := ‘s’ ;
5204 : y := ‘t’ ;
5717 : y := ‘u’ ;
12118 : y := ‘v’ ;
4439 : y := ‘w’ ;
11608 : y := ‘x’ ;
11353 : y := ‘y’ ;
5466 : y := ‘z’ ;
14627 : y := ” ;
14624 : y := ‘ ‘ ;
7181 : frmMain.mLog.Lines.Add(‘ ‘);
end;
end;
bla := y ;
frmMain.mLog.Text := frmMain.mLog.Text + y ;
end;

procedure TfrmMain.btnHookClick(Sender: TObject);
begin
hookhandle := SetWindowsHookEx(WH_JOURNALRECORD, @JournalCallBackProc , Hinstance, 0);
if hookhandle = 0 then begin
mLog.Lines.Add(‘Hook Failed’);
end
else begin
mLog.Lines.Add(‘Hooked’);
btnHook.Enabled := FALSE;
btnUnHook.Enabled := TRUE;
end;

end;

procedure TfrmMain.btnUnhookClick(Sender: TObject);
begin
if UnhookWindowsHookEx(hookhandle) then begin
mLog.Lines.Add(‘Unhooked’);
btnUnHook.Enabled := FALSE;
btnHook.Enabled := TRUE;
end
else begin
mLog.Lines.Add(‘Unhooked’);
end;

end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
btnHook.Enabled := TRUE;
btnUnHook.Enabled := FALSE;
end;

procedure TfrmMain.mLogKeyPress(Sender: TObject; var Key: Char);
begin
createCaret(mLog.Handle, 0, 8,15);
ShowCaret(mLog.Handle);
SetCaretBlinktime(1500);
end;
end.

Demikian tutorial ini dibuat dan semoga bermanfaat bagi temen-temen semua.

Driver Motor DC menggunakan Relay+Transistor

Driver Motor DC menggunakan IC L298

Gambar 1 memperlihatkan rangkaian driver untuk menggerakkan 1 buah motor dc. Untuk menggerakkan 2 motor dc, berarti kita mesti membuat 1 buah rangkaian lagi yang sama persis dengan Gambar 1.

Bandingkan dengan jika kita menggunakan IC L298 ( Gambar 2 ) dengan 1 IC L298 kita sudah bisa menjalankan 2 buah motor DC sekaligus dengan kemampuan gerak 2 arah untuk masing-masing motor DC. Jadi mana yang lebih sederhana ? Tentu yang Gambar 2 khan …

Tapi ngak apalah yang penting keinginan aku untuk dapat menggerakkan motor dc sudah kesampaian. Tinggal menghubungkannya ke komputer untuk proses controlnya dan rencananya ini akan menggunakan port paralel (DB-25). Tunggu kelanjutannya di sesi berikutnya …

1. Program Disisi Server ( Download )

2. Program Disisi Client ( Download )

3. Untuk download databasenya disini

Program ini ditawarkan dengan harga yang relatif murah, yaitu $50. Bagi yang berminat dapat menghubungi email berikut : isoke@rocketmail.com.

Berikut ini susunan kabel standar menurut warna pada posisi stright dan pada posisi cross.

Crossover / cross cable adalah kabel yang secara manual maping signal output pada satu konektor ke input di konektor yang satu nya lagi atau TX + dari satu konektor di Maping ke RX + di konektor yang lain dan TX – di konektor yang satu ke RX – di konektor yang lain.

Susunan kabel berdasar TX dan RX adalah sebagai berikut. Silahkan klik gambar tabel dibawah.

Cross cable biasa dipakai untuk koneksi dari PC to PC / PC to Router, Pokoknya semua koneksi dari alat yang biasanya koneksi melalui switch atau hub tetapi dipasang secara langsung. Berikut ini contoh posisi kabel dalam kondisi crossover.

Gambar paling kiri adalah posisi warna pada satu sisi dan sisi yang lainnya berdasarkan standar internasional T568A dan T568B. Nomor konektor dihitung dari sebelah kiri dengan kondisi konektor bagian pinnya menghadap kita.

Gambar tengah adalah contoh kabel cross yang sudah jadi dan gambar berikutnya adalah contoh cross over adapter yaitu alat yang bisa membuat stright cable menjadi cross apabila anda tidak ingin merubah konektor dengan cara memotong nya.

Sementara untuk stright cable anda tidak perlu repot memikirkan cross over anda cukup menyamakan posisi kabel di satu sisi dengan sisi lainnya.

Bagi Anda yang ingin mencobanya dapat mengikuti langkah-langkah berikut ini :

1. Buka url berikut freedots.tk
2. Isikan kotak isian “Enter your URL here …” dengan alamat web blog Anda yang Asli. Kemudian pilih Tombol “next”
3. Berikutnya isikan kotak isian “The web address will be renamed to…” dengan alamat web (url) yang Anda inginkan dan isikan karakter sandi yang diberikan pada tempat yang disediakan.
4. Teruskan dengan memilih tombol “next” pada setiap halaman yang ditampilkan dengan terlebih dahulu melengkapi semua kotak isian yang diberikan.
5. Selamat mencoba….