Home > Delphi, Mikrokontroler > Kontrol Power Point dengan AVR dan Delphi

Kontrol Power Point dengan AVR dan Delphi

Ini project berfungsi untuk menjalankan power point menggunakan AVR dan Delphi, project ini menggunakan beberapa tombol yang dikendalikan oleh avr dan sebuah program delphi untuk mengendalikan power point-nya. Komunikasi yang dibangun masih sederhana yaitu secara serial dengan paket data yang telah ditentukan. Setting serial yang digunakan adalah (19200,8,1,n,n). Project ini hanya bisa mengendalikan power point sebanyak 4 mode yaitu open, next, prev dan close. Project ini masih simple, jadi perlu pengembangan lebih lanjut misalnya saja komunikasinya diganti secara wireless dan menu2 yang ada ditambah. Berikut ini listing program untuk membuka file power point.

open

Listing program delphi untuk open power point

Berikut ini hardwarenya

05022009Salam — Awan🙂

Categories: Delphi, Mikrokontroler
  1. edo
    March 20, 2009 at 2:51 am

    Bagus sekali projectnya..
    kembangkan terus idenya, siapa tahu bisa menjadi lebih canggih

  2. Dayat Kurniawan
    March 20, 2009 at 9:15 am

    Ok..Thanks mas Edo..🙂

  3. May 10, 2009 at 3:12 am

    mas, gak pengen bahas tutorial bahasa c buat MK??

  4. Dayat Kurniawan
    May 11, 2009 at 2:38 am

    OK..terima kasih atas masukannya…

  5. Harnan MAlik
    October 5, 2009 at 5:20 pm

    Tambah matpa aja om dayat..

  6. gandhi
    May 25, 2010 at 5:23 pm

    untuk keluarga AVR dan PIC paling enak pake software IDE (LDmikro) sudah berbentuk diagram tanga gratitistis…
    http://cq.cx/ladder.pl.

  7. Dayat Kurniawan
    May 27, 2010 at 1:48 am

    @Bernardidz –> thanks buat jawabannya…
    untuk masalah yang dihadapi mungkin tahap pertama harus didapatkan video format dulu..listing program seperti dibawah ini

    procedure TForm1.getvideoformat;
    var
    VideoFormat: TPinList;
    i: integer;
    begin
    Filter1.BaseFilter.Moniker:= VideoDev.GetMoniker(camdivid);
    VideoDev.SelectGUIDCategory(CLSID_VideoInputDeviceCategory);
    VideoFormat:=PinListForMoniker(VideoDev.GetMoniker(camdivid));
    try
    Combobox1.Clear;
    VideoMediaTypes.Assign(VideoFormat.First);
    for i:=0 to VideoMediaTypes.Count-1 do
    combobox1.Items.Add(VideoMediaTypes.MediaDescription[i]);
    finally
    VideoFormat.Free;
    end;
    end;

    setelah terdefinisakan video formatnya..sebelum play webcam tambahkan program dibawah ini

    // configure output Video media type
    if Filter1.FilterGraph nil then
    begin
    PinList := TPinList.Create(Filter1 as IBaseFilter);
    if combobox1.ItemIndex -1 then
    with (PinList.First as IAMStreamConfig) do
    begin
    SetFormat(VideoMediaTypes.Items[combobox1.Itemindex].AMMediaType^)
    end;
    PinList.Free;
    end;

    mungkin itu bisa membantu…

    @gandhi –> thanks a lot…

  8. dwi
    December 6, 2011 at 1:57 pm

    mas, source program delphi sama avr nya kok ga bisa didonwload ya…klo boleh dikirim ke clustonik@gmail.com

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: