Hi, ich möchte euch mein neues Projekt vorstellen. Wie ihr am Thema erkenne könnt, möchte ich für Kinder der 5.Klasse ein Prog. basteln für GEO, wo sie über Deutschland und seine Nachbarn etwas erfahren können. Da ich mich noch nicht so gut mit AutoIT auskenne bin ich für jede Hilfe dankbar. Wie @Alina schon in einem andren ... schrieb
ZitatNimm eine Landkarte und dann arbeite doch mit den X/Y-Koordinaten. Das sollte machbar sein.
kann ich noch nicht ganz folgen. Habe im Netz eine folgende Datei gefunden und habe mir leider den Ersteller nicht gemerkt.
Spoiler anzeigen
Koordinaten.au3
[autoit]#include <GUIConstantsEx.au3>
HotKeySet("x","_coord") ;x dr++cken f++r Coordinaten
Global $h_edit
#Region ### START Koda GUI section ### Form= ;GUI um die Koordinaten anzuzeigen
$h_form = GUICreate("Koordinaten", 378, 445, 192, 124)
$h_edit = GUICtrlCreateEdit("", 16, 16, 313, 409)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1;damit sich das script nicht gleich beendet $nMsg = GUIGetMsg() Switch $nMsgCase $GUI_EVENT_CLOSE;wenn man das Fenster schlie+ƒt -> Exit Exit
EndSwitchWEnd
Func _coord();function, die ++ber HotKeySet aufgerufen wird Local $pos $pos=MouseGetPos();Mouse Position holen ist ein array x: $pos[0] y: $pos[1] GUICtrlSetData($h_edit,GUICtrlRead($h_edit)&"x: "&$pos[0]&" y:"&$pos[1]&@CRLF);Das Edit Feld aktualisieren EndFunc
Ich habe schon ein mal angefangen und bin gleich auf die ersten Schwierigkeiten gestoßen, z.B. Grafiken (Transparente png oder gif ) anzeigen. und wie grenze ich Koordinaten Bereiche ein? Hier dazu mein Script:
Spoiler anzeigen
#Region ### include
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <IE.au3>
#EndRegion ### include
;----------------------------------------------------------------------------------------------------------
#Region ### var
Global $varProgName = "", $varIcoName = ""
$path0TV = @ScriptDir
$path1TV = @ScriptDir & '\html\'
$path2TV = @ScriptDir & '\bilder\'
$fileGLS = ""
Const $cSource = IniRead($path1TV & 'licens.txt', " Lizenz", "Key", "NichtGefunden")
Global $oIE = ObjCreate("Shell.Explorer.2")
#EndRegion ### var
;----------------------------------------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=@ScriptDir\Bundesländer.kxf
$Form1 = GUICreate("Die Bundesrepublik Deutschland", 1046, 711, 221, 30)
GUISetIcon("D:\005.ico")
$Bundesrepublik = GUICtrlCreateTab(8, 8, 1028, 695)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
;----------------------------------------------------------------------------------------------------------
$TabSheet1 = GUICtrlCreateTabItem("Die Nachbarn")
;----------------------------------------------------------------------------------------------------------
$TabSheet2 = GUICtrlCreateTabItem("Bundesländer")
$pic_DN = GUICtrlCreatePic($path2TV + "Karte_Bundesrepublik_Deutschland_0.gif", 16, 32, 495, 658, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD))
;----------------------------------------------------------------------------------------------------------
$TabSheet3 = GUICtrlCreateTabItem("Wappen")
;----------------------------------------------------------------------------------------------------------
$TabSheet4 = GUICtrlCreateTabItem("Großlandschaften")
GUICtrlSetState(-1,$GUI_SHOW)
$pic_DG = GUICtrlCreatePic($path2TV + "Karte_Grosslandschaften_Deutschland.gif", 12, 33, 495, 658, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($pic_DG , $GUI_SHOW)$pic_NDTief = GUICtrlCreatePic($path2TV + "Karte_Grosslandschaften_Deutschland_Norddeutsches-Tiefland.gif", 12, 33, 487, 658, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($pic_NDTief, $GUI_HIDE)
$pic_Mittel = GUICtrlCreatePic($path2TV + "Karte_Grosslandschaften_Deutschland_Mittelgebirksland.gif", 12, 33, 482, 658, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($pic_Mittel, $GUI_HIDE)
$pic_Hochg = GUICtrlCreatePic($path2TV + "Karte_Grosslandschaften_Deutschland_Hochgebirgsland.gif", 12, 33, 495, 658, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($pic_Hochg, $GUI_HIDE)
$pic_Alp = GUICtrlCreatePic($path2TV + "Karte_Grosslandschaften_Deutschland_Alpenvorland.gif", 12, 33, 495, 658, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState($pic_Alp, $GUI_HIDE)
;------------------------------------------
$lbl_ndtief = GUICtrlCreateLabel("Das Norddeutsche Tiefland", 528, 48, 258, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$lbl_mittel = GUICtrlCreateLabel("Das Mittelgebirgsvorland", 528, 80, 233, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$lbl_alpen = GUICtrlCreateLabel("Das Alpenvorland", 528, 112, 169, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$lbl_hoch = GUICtrlCreateLabel("Das Hochgebirgsland", 528, 144, 205, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$lbl_nz = GUICtrlCreateLabel("Start", 528, 174, 205, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
GUICreate("", 0, 0,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj( $oIE, 528, 214, 489, 441)
GUISetState ();Show GUI
$fileGLS = $path1TV & "grosslandschaften.htm"
$oIE.navigate($fileGLS)
;----------------------------------------------------------------------------------------------------------
$TabSheet5 = GUICtrlCreateTabItem("Gebirge")
;----------------------------------------------------------------------------------------------------------
$TabSheet6 = GUICtrlCreateTabItem("Flüsse")
;----------------------------------------------------------------------------------------------------------
$TabSheet7 = GUICtrlCreateTabItem("Hilfe")
GUICtrlSetState(-1,$GUI_SHOW)
$lbl_hilfe = GUICtrlCreateLabel(StringTrimLeft($cSource, StringInStr($cSource, '\', 1, -1)), 32, 48, 780, 45)
GUICtrlSetCursor (0, 0)
$lbl_mail = GUICtrlCreateLabel("Bei FrahenE-Mail an:", 32, 154, 172, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$lbl_Email = GUICtrlCreateLabel("gabischatz@googlemail.com", 132, 154, 172, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$lbl_lic = GUICtrlCreateLabel("Licenses Beschreibung:", 32, 130, 266, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$lbl_lic = GUICtrlCreateLabel("http://creativecommons.org/licenses/by/3.0/legalcode", 146, 130, 266, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
;----------------------------------------------------------------------------------------------------------
;GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $TabSheet4Case $lbl_ndtief
$fileGLS = $path1TV & "norddeutsches_tiefland.htm"
$oIE.navigate($fileGLS)
GUICtrlSetState($lbl_nz, $GUI_SHOW)
GUICtrlSetState($lbl_mittel, $GUI_SHOW)
GUICtrlSetState($lbl_alpen, $GUI_SHOW)
GUICtrlSetState($lbl_hoch, $GUI_SHOW)
GUICtrlSetState($lbl_ndtief, $GUI_HIDE)
GUICtrlSetState($pic_Alp, $GUI_HIDE)
GUICtrlSetState($pic_Hochg, $GUI_HIDE)
GUICtrlSetState($pic_Mittel, $GUI_HIDE)
GUICtrlSetState($pic_DG, $GUI_HIDE)
GUICtrlSetState($pic_NDTief, $GUI_SHOW)
Case $lbl_mittel
$fileGLS = $path1TV & "mittelgebirgsland.htm"
$oIE.navigate($fileGLS)
GUICtrlSetState($lbl_ndtief, $GUI_SHOW)
GUICtrlSetState($lbl_nz, $GUI_SHOW)
GUICtrlSetState($lbl_alpen, $GUI_SHOW)
GUICtrlSetState($lbl_hoch, $GUI_SHOW)
GUICtrlSetState($lbl_mittel, $GUI_HIDE)
GUICtrlSetState($pic_Alp, $GUI_HIDE)
GUICtrlSetState($pic_Hochg, $GUI_HIDE)
GUICtrlSetState($pic_NDTief, $GUI_HIDE)
GUICtrlSetState($pic_DG, $GUI_HIDE)
GUICtrlSetState($pic_Mittel, $GUI_SHOW)
Case $lbl_alpen
$fileGLS = $path1TV & "alpenvorland.htm"
$oIE.navigate($fileGLS)
GUICtrlSetState($lbl_ndtief, $GUI_SHOW)
GUICtrlSetState($lbl_mittel, $GUI_SHOW)
GUICtrlSetState($lbl_nz, $GUI_SHOW)
GUICtrlSetState($lbl_hoch, $GUI_SHOW)
GUICtrlSetState($lbl_alpen, $GUI_HIDE)
GUICtrlSetState($pic_Hochg, $GUI_HIDE)
GUICtrlSetState($pic_Mittel, $GUI_HIDE)
GUICtrlSetState($pic_NDTief, $GUI_HIDE)
GUICtrlSetState($pic_DG, $GUI_HIDE)
GUICtrlSetState($pic_Alp, $GUI_SHOW)
Case $lbl_hoch
$fileGLS = $path1TV & "hochgebirge.htm"
$oIE.navigate($fileGLS)
GUICtrlSetState($lbl_ndtief, $GUI_SHOW)
GUICtrlSetState($lbl_mittel, $GUI_SHOW)
GUICtrlSetState($lbl_alpen, $GUI_SHOW)
GUICtrlSetState($lbl_nz, $GUI_SHOW)
GUICtrlSetState($lbl_hoch, $GUI_HIDE)
GUICtrlSetState($pic_Alp, $GUI_HIDE)
GUICtrlSetState($pic_Mittel, $GUI_HIDE)
GUICtrlSetState($pic_NDTief, $GUI_HIDE)
GUICtrlSetState($pic_DG, $GUI_HIDE)
GUICtrlSetState($pic_Hochg, $GUI_SHOW)
case $lbl_nz
$fileGLS = $path1TV & "grosslandschaften.htm"
$oIE.navigate($fileGLS)
GUICtrlSetState($lbl_ndtief, $GUI_SHOW)
GUICtrlSetState($lbl_mittel, $GUI_SHOW)
GUICtrlSetState($lbl_alpen, $GUI_SHOW)
GUICtrlSetState($lbl_hoch, $GUI_SHOW)
GUICtrlSetState($lbl_nz, $GUI_HIDE)
GUICtrlSetState($pic_Alp, $GUI_HIDE)
GUICtrlSetState($pic_Hochg, $GUI_HIDE)
GUICtrlSetState($pic_Mittel, $GUI_HIDE)
GUICtrlSetState($pic_NDTief, $GUI_HIDE)
GUICtrlSetState($pic_DG, $GUI_SHOW)
Case $lbl_mail
ShellExecute("mailto:yyy@zzz.de?subject=1234")
;ShellExecute("mailto:gabischatz@googlemail.com?subject=Programm")
Case $lbl_lic
#include <IE.au3>
_IECreate ("http://creativecommons.org/licenses/by/3.0/legalcode", 1, 1, 1)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Und hier sind die benötigten Dateien https://sites.google.com/site/99947lgs/home/download/BundeslÃänder.zip?attredirects=0&d=1