Delphi Forum

cevapladığınız için teşekkür ederim, hocamdan yardım aldım ve yaptım. kod böyle idi.

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, FMX.Types, iComponent,
iVCLComponent ...

ertank yazdı: 17 Kas 2023 10:32 Merhaba,

Ödevin sizin yaptığınız ve çalışmayan kısmını paylaşabilirseniz yardımcı olmaya çalışalım.

ödevi yapamıyorum okadar bilgi sahibi değilim

İAngularGauge1 ve İAngularGauge2 gaz butonu / vites butonu ttimer
devir hız (butona basılı tuttuğun müddetçe)
0-1 0-20
1-2 20-40
2-3 40-60
3-4 60-80
4-5 80-100
5-6 100-120


Gaz butonuna basılı tuttuğun müddetçe devir ve hız (iAngularGauge1-2) göstergeleri değişecek
devir 3'ün üzerine çıktığında ...

EKİN İsmini sezar şifrelemeyle kodlamam lazım
harflerden sonra gelen 2.harf ile yazılacak

ikra yazdı: 07 Eki 2023 01:10

Kod: Tümünü seç

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  ListBox2.Items.Assign(ListBox1.Items);
end;

çok teşekkür ederim

image1 e basıldığında listbox1 deki yazılar listbox2 ye geçicek ama ben yapamadım yardım edermisiniz