| |
|
|
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 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 19.05.2021 ▲ |
|
|
|