Listing Program mengambil gambar dari webcamp

Sunday, 13 November 2011

Untuk dapat mengambil gambar dari webcam, terlebih dahulu kita harus mengintal DSPack. DSpack merupakan aplikasi tambahan Delphi yang dipakai untuk mendeteksi perangkat webcamp dan mengambil gambar. Untuk mengetahui bagai mana cara Menginstal DSPack silahkan baca tulisan saya Instalasi DSPack Delphi. Setelah DSPack terintal dengan benar maka lakukan langkah-langkah sebagai berikut :


1. Jalankan Delphi.


2. Tambahkan pada Form Delphi berbagai komponen berikut 


: FilterGraph1 , VideoWindow1 , SampleGrabber1 , Filter1 , DBImage1 , Button1 , dan MainMenu1.


3. Atur properti berbagai komponen di atas, sebagai :


4. Klik 2x pada MainMenu1, atur tampilan sedemikian hingga seperti :












5. Tampilan Form sekarang akan berbentuk :


READ MORE - Listing Program mengambil gambar dari webcamp

Apa Itu Pengolahan Citra??

Pengolahan Citra atau Image processing adalah suatu metode yang digunakan untuk memproses  atau memanipulasi gambar dalam bentuk 2 dimensi. Image  processing dapat juga dikatakan segala operasi untuk memperbaiki, menganalisa, atau mengubah suatu gambar. Konsep dasar pemrosesan suatu objek pada gambar menggunakan image processing diambil dari kemampuan indera penglihatan manusia yang selanjutnya dihubungkan dengan kemampuan otak manusia


READ MORE - Apa Itu Pengolahan Citra??

Definisi Citra Digital



Citra direpresentasikan oleh matriks data yang memuat berbagai informasi tentang nilai fungsi citra tersebut. Dengan kata lain, citra yang tampak oleh mata sebenarnya merupakan kumpulan nilai-nilai tertentu yang membentuk suatu pola berdasarkan keadaan yang telah dikondisikan. Berbagai tingkatan derajat keabuan yang lazim digunakan adalah 1 bit, 4 bit, 8 bit, 16 bit, 24 bit, 32 bit dengan representasi nilai-nilai intensitas yang berbeda untuk masing-masing format piksel yang dikandungnya. Misalkan, untuk derajat keabuan 8 bit, maka citra akan memiliki rentangan nilai intensitas dari 0 hingga 255. Untuk citra 16 bit, maka rentangan nilai-nilainya adalah 2 x 8 bit yaitu dari 000-000 hingga 255-255, dan begitu juga untuk citra 24 bit akan memiliki rentangan nilai intensitasnya 3 x 8 bit dari 000-000-000 hingga 255-255-255. Dengan kata lain, satu piksel yang terdapat pada citra 8 bit akan direpresentasikan oleh layer yang memiliki nilai 0-255 pada tabel citra, sedangkan untuk citra 24 bit, satu piksel akan direpresentasikan oleh 3 layer sekaligus, dimana setiap kotaknya akan memiliki jangkauan nilai 0-255.

READ MORE - Definisi Citra Digital

LTE (Long Term Evolution)

Saturday, 12 November 2011


LTE (Long Term Evolution) didefinisikan sebagai standar 3GPP (Third Generation Partnership Project). Release 8 dan juga merupakan evolusi teknologi 1xEV-DO sebagai bagian dari roadmap standar 3GPP2. Dengan spesifikasi seperti itu, LTE dirancang untuk menyediakan efisiensi spektrum yang lebih baik, peningkatan kapasitas radio, biaya operasional yang murah bagi operator, serta layanan mobile roadband kualitas tinggi untuk pengguna. Teknologi LTE memungkinkan operator seluler mengupgrade jaringan GSM, WCDMA atau HSDPA mereka yang ada untuk menyediakan layanan internet yang cepat dan low-delay melalui mobile broadband. Selusi ini juga ideal menjadi langkah lanjut bagi operator CDMA untuk memperoleh kecepatan dan kapasitas tinggi.

Bila dilihat dari segi pasar, LTE mampu memperkuat posisi operator telekomunikasi karena meningkatnya nilai ekonomi jaringan secara keseluruhan, cakupan jaringan yang lebih luas, dan kapasitas yang lebih besar. Operator juga dapat lebih fleksibel mengikuti kebutuhan pasa yang semakin cepat berubah sekaligus mampu menawarkan layanan data broadband dalam skala besar. Sedangkan untuk para konsumen yang mencari tarif yang murah, LTE menjadi jawaban untuk kebutuhan telekomunikasi yang lebih ekonomis. 

Istilah LTE pertama kali diperkenalkan oleh  3GPP untuk memulai tahap evolusi berikutnya  dalam sistem komunikasi bergerak yang berdasarkan  pada teknologi  Orthogonal Frekuensi Division  Multiplexing (OFDM). LTE digunakan untuk  menyediakan solusi  all-IP pada arsitektur  jaringannya. LTE memiliki kemampuan untuk  beroperasi pada mode FDD ataupun TDD. Tidak  seperti UMTS, LTE tidak mendukung  soft  handover. LTE memberdayakan operator untuk  mencapai tingkat puncak  uplink dan  downlink,  meningkatkan efisiensi spektrum, dan mengurangi  CAPEX dan OPEX. Jaringan inti LTE didasarkan pada solusi all-IP, dan tidak seperti GSM / UMTS,  tidak ada elemen jaringan yang terpisah. Pada LTE  circuit-switching hadir di jaringan inti.



READ MORE - LTE (Long Term Evolution)

Tampilan Form aplikasi menarik Delphi 7


Salah satu cara membuat aplikasi yang kita buat menjadi lebih menarik adalah dengan cara membuat tampilan form aplikasi. Dengan form aplikasi yang menarik, akan membuat user aplikasi akan lebih nyaman dan tidak bosan dalam menggunakan aplikasi yang anda buat. Untuk membuat tampilan form tidaklah sulit, yang pertama harus kita lakukan adalah dengan membuat gambar tampilan menggunakan photoshop, corel ataupun aplikasi editing gambar lainnya. Gambarlah sesuai dengan imajinasi anda dan simpan dengan format .bmp.

Contoh gambar form aplikasi :


READ MORE - Tampilan Form aplikasi menarik Delphi 7

Deteksi garis (line detection)

Wednesday, 9 November 2011

Untuk mendeteksi garis digunakan 4 mask sebagai berikut:

READ MORE - Deteksi garis (line detection)

Downloads free software

Friday, 17 December 2010

Download free software pilihan di megaupload.com

1. Internet Download Manager 510 disini dan patchnya disini
2. GOM Player Download
3. Mozilla Firefox 3.6.9 Download
4. Opera Mini Download
5. Google Talk Download
6. IZArc4.1 Download 
7. Windows XP Activation Crack Download http://www.megaupload.com/?d=HLCDKOSA
8. K-Lite_Codec_Pack_630 Download
9. Daemon DTLite4356 Download
READ MORE - Downloads free software

Downloads free EBook

Downloads free EBook Java Programming MegaUpload.com :

1. Java 3D programming By Daniel Selman here
2. Java Database Programming with JDBC here
3. Java Core J2EE Patterns Best Practices and Design Strategies here
4. Java Extreme Programming Cookbook here
5. Java Data Access JDBC, JNDI, and JAXP here

READ MORE - Downloads free EBook

Listing Program Mengubah Citra Grayscale Menjadi Citra Biner Delphi

Friday, 3 December 2010

Citra biner merupakan citra yang terdiri dari komponen warna hitam dan putih. Sifat pengolahan citra biner relatif sederhana, cepat dan mudah diimplementasikan sehingga bisa dijalankan meski memori yang dimiliki kecil. Berikut listing mengubah citra grayscale menjadi citra biner dengan metode otsu (otsu method).

procedure TForm1.btnBinerClick(Sender: TObject);
const level = 255;
var
  histogram: array[0..255] of integer;
  PH: PByteArray;
  TotalMean, Variance, maxVariance, zerothCumuMoment, firstCumuMoment : real;
  i,k: integer;
   j: integer ;
  p: PByteArray;
  Q: PByteArray;
  threshold: byte;
  area: Word;
begin
  imgbin:= tbitmap.Create;
  imgbin:= imggray;
  for i:=0 to level-1 do
  begin
    histogram[i]:=0;
  end;
  for i:=0 to (imgbin.Height-1) do
  begin
    PH:=imgbin.ScanLine[i];
    for j:= 0 to (imgbin.Width-1) do
    begin
      inc(histogram[PH[j]]);
    end;
  end;
  //compute otsu method
  threshold:=0;
  totalMean := 0;
  maxVariance := 0;
  firstCumuMoment := 0;
  zerothCumuMoment := 0;
  area := imgbin.Height * imgbin.Width;
  for k:= 0 to level-1 do TotalMean := TotalMean + (k * histogram[k] / area);
  for k:= 0 to level-1 do
  begin
    zerothCumuMoment := zerothCumuMoment + histogram[k] / area;
    firstCumuMoment :=  firstCumuMoment + (k * histogram[k] / area);
    variance := totalMean * zerothCumuMoment -  firstCumuMoment;
    variance := variance * variance;
    if ((zerothCumuMoment <> 0) and (zerothCumuMoment <> 1)) then
    begin
      variance := variance /(zerothCumuMoment * (1 - zerothCumuMoment));
      if (maxVariance < variance) then
      begin
        maxVariance := variance;
        threshold := k;
      end;
    end;
  end;

  for i:=0 to imgbin.Height-1 do
  begin
    P:= imgbin.ScanLine[i];
    Q:= imggray.ScanLine[i];
    for j:=0 to imgbin.Width-1 do
    if Q[j] > threshold   then
    P[j] := 255
    else
    P[j] := 0;
  end;
  imgbiner.Picture.Bitmap:= imgbin;
  imgbin.SaveToFile('biner.bmp') ;
end;

Untuk pengambilan gambarnya telah dijelaskan dalam aritkel sebelumnya yaitu melalui webcam.
READ MORE - Listing Program Mengubah Citra Grayscale Menjadi Citra Biner Delphi

 
 
 

Teman