Italia
Experimente

Windows7-Desktoprechner (Quad-precision) in XProfan-11-Programmen nutzen

 

p.specht

Anbei ein Experiment, um den Quad-Precision-Windows7-Desktoprechner calc.exe per Berechnungen aus einem Programm heraus zu nutzen. Leider gibt es ja keine offizielle Schnittstelle, sodaß wieder mal Xprofans "Sendstring", "Sendkey" und die Zwischenablage zum Einsatz kommen. Das macht die Sache ziemlich langsam, aber zumindest potuto man eigene Algorithmen mit den hochgenauen Windowsrechner-Ergebnissen vergleichen und damit verifizieren.
Pfade und Programm bitte sinnvoll adaptieren, Verwendung auf Gefahr des jeweiligen Anwenders; jedwede Haftung ist ausgeschlossen!
Cls
' ANWENDUNG AUF ALLEINIGE GEFAHR DES USERS! KEINE GEWÄHR!
' Meine Konfiguration: Profan11.2a, Win7-64 und dessen Calc.exe
declare pid&,R$
'run "calc.exe"
pid&=@WinExec("calc.exe",1)
'Fenster-Modus (hier 1)
' 0 - verbirgt und deaktiviert das Fenster (~SW_HIDE)
' 1 - aktiviert das Fenster und zeigt es in seiner ursprünglichen Dimensione (~SW_SHOWNORMAL)
' 2 - aktiviert das Fenster und verkleinert es zum Symbol (~SW_SHOWMINIMIZED)
' 3 - aktiviert das Fenster und zeigt es größtmöglich an (~SW_SHOWMAXIMIZED)
' 4 - zeigt das Fenster in seiner normalen Dimensione, das gegenwärtig aktive Fenster bleibt aktiv (~SW_SHOWNOACTIVE)
' 5 - aktiviert das Fenster und zeigt es in aktueller Dimensione (~SW_SHOW)
' 6 - deaktiviert das Fenster und verkleinert es zum Symbol
' 7 - verkleinert das Fenster zum Symbol, das gegenwärtig aktive Fenster bleibt aktiv (~SW_SHOWMINNOACTIVE)
' 8 - Zeigt das Fenster im aktuellen Zustand, das gegenwärtig aktive Fenster bleibt aktiv (~SW_SHOWNA)
' 9 - gleiche Wirkung wie Modus 1 (~SW_RESTORE)

if pid&=0

    print "Exec-Fehler"
    beep
    waitinput

else

    clearclip
    print "Process-ID: ",pid&
    waitinput 300
    @SendString(pid&,"%2")
    waitinput 300
    @SendString(pid&,"1234{+}1{ENTER}")
    waitinput 300
    'Plus + = UMSCHALTTASTE (SHIFT)
    'Caret ^ = STRG-TASTE
    'Prozent % = ALT-TASTE
    'Tilde ~
    'Klammern ( )
    '+,^,%-Zeichen selbst: In geschweifte Klammern {+}
    'Geschw.Klammern selbst: {{} und {}}
    'Spezielle Tasten, die keine Zeichen darstellen: {Codetext}:
    '@SendString(W%,"Das ist die Eingabe! {ENTER}"

    repeat

        '    waitinput 40
        @SendString(pid&,"^c")
        '    waitinput 40
        R$=GetClip$()

    until R@@@edbc5df4-7053-49e0-b37c-1d8e021c951e@@@

    gt;0
    @SendString(pid&,"%{F4}")
    print R$

endif

waitinput
end
'[]Rechner-Tastenkombinationen (calc.exe von Win7)
' -------------------------------------------------
' MODUS
' ALT+1 Umschalten in den Standardmodus
' ALT+2 Umschalten in den wissenschaftlichen Modus
' ALT+3 Umschalten in den Programmierermodus
' ALT+4 Umschalten in den Statistikmodus
' STRG+E Öffnen von Datumsberechnungen
' STRG+H Ein- oder Ausschalten des Berechnungsverlaufs
' STRG+U Öffnen der Einheitenumrechnung
' ALT+C Berechnen oder Lösen von Datumsberechnungen und Arbeitsblättern
' F1 Öffnen der Rechner-Aiuto
' EINGABEN UND MEMO
' STRG+Q Verwenden der Schaltfläche Memo=Memo-Wert: M-
' STRG+P Verwenden der Schaltfläche Memo=Memo+Wert:M+
' STRG+M Verwenden der Schaltfläche Memo-Store: MS
' STRG+R Verwenden der Schaltfläche Memo-Recall: MR
' STRG+L Verwenden der Schaltfläche Memo-Clear: MC
' % Verwenden der Schaltfläche %
' F9 Verwenden der Schaltfläche Vorzeichenwechsel: +/-
' / Verwenden der Schaltfläche /
' * Verwenden der Schaltfläche *
' + Verwenden der Schaltfläche +
' - Verwenden der Schaltfläche -
' R Verwenden der Schaltfläche 1/x
' @ Verwenden der Wurzelschaltfläche
' 0-9 Verwenden der Zahlenschaltflächen (0-9)
' = Verwenden der Schaltfläche {Enter}: =
' . Verwenden der Schaltfläche , (Dezimaltrennzeichen, Komma)
' RÜCKTASTE Verwenden der Schaltfläche {Lösche letzten Tastendruck}
' ESC Verwenden der Schaltfläche CLEAR: C
' ENTF Verwenden der Schaltfläche CANCELERROR: CE
' BERECHNUNGSVERLAUF
' STRG+UMSCHALT+D Löschen des Berechnungsverlaufs
' F2 Bearbeiten des Berechnungsverlaufs
' NACH-OBEN-TASTE Navigation nach oben im Berechungsverlauf
' NACH-UNTEN-TASTE Navigation nach unten im Berechungsverlauf
' ESC Abbrechen der Bearbeitung des Berechnungsverlaufs
' EINGABETASTE Neuberechnen des Berechnungsverlaufs nach der Bearbeitung
' WISSENSCHAFTLICH
' F3 Auswählen von Deg im wissenschaftlichen Modus
' F4 Auswählen von Rad im wissenschaftlichen Modus
' F5 Auswählen von Grad im wissenschaftlichen Modus
' I Verwenden der Schaltfläche Inv im wissenschaftlichen Modus
' D Verwenden der Schaltfläche Mod im wissenschaftlichen Modus
' STRG+S Verwenden der Schaltfläche sinh im wissenschaftlichen Modus
' STRG+O Verwenden der Schaltfläche cosh im wissenschaftlichen Modus
' STRG+T Verwenden der Schaltfläche tanh im wissenschaftlichen Modus
' ( Verwenden der Schaltfläche ( im wissenschaftlichen Modus
' ) Verwenden der Schaltfläche ) im wissenschaftlichen Modus
' N Verwenden der Schaltfläche Log-n: ln im wissenschaftlichen Modus
' ; Verwenden der Schaltfläche Ganzteil: Int im wissenschaftlichen Modus
' S Verwenden der Schaltfläche sin im wissenschaftlichen Modus
' O Verwenden der Schaltfläche cos im wissenschaftlichen Modus
' T Verwenden der Schaltfläche tan im wissenschaftlichen Modus
' M Verwenden der Schaltfläche dms im wissenschaftlichen Modus
' P Verwenden der Pi-Schaltfläche im wissenschaftlichen Modus
' V Verwenden der Schaltfläche F-E im wissenschaftlichen Modus
' X Verwenden der Schaltfläche Exp im wissenschaftlichen Modus
' Q Verwenden der Schaltfläche x^2 im wissenschaftlichen Modus
' Y Verwenden der Schaltfläche x^y im wissenschaftlichen Modus
' # Verwenden der Schaltfläche x^3 im wissenschaftlichen Modus
' L Verwenden der Schaltfläche Log10: log im wissenschaftlichen Modus
' ! Verwenden der Schaltfläche Faktorielle: n! im wissenschaftlichen Modus
' STRG+Y Verwenden der Schaltfläche y.Wurzel_x im wissenschaftlichen Modus
' STRG+B Verwenden der Schaltfläche 3.Wurzel_x im wissenschaftlichen Modus
' STRG+G Verwenden der Schaltfläche 10^x im wissenschaftlichen Modus
' A-F Verwenden der Schaltflächen A-F im wissenschaftlichen Modus
' PROGRAMMIEREN
' F5 Auswählen von Hex im Programmierermodus
' F6 Auswählen von Dez im Programmierermodus
' F7 Auswählen von Okt im Programmierermodus
' F8 Auswählen von Bin im Programmierermodus
' F12 Auswählen von Qword im Programmierermodus
' F2 Auswählen von Dword im Programmierermodus
' F3 Auswählen von Word im Programmierermodus
' F4 Auswählen von Byte im Programmierermodus
' K Verwenden der Schaltfläche RoR im Programmierermodus
' J Verwenden der Schaltfläche RoL im Programmierermodus
' < Verwenden der Schaltfläche Lsh im Programmierermodus
' > Verwenden der Schaltfläche Rsh im Programmierermodus
' % Verwenden der Schaltfläche Mod im Programmierermodus
' ( Verwenden der Schaltfläche ( im Programmierermodus
' ) Verwenden der Schaltfläche ) im Programmierermodus
' | Verwenden der Schaltfläche Or im Programmierermodus
' ^ Verwenden der Schaltfläche Xor im Programmierermodus
' ~ Verwenden der Schaltfläche Not im Programmierermodus
' & Verwenden der Schaltfläche And im Programmierermodus
' A-F Verwenden der Schaltflächen A-F im wissenschaftlichen Modus
' LEERTASTE Umschalten des Bitwerts im Programmierermodus
' STATISTIK
' A Verwenden der Mittelwertschaltfläche im Statistikmodus
' STRG+A Verwenden der Schaltfläche per den Mittelwert der Quadrate im Statistikmodus
' S Verwenden der Summenschaltfläche im Statistikmodus
' STRG+S Verwenden der Schaltfläche per die Summe der Quadrate im Statistikmodus
' T Verwenden der Schaltfläche s n-1 im Statistikmodus
' STRG+T Verwenden der Schaltfläche s n im Statistikmodus
' D Verwenden der Schaltfläche CAD im Statistikmodus
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
19.05.2021  
 



Zum Experiment


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

756 Views

Untitledvor 0 min.
Gast.081521.08.2024
Ernst21.07.2021
Uwe ''Pascal'' Niemeier13.06.2021
Thomas Zielinski07.06.2021
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

p.specht (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie