Bilgisayarımızla konuşalım

Kodlar kullanarak bilgisayarımızın donanımıyla konuşalım, ona emir verelim..

Bilgisayarımıza yazdığımız kodlarla emir verebilir, ondan istediğimiz gibi faydalanabiliriz.. Nasıl mı çok basit.. Ama bilgisayarımızın donanımına ait bir takım kalıp kodları bilmeliyiz.. Mesela örnek olarak bir CD-Rom açma-kapama programı yapıyoruz. CD-Rom'un çalışması manuel olarak iki şekildedir. Ya açılır, ya da kapanır. Cd'yi okuması vs. otomatik gerçekleşen işlemler olduğundan ayrıca koda gerek yoktur onlar için..

Örneğin ben yazmış olduğum Cd-Rom açma-kapama programında kullandığım önemli iki kod var. Buyrun kodlar:


unit Unit1;



interface



uses

  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, SkinCaption, WinSkinData;



type

  TForm1 = class(TForm)

    Image1: TImage;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    SkinData1: TSkinData;

    SkinCaption1: TSkinCaption;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



// Ac

Procedure OpenDoor;

Begin

  mciSendString('Set cdaudio door open', nil, 0, 0);

End;



// Kapat

Procedure CloseDoor;

Begin

  mciSendString('Set cdaudio door closed', nil, 0, 0);

End;







procedure TForm1.BitBtn1Click(Sender: TObject);

begin

opendoor;

end;



procedure TForm1.BitBtn2Click(Sender: TObject);

begin

closedoor;

end;



procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Application.Terminate;

end;



end.



Burada dikkat etmemiz gereken konu dediğim gibi açılış ve kapanış kalıp kodları..
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

hocam bu kodlar delphinin tüm versiyonlarında aynı demi....saol
evet öyle olmalı ama ben sadece 7.0 da denedim..
hocam biraz daha ayrıntılı olabilir mi yani form üzerinde herhangi bir buton yardımıyla vs. kullanarak nasıl oluşturabiliriz?
ewet haklısın paTron_rec bunu yapma imkanımız vardır heralde yardımlarınızı bekliyoruz
Evet arkadaşlar form üzerinde 3 adet button olması gerekiyor zaten kodda da belli olduğu için yazma gereği görmedim. 1. Buton Aç, 2. Buton Kapama ve 3. Buton da Programdan çıkış için kullanılmıştır. (Ben örnekte BitBtn kullandım buton olarak görsellik açısından.)
:Dsite fena değilde aradığım bilgiye ulaşamıyorm
Ne aradığını paylaş da yardımcı olalım :)
bu kodlar pascal da da gecerli mi acaba???:sasir:
Delphi Object Pascal dilini kullanır. Dolayısıyla bu kodlar MS-Dos Pascal'da geçerli olmayabilir. Fakat, hemen hemen aynıdır. Yani biraz mantığını biliyorsanız işin, bu kodları uyarlayabilirsiniz.
ne oldugunu bilmiyorum ama bu kodlar calışmıyor
ne olduğunu bilmediğinizi söylediğinize göre kodların nasıl çalıştırılması ve yazılması konusunda da bilgi sahibi değilsiniz sanırım.. Daha temel derslerden işe başlayabilirsiniz..
slm arkadaşlar yaşım 37 esnafım günümün tamamı boş geçiyor programcılığa merakım var ama çalışabileceğim arkadaş ortamı bulamadım içimde ukte heves kaldı bu konuda paylaşımı olan arkadaşlara şimdiden tşkr ediyorum bu işi çözmek anlamak ve uygulamak istiyorum
Musa Bey, istedikten sonra her şey olur.. İnternet ve bir kaç kaliteli kitapla temel mantığı kavrar, ardından da kendiniz yeni şeyler üretmeye başlarsınız. Bu şekilde bir yol seçebilirsiniz. Fakat unutmayın ki bu iş gerçekten azim ve kararlılık yanında sabır da istiyor. Şimdiden kolay gelsin diyor, başarılar diliyorum.
slmm arkadaşlar aranızda yeniyim umarım artık delhı ile ilgiliş her sorunuma burdan cevap bulabilirim görüşmek üzre sağlıcakla :D
Piyasada birçok kitap mevcut, reklam yapmış olmayayım. Yine de çok arzu ederseniz özelden bağlantı kurun lütfen..
Yazdığınğz codları delphi 6-da yokladım alınmadı. Bu delphi 6-nın sorunu ola bilirmi. İlyas Alakbar, Bakü, Azerbaycan
bu kodları hangi programda yazıyoruz hocam

Yukarı Git