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.
Listing program delphi untuk open power point
Berikut ini hardwarenya
Salam — Awan 
Bagus sekali projectnya..
kembangkan terus idenya, siapa tahu bisa menjadi lebih canggih
Ok..Thanks mas Edo..
mas, gak pengen bahas tutorial bahasa c buat MK??
OK..terima kasih atas masukannya…
Tambah matpa aja om dayat..
untuk keluarga AVR dan PIC paling enak pake software IDE (LDmikro) sudah berbentuk diagram tanga gratitistis…
http://cq.cx/ladder.pl.
@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…
mas, source program delphi sama avr nya kok ga bisa didonwload ya…klo boleh dikirim ke clustonik@gmail.com