|
var hesapForm : TclForm; titleLabel: TClProLabel; hesapPanel : TclProPanel; displayLabel : TClProLabel; btn : TClProButton; buttons: array[0..19] of string; i, col, row: Integer; // HESAPLAMA İÇİN YENİ EKLENEN DEĞİŞKENLER ilkSayi: Double; islem: String; yeniSayiMi: Boolean;
// TUŞLARA TIKLANDIĞINDA ÇALIŞACAK ANA FONKSİYON void ButtonClick; var tiklananTus: String; ikinciSayi, sonuc: Double; { // Hangi tuşa basıldığını alıyoruz tiklananTus = TClProButton(hesapForm.ClSender).Caption; if (tiklananTus == '') Exit; // Boş tuşa basıldıysa hiçbir şey yapma
// 1. Temizleme Tuşu (C) if (tiklananTus == 'C') { displayLabel.Text = '0'; ilkSayi = 0; islem = ''; yeniSayiMi = True; } // 2. Geri Silme Tuşu (⌫) else if (tiklananTus == '⌫') { if (Length(displayLabel.Text) > 1) displayLabel.Text = Copy(displayLabel.Text, 1, Length(displayLabel.Text) - 1); else displayLabel.Text = '0'; } // 3. Eşittir Tuşu (=) - Sonucu Hesapla else if (tiklananTus == '=') { if (islem <> '') { ikinciSayi = StrToFloat(displayLabel.Text); if (islem == '+') sonuc = ilkSayi + ikinciSayi; else if (islem == '-') sonuc = ilkSayi - ikinciSayi; else if (islem == '*') sonuc = ilkSayi * ikinciSayi; else if (islem == '/') { if (ikinciSayi == 0) sonuc = 0; // Sıfıra bölme hatasını engellemek için else sonuc = ilkSayi / ikinciSayi; } displayLabel.Text = FloatToStr(sonuc); islem = ''; yeniSayiMi = True; // İşlem bitti, yeni rakam girildiğinde ekranı temizle } } // 4. Dört İşlem Tuşları (+, -, *, /) else if ((tiklananTus == '+') || (tiklananTus == '-') || (tiklananTus == '*') || (tiklananTus == '/')) { ilkSayi = StrToFloat(displayLabel.Text); islem = tiklananTus; yeniSayiMi = True; } // 5. Yüzde Alma İşlemi (%) else if (tiklananTus == '%') { ilkSayi = StrToFloat(displayLabel.Text); sonuc = ilkSayi / 100; displayLabel.Text = FloatToStr(sonuc); yeniSayiMi = True; } // 6. Rakamlar ve Nokta else { if (yeniSayiMi || (displayLabel.Text == '0')) { displayLabel.Text = tiklananTus; yeniSayiMi = False; } else { displayLabel.Text = displayLabel.Text + tiklananTus; } } }
void setLabel; { titleLabel = hesapForm.AddNewProLabel(hesapForm,'titleLabel','My First Hesap Makinesi'); titleLabel.Align = alTop; titleLabel.Height = 70; titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d'); titleLabel.clProSettings.FontSize = 40; titleLabel.clProSettings.FontVertAlign = palcenter; titleLabel.clProSettings.FontHorzAlign = palCenter; titleLabel.clProSettings.TextSettings.Font.Style = [fsBold]; titleLabel.SetclProSettings(titleLabel.clProSettings); }
void setPanel; { hesapPanel = hesapForm.AddNewProPanel(hesapForm,'hesapPanel'); hesapPanel.Align = alCenter; hesapPanel.Width = 460; hesapPanel.Height = 420; hesapPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#46484e'); hesapPanel.clProSettings.BorderWidth = 2; hesapPanel.clProSettings.IsFill = True; hesapPanel.clProSettings.IsRound = True; hesapPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080c16'); hesapPanel.SetclProSettings(hesapPanel.clProSettings); }
void setDisplay; { displayLabel = hesapForm.AddNewProLabel(hesapPanel,'displayLabel','0'); displayLabel.Align = alTop; displayLabel.Height = 70; displayLabel.Margins.Top = 15; displayLabel.Margins.Left = 15; displayLabel.Margins.Right = 15; displayLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); displayLabel.clProSettings.FontSize = 36; displayLabel.clProSettings.FontVertAlign = palCenter; displayLabel.clProSettings.FontHorzAlign = palTrailing; displayLabel.clProSettings.TextSettings.Font.Style = [fsBold]; displayLabel.clProSettings.IsFill = True; displayLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d'); displayLabel.clProSettings.IsRound = True; displayLabel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f5428d'); displayLabel.clProSettings.BorderWidth = 2; displayLabel.SetclProSettings(displayLabel.clProSettings); }
void setButtons; { buttons[0] = 'C'; buttons[1] = '%'; buttons[2] = '⌫'; buttons[3] = '/'; buttons[4] = '7'; buttons[5] = '8'; buttons[6] = '9'; buttons[7] = '*'; buttons[8] = '4'; buttons[9] = '5'; buttons[10] = '6'; buttons[11] = '-'; buttons[12] = '1'; buttons[13] = '2'; buttons[14] = '3'; buttons[15] = '+'; buttons[16] = '0'; buttons[17] = '.'; buttons[18] = '='; buttons[19] = ''; }
void createButtonUI; { for (i = 0 to 19) { col = i mod 4; row = i div 4; btn = hesapForm.AddNewProButton(hesapPanel, 'btn'+IntToStr(i), buttons); btn.Align = alNone; btn.Width = 100; btn.Height = 55; btn.Position.X = (col * 110) + 15; btn.Position.Y = (row * 60) + 105; btn.clProSettings.IsRound = True; btn.clProSettings.IsFill = True; btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d'); btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f5428d'); btn.clProSettings.BorderWidth = 2; btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btn.clProSettings.FontSize = 22; btn.clProSettings.TextSettings.Font.Style = [fsBold]; btn.SetclProSettings(btn.clProSettings);
// YENİ EKLENEN KISIM: Tuşları ButtonClick fonksiyonuna bağlıyoruz hesapForm.AddNewEvent(btn, tbeOnClick, 'ButtonClick'); } }
{ hesapForm = TCLForm.Create(Self); hesapForm.SetFormColor('#101d2d','',clGNone); // Uygulama ilk açıldığında rakam girilmesini beklesin diye True yapıyoruz yeniSayiMi = True; ilkSayi = 0; islem = ''; setLabel; setPanel; setDisplay; setButtons; createButtonUI; hesapForm.Run; }. iyi çalışmalar dilerim https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|