Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Bu Konuda
Şimdi Ara

HELP MEEEEE!!!!!!!!!

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
250
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaslar delphi yi anlatmam lazım lutfen powerpointte veya not defterinde dosya duzen menusunu anlatan
    bir sunu veya yazı acil lazım mail adresime gonderirseniz sevinirim cok lazımm lutfen



  • arkadaşım umarım yardımcı olur "basit bir alarm programı"

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ExtCtrls, ComCtrls,Mask, StdCtrls,strutils;

    type
    TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure Timer2Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    d,a,b,c:string;
    begin
    if checkbox1.Checked then begin
    b:=leftstr(label1.Caption,2);
    c:=midstr(label1.Caption,4,2);
    a:=edit1.Text+':'+edit2.text;
    d:=b+':'+c;
    if d=a then begin
    beep
    end;
    end;
    end;

    procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
    begin
    edit1.text:=inttostr(updown1.Position);
    end;

    procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
    begin
    edit2.text:=inttostr(updown2.Position);
    end;

    procedure TForm1.Timer2Timer(Sender: TObject);
    begin
    label1.Caption:=timetostr(time);
    end;

    procedure TForm1.FormActivate(Sender: TObject);
    begin
    edit1.Text:=leftstr(timetostr(time),2);
    edit2.Text:=midstr(timetostr(time),4,2);
    end;

    end.




    • Yapay Zeka’dan İlgili Konular
    Cant remove device *only wiriting this part cuz i need 68 characters*
    3 ay önce açıldı
    Nurus Me Too
    4 yıl önce açıldı
    You got me waiting on tides
    geçen ay açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız