AI TEst

2026-10-20 10:03:06 +02:00
parent 40b993b0e6
commit 1daf0e1d35
2 changed files with 17 additions and 0 deletions
--- a/UID/usrctlProcedures.vb
+++ b/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