AI TEst

UID/usrctlProcedures.Designer.vb

@@ -184,6 +184,7 @@ Partial Class usrctlProcedures
         Me.Button58 = New System.Windows.Forms.Button()
         Me.Button59 = New System.Windows.Forms.Button()
         Me.Button61 = New System.Windows.Forms.Button()
+        Me.Button62 = New System.Windows.Forms.Button()
         Me.tbTRStat.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -1749,10 +1750,20 @@ Partial Class usrctlProcedures
         Me.Button61.Text = "TEST NCTS FROM EXG"
         Me.Button61.UseVisualStyleBackColor = True
         '
+        'Button62
+        '
+        Me.Button62.Location = New System.Drawing.Point(29, 256)
+        Me.Button62.Name = "Button62"
+        Me.Button62.Size = New System.Drawing.Size(145, 49)
+        Me.Button62.TabIndex = 73
+        Me.Button62.Text = "KI TEST"
+        Me.Button62.UseVisualStyleBackColor = True
+        '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button62)
         Me.Controls.Add(Me.Button61)
         Me.Controls.Add(Me.Button59)
         Me.Controls.Add(Me.Button58)
@@ -2001,4 +2012,5 @@ Partial Class usrctlProcedures
     Friend WithEvents Button59 As Button
     Friend WithEvents Button60 As Button
     Friend WithEvents Button61 As Button
+    Friend WithEvents Button62 As Button
 End Class

UID/usrctlProcedures.vb

@@ -5338,6 +5338,11 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
         End Using
 
     End Sub
+
+    Private Sub Button62_Click(sender As Object, e As EventArgs) Handles Button62.Click
+        Dim t = cOpenAI.askAI_HERBERT_Allg("Bitte gib mir eine kurze Zusammenfassung der aktuellen Situation im internationalen Handel und Zollwesen.")
+        Console.WriteLine(t)
+    End Sub
 End Class