You last visited: Today at 11:36
Advertisement
Wer wird Millionär
Discussion on Wer wird Millionär within the AutoIt forum part of the Coders Den category.
02/14/2015, 13:29
#1
elite*gold: 0
Join Date: Dec 2014
Posts: 20
Received Thanks: 0
Wer wird Millionär
Ein kleines Spiel, man kann selber Fragen erstellen, so viele wie man will und wenn man spielt wird Random eine Frage gestellt.
Menü:
Quote:
Code:
If Not IsAdmin() Then
#RequireAdmin
If @error Then
MsgBox(16, "Wer wird Millionär Fehler", @error)
Exit
EndIf
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;Form1, Menü
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 267, 43, 192, 124)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Fragen erstellen", 8, 8, 123, 25)
$Button2 = GUICtrlCreateButton("Spielen", 136, 8, 123, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Fragen erstellen
Case $Button1
Run(@ScriptDir & "\Wer wird Millionär Frage erstellen.exe")
Exit
;Spielen
Case $Button2
Run(@ScriptDir & "\Wer wird Millionär Spielen.exe")
Exit
EndSwitch
WEnd
Spielen:
Quote:
Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;Form1, Frage erstellen
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 609, 132, 192, 124)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Frage:", 8, 8, 95, 20)
$Input1 = GUICtrlCreateInput("", 104, 8, 497, 24)
$Label2 = GUICtrlCreateLabel("(Beispiel: Wie heißt der ersteller des Programmes, A Sezer, B Baum?)", 104, 32, 495, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Label3 = GUICtrlCreateLabel("Antwort:", 8, 56, 95, 20)
$Input2 = GUICtrlCreateInput("", 104, 56, 497, 24)
$Label4 = GUICtrlCreateLabel("(Beispiel: A oder B)", 104, 80, 493, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button1 = GUICtrlCreateButton("Frage erstellen", 0, 104, 603, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$RInput1 = GUICtrlRead($Input1)
If Not $RInput1 = "" Then
$RInput2 = GUICtrlRead($Input2)
If Not $RInput2 = "" Then
If Not FileExists(@ScriptDir & "\Fragen.ini") Then
_FileCreate(@ScriptDir & "\Fragen.ini")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage0", "Wie heißt der ersteller des Programmes, A Sezer, B Baum")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage1", "Wie alt ist der ersteller des Programmes, A 16, B 14")
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
EndIf
If Not FileExists(@ScriptDir & "\Antworten.ini") Then
_FileCreate(@ScriptDir & "\Antworten.ini")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort0", "A")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort1", "B")
EndIf
$RMAX = IniRead(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
$RMAX += 1
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", $RMAX)
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage" & $RMAX, $RInput1)
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort" & $RMAX, $RInput2)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
MsgBox(64, "Wer wird Millionär Frage erstellt", "Sie haben eine Frage erstellt.")
Else
MsgBox(16, "Wer wird Millionär Fehler", "Sie müssen A oder B bei der Antwort schreiben.")
EndIf
Else
MsgBox(16, "Wer wird Millionär Fehler", "Sie müssen eine Frage stellen.")
EndIf
EndSwitch
WEnd
Frage erstellen:
Quote:
Code:
If Not IsAdmin() Then
#RequireAdmin
If @error Then
MsgBox(16, "Wer wird Millionär Fehler", @error)
Exit
EndIf
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
Global $RMAX = 1
Global $A = False, $B = False, $F = False
;Form1, Laden
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wer wird Millionär", 256, 89, 191, 121)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Ladet", 0, 0, 253, 84)
GUICtrlSetFont(-1, 50, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Form2, Spielen
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Wer wird Millionär", 598, 64, 191, 123)
GUISetFont(10, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Zeile 1", 8, 8, 584, 20)
$Button1 = GUICtrlCreateButton("A", 56, 32, 27, 25)
$Button2 = GUICtrlCreateButton("B", 488, 32, 27, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
Einstellung()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;A
Case $Button1
If $A = True Then
MsgBox(64, "Richtig", "Sie haben die Frage gelöst.")
Weiter()
ElseIf $B = True Then
MsgBox(16, "Verloren", "Sie haben leider verloren.")
Exit
Else
MsgBox(16, "Fehler", "Es ist ein unbekannter Fehler aufgetreten.")
Exit
EndIf
;B
Case $Button2
If $B = True Then
MsgBox(64, "Richtig", "Sie haben die Frage gelöst.")
Weiter()
ElseIf $A = True Then
MsgBox(16, "Verloren", "Sie haben leider verloren.")
Exit
Else
MsgBox(16, "Fehler", "Es ist ein unbekannter Fehler aufgetreten.")
Exit
EndIf
EndSwitch
WEnd
Func Einstellung()
If Not FileExists(@ScriptDir & "\Fragen.ini") Then
_FileCreate(@ScriptDir & "\Fragen.ini")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage0", "Wie heißt der ersteller des Programmes, A Sezer, B Baum")
IniWrite(@ScriptDir & "\Fragen.ini", "Fragen", "Frage1", "Wie alt ist der ersteller des Programmes, A 16, B 14")
IniWrite(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
EndIf
If Not FileExists(@ScriptDir & "\Antworten.ini") Then
_FileCreate(@ScriptDir & "\Antworten.ini")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort0", "A")
IniWrite(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort1", "B")
EndIf
$RMAX = IniRead(@ScriptDir & "\Fragen.ini", "AnzFragen", "Fragen", "1")
$RandomZ = Random(0, $RMAX, 1)
$Frage = IniRead(@ScriptDir & "\Fragen.ini", "Fragen", "Frage" & $RandomZ, "Fehler")
$Antwort = IniRead(@ScriptDir & "\Antworten.ini", "Antworten", "Antwort" & $RandomZ, "Fehler")
GUICtrlSetData($Label2, $Frage)
If $Antwort = "A" Then
$A = True
$B = False
$F = False
ElseIf $Antwort = "B" Then
$B = True
$A = False
$F = False
Else
$F = True
$A = False
$B = False
EndIf
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
EndFunc
Func Weiter()
Run(@ScriptDir & "\Wer wird Millionär Spielen.exe")
Exit
EndFunc
02/14/2015, 16:40
#2
elite*gold: 724
Join Date: Mar 2011
Posts: 10,478
Received Thanks: 3,318
#closed
[B] Money Millionär Acc. 180€
09/15/2013 - elite*gold Trading - 20 Replies
Hallo, biete einen Money Millionär acc. mit 180€ Guthaben!
Er ist bei Refferal wettbewerb platz 11.
Der Account besteht seit etwa 2 Monaten und hat überwiegend aktive Refferals.
Daher kann das Geld ganz bequem auf euer Bankkonto ausgezahlt werden.
Leider verfüge ich nicht über ein Bankkonto und kann diese nicht machen, deswegen biete ich diesen jetzt für 5000 e*Gold als Sofortkauf an.
Gebote ab 2000 e*Gold.
Wie bleibt man weiterhin Millionär?
04/25/2013 - Off Topic - 53 Replies
Liebe e*pvp-user,
Ich frage mich schon seit langem die Frage "Wie wenn man z.B 4 Millionen Euro im Lotto gewinnt, und weiterhin dann Millionär bleibt" Ich meine damit, was kann man tun damit das Geld nicht leer geht sondern weiterhin mehr wird. Ich weiß bis jetzt nur, dass man in Zinsen, Immobilien, Aktien, und Grundstücke investieren kann.
MfG
Wer wird Millionär Metin?
01/05/2012 - Metin2 Private Server - 4 Replies
Ja also meine Idee ist es, das man die OX map umformt in form von 4 Spalten anstatt 2,
Da würde da z.B so ne frage kommen
Wie viele Tattoos hat der dunkle Anführer
A) 1 B) 3 C) 5 D) 7
wenn man es richtig hat, ist man eine stufe weiter ---> es werden pro spiel nur 20 runden geben, wenn man falsch benatwortet bekommt man gar nichts.
Man kann vor der Frage jederzeit aussteigen, dann bekommt man das Yang was man bisher gewonnen hat ...
Sobald die nächste Frage kommt, wird der NPC...
Millionär
03/07/2011 - Off Topic - 81 Replies
Huhu,
Ich verfolge gerade mein Plan Millionär zu werden.
Mein Plan hat sehr viele verschiedene pläne um Millionär zu werden.
Dies ist mein erster Plan.
Ist jemand dazu bereit mir eine Million zu geben? werde euch dan die bank daten usw. geben wenn mir jemand ne Million spenden möchte.
Wer wird Millionär geknackt
11/29/2010 - Off Topic - 30 Replies
ach fast vier Jahren ohne einen Millionengewinner hat wieder ein Kandidat der Sendung "Wer wird Millionär?" alle 15 Fragen richtig beantwortet. Der Café-Betreiber Ralf Schnoor aus Hannover konnte auch ohne Hilfe seines noch vorhandenen Telefonjokers die letzte Frage richtig beantworten, wie RTL mitteilte.
(37)|Danke!
Schriftgröße A A A
Schnoor hat es geschafft: Er ist Jauchs erster Millionär seit vier Jahren. © RTL / Stefan Gregorowius
Sie lautete: Wie heißt die erste deutsche Briefmarke,...
All times are GMT +2. The time now is 11:38 .
