Beiträge von Greek

  • GUI unsichtbar button sochtbar

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <WinAPI.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $aButton[5]

    [/autoit] [autoit][/autoit] [autoit]

    $gui = GUICreate("Test Windows regions", 150, 150, @DesktopWidth-170, -1, $WS_POPUP, $WS_EX_TOPMOST)
    $aButton[0] = GUICtrlCreateButton("Button 1", 0, 0, 150)
    $aButton[1] = GUICtrlCreateButton("Button 2", 0, 30, 150)
    $aButton[2] = GUICtrlCreateButton("Button 3", 0, 60, 150)
    $aButton[3] = GUICtrlCreateButton("Button 4", 0, 90, 150)
    $aButton[4] = GUICtrlCreateButton("Exit", 0, 120, 150)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    $pos = WinGetPos($gui)
    _GuiHole($gui, 0, 0, 150, 150)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $aButton[4]
    ExitLoop
    Case $aButton[0]
    MsgBox(0, '', 'Button1 geklickt')
    Case $aButton[1]
    MsgBox(0, '', 'Button2 geklickt')
    Case $aButton[2]
    MsgBox(0, '', 'Button3 geklickt')
    Case $aButton[3]
    MsgBox(0, '', 'Button4 geklickt')
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
    Local $outer_rgn, $inner_rgn, $combined_rgn
    $combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
    _WinAPI_DeleteObject($outer_rgn)
    _WinAPI_DeleteObject($inner_rgn)
    _AddCtrlRegion($combined_rgn, $aButton)
    _WinAPI_SetWindowRgn($h_win, $combined_rgn)
    EndFunc ;==>_GuiHole

    [/autoit] [autoit][/autoit] [autoit]

    Func _AddCtrlRegion($full_rgn, $ctrl_id)
    Local $ctrl_pos, $ctrl_rgn
    If IsArray($ctrl_id) Then
    For $i = 0 To UBound($ctrl_id) -1
    $ctrl_pos = ControlGetPos($gui, "", $ctrl_id[$i])
    $ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
    _WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
    _WinAPI_DeleteObject($ctrl_rgn)
    Next
    Else
    $ctrl_pos = ControlGetPos($gui, "", $ctrl_id)
    $ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
    _WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
    _WinAPI_DeleteObject($ctrl_rgn)
    EndIf
    EndFunc ;==>_AddCtrlRegion

    [/autoit]

    So? Hat Bugfix mal gemacht.

  • Button reagieren nicht solang func läuft

    Hallo. wollte ein mal probieren ein spiel zu schreiben und hab ne frage:

    Wie kann ich machen das die anderen Button auch funktionieren während der eine läuft?
    Will mit allen 3 Button gleichzeitig abbauen können.


    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Global $startN=500
    Global $startH=300
    Global $startS=200

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Vorräte", 747, 600, 190, 122)
    $Button1 = GUICtrlCreateButton("Nahrung abbauen", 16, 40, 99, 25, 0)
    $Button2 = GUICtrlCreateButton("Stein abbauen", 136, 40, 99, 25, 0)
    $Button3 = GUICtrlCreateButton("Holz abbauen", 256, 40, 99, 25, 0)
    $Label1 = GUICtrlCreateLabel("Nahrung", 16, 8, 45, 17)
    $Label2 = GUICtrlCreateLabel("Stein", 136, 8, 28, 17)
    $Label3 = GUICtrlCreateLabel("Holz", 256, 8, 25, 17)
    $Label4 = GUICtrlCreateLabel("500", 16, 100, 50, 20)
    $Label5 = GUICtrlCreateLabel("200", 136, 100, 50, 20)
    $Label6 = GUICtrlCreateLabel("300", 256, 100, 50, 20 )
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    $vorkommenN1=Random ( 200, 1000, 1 )
    $vorkommenH1=Random ( 100, 500, 1 )
    $vorkommenS1=Random ( 50, 250, 1 )

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    abbauenN()
    Case $Button2
    abbauenS()
    Case $Button3
    abbauenH()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func abbauenN()
    GUICtrlSetData ( $Button1, "wird abgebaut..." )
    For $N=$startN To $vorkommenN1+$startN Step +10
    Sleep ( 1000 )
    GUICtrlSetData ( $Label4, $N )
    Next
    EndFunc

    Func abbauenS()
    GUICtrlSetData ( $Button2, "wird abgebaut..." )
    For $S=$startS To $vorkommenS1+$startS Step +10
    Sleep ( 1000 )
    GUICtrlSetData ( $Label5, $S )
    Next
    EndFunc

    Func abbauenH()
    GUICtrlSetData ( $Button3, "wird abgebaut..." )
    For $H=$startH To $vorkommenH1+$startH Step +15
    Sleep ( 1000 )
    GUICtrlSetData ( $Label6, $H )
    Next
    EndFunc

    [/autoit]

    mfg Greek

  • Wie geh ich an AutoIt ran?

    Zitat von funkey

    Wenn du Scite4Autoit installierst werden auch Zusatzprogramme wie Organize Includes, Open Include, Tidy, CodeWizard, Koda und so mitinstalliert und in Scite mit eingebunden (über Hotkey's) ;)

    ohh, man gut das ich das auchmal weis^^ hab mich schon gewundert das bei den anderen Koda schon dabei ist und bei nicht ^^

    danke

    Mfg Greek

  • Kleine CSPE Aufgabe

    Hab hier ne Aufgabe die ich nicht hinbekommen, in eurer Ausbildung musstet ihr doch bestimmt sowas auch können?

    Vier Widerstände sind in Reihe geschaltet. Dabei betragen R1= 68 Ohm, R2 =270 Ohm und R4=330 Ohm. Die Spannung UR3=8,2V und die Gesamtspannung UAB=75 V. ( UAB geht von +( A ) zu -( B ) )

    Wie groß ist der Gesamtstrom I?
    Welchen Wert hat der Widerstand R3.
    Berechnen Sie alle Teilspannungen.

    Bis jetzt hat sie keiner hinbekommen, hab schon alles probiert, mein Vater ist Elektromeister und hat sie nicht hinbekommen, kann ja nicht sein, das unserer Lehrer so ne schwerer Aufgabe uns gibt, vieleicht geht sie garnicht?

    Würde mich über Hilfe freuen

  • Mausbewegung erkennen und überwachen

    Also bei mir Funktioniert das so

    Spoiler anzeigen
    [autoit]

    $begin = TimerInit()
    While 1
    $pos = MouseGetPos()
    $dif = TimerDiff($begin)
    If $dif > 2000 And $dif < 3000 Then
    MouseMove ( 100, 100, 10 ) ; deine Funktion, der wert darf nicht exact sein, da das so genau nicht geht
    EndIf
    $pos2 = MouseGetPos()
    If $pos[0] <> $pos2[0] or $pos[1] <> $pos2[1] Then
    $begin = TimerInit()
    EndIf
    WEnd

    [/autoit]

  • Brauch ne Buchstütze

    auf die idee bin ich auch schon gekommen^^

    das problem dabei ist, das er nur buchständer anzeigt, aber ich brauch ja was, was mir das buch beim lesen hält

    also bei galilleo war das wie so en arm, man hat den gehalten und der hat das buch dann gehalten und das soll dann nicht mehr so anstrengend sein.