Dynamic Link Library ( Dll ) programı ile saat oluşturmak için aşağıdaki kodları yazarak yapabilirsiniz. unit dijital; interface uses SysUtils, Classes, ExtCtrls, Dialogs; type Tdijital = class(TPanel) private Tetikle : TTimer; procedure SaatiGetir;
Delphi Programı içerisinde başka bir program açarak işinizi daha çabuk yapabilirsiniz. Bunu yapmak için aşağıdaki yolu izleyiniz. procedure TForm1.Button1Click(Sender: TObject); var hNotePad, Style: Cardinal; begin // button click event hNotePad := FindWindow(nil, ‘Adsız – Not Defteri’); if hNotePad = 0 then begin ShowMessage(‘NotePad Çalışmıyor’); Exit;
Visual Basic‘de Saat ekleme yapmak için aşağıdaki kodları ekleyerek yapabilirsiniz. Private Declare Function sndPlaySound Lib “WINMM.DLL” Alias “sndPlaySoundA” (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long Dim Ses As Long Dim P, K, Saat, Daki, S, gun, XA, XB, YA, YB, Ala As Integer Dim San, Dak, Saa As Double
Delphi programlama dilinin temelinin pascal programlama dili oluşturmaktadır. Özellikle Delphi programlama diline nesne yönelimli programlama anlayışıyla yapılandırılmış Turbo Pascal dilinin görsel sürümü de diyebilirsiniz. Nesne, sınıf, kalıtım, fonksiyon aşırı yükleme (overloading) gibi temel nesneye yönelik programlama tekniklerini ve daha fazlasını içeren ve c++ den aşağı kalmayan güçlü ve esnek 1 programlama dilidir.
Visual Basic de windows hesap makinesine benzer bir program ekleyerek Visual Basic hesap makinesi kullanarak işlemlerinizi kolaylıkla yapabilirsiniz. Private Sub Command1_Click() Text1.Text = Text1.Text + “0″ End Sub Private Sub Command10_Click() Text1.Text = Text1.Text + “9″ End Sub
Cdrom Açma- Kapama sistemini yapmak için Formun bulunduğu yere 2 tane command ekleyerek aşağıda bulunan kodları ekleyiniz. Private Declare Function mciExecute Lib “winmm.dll” (ByVal lpstrCommand As String) As Long Private Sub Command1_Click()
ASP Active Server Pages (Etkin Sunucu Sayfaları)’nda Kayıtlarınızı listelemek için aşağıda verilen kodları kullanarak yapabilirsiniz. <html> <head> <meta http-equiv=”Content-Type” content=”text/html; charset=windows-1254″> <title>İsim</title> </head> <body> <FORM action=listele.asp method=post> <INPUT type=submit value=”listele”> </body> </html>
ASP Active Server Pages (Etkin Sunucu Sayfaları)’nda kayıt arama kodları aşağıda verilen bir örnek ile yapılmıştır. Bu kodları kullanarak Kendi sunucularınızda kayıtlarınızı arayabilirsiniz. <html> <head> </head> <form action=”ara.asp” Method=”POST”> Aranacak kelime: <input type=”text” size=”20″ name=”aranan” class=”style2″><font face=”Tahoma”> <input type=”submit” value=”Ara ” class=”style3″></form> </html> ara.asp
Progress (İlerleme) 4 GL Örnek dosya oluşturma programı kodları aşağıdaki gibidir. DEF INPUT PARAM pfName AS CHAR NO-UNDO. DEF INPUT PARAM pTable AS CHAR NO-UNDO. DEF VAR ttHandle AS HANDLE. DEF VAR bHandle AS HANDLE. DEF VAR qHandle AS HANDLE. DEF VAR fHandle AS HANDLE. DEF VAR bTableHandle AS HANDLE NO-UNDO.
ASP Active Server Pages (Etkin Sunucu Sayfaları)’nda Kayıt Silme İşlemi aşağıda yapılan bir örnek ile gösterilmiştir. <html> <head> <meta http-equiv=”Content-Type” content=”text/html; charset=windows-1254″> </head> <body>