|
You last visited: Today at 07:09
Advertisement
Stadt Land Fluss
Discussion on Stadt Land Fluss within the Coding Releases forum part of the Coders Den category.
03/08/2013, 18:18
|
#1
|
elite*gold: 0
Join Date: Jul 2011
Posts: 2,593
Received Thanks: 659
|
Stadt Land Fluss
Hey, habe grad Stadt, Land, Fluss programmiert und bin doch ziemlich stolz auf mich!:P
VT:
DL:
Hoffentlich bin ich hier richtig, ist ja kein kleinerer Release mehr.
Ansonste, bitte ich einen Mod um die löschung dieses threads hier und poste es in den sammelthread.
Bitte bei fehlern nicht flamen etc. programmier erst seit heute morgen
|
|
|
03/08/2013, 18:22
|
#2
|
elite*gold: 95
Join Date: Oct 2011
Posts: 5,774
Received Thanks: 1,924
|
.au3? Muss ich AutoIt installiert haben, damit ich es öffnen kann oder wie?
Sonst würde ganz schnell eine .exe draus machen.
|
|
|
03/08/2013, 18:24
|
#3
|
elite*gold: 0
Join Date: Jul 2011
Posts: 2,593
Received Thanks: 659
|
Ja musst du leider, ich verstehe nicht wieso "Unable to open the script file." kommt wenn ich es zu einer Exe compiliert habe >.<
Wenn du mir sagst wie ich das machen kann, dann lad ich die exe auch noch hoch.
ich seh ja, wenn ihr euch das runterlädt - wegen upload manager - . Bitte schreibt dann eure Meinung und verbesserungsvorschläge hier rein!!
|
|
|
03/08/2013, 19:35
|
#4
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
Quote:
Originally Posted by DSAPMDIOASMKDSA
Hoffentlich bin ich hier richtig, ist ja kein kleinerer Release mehr.
|
oooh doch.
und wenn du schon nen quellcode schickst, dann bitte direkt hier und nicht extra zum runterladen.
|
|
|
03/08/2013, 19:37
|
#5
|
elite*gold: 0
Join Date: Jul 2011
Posts: 2,593
Received Thanks: 659
|
Ok, weil ich hab für dieses programm 1 stunde gebraucht mewmew noob noob
quellcode:
Global $Buchstabe = "AB", $Zahl = 1, $StadtName = "", $FlussName = "", $LandName = ""
Global $Runde = "1"
Global $Punkte = ""
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$StadtLandFluss_1 = GUICreate("Stadt, Land, Fluss", 478, 169, -1, -1)
$Start = GUICtrlCreateButton("Starte Spiel", 0, 0, 151, 31, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$ListView1 = GUICtrlCreateListView("Stadt|Land|Fluss|Punkte", 172, 0, 304, 166)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
$Label1 = GUICtrlCreateLabel("Buchstabe:", 4, 30, 116, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Stadt = GUICtrlCreateButton("Stadt", 2, 54, 75, 25, $WS_GROUP)
$Land = GUICtrlCreateButton("Land", 2, 78, 75, 25, $WS_GROUP)
$Fluss = GUICtrlCreateButton("Fluss", 2, 102, 75, 25, $WS_GROUP)
$Punkte = GUICtrlCreateButton("Punkte eintragen", 76, 142, 95, 25, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 2, 142, 75, 25, $WS_GROUP)
GUICtrlSetState ($Punkte, $GUI_DISABLE)
GUICtrlSetState ($Land, $GUI_DISABLE)
GUICtrlSetState ($Fluss, $GUI_DISABLE)
GUICtrlSetState ($Stadt, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While True
_Main()
WEnd
Func _Main()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
$Zahl = Random(1, 26, 1) + 65
GUICtrlSetState ($Punkte, $GUI_ENABLE)
GUICtrlSetState ($Land, $GUI_ENABLE)
GUICtrlSetState ($Fluss, $GUI_ENABLE)
GUICtrlSetState ($Stadt, $GUI_ENABLE)
GUICtrlSetState ($Start, $GUI_DISABLE)
$Buchstabe = Chr($Zahl)
GUICtrlSetData($Label1, "Buchstabe: "&$Buchstabe)
Global $LVItem = GUICtrlCreateListViewItem ("", $ListView1)
Case $Stadt
If $Buchstabe = "AB" Then
MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!")
Return
EndIf
$StadtName = InputBox ("Stadt", "Den Namen der Stadt", $Buchstabe)
If StringUpper(StringLeft($StadtName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"| "&$FlussName)
GUICtrlSetState($Stadt, $GUI_DISABLE)
Case $Land
If $Buchstabe = "AB" Then
MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!")
Return
EndIf
$LandName = InputBox ("Stadt", "Den Namen des Landes", $Buchstabe)
If StringUpper(StringLeft($LandName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"| "&$FlussName)
GUICtrlSetState($Land, $GUI_DISABLE)
Case $Fluss
If $Buchstabe = "AB" Then
MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!")
Return
EndIf
$FlussName = InputBox ("Stadt", "Den Namen des Flusses", $Buchstabe)
If StringUpper(StringLeft($FlussName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"| "&$FlussName)
GUICtrlSetState($Fluss, $GUI_DISABLE)
Case $Punkte
Local $Punkte = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für die Stadt ?", 10)
$Punkte += InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für das Land ?", 10)
$Punkte += InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für den Fluss ?", 10)
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"| "&$FlussName&"|"&$Punkte)
GUICtrlSetState ($Punkte, $GUI_DISABLE)
GUICtrlSetState ($Start, $GUI_ENABLE)
GUICtrlSetState ($Land, $GUI_DISABLE)
GUICtrlSetState ($Fluss, $GUI_DISABLE)
GUICtrlSetState ($Stadt, $GUI_DISABLE)
GUICtrlSetData ($Start, "Starte neue Runde")
Case $Credits
MsgBox (0, "Credits", "Version 1.0 made by DSAPMDIOASMKDSA"&@CRLF&@CRLF&"(C) DSAPMDIOASMKDSA"&@CRLF&"Alle Rechte sind vorbehalten!"&@CRLF&@CRLF&@CRLF&@CRLF&"Update coming next time...")
EndSwitch
EndFunc
|
|
|
03/08/2013, 19:40
|
#6
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
[php][.../php]
ist optisch schöner zu sehen..
dein erstes, ich sagemal "richtiges" programm/spiel?
|
|
|
03/08/2013, 19:45
|
#7
|
elite*gold: 0
Join Date: Jul 2011
Posts: 2,593
Received Thanks: 659
|
Ja, hab mich zuerst an tic tac toe probiert und an spam bots die im endeffekt auch geklappt haben, aber die gab es ja hier schon
PHP Code:
Global $Buchstabe = "AB", $Zahl = 1, $StadtName = "", $FlussName = "", $LandName = "" Global $Runde = "1" Global $Punkte = ""
#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $StadtLandFluss_1 = GUICreate("Stadt, Land, Fluss", 478, 169, -1, -1) $Start = GUICtrlCreateButton("Starte Spiel", 0, 0, 151, 31, $WS_GROUP) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $ListView1 = GUICtrlCreateListView("Stadt|Land|Fluss|Punkte", 172, 0, 304, 166) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 83) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 83) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 83) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50) $Label1 = GUICtrlCreateLabel("Buchstabe:", 4, 30, 116, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Stadt = GUICtrlCreateButton("Stadt", 2, 54, 75, 25, $WS_GROUP) $Land = GUICtrlCreateButton("Land", 2, 78, 75, 25, $WS_GROUP) $Fluss = GUICtrlCreateButton("Fluss", 2, 102, 75, 25, $WS_GROUP) $Punkte = GUICtrlCreateButton("Punkte eintragen", 76, 142, 95, 25, $WS_GROUP) $Credits = GUICtrlCreateButton("Credits", 2, 142, 75, 25, $WS_GROUP) GUICtrlSetState ($Punkte, $GUI_DISABLE) GUICtrlSetState ($Land, $GUI_DISABLE) GUICtrlSetState ($Fluss, $GUI_DISABLE) GUICtrlSetState ($Stadt, $GUI_DISABLE) GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While True _Main() WEnd
Func _Main() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit
Case $Start $Zahl = Random(1, 26, 1) + 65 GUICtrlSetState ($Punkte, $GUI_ENABLE) GUICtrlSetState ($Land, $GUI_ENABLE) GUICtrlSetState ($Fluss, $GUI_ENABLE) GUICtrlSetState ($Stadt, $GUI_ENABLE) GUICtrlSetState ($Start, $GUI_DISABLE)
$Buchstabe = Chr($Zahl) GUICtrlSetData($Label1, "Buchstabe: "&$Buchstabe)
Global $LVItem = GUICtrlCreateListViewItem ("", $ListView1)
Case $Stadt If $Buchstabe = "AB" Then MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!") Return EndIf
$StadtName = InputBox ("Stadt", "Den Namen der Stadt", $Buchstabe) If StringUpper(StringLeft($StadtName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName) GUICtrlSetState($Stadt, $GUI_DISABLE)
Case $Land If $Buchstabe = "AB" Then MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!") Return EndIf
$LandName = InputBox ("Stadt", "Den Namen des Landes", $Buchstabe) If StringUpper(StringLeft($LandName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName) GUICtrlSetState($Land, $GUI_DISABLE)
Case $Fluss If $Buchstabe = "AB" Then MsgBox (0, "Error", "Du hast das Spiel noch nicht gestartet!") Return EndIf
$FlussName = InputBox ("Stadt", "Den Namen des Flusses", $Buchstabe) If StringUpper(StringLeft($FlussName, 1) ) <> $Buchstabe Then Return
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName) GUICtrlSetState($Fluss, $GUI_DISABLE)
Case $Punkte Local $Punkte = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für die Stadt ?", 10) $Punkte += InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für das Land ?", 10) $Punkte += InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du für den Fluss ?", 10)
GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName&"|"&$Punkte) GUICtrlSetState ($Punkte, $GUI_DISABLE) GUICtrlSetState ($Start, $GUI_ENABLE) GUICtrlSetState ($Land, $GUI_DISABLE) GUICtrlSetState ($Fluss, $GUI_DISABLE) GUICtrlSetState ($Stadt, $GUI_DISABLE) GUICtrlSetData ($Start, "Starte neue Runde")
Case $Credits MsgBox (0, "Credits", "Version 1.0 made by DSAPMDIOASMKDSA"&@CRLF&@CRLF&"(C) DSAPMDIOASMKDSA"&@CRLF&"Alle Rechte sind vorbehalten!"&@CRLF&@CRLF&@CRLF&@CRLF&"Update coming next time...")
EndSwitch EndFunc
|
|
|
|
Similar Threads
|
[Map-Release]Die Stadt
05/04/2014 - Metin2 PServer Guides & Strategies - 29 Replies
Hallo Leute,
da heute Halloween ist und ich schon
lange nichts mehr Release
habe, kommt jetzt eine Neue Map.
Ich sags nur im voraus, die Map ist
eig. nur aus Langeweile
entstanden. Man kann die Map als
Handelsmap oder ähnliches
benutzen, ist mir Wurscht :D
Info's über die Map:
|
Pokemobs Stadt???
12/21/2012 - Minecraft - 3 Replies
Also mein Freund sagt das es eine pokemobs Stadt gibst wo man sich Tränke und Sonderbonbons holen kann ich finde aber nie welche.
Gibt es die wirklich?
Wo finde ich die?
THX:mofo:
|
Rom Neu in der Stadt?
04/03/2011 - General Gaming Discussion - 7 Replies
Halli Hallo Runes of Magic Communety,
Ich habe vor 2 Tagen einen Theard aufgemacht und binn "Wieder"
Auf Rom Gestoßen.
Es ist seeehr lange her dass ich rom gezockt hab glaub war 47 oder so,
Und hätte mal ne Frage und ne Bitte in einen und zwar:
Kann mir wer erklären was sich in 1/einhalb Jahren Geändert hatt?
Maximal lvl?
|
Drakensang Am Fluss der Zeit pls Hilfe :(
09/01/2010 - Main - 4 Replies
Hab ma ne frage ich weiss dass man mit ce (cheat engine) drakensang 2 hacken kann z.B. gold kann man damit auch unverwundbarkeit hacken? wenn ja wie bitte gutes tutorial was ich alles einscannen muss usw. wer mir das beantwortet bekommt von mir nen THX^^
|
Gewinne jetzt jedes Stadt Land Fluss !
01/10/2008 - Off Topic - 10 Replies
Hab grade wieder so ne "tolle" sache im Netz gefunden.
Spielt ihr auch so gerne Stadt,Land,Fluss wie ich -.-"
Dann geht doch ma auf Blankemeyer.de hier gibts alle Lösungen ;>
|
All times are GMT +1. The time now is 07:09.
|
|