Kullanıcının yazdığı İngilizce kelime GPT’ye gönderen, gelen Türkçe çeviri kartın ön ve arka yüzünde gösteren ve kart tıklanınca yüz değiştirilen bir kod yazdım ama if kısmında surekli hata alıyorum, yardımcı olur musunuz ------------------------------------------------------------------------------------------- var kelimeForm: TclForm; kartPanel: TclProPanel; frontFace, backFace: TclProPanel; lblEnglish, lblTurkish: TclProLabel; txtInput: TclProEdit; btnSorgula: TclProButton; MyOpenAIEngine: TclOpenAIEngine;
void BtnSorgulaClick;
{ if txtInput.Text = '' { ShowMessage('Lütfen bir kelime girin!') } else { lblEnglish.Caption = txtInput.Text lblTurkish.Caption = '' backFace.Visible = False frontFace.Visible = True
MyOpenAIEngine.SendAIMessage( 'Translate the word "' + txtInput.Text + '" into Turkish. Only return the translation.' )
txtInput.Text = '' }
}
void GetAIResponse { lblTurkish.Caption = MyOpenAIEngine.NewMessageContent; backFace.Visible = False; frontFace.Visible = True; }
void FlipCard { if frontFace.Visible = True { frontFace.Visible = False; backFace.Visible = True; } else { frontFace.Visible = True; backFace.Visible = False; } }
{ kelimeForm = TclForm.Create(Self);
kelimeForm.Caption = 'İngilizce → Türkçe Kart'; kelimeForm.SetFormBGImage(' https://i.imgur.com/fPwWs0H.jpeg" rel="nofollow - https://i.imgur.com/fPwWs0H.jpeg ');
txtInput = kelimeForm.AddNewProEdit(kelimeForm, 'txtInput', ''); txtInput.Align = alTop; txtInput.Margins.Top = 20; txtInput.Height = 40;
btnSorgula = kelimeForm.AddNewProButton(kelimeForm, 'btnSorgula', 'ÇEVİR'); btnSorgula.Align = alTop; btnSorgula.Height = 40; kelimeForm.AddNewEvent(btnSorgula, tbeOnClick, 'BtnSorgulaClick'); kartPanel = kelimeForm.AddNewProPanel(kelimeForm, 'kartPanel'); kartPanel.Align = alCenter; kartPanel.Width = 300; kartPanel.Height = 150; kartPanel.ClProSettings.FillColor = clAlphaColor.clHexToColor('#ffffff'); kartPanel.ClProSettings.RoundWidth = 20; kartPanel.ClProSettings.RoundHeight = 20; kartPanel.SetclProSettings(kartPanel.ClProSettings);
frontFace = kelimeForm.AddNewProPanel(kartPanel, 'frontFace'); frontFace.Align = alClient; frontFace.Visible = True;
lblEnglish = kelimeForm.AddNewProLabel(frontFace, 'lblEnglish', ''); lblEnglish.Align = alCenter; lblEnglish.ClProSettings.FontSize = 20;
backFace = kelimeForm.AddNewProPanel(kartPanel, 'backFace'); backFace.Align = alClient; backFace.Visible = False;
lblTurkish = kelimeForm.AddNewProLabel(backFace, 'lblTurkish', ''); lblTurkish.Align = alCenter; lblTurkish.ClProSettings.FontSize = 20;
MyOpenAIEngine = TclOpenAIEngine.Create(Self); MyOpenAIEngine.ParentForm = kelimeForm; MyOpenAIEngine.ApiKey = 'skxxxxxxxxxxxxxx; MyOpenAIEngine.OnNewMessageEvent = 'GetAIResponse';
kelimeForm.AddNewEvent(btnSorgula, tbeOnClick, 'BtnSorgulaClick'); kelimeForm.AddNewEvent(kartPanel, tbeOnClick, 'FlipCard');
kelimeForm.Run; }
|