Hallo Bugfix!
Das Script ist genial. Sowas kann ich bestimmt mal gebrauchen.
Spart man sich die Tipparbeit.
MfG. Oscar
Hallo Bugfix!
Das Script ist genial. Sowas kann ich bestimmt mal gebrauchen.
Spart man sich die Tipparbeit.
MfG. Oscar
Hallo Bugfix!
Setz mal den Focus (GUICtrlSetState(-1, $GUI_FOCUS)) auf eines der Combofelder, dann geht es.
Das Problem hatte ich nämlich auch mal.
MfG. Oscar
Hallo Snoozer!
Das heißt, im Prinzip kann man Linux auch auf ein RAID-System installieren?
Man müßte bloß vorher einen Teil freilassen, damit Linux darauf die entsprechenden Partitionen anlegen kann. Habe ich das so richtig verstanden?
Also wenn ich eine Neuinstallation von Windows mache, verwende ich nur z.B. die Hälfte meines RAIDs, formatiere sie und installiere Windows. Und auf die andere Hälfte kann dann Linux drauf?
Würde das so funktionieren?
Wenn ja, wäre das mal eine Neuinstallation wert.
MfG. Oscar
P.S.: Ja, meine Daten sind auf anderen Platten (auch nochmal auf einer externen) gesichert. Ich hatte mal einen Ausfall einer IBM DTLA mit Totalverlust, seitdem...
Hallo Mickey!
Also...bei mir heißt die Datei "Dialogs.def".
MfG. Oscar
Hallo Mickey!
Pee hat Dir doch Deine Frage bereits beantwortet.
Mit AutoIt geht es nicht. Man kann die Menüfarben nicht ändern.
Benutze ein "Pseudomenü" (mit Labels). Dann kannst Du alles in schwarz haben.
MfG. Oscar
Hallo Chicago!
Ich habe mal das erste Menü bearbeitet.
So in etwa (mit Buttons) finde ich die Navigation besser.
Sieh Dir mal die Zeilen 28...48 und Zeile 676 an. Die habe ich geändert.
#cs
----------------------------------------------------------------------------
AutoIt Version: 3.2.8.1
Author: Chicago
Script Function: Mathematik Grundrechenarten
----------------------------------------------------------------------------
#ce
; ##############################
; includes
; ##############################
#include <GUIConstants.au3>
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1)
global $font = "Arial Black"
Dim $Auswahl[9]; 0...8
Dim $text[9]; 0...8
$hauptgui = GUICreate("Mathematik 1", 500, 400)
$text[0] = "1: Volumenberechnung"
$text[1] = "2: Fehlende Längenberechnung aus ---> Volumen"
$text[2] = "3: Fehlende Breitenberechnung aus ---> Volumen"
$text[3] = "4: Fehlende Höhenberechnung aus ---> Volumen"
$text[4] = "5; Quadratmeter Berechnung"
$text[5] = "6: Trapez Berechnung"
$text[6] = "7: Dreiecks Berechnung"
$text[7] = "8: Menüauswahlkarte 2"
$text[8] = "Menüauswahl beenden mit ESC"
For $i = 0 To 7
$Auswahl[$i] = GUICtrlCreateButton($text[$i], 15, 20 + $i * 30)
GUICtrlSetOnEvent(-1, "OKButton")
Next
GUICtrlCreateLabel($text[8], 15, 280)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
; Gui Volumenberechnung
; ====================================
$vol = GUICreate("Volumenberechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel1 = " Die Formel = L * B * H "
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel1 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($l1 & "", 15, 50)
GUICtrlCreateLabel($B1 & "", 15, 110)
GUICtrlCreateLabel($h1 & "", 15, 170)
$laenge1 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$Breite1 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$hoehe1 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$Berechnen_Button = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Volumenberechnung")
$font="Arial Black"
GUISetFont (9, 400, 4, $font)
$reslabel1 = GUICtrlCreateLabel("Das Volumen beträgt: 0 Kubik", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($vol, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Volumenberechnung
; Gui Fehlende Längenberechnung
; ====================================
$LaengBerechnung = GUICreate("Fehlende Längenberechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel2 = " Die Formel = ( V / ( B * H ))"
$V = "Bitte geben Sie das Volumen ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel2 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($B1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)
$Volu2 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")
$Breite2 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")
$hoehe2 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")
$Berechnen_Button1 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Laenge_Berechnen")
GUISetFont (9, 400, 4, $font)
$reslabel2 = GUICtrlCreateLabel("Die Länge beträgt: 0 Meter", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($LaengBerechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Fehlende Längenberechnung
; Gui Fehlende Breitenberechnung
; ====================================
$BreitenBerechnung = GUICreate("Fehlende BreitenBerechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel3 = " Die Formel = V / ( L * H )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$h1 = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel3 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)
$Volu3 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$laenge3 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$hoehe3 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$Berechnen_Button2 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Breite_Berechnen")
GUISetFont (9, 400, 4, $font)
$reslabel3 = GUICtrlCreateLabel("Die Breite beträgt: 0 Meter", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($BreitenBerechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Fehlende Breitenberechnung
; Gui Fehlende Höhenberechnung
; ====================================
$Hoehenberechnung = GUICreate("Fehlende Höhe Berechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel4 = " Die Formel = V / ( L * B )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel4 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 100)
GUICtrlCreateLabel($B1 & "", 15, 160)
$Volu4 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")
$laenge4 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")
$Breite4 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")
#cs
Func Hoehe_Berechnen() ; Func Anfang
Global $V_1 = GUICtrlRead($Volu4)
Global $L_1 = GUICtrlRead($laenge4)
Global $B_1 = GUICtrlRead($Breite4)
$hoehe = ($V_1 / ($L_1 * $B_1))
$H = Int(1000 * $hoehe + .5) / 1000
$H1 = Round($H, 3)
GUICtrlSetData($reslabel4, "Die Höhe beträgt: " & $H1 & " Meter ");
EndFunc ;==>Hoehe_Berechnen
#ce
$Berechnen_Button3 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Hoehe_Berechnen")
GUISetFont (9, 400, 4, $font)
$reslabel4 = GUICtrlCreateLabel("Die Höhe beträgt: 0 Meter", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Hoehenberechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Fehlende Höhenberechnung
; Gui Quadratmeter Berechnung
; ====================================
$QM_Berechn = GUICreate("Quadratmeter Berechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel5 = " Die Formel ist: A * B = m² "
$a = "Bitte geben Sie die Länge ein !"
$B = "Bitte geben Sie die Breite ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel5 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($a & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)
$laengeQM = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen")
$BreiteQM = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen")
$Berechnen_Button4 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Hoehe_Berechnen")
GUISetFont (9, 400, 4, $font)
$reslabel5 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($QM_Berechn, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Quadratmeter Berechnung
; Gui Trapez Berechnung
; ====================================
$Trapez = GUICreate("Trapez Berechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel6 = " Die Formel ist: FL = ( L1 + L2 ) / 2 ) * H "
$L1 = "Bitte geben Sie die Länge 1 ein !"
$L2 = "Bitte geben Sie die Länge 2 ein !"
$H = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel6 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($L1 & "", 15, 60)
GUICtrlCreateLabel($L2 & "", 15, 120)
GUICtrlCreateLabel($H & "", 15, 180)
$laengeL1Trap_1= GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")
$LaengeL2Trap_1 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")
$hoeheTrap_1 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")
$Berechnen_Button5 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Trapez")
GUISetFont (9, 400, 4, $font)
$reslabel6 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Trapez, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Trapez Berechnung
; Gui Dreiecks Berechnung
; ====================================
$Dreiecks = GUICreate("Dreiecks Berechnung", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel7 = " Die Formel ist: FL = ( L * H ) / 2 "
$LD = "Bitte geben Sie die Länge ein !"
$HD = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel7 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($LD & "", 15, 60)
GUICtrlCreateLabel($HD & "", 15, 120)
$laengeLD = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks")
$HoeheLD = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks")
$Berechnen_Button6 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Dreiecks")
GUISetFont (9, 400, 4, $font)
$reslabel7 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Dreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
; ====================================
; ende Gui Dreiecks Berechnung
;=======================================================================================================================================================
; Gui AUSWAHLMENÜ 2
;=======================================================================================================================================================
$menue2 = GUICreate("Mathematik 1 MENÜ 2", 500, 400)
$text02 = "1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen"
$text12 = "2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen"
$text22 = "3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen"
$text32 = "4: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen"
$text42 = "5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen"
$text52 = "6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen"
$text62 = "7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen"
;$Menuekarte3 = "8: Menüauswahlkarte 3"
$beenden = "Zurück zu Menü 1 mit ESC"
GUICtrlCreateLabel($text02 & "", 15, 20)
GUICtrlCreateLabel($text12 & "", 15, 50)
GUICtrlCreateLabel($text22 & "", 15, 80)
GUICtrlCreateLabel($text32 & "", 15, 110)
GUICtrlCreateLabel($text42 & "", 15, 140)
GUICtrlCreateLabel($text52 & "", 15, 170)
GUICtrlCreateLabel($text62 & "", 15, 200)
;GUICtrlCreateLabel($Menuekarte3 & "", 15, 230)
GUICtrlCreateLabel($beenden & "", 15, 260)
GUICtrlCreateLabel("Auswahl", 15, 350)
$Auswahl2 = GUICtrlCreateInput("", 70, 348, 15, 21)
$OKButton2 = GUICtrlCreateButton("&OK", 100, 348, 50, 22,$BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent($OKButton2, "OKButton2")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 300, 120)
GUISetOnEvent($menue2, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
;=======================================================================================================================================================
; end gui Menü 2
; Anfang der gui´s von Menü 2
;=======================================================================================================================================================
; Anfang Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen
;----------------------------------------------------------------------------
; FehllaenQM <---- func Name
$FehllaenQM = GUICreate("Fehlende Längenberechnung ", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel8 = " Die Formel ist: m² / B = L "
$Volu_6 = "Bitte geben Sie das Volumen ein !"
$B = "Bitte geben Sie die Breite ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel8 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($Volu_6 & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)
$Volu6 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM")
$Breite6 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM")
$Berechnen_Button7 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllaenQM")
GUISetFont (9, 400, 4, $font)
$reslabel8 = GUICtrlCreateLabel("Die Länge beträgt: 0 M", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehllaenQM, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen
; Anfang Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen
;-----------------------------------------------------------------------------
; FehlbreiQM <---- func Name
$FehlbreiQM = GUICreate("Fehlende Breitenberechnung ", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel9 = " Die Formel ist: m² / L = B "
$Volu_7 = "Bitte geben Sie das Volumen ein !"
$laeng_7 = "Bitte geben Sie die Länge ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel9 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($Volu_7 & "", 15, 80)
GUICtrlCreateLabel($laeng_7 & "", 15, 140)
$Volu7 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM")
$laenge7 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM")
$Berechnen_Button8 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllaenQM")
GUISetFont (9, 400, 4, $font)
$reslabel9 = GUICtrlCreateLabel("Die Breite beträgt: 0 M", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlbreiQM, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen
; Anfang Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; FehllaenTrap <---- func Name
$Fehllaen1Trap = GUICreate("Fehlende Länge 1 Bei Trapez", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap = " Die Formel ist: ( ( m² / H ) - ( L2 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L2Trap = "Bitte geben Sie die Länge 2 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)
$QMTrap1_0 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")
$LaengeTrap2_0 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")
$hoeheTrap1_0 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")
$Berechnen_Button9 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Fehllaen1Trap")
GUISetFont (9, 400, 4, $font)
$reslabe20 = GUICtrlCreateLabel("Die Länge 1 beträgt: 0 M", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Fehllaen1Trap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen
; Anfang Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; Fehllaen2Trap <---- func Name
$Fehllaen2Trap = GUICreate("Fehlende Länge 2 Bei Trapez", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap1 = " Die Formel ist: ( ( m² / H ) - ( L1 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L2Trap = "Bitte geben Sie die Länge 1 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap1 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)
$QMTrap1_00 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")
$LaengeTrap1_00 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")
$hoeheTrap1_00 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")
$Berechnen_Button10 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Fehllaen2Trap")
GUISetFont (9, 400, 4, $font)
$reslabe21 = GUICtrlCreateLabel("Die Länge 2 betragen: 0 M", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Fehllaen2Trap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen
; Anfang Gui von 5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; FehllhoeheTrap <---- func Name
$FehllhoeheTrap = GUICreate("Fehlende Höhe Bei Trapez", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap_3 = " Die Formel ist: ( m² / ( ( L1 / 2) + ( L2 / 2 ) ) )"
$QMTrap_3 = "Bitte geben Sie die Quadratmeter ein !"
$L1Trap_3 = "Bitte geben Sie die Länge 1 ein !"
$L2Trap_3 = "Bitte geben Sie die Länge 2 ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap_3 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap_3 & "", 15, 60)
GUICtrlCreateLabel($L1Trap_3 & "", 15, 120)
GUICtrlCreateLabel($L2Trap_3 & "", 15, 180)
$QMTrap3 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")
$LaengeTrap3 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")
$LaengTrap3 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")
$Berechnen_Button11 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllhoeheTrap")
GUISetFont (9, 400, 4, $font)
$reslabe22 = GUICtrlCreateLabel("Die Höhe beträgt: 0 M", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehllhoeheTrap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 5: Fehlende Höhe Berechnen aus ---> Trapez Berechnen
; Anfang Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlaenDreiecks()
$FehlaenDreiecks = GUICreate("Fehlende Länge beim Dreieck", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelDrei = " Die Formel ist: L = ( m² / H ) * 2 "
$LDDrei = "Bitte geben Sie die Quadratmeter an !"
$HDDrei = "Bitte geben Sie die Höhe ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelDrei & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($LDDrei & "", 15, 60)
GUICtrlCreateLabel($HDDrei & "", 15, 120)
$QMDREI = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks")
$HoeheLDDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks")
$Berechnen_Button12 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehlaenDreiecks")
GUISetFont (9, 400, 4, $font)
$reslabe23 = GUICtrlCreateLabel("Die Länge beträgt: 0 m²", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlaenDreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen
; Anfang Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlhoeDreiecks()
$FehlhoeDreiecks = GUICreate("Fehlende Höhe beim Dreieck", 300, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelDrei_2 = " Die Formel ist: H = ( m² / L ) * 2 "
$QMDrei_2 = "Bitte geben Sie die Quadratmeter an !"
$LaeDrei = "Bitte geben Sie die Länge ein !"
GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelDrei_2 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMDrei_2 & "", 15, 60)
GUICtrlCreateLabel($LaeDrei & "", 15, 120)
$QMDREI_3 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks")
$LaengeDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks")
$Berechnen_Button13 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehlhoeDreiecks")
GUISetFont (9, 400, 4, $font)
$reslabe24 = GUICtrlCreateLabel("Die Höhe beträgt: 0 m²", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlhoeDreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
;--------------------------------------------------------------------------
; Ende Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen
;=======================================================================================================================================================
; ende für die gui´s von Menü 2
While 1
Sleep(100)
WEnd
Func OKButton() ; <-- func Start
$Auswahlwert = @GUI_CtrlId - $Auswahl[0] + 1
Switch $Auswahlwert
Case "1"
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr")
GUISetState(@SW_SHOW, $Vol)
;Volumenberechnung()
Case "2"
GUISetState(@SW_SHOW, $LaengBerechnung)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr");
Case "3"
GUISetState(@SW_SHOW, $BreitenBerechnung)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr");
Case "4"
GUISetState(@SW_SHOW, $Hoehenberechnung)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr");
Case "5"
GUISetState(@SW_SHOW, $QM_Berechn)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr");
Case "6"
GUISetState(@SW_SHOW, $Trapez)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr");
Case "7"
GUISetState(@SW_SHOW, $Dreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr");
Case "8"
GUISetState(@SW_SHOW, $menue2)
;MsgBox(0, "", "Achter Case-Ausdruck war wahr");
Case Else
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
EndSwitch
EndFunc ;==>OKButton
Func CLOSEClicked()
GUISetState(@SW_HIDE, @GUI_WinHandle)
if @GUI_WinHandle = $hauptgui Then Exit
EndFunc ;==>CLOSEClicked
Func Volumenberechnung() ; <==Volumenberechnung
Global $L = GUICtrlRead($laenge1)
Global $B = GUICtrlRead($Breite1)
Global $H = GUICtrlRead($hoehe1)
$Volumen = ($L * $B * $H)
$var = Int(1000 * $Volumen + .5) / 1000
$var1 = Round($var, 3)
GUICtrlSetData($reslabel1, "Das Volumen beträgt: " & $var1 & " Kubik");
EndFunc ;==>Volumenberechnung
Func Laenge_Berechnen()
Global $V = GUICtrlRead($Volu2)
Global $B = GUICtrlRead($Breite2)
Global $H = GUICtrlRead($hoehe2)
$laenge = ($V / ($B * $H))
$L = Int(1000 * $laenge + .5) / 1000
$L1 = Round($L, 3)
GUICtrlSetData($reslabel2, "Die Länge beträgt: " & $L1 & " Meter ");
EndFunc ;==>Laenge_Berechnen
Func Breite_Berechnen() ; Func Anfang
Global $V = GUICtrlRead($Volu3)
Global $L = GUICtrlRead($laenge3)
Global $H = GUICtrlRead($hoehe3)
$Breite = ($V / ($L * $H))
$B = Int(1000 * $Breite + .5) / 1000
$B1 = Round($B, 3)
GUICtrlSetData($reslabel3, "Die Breite beträgt: " & $B1 & " Meter ");
EndFunc ;==>Breite_Berechnen
Func Hoehe_Berechnen() ; Func Anfang
Global $V_1 = GUICtrlRead($Volu4)
Global $L_1 = GUICtrlRead($laenge4)
Global $B_1 = GUICtrlRead($Breite4)
$hoehe = ($V_1 / ($L_1 * $B_1))
$H = Int(1000 * $hoehe + .5) / 1000
$H1 = Round($H, 3)
GUICtrlSetData($reslabel4, "Die Höhe beträgt: " & $H1 & " Meter ");
EndFunc ;==>Hoehe_Berechnen
Func QM_Berechnen()
Global $aQM = GUICtrlRead($laengeQM)
Global $BQM = GUICtrlRead($BreiteQM)
$QM_1 = ($aQM * $BQM)
$QM1 = Int(1000 * $QM_1 + .5) / 1000
$QM1_1 = Round($QM1, 3)
GUICtrlSetData($reslabel5, "Die Quadratmeter betragen: " & $QM1_1 & " m² ");
EndFunc
func Trapez()
Global $L1Trapez = GUICtrlRead($laengeL1Trap_1)
Global $L2Trapez = GUICtrlRead($LaengeL2Trap_1)
Global $H2Trapez = GUICtrlRead($hoeheTrap_1)
$QMTrap = ( ( $L1Trapez + $L2Trapez) / 2 ) * $H2Trapez
$QMTrap1 = Round($QMTrap, 3)
GUICtrlSetData($reslabel6, "Die Quadratmeter betragen: " & $QMTrap1 & " m² ")
EndFunc
func Dreiecks()
Global $LD = GUICtrlRead($laengeLD)
Global $HD = GUICtrlRead($HoeheLD)
$QM2 = ( $LD * $HD ) / 2
$QM3 = Int(1000 * $QM2 + .5) / 1000
$QM3_1 = Round($QM3, 3)
GUICtrlSetData($reslabel7, "Die Quadratmeter betragen: " & $QM3_1 & " m² ")
EndFunc
;=======================================================================================================================================================
; func für ---> AUSWAHLMENÜ 2
;=======================================================================================================================================================
Func OKButton2() ; <-- func Start
$Auswahlwert2 = GUICtrlRead($Auswahl2, 0)
Switch $Auswahlwert2
Case "1"
GUISetState(@SW_SHOW, $FehllaenQM)
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr")
Case "2"
GUISetState(@SW_SHOW, $FehlbreiQM)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr")
Case "3"
GUISetState(@SW_SHOW, $Fehllaen1Trap)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr")
Case "4"
GUISetState(@SW_SHOW, $Fehllaen2Trap)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr")
Case "5"
GUISetState(@SW_SHOW, $FehllhoeheTrap)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr")
Case "6"
GUISetState(@SW_SHOW, $FehlaenDreiecks)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr")
Case "7"
GUISetState(@SW_SHOW, $FehlhoeDreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr")
Case "8"
;GUISetState(@SW_SHOW, $Ma8)
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
Case Else
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
EndSwitch
EndFunc ;==>OKButton
func FehllaenQM() ; Func Anfang
Global $Vol = GUICtrlRead($Volu6)
Global $Br = GUICtrlRead($Breite6)
$lae = ( $Vol / $Br )
$lae1 = Int(1000 * $lae + .5) / 1000
$lae1_1 = Round($lae1, 3)
GUICtrlSetData($reslabel8, "Die Länge beträgt: " & $lae1 & " M ")
EndFunc
func FehlbreiQM()
Global $Vol = GUICtrlRead($Volu7)
Global $lae7 = GUICtrlRead($laenge7)
$erg = ( $Vol / $lae7 )
$erg1 = Int(1000 * $erg + .5) / 1000
$erg1_1 = Round($erg1, 3 )
GUICtrlSetData($reslabel9, "Die Breite beträgt: " & $erg1_1 & " M ")
EndFunc
func Fehllaen1Trap()
Global $QMTrapez_00 = GUICtrlRead($QMTrap1_0)
Global $L2Trapez_00 = GUICtrlRead($LaengeTrap2_0 )
Global $HTrap0_00 = GUICtrlRead($hoeheTrap1_0)
$Laeng1Trap_000 = ( ( $QMTrapez_00 / $HTrap0_00 ) - ($L2Trapez_00 / 2 ) ) * 2
$Laeng1TrapERG_2 = Int( 1000 * $Laeng1Trap_000 + .5) / 1000
$Laeng1TrapERG_11 = Round($Laeng1TrapERG_2, 3)
GUICtrlSetData($reslabe20, "Die Länge 1 beträgt: " & $Laeng1TrapERG_11 & " M ")
EndFunc
func Fehllaen2Trap()
Global $QMTrapez_01 = GUICtrlRead($QMTrap1_00)
Global $L1Trapez_01 = GUICtrlRead($LaengeTrap1_00 )
Global $HTrap0_01 = GUICtrlRead($hoeheTrap1_00)
$Laeng2Trap = ( ( $QMTrapez_01 / $HTrap0_01 ) - ($L1Trapez_01 / 2 ) ) * 2
$Laeng1TrapERG2 = Int( 1000 * $Laeng2Trap + .5) / 1000
$Laeng1TrapERG3 = Round($Laeng1TrapERG2, 3)
GUICtrlSetData($reslabe21, "Die Länge 2 beträgt: " & $Laeng1TrapERG3 & " M ")
EndFunc
func FehllhoeheTrap()
Global $QMTrapez = GUICtrlRead($QMTrap3)
Global $L1Trapez = GUICtrlRead($LaengeTrap3)
Global $L2Trap = GUICtrlRead($LaengTrap3)
$HoeheFehTrap = ( $QMTrapez / ( ( $L1Trapez / 2 ) + ( $L2Trap / 2 ) ) )
$HoeheFehTrapERG = Int( 1000 * $HoeheFehTrap + .5) / 1000
$HoeheFehTrapERG1_1 = Round($HoeheFehTrapERG, 3)
GUICtrlSetData($reslabe22, "Die Höhe beträgt: " & $HoeheFehTrapERG1_1 & " M ")
EndFunc
func FehlaenDreiecks()
Global $LDFDREI = GUICtrlRead($QMDREI)
Global $HDFDrei = GUICtrlRead($HoeheLDDREI)
$LaeFehl = ( $LDFDREI / $HDFDrei ) * 2
$LaeFehl1 = Int(1000 * $LaeFehl + .5) / 1000
$LaeFehl2 = Round($LaeFehl1, 3)
GUICtrlSetData($reslabe23, "Die Länge beträgt: " & $LaeFehl2 & " M ")
EndFunc
func FehlhoeDreiecks()
Global $hoeFehDREI = GUICtrlRead($QMDREI_3)
Global $LaenDREI = GUICtrlRead($LaengeDREI)
$HoeFehl = ( $hoeFehDREI / $LaenDREI ) * 2
$HoeFehl1 = Int(1000 * $HoeFehl + .5) / 1000
$HoeFehl2 = Round($HoeFehl1, 3)
GUICtrlSetData($reslabe24, "Die Höhe beträgt: " & $HoeFehl2 & " M ")
EndFunc
Hallo!
Ich hab mir mal die DVD.iso von OpenSUSE 10.2 heruntergeladen. Ich will mal eine aktuelle Version von Linux testen.
Gibt's hier jemanden, der die Installation schonmal auf einem RAID-System gemacht hat und mir seine Erfahrungen mitteilen kann?
Bei mir ist es so, dass ich ein NVidia nForce4 Mainboard mit SATA-Raid-Controller onBoard habe. An diesem befinden sich zwei SATA-Festplatten im RAID 0, formatiert unter Windows mit NTFS.
Nun spiele ich mit dem Gedanken, da zusätzlich Linux drauf zu installieren. Hab aber ein wenig Angst um mein Windows, weil ich mal irgendwo gelesen habe, dass man Linux nicht auf einem RAID-Verbund installieren soll.
Kennt sich da jemand aus?
MfG. Oscar
Hallo Chicago!
Du hast es so gewollt.
<Kritik on>
- vor dem veröffentlichen erstmal testen, ob's überhaupt läuft.
Angefangen mit Zeile 56: GUICtrlSetOnEvent($OKButton, "OKButton";) ; auszuführen die "func" <-- hier OKButton()
Semikolon VOR der schließenden Klammer. Diesen Fehler hast Du dutzende Male (bei jedem GUICtrlSetOnEvent und jedem GUISetOnEvent) gemacht.
- Zeile 179: $Formel4 = " Die Formel = V / ( L * B "
Klammer schließen. Ist zwar nur ein Ausgabestring, aber für den Benutzer sieht das nicht so schön aus.
- Trapez schreibt sich ohne "tz"
- Benutzer muss erraten, in welcher Einheit er die Eingaben machen muss.
- Die Menüsteuerung über die Eingabe einer Nummer finde ich nervig. Buttons wären IMHO besser.
- Wenn ich auf der zweiten Seite "8" eingebe, erscheint eine MsgBox: "Achter Case-Ausdruck war wahr"
- Die Angaben Opt("GUICoordMode", 3) und Opt("GUIOnEventMode", 1) müssen nur einmal am Anfang des Script stehen.
- Quadratmeter wird doch mit "m²" abgekürzt. Sorry, bei QM denke ich immer an den Qualitäts-Manager bei mir auf der Arbeit.
<Kritik off>
MfG. Oscar
ZitatOriginal von Warlenny
Hallo!
Könnte ich was verbessern oder weiter Funktionen einbau3n ?
Testen, ob Eingaben gültig/sinnvoll sind?!
MfG. Oscar
Hallo Mickey!
Ich sehe das ähnlich wie Huggy.
Das erste Script ist zu umständlich: Script starten, URL eingeben, Copy, Firefox starten, Paste.
Wenn ich das häufiger brauchen würde: "http://anonym.to/?http://" in die Zwischenablage und dann in die Adresszeile von Firefox einfach Paste und die URL eingeben.
Beim zweiten Script ist das ähnlich. Warum erst Dein Script starten und dort den Suchbegriff eingeben, damit dann Firefox gestartet wird, wenn es bereits eine Erweiterung für Firefox mit genau dieser Funktion gibt?
Nichts für ungut. Sind sicherlich Deine ersten Scripte und somit sind sie für Dich ein Erfolgserlebnis und hatten sicherlich einen Lerneffekt, aber wirklich praktisch und besonders nützlich?
Nimm's nicht so schwer mit den ehrlichen Antworten.
MfG. Oscar
ZitatOriginal von apsodifu
Sorry, aber vielleicht wurde das falsch verstanden.Das Script startet und öffnet die Installationsdatei.
Dann bleibt es bei dem WinWaitActive hängen, OBWOHL das Installationsfenster geöffnet ist.
(
Das Script bleibt schon vorher "hängen", nicht erst bei WinWaitActive. Der Befehl ShellExecuteWait wartet bereits darauf, dass die Installation beendet wird.
Benutze stattdessen ShellExecute und es funktioniert.
MfG. Oscar
Hallo Bugfix!
Das ist ja ein geiles Script. Find ich klasse.
Aber ein Manko hab ich dann doch gefunden. Man kann das Fenster nicht verschieben. Manchmal möchte ich doch sehen, was auf dem Fenster darunter geschrieben steht.
MfG. Oscar
Achso, Du hast wahrscheinlich gar nicht Scite4AutoIt installiert?!
Klick mal hier im Forum (Portal) rechts oben auf "Scite4AutoIt". Dort kannst Du das downloaden.
Das musst Du installieren, dann hast Du auch den "AutoIt3Wrapper" (Programm).
Wenn Du das getan hast, startest Du den AutoIt3Wrapper aus dem AutoIt-Verzeichnis (..\AutoIt\Scite\AutoIt3Wrapper\AutoIt3Wrapper_GUI.exe). Nach Auswahl irgendeiner .au3 Datei öffnet sich die GUI.
Dort (Karteikartenreiter "Resource Hack") musst Du dann noch den Resource Hacker downloaden und installieren.
Und dann kannst Du alle Eingaben machen und speichern.
MfG. Oscar
ZitatOriginal von tince
1. AutoItWrapper Code ganz oben einfügen
2. Abspeichern
3. Rechtsklick >> Compilescript
Bei mir geht das nur mit:
3. Rechtsklick >> Compile with Options
Dann startet die GUI vom Wrapper und ich kann das mit der Fileversion compilieren.
MfG. Oscar
Hallo!
teh_hahn: Die Performance ist mittlerweile recht gut, durch die vorgenommenen Änderungen. Mit dieser Geschwindigkeit bin ich schon zufrieden, wenn man bedenkt, dass es sich um eine Skriptsprache handelt.
@JoEtHeKiLlEr: Eine Wikipedia-Abfrage halte ich für überflüssig, da bei der Googlesuche sowieso meist schon ein Wikipedia-Eintrag dabei ist.
MfG. Oscar
Hallo!
@ Xenobiologist: Das Aufbereiten des Wörterbuchs ist mir auch schon in den Sinn gekommen. Ich werde mal alle Wörter rauslöschen, die weniger als 4 Buchstaben haben und die Wörter, die einen Bindestrich enthalten. Außerdem will ich das große Wörterbuch in 28 (eins für jeden Buchstaben) trennen und (Dein Vorschlag) die Wörter innerhalb jeder Datei nach Länge sortieren, das sollte beim suchen schon viel bringen.
Mit regex steh ich irgendwie auf dem Kriegsfuß. Klappt das, wenn ich z.B. "ab" eingebe, dass regex mir nicht "abba" als Möglichkeit ausgibt?
@huggy: Das mit der Anzeige ist mir schon klar. Nur wenn ein Programm so lange läuft und nix passiert, hab ich immer Angst, dass es hängt.
Aber mit obigen Änderungen werde ich wohl auch die Anzeige anpassen.
Und die Idee mit dem Google-Link werde ich auch mal in Angriff nehmen.
Vielen Dank euch Beiden.
MfG. Oscar
So, das Script ist fertig.
Der ScrabbleHelper hilft bei der Suche nach Wörter, die man beim Scrabble legen kann, mit dem Wörterbuch von Thunderbird (über 590.000 Wörter).
Nach Eingabe der Buchstaben werden alle Wörter angezeigt, die man damit legen kann. Ebenso rechnet das Script den Punktwert aus und zeigt ihn an. Am Ende der Suche kann man das Ergebnis sortieren lassen, indem man auf "Punkte" klickt.
Angezeigt werden nur Wörter mit mehr als 3 Buchstaben, da es sich bei Wörtern mit weniger Buchstaben sowie meist um Abkürzungen handelt.
EDIT: Ich habe jetzt mal die besprochenen Optimierungen vorgenommen. Die Wörterbücher müssen jetzt runtergeladen und das ZIP-Archiv ins Scriptverzeichnis entpackt werden.
Die Wörterbücher können hier (Wörterbücher) runterladen werden.
EDIT 2: Jetzt auch mit Googlesuche. Einfach auf das Wort im Listview klicken und der IE wird mit der Googlesuche gestartet.
EDIT 3: Jetzt kann man auch einen Blankostein einsetzen.
Opt("GUIOnEventMode", 1)
#include <GUIConstants.au3>
#include <Array.au3>
#include <file.au3>
#include <GuiListView.au3>
#include <IE.au3>
Dim $aWoerter[30][70000]
Dim $aEintrag[1]; wird später mit ReDim geändert
Dim $aPunkte[7][2]
Dim $h
$aPunkte[0][0] = "adeinrstu"
$aPunkte[0][1] = 1
$aPunkte[1][0] = "ghlo"
$aPunkte[1][1] = 2
$aPunkte[2][0] = "bmwz"
$aPunkte[2][1] = 3
$aPunkte[3][0] = "cfkp"
$aPunkte[3][1] = 4
$aPunkte[4][0] = "jväü"
$aPunkte[4][1] = 6
$aPunkte[5][0] = "xö"
$aPunkte[5][1] = 8
$aPunkte[6][0] = "qy"
$aPunkte[6][1] = 10
Global $Out
[/autoit] [autoit][/autoit] [autoit]DateiTest()
[/autoit] [autoit][/autoit] [autoit]$Fenster = GUICreate("ScrabbleHelper", 630, 460,-1,-1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Beenden")
GUICtrlCreateLabel("Meine Buchstaben: ", 10, 12, 100, 18)
[/autoit] [autoit][/autoit] [autoit]$Buchstaben = GUICtrlCreateInput("", 110, 10, 200, 18)
[/autoit] [autoit][/autoit] [autoit]$Joker = GUICtrlCreateCheckbox("Blankostein vorhanden", 320, 10, 130, 18)
[/autoit] [autoit][/autoit] [autoit]$Start = GUICtrlCreateButton("Start", 460, 10, 50, 18)
GUICtrlSetOnEvent(-1, "Wortsuche")
$Zaehler = GUICtrlCreateLabel("", 520, 12, 100, 18, $ES_RIGHT)
[/autoit] [autoit][/autoit] [autoit]$Listview = GuiCtrlCreateListView("Folgende Wörter wurden gefunden|Punkte", 10 ,40 ,610 ,410, $LVS_SORTDESCENDING)
GUICtrlSetOnEvent(-1, "Sort")
_GUICtrlListViewSetColumnWidth($Listview, 0, 480)
_GUICtrlListViewSetColumnWidth($Listview, 1, 100)
Dim $B_DESCENDING[_GUICtrlListViewGetSubItemsCount($Listview)]
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW); Fenster sichtbar machen
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
Func Beenden()
$abr = MsgBox(36, "ScrabbleHelper", "Programm beenden?")
If $abr = 6 then Exit; Benutzer hat 'Ja' angeklickt, also Programm beenden
EndFunc
Func DateiTest()
ProgressOn("ScrabbleHelper", "Lade Wörterbücher...")
For $i = 0 To 28
ProgressSet(Int(100/29*$i), Int(100/29*$i) & " Prozent")
$filename = "dic/" & StringRight("0" & $i, 2) & ".dic"
If Not FileExists($filename) Then
ProgressOff()
MsgBox(16,"ScrabbleHelper","Wörterbuch-Datei: " & Chr(34) & $filename & Chr(34) & " fehlt! Bitte downloaden und ins Script-Verzeichnis entpacken." & @CRLF & "Das Programm wird beendet!")
Exit
EndIf
_FileReadToArray($filename, $h)
For $j = 0 To $h[0]
$aWoerter[$i][$j] = $h[$j]
Next
Next
ProgressOff()
EndFunc
Func WortSuche()
$Input = StringUpper(GUICtrlRead($Buchstaben)); User-Buchstaben in Grossbuchstaben wandeln
If $Input = "" Then Return(1)
GUICtrlSetState($Start, $GUI_DISABLE)
GUICtrlSetData($Zaehler, "Suche...")
If $Out > 0 Then; wenn bereits Einträge im Listview enthalten sind
For $i = 0 To $Out - 1
GUICtrlDelete($aEintrag[$i]); Einträge löschen
Next
$Out = 0; Zähler auf Null setzen
EndIf
$TJ = (GUICtrlRead($Joker) <> 4) * 1; $TJ = 1, wenn Blankostein vorhanden, sonst 0
$aInput = StringSplit($Input, ""); die eingegebenen User-Buchstaben trennen und in ein Array speichern
For $Woerterbuch = 0 To 28
GUICtrlSetData($Zaehler, "Suche... " & $Woerterbuch & "/28")
For $Anz = 1 To $aWoerter[$Woerterbuch][0]
$Temp = $aWoerter[$Woerterbuch][$Anz]; Aktuelles Wort in eine temporäre Variable
If StringLen($Temp) <= ($aInput[0] + $TJ) Then; prüfen, ob Wortlänge kleiner/gleich Anzahl der User-Buchstaben
If StringInStr($Input, StringLeft($Temp, 1)) > 0 Or $TJ = 1 Then; prüfen, ob der Anfangsbuchstabe in den User-Buchstaben vorkommt
$HTemp = StringUpper($Temp); Wort in Grossbuchstaben wandeln
For $i = 1 To $aInput[0]
$HTemp = StringReplace($HTemp, $aInput[$i], "", 1); Die User-Buchstaben aus dem Wort entfernen
Next
$Len = StringLen($HTemp)
$Blanko = 0
If ($Len = 0) Or (($Len = 1) And ($TJ = 1)) Then; wenn alle Buchstaben entfernt wurden (oder ein Blankostein vorhanden), dann kann das Wort gelegt werden
$p = 0; Variable für Punkte auf Null setzen
$aTemp = StringSplit($Temp, ""); Wort in Buchstaben aufsplitten
For $i = 1 To $aTemp[0]; alle Buchstaben testen
If ($TJ = 1) And ($HTemp = $aTemp[$i]) And ($Blanko = 0) Then; Für den Blankostein gibt es keine Punkte, also überspringen
$Blanko = 1; sorgt dafür, dass der Blankobuchstabe nur einen Buchstaben ersetzt
Else
For $j = 0 To 6; alle Punktelisten durchgehen
If StringInStr($aPunkte[$j][0], $aTemp[$i]) > 0 Then; Ist der Buchstabe in der Punkteliste enthalten?
$p += $aPunkte[$j][1]; dann die Punkte aus der Liste addieren
EndIf
Next
EndIf
Next
$aEintrag[$Out] = GUICtrlCreateListViewItem($Temp & "|" & $p, $Listview); neuen Eintrag anlegen
GUICtrlSetOnEvent(-1, "GoogleSuche")
$Out += 1; Zähler erhöhen
ReDim $aEintrag[$Out+1]; Array neu dimensionieren
EndIf
Else
ExitLoop; wenn der Anfangsbuchstabe nicht in den User-Buchstaben vorkam, dann Schleife überspringen (Tempo-Optimierung)
EndIf
Else
ExitLoop; wenn Wort mehr Buchstaben hat als der User, dann Schleife überspringen (Tempo-Optimierung)
EndIf
Next
Next
GUICtrlSetData($Zaehler, "Fertig!")
GUICtrlSetState($Start, $GUI_ENABLE)
EndFunc
Func Sort()
_GUICtrlListViewSort($Listview, $B_DESCENDING, GUICtrlGetState($Listview))
EndFunc
Func GoogleSuche()
$search = GUICtrlRead(@GUI_CtrlId)
$search = StringLeft($search, StringInStr($search, "|")-1); Endung entfernen
_IECreate("http://www.google.de/search?q=" & $search)
EndFunc
Vielleicht findet ja noch jemand Möglichkeiten zur Geschwindigkeits-Optimierung.
MfG. Oscar
ZitatAlles anzeigenOriginal von huggy
wollt ich mal machen, aber keinen ansporn dazu:Scrabbel -helper^^
Scrabble kennt ihr ja sicher - brettspiel.
Jetzt n script, dass n wörterbuch (deutsch) includet und man in ne GUI dann
seine Buchstaben eingibt .Das Programm schaut dann in der Wordlist, was es für schöne Wörter gibt mit den Buchstaben
Ich habe mal angefangen damit. Wörter findet das Script schon. Ich will nur, dass sie auch sortiert werden.
Kannst Du mal die Werte für die Buchstaben posten?
Hab kein Scrabble hier.
MfG. Oscar
ZitatOriginal von sc4ry
nur wollte ich ein kleines script schreiben, dass das öffnen verhindert. doch wie fange ich das öffnen des cd-lws ab ?
Falls das mit AutoIt nicht klappt, dann sieh doch mal hier nach:
MfG. Oscar
Hallo!
Ich habe mal etwas ähnliches gemacht. Da bin ich in etwa so vorgegangen:
#include <GUIconstants.au3>
#include <Array.au3>
#include <File.au3>
Global $Start
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
GUICreate("Watchdog Check",500,500)
GUICtrlCreateButton("Start",10,400,70,50)
GUICtrlSetOnEvent(-1, '_Start')
GUICtrlCreateButton("Stop",110,400,70,50)
GUICtrlSetOnEvent(-1, "_Stop")
GUICtrlCreateButton("Exit",210,400,70,50)
GUICtrlSetOnEvent(-1, "_Exit")
GUISetState(@SW_SHOW)
Func _Start()
$Start = 1
EndFunc
Func _Stop()
$Start = 0
EndFunc
Func _Exit()
Exit
EndFunc
While 1
If $Start = 1 Then
While $Start = 1
MsgBox(0,"","TEST")
Sleep(1000)
WEnd
EndIf
Sleep(10)
WEnd
MfG. Oscar