Clomosy | Forum : yapay zeka tarafından sınıflandırma işlemi

var

talepForm: TclStyleForm;

baslikLbl: TClProLabel;

requestpnl: TClProPanel;

baslikedit, aciklamaedit: TClProEdit;

eklebtn: TClProButton;

kullaniciEmail: String;

UserID: Integer;

OpenAIEngine: TclOpenAIEngine;

bekleyenBaslik, bekleyenAciklama, modul: String;

void TalepEkle;

{

bekleyenBaslik = baslikedit.Text;

bekleyenAciklama = aciklamaedit.Text;

OpenAIEngine.SendAIMessage(

'Aşağıdaki açıklama hangi yazılım modülüne ait? Sadece modül adını 1-2 kelimeyle belirt:\n' +

'"' + bekleyenAciklama + '"'

);

ShowMessage('Yapay zeka tahmin yapıyor...');

}

void OnNewMessageEvent;

{

modul = OpenAIEngine.NewMessageContent;

kullaniciEmail = Clomosy.GlobalVariableString;

UserID = Clomosy.GlobalVariableString;

Clomosy.DBSQLiteQuery.SQL.Text =

'INSERT INTO Talepler (kullanici_email, kullanici_id, baslik, aciklama, modul) VALUES (' +

QuotedStr(kullaniciEmail) + ',' +

IntToStr(UserID) + ',' +

QuotedStr(bekleyenBaslik) + ',' +

QuotedStr(bekleyenAciklama) + ',' +

QuotedStr(modul) + ')';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Talep başarıyla eklendi. Tahmini modül: ' + modul);

baslikedit.Text = '';

aciklamaedit.Text = '';

}

{

talepForm = TclStyleForm.Create(Self);

talepForm.SetFormBGImage('https://i.imgur.com/rQmEqR4.jpeg');

baslikLbl = talepForm.AddNewProLabel(talepForm, 'baslikLbl', 'Talep Oluştur');

baslikLbl.Align = alTop;

baslikLbl.Margins.Top = 10;

baslikLbl.Height = 40;

baslikLbl.clProSettings.FontSize = 30;

baslikLbl.clProSettings.TextSettings.Font.Style = [fsBold];

baslikLbl.clProSettings.FontHorzAlign = palCenter;

baslikLbl.SetclProSettings(baslikLbl.clProSettings);

requestpnl = talepForm.AddNewProPanel(talepForm, 'requestpnl');

requestpnl.Align = alCenter;

requestpnl.Height = 350;

requestpnl.Width = 400;

requestpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

requestpnl.clProSettings.RoundWidth = 8;

requestpnl.clProSettings.RoundHeight = 8;

requestpnl.SetclProSettings(requestpnl.clProSettings);

requestpnl.BringToFront;

baslikedit = talepForm.AddNewProEdit(requestpnl, 'baslikedit', 'Talep Başlığı');

baslikedit.Align = alTop;

baslikedit.Height = 40;

baslikedit.Width = 60;

baslikedit.clProSettings.FontHorzAlign = palCenter;

baslikedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');

baslikedit.SetclProSettings(baslikedit.clProSettings);

aciklamaedit = talepForm.AddNewProEdit(requestpnl, 'aciklamaedit', 'Açıklama');

aciklamaedit.Align = alTop;

aciklamaedit.Margins.Top = 10;

aciklamaedit.Height = 200;

aciklamaedit.Width = 250;

aciklamaedit.clProSettings.FontVertAlign = palLeading;

aciklamaedit.clProSettings.FontHorzAlign = palLeading;

aciklamaedit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');

aciklamaedit.SetclProSettings(aciklamaedit.clProSettings);

eklebtn = talepForm.AddNewProButton(requestpnl, 'eklebtn', 'EKLE');

eklebtn.Align = alBottom;

eklebtn.Margins.Bottom = 5;

eklebtn.Height = 40;

eklebtn.Width = 60;

eklebtn.Margins.Right = 60;

eklebtn.Margins.Left = 60;

eklebtn.clProSettings.RoundHeight = 8;

eklebtn.clProSettings.RoundWidth = 8;

eklebtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#58d7f4');

eklebtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

eklebtn.clProSettings.TextSettings.Font.Style = [fsBold];

eklebtn.clProSettings.FontSize = 20;

eklebtn.SetclProSettings(eklebtn.clProSettings);

talepForm.AddNewEvent(eklebtn, tbeOnClick, 'TalepEkle');

OpenAIEngine = TclOpenAIEngine.Create(Self);

OpenAIEngine.ParentForm = talepForm;

OpenAIEngine.SetToken('apikeyimbukısımdagüvenlikaçısındaneklemedim');

OpenAIEngine.OnNewMessageEvent = 'OnNewMessageEvent';

talepForm.Run;

}