Thema Datum  Von Nutzer Rating
Antwort
27.04.2012 10:40:26 yannis1191
NotSolved
28.04.2012 14:55:38 Till
NotSolved
28.04.2012 16:08:34 Gast63959
NotSolved
Blau Taschenrechner programmieren
 29.04.2012 11:10:20 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
29.04.2012 11:10:20		 Views:
1190		 Rating:
     
Antwort:
  Ja
Thema:
Taschenrechner programmieren

Hallo Yannis1191,

Tills Ansatz ist richtig und für fleißige Programmierer zielführend. Warum so kompliziert? Du sollst den Taschenrechner nach Aufgabenstellung doch nicht unbedingt selbst bauen. In Windows ist doch einer integriert. Den Speicherort dieses Programms ('Calc.exe') musst du ermitteln und im Makro ggf. ändern. Das Makro bezieht sich auf Window XP und Office 2007.

Erzeuge eine UserForm, nenne sie 'Taschenrechner' und füge zwei CommandButtons 'Rechner' und 'Abbrechen' sowie nachstehendes Makro ein.

Private Rechner1
Private Sub Abbrechen_Click()
On Error Resume Next
AppActivate Rechner1
t = Timer + 0.1: Do Until Timer > t: Loop
SendKeys "%{F4}", True
Unload Taschenrechner
End Sub
Private Sub Rechner_Click()
With Taschenrechner
.Top = 1
.Left = 1
.Width = 600
.Height = 450
End With
With Rechner
.Top = 360
.Left = 18
.Width = 100
.Caption = "Rechner starten"
End With
With Abbrechen
.Top = 360
.Left = 138
.Width = 100
.Caption = "Abbrechen"
End With
Rechner1 = Shell("Calc.exe", 2)
AppActivate Rechner1
t = Timer + 0.1: Do Until Timer > t: Loop
SendKeys "%aw", True
Rechner.Enabled = False
End Sub

Leider finde ich auf die Schnelle nicht die Syntax, um die Position des Rechners festzustellen, deshalb die große UserForm, damit sich der Taschenrechner auch in dieser befindet. Mich würde interessieren, was der Aufgabensteller zu dieser Lösung sagt.

Gruß
Holger

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.04.2012 10:40:26 yannis1191
NotSolved
28.04.2012 14:55:38 Till
NotSolved
28.04.2012 16:08:34 Gast63959
NotSolved
Blau Taschenrechner programmieren
 29.04.2012 11:10:20 Holger
NotSolved