| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
hhr
Anmeldungsdatum: 15.07.2020
Beiträge: 118
|
 Verfasst am: 26.09.2026, 11:24 Titel: KI kann FreeBASIC |
 |
|
In der Google Suchmaschine habe ich folgende Frage eingetippt und KI-Modus angeklickt:
'Wie kann man mit FreeBasic pi berechnen?'
Diese drei Beispiele habe ich bekommen:
1. Der Standard-Weg: Über den Arkustangens (Atn)
| Code: | ' Definition als Double für maximale Standardpräzision
Dim As Double pi = 4 * Atn(1)
Print "Pi ist ungefaehr: "; pi
Sleep |
2. Der Hardware-Weg: Direkt aus der CPU (Inline-Assembler)
| Code: | Function GetPi() As Double
Dim As Double pi_value
Asm
fldpi ' Laedt die Konstante Pi auf den FPU-Stack
fstp qword Ptr [pi_value] ' Speichert den Wert in der Double-Variablen
End Asm
Return pi_value
End Function
Print "Pi aus der FPU: "; GetPi()
Sleep |
3. Der mathematische Weg: Leibniz-Reihe (Annäherung)
| Code: | Dim As Double meinPi = 0
Dim As Double vorzeichen = 1
Dim As Long i
' Je hoeher die Zahl (z.B. 10.000.000), desto genauer das Ergebnis
For i = 1 To 1000000 Step 2
meinPi = meinPi + (vorzeichen * (1 / i))
vorzeichen = -vorzeichen ' Vorzeichen fuer den naechsten Schritt umkehren
Next i
meinPi = meinPi * 4
Print "Pi nach Leibniz-Reihe: "; meinPi
Sleep |
KI:  |
|
| Nach oben |
|
 |
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2535
Wohnort: Hofen SH (Schweiz)
|
| Verfasst am: 26.09.2026, 20:52 Titel: |
|
|
Danke für die Beispiele.
Ja, die Google-KI konnte in meinem Fall auch schon Dinge erledigen wie alter VBScript-Code in PowerShell übersetzen (bei Microsoft ist der Windows Script Host ein Auslaufmodell, bei Windows 11 und Windows Server 2025 wird ausdrücklich der Wechsel auf PowerShell-Script, also Dateien mit der Endung .ps1 empfohlen).
Und für Fans von Linx noch interessant: VBScript-MS Office-Automatisierungscript kann die Google-KI ebenfalls in Python für LibreOffice übersetzen, da es dort ganz ähnliche Schnittstelle wie VBA gibt.
_________________
Teste die PC-Sicherheit mit www.sec-check.net |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
