Showing posts with label programming. Show all posts
Showing posts with label programming. Show all posts

Friday 24 April 2015

DELPHI7 :: Komponen Delphi Untuk Berkomunikasi dengan Modem USB



Sebagai gambaran, seperti yang telah saya katakan komponen ini dapat digunakan untuk berkomunikasi dengan modem USB, singkatnya anda dapat membuat aplikasi SMS Gateway dengan komponen ini. Jadi selain gammu anda dapat memanfaatkannya untuk kebutuhan membangun aplikasi SMS Gateway. komponen ini memiliki beberapa event seperti berikut

OnConnect = Event yang digunakan ketikan modem konek ke komputer. 
OnDetect = Event yang digunakan untuk mendeteksi perangkat modem.
OnDisconnect = Event ketika modem disconnect 
OnNewMessage = event ketika modem menerima SMS
OnReadMessage = event ketika SMS dibaca
OnSend = Event ketika SMS dikirim 

Komponen Delphi Untuk Berkomunikasi dengan Modem USB

Anda dapat meletakan coding anda pada event-event diata. Jika anda berminat untuk mencoba komponen ini silahkan Download disini. Mohon maaf karena saya belum sempat membuat projek untuk mencoba komponennya. anda dapat melihat contoh demo penggunaannya didalam folder master komponennya. selamat mencoba.

DELPHI7 :: Ebook Lengkap Pemrograman Delphi


Borland Delphi (Delphi) merupakan pemrograman berbasis Visual. Borlan Delphi merupakan pemrograman yang dikembangkan dari Turbo Pascal, sehingga bahsa yang digunakan juga bahasa pascal. Borlan delphi di luncurkan sekitar tahun 1995 pada system oprasi Windows.
Bagi temen-temen yang lagi belajar pemrograman Delphi, berikut ini beberpa koleksi ebook pemrograman Delphi yang mungkin bisa dijadikan referensi untuk belajar. Ebook ini lumayan lengkap, mulai dari tahap pemula sampai Master.
Berikut adalah beberapa Ebook yang bisa di download.


Silahkan di sownload sepuasnya, semoga bermanfaat.


DELPHI :: Contoh Software delphi Simulate the pressing of keyboard keys


{1. PostKeyEx32 function} 

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean); 
{************************************************************
* Procedure PostKeyEx32
*
* Parameters:
*  key    : virtual keycode of the key to send. For printable
*           keys this is simply the ANSI code (Ord(character)).
*  shift  : state of the modifier keys. This is a set, so you
*           can set several of these keys (shift, control, alt,
*           mouse buttons) in tandem. The TShiftState type is
*           declared in the Classes Unit.
*  specialkey: normally this should be False. Set it to True to
*           specify a key on the numeric keypad, for example.
* Description:
*  Uses keybd_event to manufacture a series of key events matching
*  the passed parameters. The events go to the control with focus.
*  Note that for characters key is always the upper-case version of
*  the character. Sending without any modifier keys will result in
*  a lower-case character, sending it with [ssShift] will result
*  in an upper-case character!
************************************************************}
 
type 
  TShiftKeyInfo = record 
    shift: Byte; 
    vkey: Byte; 
  end; 
  byteset = set of 0..7; 
const 
  shiftkeys: array [1..3] of TShiftKeyInfo = 
    ((shift: Ord(ssCtrl); vkey: VK_CONTROL), 
    (shift: Ord(ssShift); vkey: VK_SHIFT), 
    (shift: Ord(ssAlt); vkey: VK_MENU)); 
var 
  flag: DWORD; 
  bShift: ByteSet absolute shift; 
  i: Integer; 
begin 
  for i := 1 to 3 do 
  begin 
    if shiftkeys[i].shift in bShift then 
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0); 
  end; { For } 
  if specialkey then 
    flag := KEYEVENTF_EXTENDEDKEY 
  else 
    flag := 0; 
  keybd_event(key, MapvirtualKey(key, 0), flag, 0); 
  flag := flag or KEYEVENTF_KEYUP; 
  keybd_event(key, MapvirtualKey(key, 0), flag, 0); 
  for i := 3 downto 1 do 
  begin 
    if shiftkeys[i].shift in bShift then 
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 
        KEYEVENTF_KEYUP, 0); 
  end; { For } 
end; { PostKeyEx32 } 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  PostKeyEx32(VK_LWIN, [], False); 
  PostKeyEx32(Ord('D'), [], False); 
  PostKeyEx32(Ord('C'), [ssctrl, ssAlt], False); 
end; 
{************************************************************} 
{2. With keybd_event API} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  {or you can also try this simple example to send any
   amount of keystrokes at the same time. }
 
  {Pressing the A Key and showing it in the Edit1.Text} 
  Edit1.SetFocus; 
  keybd_event(VK_SHIFT, 0, 0, 0); 
  keybd_event(Ord('A'), 0, 0, 0); 
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); 
  {Presses the Left Window Key and starts the Run} 
  keybd_event(VK_LWIN, 0, 0, 0); 
  keybd_event(Ord('R'), 0, 0, 0); 
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0); 
end; 
{***********************************************************} 
{3. With keybd_event API} 

procedure PostKeyExHWND(hWindow: HWnd; key: Word; const shift: TShiftState; 
  specialkey: Boolean); 
{************************************************************
* Procedure PostKeyEx
*
* Parameters:
*  hWindow: target window to be send the keystroke
*  key    : virtual keycode of the key to send. For printable
*           keys this is simply the ANSI code (Ord(character)).
*  shift  : state of the modifier keys. This is a set, so you
*           can set several of these keys (shift, control, alt,
*           mouse buttons) in tandem. The TShiftState type is
*           declared in the Classes Unit.
*  specialkey: normally this should be False. Set it to True to
*           specify a key on the numeric keypad, for example.
*           If this parameter is true, bit 24 of the lparam for
*           the posted WM_KEY* messages will be set.
* Description:
*  This
procedure sets up Windows key state array to correctly
*  reflect the requested pattern of modifier keys and then posts
*  a WM_KEYDOWN/WM_KEYUP message pair to the target window. Then
*  Application.ProcessMessages is called to process the messages
*  before the keyboard state is restored.
* Error Conditions:
*  May fail due to lack of memory for the two key state buffers.
*  Will raise an exception in this case.
* NOTE:
*  Setting the keyboard state will not work across applications
*  running in different memory spaces on Win32 unless AttachThreadInput
*  is used to connect to the target thread first.
*Created: 02/21/96 16:39:00 by P. Below
************************************************************}
 
type 
  TBuffers = array [0..1] of TKeyboardState; 
var 
  pKeyBuffers: ^TBuffers; 
  lParam: LongInt; 
begin 
  (* check if the target window exists *) 
  if IsWindow(hWindow) then 
  begin 
    (* set local variables to default values *) 
    pKeyBuffers := nil; 
    lParam := MakeLong(0, MapVirtualKey(key, 0)); 
    (* modify lparam if special key requested *) 
    if specialkey then 
      lParam := lParam or $1000000; 
    (* allocate space for the key state buffers *) 
    New(pKeyBuffers); 
    try 
      (* Fill buffer 1 with current state so we can later restore it. 
         Null out buffer 0 to get a "no key pressed" state. *) 
      GetKeyboardState(pKeyBuffers^[1]); 
      FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0); 
      (* set the requested modifier keys to "down" state in the buffer*) 
      if ssShift in shift then 
        pKeyBuffers^[0][VK_SHIFT] := $80; 
      if ssAlt in shift then 
      begin 
        (* Alt needs special treatment since a bit in lparam needs also be set *) 
        pKeyBuffers^[0][VK_MENU] := $80; 
        lParam := lParam or $20000000; 
      end; 
      if ssCtrl in shift then 
        pKeyBuffers^[0][VK_CONTROL] := $80; 
      if ssLeft in shift then 
        pKeyBuffers^[0][VK_LBUTTON] := $80; 
      if ssRight in shift then 
        pKeyBuffers^[0][VK_RBUTTON] := $80; 
      if ssMiddle in shift then 
        pKeyBuffers^[0][VK_MBUTTON] := $80; 
      (* make out new key state array the active key state map *) 
      SetKeyboardState(pKeyBuffers^[0]); 
      (* post the key messages *) 
      if ssAlt in Shift then 
      begin 
        PostMessage(hWindow, WM_SYSKEYDOWN, key, lParam); 
        PostMessage(hWindow, WM_SYSKEYUP, key, lParam or $C0000000); 
      end 
      else 
      begin 
        PostMessage(hWindow, WM_KEYDOWN, key, lParam); 
        PostMessage(hWindow, WM_KEYUP, key, lParam or $C0000000); 
      end; 
      (* process the messages *) 
      Application.ProcessMessages; 
      (* restore the old key state map *) 
      SetKeyboardState(pKeyBuffers^[1]); 
    finally 
      (* free the memory for the key state buffers *) 
      if pKeyBuffers <> nil then 
        Dispose(pKeyBuffers); 
    end; { If } 
  end; 
end; { PostKeyEx } 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  targetWnd: HWND; 
begin 
  targetWnd := FindWindow('notepad', nil) 
    if targetWnd <> 0 then 
    begin 
      PostKeyExHWND(targetWnd, Ord('I'), [ssAlt], False); 
  end; 
end; 
{***********************************************************} 
{3. With SendInput API} 

procedure TForm1.Button1Click(Sender: TObject); 
const 
   Str: string = 'writing writing writing'; 
var 
  Inp: TInput; 
  I: Integer; 
begin 
  Edit1.SetFocus; 
  for I := 1 to Length(Str) do 
  begin 
    Inp.Itype := INPUT_KEYBOARD; 
    Inp.ki.wVk := Ord(UpCase(Str[i])); 
    Inp.ki.dwFlags := 0; 
    SendInput(1, Inp, SizeOf(Inp)); 
    Inp.Itype := INPUT_KEYBOARD; 
    Inp.ki.wVk := Ord(UpCase(Str[i])); 
    Inp.ki.dwFlags := KEYEVENTF_KEYUP; 
    SendInput(1, Inp, SizeOf(Inp)); 
    Application.ProcessMessages; 
    Sleep(80); 
  end; 
end; 

procedure SendAltTab; 
var 
  KeyInputs: array of TInput; 
  KeyInputCount: Integer; 
  
procedure KeybdInput(VKey: Byte; Flags: DWORD); 
  begin 
    Inc(KeyInputCount); 
    SetLength(KeyInputs, KeyInputCount); 
    KeyInputs[KeyInputCount - 1].Itype := INPUT_KEYBOARD; 
    with  KeyInputs[KeyInputCount - 1].ki do 
    begin 
      wVk := VKey; 
      wScan := MapVirtualKey(wVk, 0); 
      dwFlags := KEYEVENTF_EXTENDEDKEY; 
      dwFlags := Flags or dwFlags; 
      time := 0; 
      dwExtraInfo := 0; 
    end; 
  end; 
begin 
  KeybdInput(VK_MENU, 0);                // Alt 
  KeybdInput(VK_TAB, 0);                 // Tab 
  KeybdInput(VK_TAB, KEYEVENTF_KEYUP);   // Tab 
  KeybdInput(VK_MENU, KEYEVENTF_KEYUP); // Alt 
  SendInput(KeyInputCount, KeyInputs[0], SizeOf(KeyInputs[0])); 
end;



sumber

VB6.0 :: Face Detection dengan vb 6.0


05DES
Face Detection dengan   vb 6.0 + Cam
jika anda gak punya aplikasi untuk view cam , anda bisa manfaatkan facebook  dengan memilih
“tambahkan foto/Vidio”  —>”Gunakan WbCam”–>”Plih Allow”  jika udah muncul view cam nya   bisa di tutup .dan di coba  source code face detection dari saya

C# :: Source Code Face and Eyes Recognition

 
     This sample code provides you the concept on how image processing is done and manipulated using EmguCV. One good example of image processing is FACE and Object DETECTION and RECOGNITION etc. but in this sample code I only give Face detection and Eyes detection concept. I Hope you guys, you appreciate and love this work.. In order to work this program: 1.) I never use any SDK for this.. I just use EMGU CV for Image processing and Vision library. 2.) There is the so called COMPATIBILITY ISSUE when running and compiling this program... This program is compile in the Windows XP SP3 32-Bit OS. Therefore this program runs only on Windows XP. Note: when you compile and run this in the Windows 7 32 or 64-Bit OS, this program will commit an error on "cvextern.dll" why? because of the compatibility issue which is this program is compile under Windows XP. Solution: 1.) Download the latest EMGU CV, then run and compile it under your OS Compatibility. After compiling.. Copy the following DLL and paste it in the folder where you save this program. *cvextern.dll *Emgu.CV.dll *Emgu.CV.ML.dll *Emgu.CV.UI.dll *Emgu.Util.dll *opencv_calib3d220.dll *opencv_contrib220.dll *opencv_core220.dll *opencv_features2d220.dll *opencv_ffmpeg220.dll *opencv_flann220.dll *opencv_gpu220.dll *opencv_highgui220.dll *opencv_imgproc220.dll *opencv_legacy220.dll *opencv_ml220.dll *opencv_objdetect220.dll *opencv_video220.dll 2.) Download the latest SQLite connector for .Net IDE (System.Data.SQLite.dll) Thank you and Good Day... Philip Cesar B. Garay BSIT Mindanao State University at Naawan Naawan Misamis Oriental 9023 Philippines For more info about this system.. please visit this link Face Detection Concept in C# 

 
winzip iconDownload code

C :: FACE DETECTOR

detereco.dll - library yang ditulis dalam C ++ yang memungkinkan Anda untuk dengan mudah mendeteksi dan mengenali wajah menggunakan webcam atau hanya gambarDeterecoNet.dll diciptakan untuk proyek NET.. Anda dapat membeli jumlah yang diperlukan dari lisensi atau men-download fungsional 15 hari versi trial penuh.

Lihat screenshot yang lebih besar dari contoh penggunaan DLL.
detereco.dll adalah C ++ versi perpustakaan pengakuan kami. Kami memiliki contoh proyek bernama UseDeterecoDll yang menunjukkan bagaimana menggunakan semua fungsi yang disediakan oleh detereco.dll. Untuk menjalankannya hanya meluncurkan UseDeterecoDll.exe terletak di folder UseDeterecoDllRelease. detereco.dll harus dalam direktori yang sama seperti file .exe. Untuk melihat contoh kode dengan komentar rinci untuk semua langkah-langkah penting UseDeterecoDll.sln terbuka dengan menggunakan VS2008.UseDeterecoDll.cpp adalah file utama.
DeterecoNet.dll adalah versi NET perpustakaan pengakuan kami. Cukup tambahkan dll sebagai acuan untuk proyek NET Anda dan mulai mengembangkan aplikasi Anda menggunakan C # atau bahasa VB.NET. DeterecoNet.dll adalah pembungkus untuk C ++ detereco.dll, sehingga detereco.dll harus dalam direktori yang sama seperti DeterecoNet.dll. Kami memiliki C # proyek bernama UseDeterecoNetDll yang menunjukkan bagaimana menggunakan semua fungsi yang disediakan oleh DeterecoNet.dll. Untuk menjalankannya hanya meluncurkan UseDeterecoNetDll.exe terletak di folder UseDeterecoNetDllRelease. Untuk melihat kode dengan komentar rinci untuk semua langkah-langkah penting UseDeterecoNetDll.sln terbuka dengan menggunakan VS2008, .NET Framework 3.5 SP1 harus dipasang.



VB.NET :: Face Detection in VB.NET

Face Detection in VB.NET


Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports System.Windows.Forms
Imports System.Drawing
 
 
Module Module1
 
Sub Main()
'Load the image from file
Dim img As New Image(Of Bgr, Byte)("lena.jpg")
 
'Load the object detector
Dim objectToDetect As New HaarCascade("haarcascade_frontalface_alt2.xml")
 
'Convert the image to Grayscale
Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()
 
For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0)
img.Draw(face.rect, New Bgr(Color.White), 1)
Next
 
'Show the image
UI.ImageViewer.Show(img)
 
End Sub
 
End Module

Monday 20 April 2015

DELPHI :: Membuat Aplikasi Penjualan (POS) dengan Delphi


Kali ini saya akan proses pembuatan aplikasi Penjualan Point Of Sales (POS) yang sederhana dengan menggunakan delphi. Disini saya menggunakan DELPHI XE2 tapi prosesnya sama bagi pengguna delphi versi lain. Sebelum praktek sedikit saya jelaskan apa itu POS. POS adalah aplikasi penjualan yang digunakan untuk memanajemen penjualan atau toko-toko kecil, biasanya POS berisi modul-modul yang terdapat pada aplikasi guna untuk memanajemen datanya. Misal:

  • Data Barang
  • Data Pelangan
  • Data Pengguna
  • Data Supplier
  • Transaksi Pembelian
  • Transaksi Penjualan
  • Laporan Penjualan
  • Laporan Pembelian
  • Laporan Laba Rugi
Kalau untuk aplikasi POS yang berharga mahal mungkin modulnya lebih banyak dari itu ada juga yang bisa terkoneksi internet dengan menggunakan web service.

Karena ini nanti akan membahas aplikasi POS yang sederhana, maka saya batasi masalah agar pembahasan nanti tidak meluas. Modul-modul diatas yang nantinya saya gunakan untuk membuat aplikasi POS.

Tahap-tahap yang perlu dilakukan pertama adalah membuat database POS nya. Database yang nanti saya gunakan adalah MySQL. Untuk yang belum mengetahui bagaimana membuat database menggunakan MySQL bisa merujuk ke halaman Membuat Database Dengan MySQL. Kita akan membuat database dengan nama possederhana. Setelah membuat database maka selanjutnya adalah mebuat tabel, bagi yang belum tahu pembuatan tabel dan operasi di dalamnya silahkan berujuk ke halaman Operasi tabel mysql. Tabel-tabel yang kita buat nanti adalah:
  1. tbarang nantinya digunakan untuk meyimpan Data Barang
  2. Terdiri dari Field-field: ( kodebarang, namabarang, satuan, hargabeli, hargajual, kdsupplier,stok ). kodebarang sebagai primary key
  3. tbpelanggan nantinya digunakan untuk meyimpan Data Pelanggan
  4. Terdiri dari Field-field: ( kodepelanggan, namapelanggan, alamat, nomertelepon ). kodepelanggan sebagai primary key
  5. tbpengguna nantinya digunakan untuk menyimpan Data Pengguna Aplikasi
  6. Terdiri dari Field-field: ( kodepengguna, namapengguna, notelepon, password). kodepenggunasebagai primary key
  7. tb_pembelian nantinya digunakan untuk menyimpan Data Master Pembelian
  8. Terdiri dari Field-field: ( kodepembelian, tgl_pembelian, totalbeli, kodesupplier, kodepengguna). kodepembelian sebagai primary key
  9. tb_detailpembelian nantinya digunakan untuk menyimpan Detail Barang yang dibeli
  10. Terdiri dari Field-field: ( id, kodepembelian, kodebarang, hargabeli, jumlah,subtotal). idsebagai primary key
  11. tb_penjualan nantinya digunakan untuk menyimpan Data Master Penjualan
  12. Terdiri dari Field-field: ( kodepenjualan, tgl_penjualan, totaljual, kodepelanggan, kodepengguna). kodepenjualan sebagai primary key
  13. tb_detailpenjualan nantinya digunakan untuk menyimpan Detail Barang yang terjual
  14. Terdiri dari Field-field: ( id_tabel, kodepenjualan, kodebarang, hargajual, jumlah,subtotal). kodepembelian sebagai primary key .
Perancangan database sudah selesai. Desain database dapat dilihat pada gambar dibawah yang menggunakan Editor Navicat.

Tabel Penjualan

Tutorial Pembuatan Aplikasi Sederhana untuk part 1 Sampai sini dulu. dengan perancangan databasenya.
Pada Part2 nanti akan desain interface di delphi . Aplikasi ini untuk pemula seperti saya. Kalau sudah pada master harap kasih komen dan sarannya. Orang belajar, salah itu biasa jangan dicela atau dihina. :D

Database yang telah selesai dibuat tadi bisa Sedot disini



DELPHI7 ::KUMPULAN DAFTAR DELPHI PROJECT


1. Program Delphi "calculator sederhana" download now

2. Program Delphi "astrologi" download now

3. Program Unlock "Modem Smartfren Huawei EC 1260-2" download now

4. Program Delphi "berat badan" download now

5. Program Delphi "mata uang" download now

6. Program Delphi "buku" download now

7. Program Delphi "tiket film" download now

8. Program Delphi "jam" download now

9. Program Delphi "jam digital" download now



Source

DELPHI7 :: GRATIS DOWNLOAD KUMPULAN PROJECT DELPHI


berikut adala beberapa aplikasi yang saya reupload dari website : http://rubungsemut.blogspot.com/2012/01/download-program-delphi-free.html
semoga bermanfaat,

1. Presentasi Keren download now

2. Presentasi Mantap download now

3. Presentasi Yahud download now 

DELPHI7 :: Kumpulan File Berkaitan dengan delphi