![]() |
| Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
if kısmında hata |
Yanıt Yaz
|
| Yazar | |
dilarayaprak
Yeni Üye
Kayıt Tarihi: 07 Temmuz 2025 Durum: Aktif Değil Puanlar: 31 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı dilarayaprak
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Konu: if kısmında hataGönderim Zamanı: 18 Temmuz 2025 Saat 13:16 |
|
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'); 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; }
|
|
![]() |
|
haletr
Kıdemli Üye
Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 138 |
Mesaj Seçenekleri
Teşekkürler(1)
Alıntı Cevapla
Gönderim Zamanı: 18 Temmuz 2025 Saat 13:22 |
|
Merhaba,
if (txtInput.Text == '') //== koyuyoruz eşit mi değil mi? sorgusu yapıyoruz { ShowMessage('Lütfen bir kelime girin!') } bu şekilde deneyebilir misin? İyi çalışmalar.
|
|
![]() |
|
Sudesigirci
Kıdemli Üye
Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 157 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Sudesigirci
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 18 Temmuz 2025 Saat 13:36 |
|
Merhaba Dilara ,
if sorgusunu düzelttikten sonra da çalışmayabilir ben de TclOpenAIEngine bileşenini bir projemde kullanmak istemiştim fakat OpenAı kendini güncellediği için bileşenin de güncellenmesi gerekiyormuş güncelleme yapıldı mı bilmiyorum eğer çalışmazsa bundan kaynaklı olabilir TclRest bileşeni kullanarak da projene yapay zeka entegre edebilirsin detaylı incelemen için İyi çalışmalar dilerim.
|
|
![]() |
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |