schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)
Ps.: notorische nicht auf gelöst Setzern bekommen von mir keine Hilfe!
mfg autoBert
Mein neuestes Projekt läuft sogar mit ca. 60 FPS :P. Also kann ja wohl kaum AutoIt daran Schuld sein.
Da hast du aber jede einzelne Berechnng optimimiert, ja ( @Manuel) auch gute Mathe- und Physikkentnisse sind wichtig,
mfg autoBert
mach mir grad ein spiel und die figur bewegt sich in zeitlupe obwohl ich das sleep sogar schon entfernt hab wie krieg ich das schneller ?
in dem du deine Funcs optimierst. Das AutoIt trotz Interpretierender Sprache nicht zu langsam für Spiele ist kannst du z.B.:an AutoIteroids vom GDI-Meister UEZ erkennen, einfach einmal die SuFu oderGoogle benutzen.l
Du kannst in der Schleife mit GuiGetMsg() prüfen ob der Button gedrückt wurde und darauf reagieren. Weitergehende Hilfe kann nur mit dem kompletten Skript erfolgen,
mfg autoBert
MicroMoney stellt seinen Betrieb zum 1. Juli ein, etwaiges Restguthaben solle bis zum 30. Juni aufgebraucht werden. Das teilt ein Popup auf der Homepage mit.
Quelle: http://www.teltarif.de/micromoney-pos…news/42953.html
Hallo darter,
dadurch wird für _RandomOnOff erneut die Zeit von 500 ms registriert deine Befürchtung trifft also nicht zu. Das ganze kommt durch die Änderung für dieses Thema im Original hatte ich
[autoit]AdlibRegister("_RandomOnOff",Random(5000,10000,1))
[/autoit]um eine zufällige Zeit für den nächsten Aufruf zu nehmen. Hier das Original:
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListviewConstants.au3>
#include <array.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
Dim $aNames[20][2], $idItem
[/autoit] [autoit][/autoit] [autoit]$aNames[0][0] = "Jürgen"
$aNames[1][0] = "Peter"
$aNames[2][0] = "Bert"
$aNames[3][0] = "Christina"
$aNames[4][0] = "Alex"
$aNames[5][0] = "Astrid"
$aNames[6][0] = "Roberto"
$aNames[7][0] = "Heinz"
$aNames[8][0] = "Iwan"
$aNames[9][0] = "Robertina"
$aNames[10][0] = "Hans"
$aNames[11][0] = "Peter II."
$aNames[12][0] = "Tina"
$aNames[13][0] = "Michael"
$aNames[14][0] = "Gunnar"
$aNames[15][0] = "Kurt"
$aNames[16][0] = "Gerald"
$aNames[17][0] = "Alfred"
$aNames[18][0] = "Stefanie"
$aNames[19][0] = "Nicole"
Dim $aItems[20]
$msg = GUICreate("", 270, 400)
$listview = GUICtrlCreateListView("Name|Status|Zeit", 10, 10, 250, 350)
For $i = 0 To 19
$aItems[$i] = GUICtrlCreateListViewItem($aNames[$i][0] & "|Offline|-1", $listview)
Next
_GUICtrlListView_SetColumnWidth($listview,0,140)
_GUICtrlListView_SetColumnWidth($listview,1,40) ;0 = unsichtbar
_GUICtrlListView_RegisterSortCallBack($listview)
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
_RandomOnOff()
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];GUICtrlSetColor(-1, 0x22C21F)
;GUICtrlSetColor(-1, 0xAA0000)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_GUICtrlListView_UnRegisterSortCallBack($ListView)
Exit
EndSwitch
WEnd
Func _RandomOnOff()
_GUICtrlListView_BeginUpdate($ListView)
For $i = 0 To 19
If Random(1, 3, 1) = 1 Then
$aNames[$i][1]="Off"
Else
$aNames[$i][1]="On"
EndIf
Next
For $i = 0 To 19
$iItem = _GUICtrlListView_FindText ($listview,$aNames[$i][0],-1,False,True)
If $aNames [$i][1] = "Off" Then
GUICtrlSetData($aItems[$iItem],"|Off|-1")
GUICtrlSetBkColor($aItems[$iItem], 0xAA0000)
Else
GUICtrlSetData($aItems[$iItem],"|On|" & Random(10,9999,1))
GUICtrlSetBkColor($aItems[$iItem], 0x22C21F)
EndIf
Next
_GUICtrlListView_SortItems($listview, 0)
_GUICtrlListView_SortItems($listview, $idItem)
_GUICtrlListView_EndUpdate($ListView)
AdlibRegister("_RandomOnOff",Random(5000,10000,1))
EndFunc ;==>_RandomOnOff
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iCode, $tNMHDR, $hWndListView, $hWndListView2
$hWndListView = $ListView
If Not IsHWnd($ListView) Then $hWndListView = GUICtrlGetHandle($ListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
$idItem = DllStructGetData($tInfo, "SubItem")
; Kick off the sort callback
_GUICtrlListView_SortItems($hWndFrom, $idItem)
; No return value
EndSwitch
EndSwitch
Return $__LISTVIEWCONSTANT_GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
mfg autobert
Hallo trixi,
da er etwas sendet nämlich
{,und du nicht beschrieben hast was du erreichen willst wird dieses Thema wohl nie gelöst. Ausserdem gibt es besssere (zverlässigere) Möglichkeiten als send. Du solltest also dein Problem komplett schildern, dann klappts vielleicht,
mfg autoBert
Hallo Scritch,
wie Developer30 schon schrieb geht das slebstveständlich. Ich habe mal in einem bestehenden Testprogramm ale unnötigen Sachen (Sortierung) auskommentiert und die Akzualisierung auf 500 ms eingestellt. das Ergebnis kannst du begutachten wenn du dieses Skriipt startest:
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListviewConstants.au3>
#include <array.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
Dim $aNames[20][2]
$aNames[0][0] = "Jürgen"
$aNames[1][0] = "Peter"
$aNames[2][0] = "Bert"
$aNames[3][0] = "Christina"
$aNames[4][0] = "Alex"
$aNames[5][0] = "Astrid"
$aNames[6][0] = "Roberto"
$aNames[7][0] = "Heinz"
$aNames[8][0] = "Iwan"
$aNames[9][0] = "Robertina"
$aNames[10][0] = "Hans"
$aNames[11][0] = "Peter II."
$aNames[12][0] = "Tina"
$aNames[13][0] = "Michael"
$aNames[14][0] = "Gunnar"
$aNames[15][0] = "Kurt"
$aNames[16][0] = "Gerald"
$aNames[17][0] = "Alfred"
$aNames[18][0] = "Stefanie"
$aNames[19][0] = "Nicole"
Dim $aItems[20]
$msg = GUICreate("", 200, 400)
$listview = GUICtrlCreateListView("Name|Status", 10, 10, 180, 350)
For $i = 0 To 19
$aItems[$i] = GUICtrlCreateListViewItem($aNames[$i][0] & "|Offline", $listview)
Next
_GUICtrlListView_SetColumnWidth($listview,0,140)
_GUICtrlListView_SetColumnWidth($listview,1,40) ;0 = unsichtbar
;_GUICtrlListView_RegisterSortCallBack($listview)
;GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
_RandomOnOff()
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];GUICtrlSetColor(-1, 0x22C21F)
;GUICtrlSetColor(-1, 0xAA0000)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
;_GUICtrlListView_UnRegisterSortCallBack($ListView)
Exit
EndSwitch
WEnd
Func _RandomOnOff()
_GUICtrlListView_BeginUpdate($ListView)
For $i = 0 To 19
If Random(1, 3, 1) = 1 Then
$aNames[$i][1]="Off"
Else
$aNames[$i][1]="On"
EndIf
Next
For $i = 0 To 19
$iItem = _GUICtrlListView_FindText ($listview,$aNames[$i][0],-1,False,True)
If $aNames [$i][1] = "Off" Then
GUICtrlSetData($aItems[$iItem],"|Off")
GUICtrlSetBkColor($aItems[$iItem], 0xAA0000)
Else
GUICtrlSetData($aItems[$iItem],"|On")
GUICtrlSetBkColor($aItems[$iItem], 0x22C21F)
EndIf
Next
;_GUICtrlListView_SortItems($listview, 0)
;_GUICtrlListView_SortItems($listview, 1)
_GUICtrlListView_EndUpdate($ListView)
AdlibRegister("_RandomOnOff",500);,Random(5000,10000,1))
EndFunc ;==>_RandomOnOff
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iCode, $tNMHDR, $hWndListView, $hWndListView2
$hWndListView = $ListView
If Not IsHWnd($ListView) Then $hWndListView = GUICtrlGetHandle($ListView)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $LVN_COLUMNCLICK ; A column was clicked
Local $tInfo = DllStructCreate($tagNMLISTVIEW, $ilParam)
; Kick off the sort callback
_GUICtrlListView_SortItems($hWndFrom, DllStructGetData($tInfo, "SubItem"))
; No return value
EndSwitch
EndSwitch
Return $__LISTVIEWCONSTANT_GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
mfg autoBert
Hallo white,
der Button kann bei Volltransparenz nicht geklickt werden d.H. du kannst ihn auch weglassen. Teste lieber dieses Skript:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
;aus Hilfe Beispielen zusammenkopiert von autoBert 1. Veröffentlichung http://www.autoit.de/index.php?page…3192#post223192
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $sBMPNormal = @ScriptDIR & "\Icons\dsFirst_NORMAL.BMP"
Local $sBMPHot = @ScriptDir & "\Icons\dsFirst_mouseover.bmp"
Local $sBMPPress = @ScriptDir & "\Icons\dsFirst_mousedown.bmp"
Local $sBMPImage = @WindowsDir & "\pchealth\helpctr\System\blurbs\watermark_300x.bmp"
Local $btn1, $btn2, $btn3, $btn4, $msg
Local $hImagebtn1, $hImagebtn2, $hImagebtn3 ,$hImagebtn4
;Caveat: Minimum Operating Systems: Windows XP.
[/autoit] [autoit][/autoit] [autoit];Image list with multiple images will only show the images
;other than the 1st image when Themes are used.
GUICreate("Button Imagelists - Minimum OS: Windows XP",400,300)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreatePic(@WindowsDir & "\Web\Wallpaper\Windows XP.jpg", 0, 0, 400, 300)
GUICtrlSetState(-1, $GUI_DISABLE)
;multi state image Bitmap
$btn1 = GUICtrlCreateButton("This Way", 30, 30, 90, 32)
GUICtrlSetTip(-1, "Multi state bitmap imagelist")
$hImagebtn1 = _GUIImageList_Create(24, 24, 3, 3)
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);1 - Normal
_GUIImageList_AddBitmap($hImagebtn1, $sBMPHot) ;2 - Hot
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress) ;3 - Pressed
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress);4 - Disabled
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);5 - Defaulted
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);6 - Stylus Hot (tablet computers only)
_GUICtrlButton_SetImageList($btn1, $hImagebtn1)
;single state image Bitmap
$btn2 = GUICtrlCreateButton("This Way", 30, 70, 90, 32)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetTip(-1, "Single bitmap imagelist")
$hImagebtn2 = _GUIImageList_Create(24, 24, 5, 3)
_GUIImageList_AddBitmap($hImagebtn2, $sBMPNormal);1 - Normal
_GUICtrlButton_SetImageList($btn2, $hImagebtn2)
;single state image Icon
$btn3 = GUICtrlCreateButton("Unlock", 30, 110, 90, 40)
GUICtrlSetTip(-1, "Single icon imagelist")
$hImagebtn3 = _GUIImageList_Create(32, 32, 5, 3)
_GUIImageList_AddIcon($hImagebtn3, "msrating.dll", 10, True)
_GUICtrlButton_SetImageList($btn3, $hImagebtn3)
;single state image Bitmap with overlayed text
$btn4 = GUICtrlCreateButton("Help", 30, 160, 90, 90)
GUICtrlSetTip(-1, "Single bitmap imagelist with overlayed text")
GUICtrlSetFont(-1, 14, 800, -1, "Comic Sans MS")
$hImagebtn4 = _GUIImageList_Create(80, 80, 5, 3)
_GUIImageList_AddBitmap($hImagebtn4, $sBMPImage)
_GUICtrlButton_SetImageList($btn4, $hImagebtn4, 4)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $btn1
Case $btn2
GUICtrlSetState($btn1, $GUI_DISABLE)
Case $btn3
GUICtrlSetState($btn1, $GUI_ENABLE)
Case $btn4
EndSwitch
WEnd
EndFunc ;==>_Main
dazu benötigst du noch
Nachtrag: hier noch eine Abwandlung davon bei der das Hintergrundbild durchscheint:
;aus Hilfe Beispielen zusammenkopiert von autoBert 1. Veröffentlichung http://www.autoit.de/index.php?page…3192#post223192; *** Start added by AutoIt3Wrapper ***
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <GuiImageList.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]Global $iTrans = 150 ;je niedriger um so mehr scheint dass HintergrundBild durch
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $sBMPNormal = @ScriptDir & "\Icons\dsFirst_NORMAL.BMP"
Local $sBMPHot = @ScriptDir & "\Icons\dsFirst_mouseover.bmp"
Local $sBMPPress = @ScriptDir & "\Icons\dsFirst_mousedown.bmp"
Local $sBMPImage = @WindowsDir & "\pchealth\helpctr\System\blurbs\watermark_300x.bmp"
Local $btn1, $btn2, $btn3, $btn4, $msg
Local $hImagebtn1, $hImagebtn2, $hImagebtn3, $hImagebtn4
;Caveat: Minimum Operating Systems: Windows XP.
[/autoit] [autoit][/autoit] [autoit];Image list with multiple images will only show the images
;other than the 1st image when Themes are used.
Local $hGUI = GUICreate("Button Imagelists - Minimum OS: Windows XP", 400, 300)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreatePic(@WindowsDir & "\Web\Wallpaper\Windows XP.jpg", 0, 0, 400, 300)
GUICtrlSetState(-1, $GUI_DISABLE)
Local $hChild1 = GUICreate("Child", 90, 32, 30, 30, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_ACCEPTFILES), $hGUI)
;multi state image Bitmap
$btn1 = GUICtrlCreateButton("This Way", 0, 0, 90, 32)
GUICtrlSetTip(-1, "Multi state bitmap imagelist")
$hImagebtn1 = _GUIImageList_Create(24, 24, 3, 3)
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);1 - Normal
_GUIImageList_AddBitmap($hImagebtn1, $sBMPHot) ;2 - Hot
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress) ;3 - Pressed
_GUIImageList_AddBitmap($hImagebtn1, $sBMPPress);4 - Disabled
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);5 - Defaulted
_GUIImageList_AddBitmap($hImagebtn1, $sBMPNormal);6 - Stylus Hot (tablet computers only)
_GUICtrlButton_SetImageList($btn1, $hImagebtn1)
;#cs
Local $hChild2 = GUICreate("Child", 90, 32, 30, 70, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_ACCEPTFILES), $hGUI)
;single state image Bitmap
$btn2 = GUICtrlCreateButton("This Way", 0, 0, 90, 32)
GUICtrlSetTip(-1, "Single bitmap imagelist")
$hImagebtn2 = _GUIImageList_Create(24, 24, 5, 3)
_GUIImageList_AddBitmap($hImagebtn2, $sBMPNormal);1 - Normal
_GUICtrlButton_SetImageList($btn2, $hImagebtn2)
;#ce
Local $hChild3 = GUICreate("Child", 90, 40, 30, 110, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_ACCEPTFILES), $hGUI)
;single state image Icon
$btn3 = GUICtrlCreateButton("Unlock", 0, 0, 90, 40)
GUICtrlSetTip(-1, "Single icon imagelist")
$hImagebtn3 = _GUIImageList_Create(32, 32, 5, 3)
_GUIImageList_AddIcon($hImagebtn3, "msrating.dll", 10, True)
_GUICtrlButton_SetImageList($btn3, $hImagebtn3)
Local $hChild4 = GUICreate("Child", 90, 90, 30, 160, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_ACCEPTFILES), $hGUI)
;single state image Bitmap with overlayed text
$btn4 = GUICtrlCreateButton("Help", 0, 0, 90, 90)
GUICtrlSetTip(-1, "Single bitmap imagelist with overlayed text")
GUICtrlSetFont(-1, 14, 800, -1, "Comic Sans MS")
$hImagebtn4 = _GUIImageList_Create(80, 80, 5, 3)
_GUIImageList_AddBitmap($hImagebtn4, $sBMPImage)
_GUICtrlButton_SetImageList($btn4, $hImagebtn4, 4)
WinSetTrans($hChild1, "", $iTrans)
WinSetTrans($hChild2, "", $iTrans)
WinSetTrans($hChild3, "", $iTrans)
WinSetTrans($hChild4, "", $iTrans)
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hChild1)
GUISetState(@SW_SHOW, $hChild2)
GUISetState(@SW_SHOW, $hChild3)
GUISetState(@SW_SHOW, $hChild4)
WinActivate($hGUI)
While 1
if not WinActive($hGUI) then WinActivate($hGUI)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $btn1
Case $btn2
GUICtrlSetState($btn1, $GUI_DISABLE)
Case $btn3
GUICtrlSetState($btn1, $GUI_ENABLE)
Case $btn4
EndSwitch
WEnd
EndFunc ;==>_Main
leider flackert diese Version bei jedem Klick auf einen Button,
mfg autoBert
Hallo csupenner,
das Beispiel von ChrisL funktioniert mit Teiltransparenz, wenn man 0 also volltransparent einsetzt passiert das was passiern muss der Button ist unsichtbar kann noch nicht einmal geklickt werden (selbst wenn man auf die richtige Stelle klickt)
@White, das Vorhaben ist unsinnig, wie soll der Benutzer einen Button klicken der nicht zu sehen ist.
mfg autoBert
Hallo Nasenbär,
kleine Child-Guis für wiederkehrende Meldungsfenster mache ich gerne im MsgLoop-Modus und lagere sie in eine UDF aus. Am Anfang merke ich mir aus wechem Modus sie aufgerufen wurde und stelle diesen beim Beenden wieder her. Dadurch kann sie sowohl in Skripten mit OnEvent-Modus (den ich auch bevorzuge) als auch aus Skripten im MsgLoop-Modus aufrufen und damit auch in anderen Projekten verwenden. Die Chld-Gui hat dann genau die von dir geforderten Eigenschaften, die man nur mit Adlib-Funktionen umgehen kann.
Schau dir dazu eines meiner 1. Projekte an: Funktion zur Osterberechnung jetzt als UDF und modalem Meldungsfenster
es wäre aber geschickter gewesen, wenn du deine aufrufende Gui bzw. ein Beispiel mit dem gleichen Problem mitgepostet hättest. Deine IF-Abfragen in der Childgui können auch nicht funktionieren.
mfg atoBert
mfg autoBert
Hallo BugFix,
wollte gerade nachprüfen ob Simon1602 geguttenbergt hat, dabei ist mir aufgefallen, dass der Link in deiner Ersatzsignatur _FileReadToArray2D nicht mehr funktoniert.
mfg autoBert
Ich denke mal, dass es am Hintergrundbild liegt oder woran liegt es?
* Ich habe nichts falsch gemacht.
Du scheinst eine resistenter Hilfe-Verweigerer zu sein:
Wird ein Bild als Hintergrundbild genutzt, während die anderen Controls dieses quasi überlappen, so ist es wichtig, das Bild-Control zu deaktivieren und es nach den anderen Controls zu erstellen: GuiCtrlSetState(-1,$GUI_DISABLE).
also machst du grundsätzliches falsch. Anstatt wegen jeder Kleinigkeit das Forum zu bemühen, solltest du dich durch die Hilfe durcharbeiten, damit du die Grundlagen verstehst. Spätestens wenn man ein Problem hat sollte man die beteilgten Funktionen die man noch nicht kennt in der Hilfe nachschlagen. Da du anscheinend dazu nicht bereit bist empfehle ich dir ein anderes Hobby zu suchen und deine BOTs und Tools als Auftragsprogrammierung zu vergeben,
mfg autoBert
Für kleine Pobleme gibt es die deutsche Hilfe Diese solltest du herunterladen und durcharbeiten.
Für grössere Probleme (Unfähigkeit/Faulheit etc.) gibt es die Programmieranfragen mit Gegenleistung
mfg autoBert
Hallo Button421,
dein ANsatz kann nicht funktionieren, da ich sehe dass du meinen
Edit: Das Array aBit von 1 D auf 2 D umgestellt. Könnte im weiteren Projektverlauf nützlich sein.
in deinem letzten Thema nicht beachtet hast hier noch einmal der Hinweis: dieser Voschlag baut auf dem 2D Array auf. Hier das Skript:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ListViewConstants.au3>
;----------------------------------HOME-------------------------------------------------------
$hFrmHome = GUICreate("Arduino Tools 1.2", 627, 443, 192, 124)
;$background =
GUICtrlCreatePic(@ScriptDir & "\Images\computer_0014.jpg", 0, 0, 625, 441, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
;$was =
GUICtrlCreateLabel("Was möchten sie tun?", 176, 24, 257, 33, $SS_SUNKEN)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$idBtnComandRef = GUICtrlCreateButton("&Befehlsreferenz", 8, 136, 249, 41, $WS_GROUP)
GUICtrlSetTip(-1, "Zeigt eine Referenz aller Grundbefehle an")
$idBtnShowCharCreator = GUICtrlCreateButton("LCD-Charakter-&Creator", 10, 191, 249, 41, $WS_GROUP)
GUICtrlSetTip(-1, "Damit können sie einen LCD-Charakter selbst erstellen")
$idBtnArduinoHP = GUICtrlCreateButton("Arduino-&Homepage", 8, 248, 249, 41, $WS_GROUP)
GUICtrlSetTip(-1, "Blättern sie in vielen Schaltungsbildern!")
$idBtnInfoHelp = GUICtrlCreateButton("&Info/ Hilfe", 8, 384, 177, 49, $WS_GROUP)
$idBtnExit = GUICtrlCreateButton("Be&enden", 400, 384, 217, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
;----------------------------------------------------------------------------------------------
;--------------------------------BEFEHLSREFERENZ-----------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$hFrmComandRef = GUICreate("Arduino Tools - Befehlsreferenz", 627, 444, 192, 124)
;$background =
GUICtrlCreatePic(@ScriptDir & "\Images\computer_0014.jpg", 0, 0, 625, 441, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
;$das1 =
GUICtrlCreateLabel("Befehlsreferenz", 216, 24, 188, 33, $SS_SUNKEN)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
$idLVComannds = GUICtrlCreateListView("Befehl", 8, 64, 241, 369)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 237)
Global $idLVItemComand[15]
$idLvItemComand[0] = GUICtrlCreateListViewItem("int", $idLVComannds)
$idLvItemComand[1] = GUICtrlCreateListViewItem("LiquidCrystal", $idLVComannds)
$idLvItemComand[2] = GUICtrlCreateListViewItem("void setup()", $idLVComannds)
$idLvItemComand[3] = GUICtrlCreateListViewItem("void loop()", $idLVComannds)
$idLvItemComand[4] = GUICtrlCreateListViewItem("tone", $idLVComannds)
$idLvItemComand[5] = GUICtrlCreateListViewItem("lcd.begin()", $idLVComannds)
$idLvItemComand[6] = GUICtrlCreateListViewItem("lcd.setCursor()", $idLVComannds)
$idLvItemComand[7] = GUICtrlCreateListViewItem("lcd.print()", $idLVComannds)
$idLvItemComand[8] = GUICtrlCreateListViewItem("lcd.noBlink()", $idLVComannds)
$idLvItemComand[9] = GUICtrlCreateListViewItem("lcd.noCursor", $idLVComannds)
$idLvItemComand[10] = GUICtrlCreateListViewItem("digitalWrite()", $idLVComannds)
$idLvItemComand[11] = GUICtrlCreateListViewItem("delay()", $idLVComannds)
$idLvItemComand[12] = GUICtrlCreateListViewItem("pinMode()", $idLVComannds)
$idLvItemComand[13] = GUICtrlCreateListViewItem("Serial.begin()", $idLVComannds)
$idLvItemComand[14] = GUICtrlCreateListViewItem("Serial.print()", $idLVComannds)
$idEdtReference = GUICtrlCreateEdit("", 280, 64, 337, 369)
GUICtrlSetData(-1, "<---- Bitte links Befehl auswählen!")
$idBtnBackToHomeFromCCFromCF = GUICtrlCreateButton("&Zurück", 536, 0, 89, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#endregion ### END Koda GUI section ###
;----------------------------------------------------------------------------------------------
;-------------------------------LCD-CHARAKTER-CREATOR------------------------------------------
$hFrmCharCreator = GUICreate("Arduino Tools - LCD-Charakter-Creator", 627, 442, 192, 124)
;$background =
GUICtrlCreatePic(@ScriptDir & "\Images\computer_0014.jpg", 0, 0, 625, 441, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
;$das2 =
GUICtrlCreateLabel("LCD-Charakter-Creator", 176, 16, 272, 33, $SS_SUNKEN)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
Global $aBit[5][8]
Global $aBitPics[5][8]
for $i = 0 to 4
for $j = 0 to 7
$aBitPics[$i][$j] = GUICtrlCreatePic(@ScriptDir & "\Images\lcddeactiv.bmp", 16+ $i*38, 80+$j*40, 33, 33)
Next
Next
$idBtnBackToHomeFromCC = GUICtrlCreateButton("&Zurück", 536, 0, 89, 25, $WS_GROUP)
$idEdtScript = GUICtrlCreateEdit("", 304, 80, 313, 353, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("#include <LiquidCrystal.h>\r\n\r\nLiquidCrystal lcd(12,11,10,5,4,3,2);\r\n\r\nbyte myChar[8] =\r\n{\r\n B00000,\r\n B00000,\r\n B00000,\r\n B00000,\r\n B00000,\r\n B00000,\r\n B00000,\r\n B00000\r\n};\r\n\r\nvoid setup()\r\n{\r\n lcd.createChar(0, myChar);\r\n lcd.begin(16,2);\r\n lcd.write(0);\r\n}\r\n\r\nvoid loop() {}"))
GUISetState(@SW_HIDE)
;----------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1] ;von welchem Fnster kommt die Message?
Case $hFrmHome ;Message des Hauptfensters
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $idBtnExit
Exit
Case $idBtnShowCharCreator
GUISetState(@SW_SHOW, $hFrmCharCreator)
GUISetState(@SW_DISABLE, $hFrmHome)
Case $idBtnComandRef
GUISetState(@SW_SHOW, $hFrmComandRef)
GUISetState(@SW_DISABLE, $hFrmHome)
Case $idBtnArduinoHP
ShellExecute("http://arduino.cc/")
Case $idBtnInfoHelp
MsgBox(64, "Info/Hilfe", "Zuerst wählen sie ein Menüpunkt aus! Klicken sie auf ""Befehlsreferenz"" um eine vollständige Referenz für alle Grundbefehle zu erhalten! Klicken sie auf ""LCD-Charakter-Creator"", um einen eigenen LCD-Charakter zu erstellen. Der Quellcode wird rechts angezeigt." & @CRLF & "" & @CRLF & "created by button421 on autoit.de!")
EndSwitch
Case $hFrmComandRef
Switch $nMsg[0]
Case $idBtnBackToHomeFromCCFromCF, $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hFrmComandRef)
GUISetState(@SW_ENABLE, $hFrmHome)
WinActivate($hFrmHome)
EndSwitch
Case $hFrmCharCreator
Switch $nMsg[0]
Case $idBtnBackToHomeFromCC, $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hFrmCharCreator)
GUISetState(@SW_ENABLE, $hFrmHome)
WinActivate($hFrmHome)
Case $aBitPics[0][0] to $aBitPics[4][7]
$id = $nMsg[0]-$aBitPics[0][0]
$iRow = int($id/8)
$iCol = mod($id,8)
if $aBit[$iRow][$iCol] Then
GUICtrlSetImage($aBitPics[$iRow][$iCol],@ScriptDir & "\Images\lcddeactiv.bmp")
Else
GUICtrlSetImage($aBitPics[$iRow][$iCol],@ScriptDir & "\Images\lcdactiv.bmp")
EndIf
$aBit[$iRow][$iCol] = not $aBit[$iRow][$iCol]
_createC()
EndSwitch
EndSwitch
WEnd
Func _createC()
Local $sB_Line
Local $sC = "#include <LiquidCrystal.h>" & @CRLF & @CRLF & "LiquidCrystal lcd(12,11,10,5,4,3,2);" & @CRLF & @crlf & "byte myChar[8] =" & @crlf & "{" & @CRLF
Local $sC_End = "};" & @CRLF & @CRLF & "void setup()" & @CRLF & "{" & @CRLF & " lcd.createChar(0, myChar);" & @CRLF & " lcd.begin(16,2);" & @CRLF & " lcd.write(0);" & @CRLF & "}" & @CRLF & @CRLF & "void loop() {}"
for $i = 0 to 7
$sB_Line = " B"
for $j = 0 to 4
if $aBit[$j][$i] Then
$sB_Line &= "1"
Else
$sB_Line &= "0"
EndIf
Next
$sC &= $sB_Line & @CRLF
Next
$sC &= $sC_End
GUICtrlSetData($idEdtScript,$sC)
EndFunc
Es ist eigentich nur die _createC() dazugekommen die bei jedem Klick auf eines der BIT-Bilder aufgerufen wird.
mfg autoBert
wenn meine anwendung im hintergrund arbeitet (ein chat programm)
oh wunder WhiteLion kann Chaten ohne sein Chatfenster zu aktivieren. Da scheint mir @marsi 's Andeutung schon vernünftiger und obiges Zitat müsste eigentlich so lauten:
wenn meine anwendung im hintergrund arbeitet (ein cheat programm)
da im Original ein e fehlt! Absicht oder Tippfehler?
Hallo whiteLion,
so etwas würde man mit AutoIt evtl. auch schaffen ein reines Infofenster ohne Benutzereingaben. Dies bringt dir aber nichts denn beim Chaten musst du ja zwangsläufig auch Text eingeben,
mfg autoBert
3. es muss doch auch irgendwie anders gehen (?!)... zumindest kann skype ja auch im hintergund kleine fenster anzeigen....
und da minimiert sich dein Spiel nicht?
Hallo While(Wild),
in IntelliSenseBox hat BugFix eine bessere Möglichkeit aufgezeigt. Da es imho eh nur für ein Spiele-Bot sein soll musst du dir das aber selbst in dein Skript einbauen,
mfg autoBert
Gar nicht, also entweder Spielen oder Chaten dann hast du schon keine Doppelbelastung.
Edit: geht doch ist allerding etwas aufwendiger. Schaff dir einen 2. Rechner z.B.: Netbook zum Chaten an,
mfg autoBert
