Cara Membuat Chatting Sederhana

Hai para Bangsawan Tua .... Jaman sekarang media sosial sedang mengalami peningkatan yang sangat tajam. Hampir semua orang diseluruh dunia memiliki akun sosial media. Mulai dari anak – anak sampai orang tua. Kenapa media sosial ini bisa memasuki semua kalangan ? karena penyajian dari media sosialnya sendiri juga sangat mudah dan sederhana.

Sudah banyak media sosial yang terkenal antara lain facebok, twitter, line dan masih banyak lagi. Tapi tahukah Anda, kita bisa membuat media sosial itu sendiri dengan sederhana. Tapi sebelum membuatnya Anda harus menguasai ilmu Teknik Informatika dulu. Jika Anda tidak memiliki ilmu dasar Informatika, Anda tidak usah kuatir dari artikel ini saya akan mencoba membahas Cara Membuat Chatting Sederhana dengan sedetail mungkin.

1.      Siapkan aplikasi Delphi 7 kalian

2.  Langkah awal buatlah database dengan MS Access, dengan 3 kolom yaitu Username, Chat, dan Waktu lalu simpan dengan format .mdb

3.      Masuk lagi ke delphi 7. Buat form dengan komponen Edit dan Ado Connection.

4. Ubah nama edit1 menjadi Eusername. Lalu pindah ke Event double klik OnKeyPress. Lalu ketikan koding dibawah ini.

procedure TFrmlogin.EnamauserKeyPress(Sender: TObject; var Key: Char);

begin

  if key = #13 then

  begin

    frmchat.Timer1.enabled := true;

    Frmchat.Timer1.interval := 1;

    Frmlogin.hide;

    frmchat.show;

    frmchat.echat.clear;

    frmchat.echat.setfocus;

    frmchat.Memochat.Lines.clear;

  end;

end;

5.    Langkah Kedua, buat New Form dan isikan dengan komponen edit, memo, Ado Query dan Timer.

6.   Ubah nama edit dan memo menjadi Echat dan MemoChat. Sehingga hasilnya seperti dibawah ini.

7.     Pilih Echat, lalu ke Event. Double klik OnkeyPress dan ketikan koding dibawah ini.

var

  frmchat: Tfrmchat;

  UN, Chat : string;

procedure Tfrmchat.FormActivate(Sender: TObject);

begin

  UN := Frmlogin.Enamauser.Text;

  Chat := '';

 

end;

procedure Tfrmchat.EchatKeyPress(Sender: TObject; var Key: Char);

begin

  if key= #13 Then

  begin

    ADOQuery1.Active := False;

    ADOQuery1.SQL.Clear;

    ADOQuery1.SQL.Add('select * from tbl_chat');

    ADOQuery1.ExecSQL;

    ADOQuery1.Active := True;

    ADOQuery1.Last;

    if (ADOQuery1.FieldValues['UN'] <> Frmlogin.Enamauser.Text) or

      (ADOQuery1.FieldValues  ['Chat'] <> frmchat.Echat.Text) then

    begin

    // Adoquery1.delete;

    ADOQuery1.Append;

    ADOQuery1.FieldValues ['UN'] := Frmlogin.Enamauser.Text;

     ADOQuery1.FieldValues ['Chat'] := frmchat .Echat .Text;

     ADOQuery1.FieldValues ['Waktu'] := FormatDateTime('dd/MM/yyyy hh:mm:ss', now);

     ADOQuery1.Post;

     UN := Frmlogin.Enamauser.Text;

     chat := frmchat.Echat.Text;

     Memochat.Lines.add(ADOQuery1.FieldValues['UN'] + ' : ' +

      ADOQuery1.FieldValues['Chat']);

     Echat.Clear;

    end;

  end;

end;

procedure Tfrmchat.Timer1Timer(Sender: TObject);

begin

  ADOQuery1.Active := false;

  ADOQuery1.SQL.Clear;

  ADOQuery1.SQL.Add('select * from tbl_chat');

  ADOQuery1.ExecSQL;

  ADOQuery1.Active := True;

  ADOQuery1.Last;

  if (ADOQuery1.FieldByName('Chat').AsString <> Chat) then

  begin

  Memochat.Lines.Add(ADOQuery1.FieldByName('UN').AsString  + ' : ' +

    ADOQuery1.FieldByName ('Chat').AsString );

  UN := ADOQuery1.FieldByName('UN').AsString;

  Chat := ADOQuery1.FieldByName('Chat').AsString;

end;

end;

procedure Tfrmchat.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Application.Terminate;

end;

end.

Nb. Ketik koding yang berwarna saja.

Ya begitu lah cerita membuat media chat yang sangat sederhana. Mungkin bisa membantu tugas kuliah Anda dan dapat menjadi hiburan ^_^