Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Problem]Pilne z ruletką!

JestemPolakiem

Rekomendowane odpowiedzi

JestemPolakiem Bywalec

JestemPolakiem

Opublikowano
Bywalec

JestemPolakiem

Opublikowano

Przejdę od razu do rzeczy.

 

Kod :

 

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kasyno", 397, 263, 189, 292)
$Input1 = GUICtrlCreateInput("",208, 16, 177, 21)
$Input2 = GUICtrlCreateInput("", 208, 56, 177, 21)
$Button1 = GUICtrlCreateButton("Graj!", 120, 88, 265, 33,$WS_GROUP)
$Label1 = GUICtrlCreateLabel("Ile stawiasz w tej rundzie", 8, 16, 188, 17)
$Label2 = GUICtrlCreateLabel("Jaka liczbe obstawiasz 0-5", 8, 56, 180, 17)
$Label3 = GUICtrlCreateLabel("Kasa:", 8, 96, 100, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("3000", 38, 96, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 208, 136, 177, 21)
$Input4 = GUICtrlCreateInput("", 208, 176, 177, 21)
$Label5 = GUICtrlCreateLabel("Pozycz kredyt (maksymalnie 3000)", 8, 138, 180, 17)
$Label6 = GUICtrlCreateLabel("Wpłać kredyt w wysokości :", 8, 176, 156, 17)
$Button2 = GUICtrlCreateButton("Pozycz/Spłać", 187, 216, 200, 33)
$Label7 = GUICtrlCreateLabel("W banku masz:", 8, 217, 73, 30)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("1000 zł", 70, 228, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			Case $Button1
			start ()
			Case $Button2
			bank ()
		Case $Form1
	EndSwitch
WEnd

Func start ()
	 Global $i1 = GUICtrlRead ($Input1); kasa
			$i2 = GUICtrlRead ($Input2); liczba

	 Global $i5 = GUICtrlRead ($label4)
			$r = random (0,5,1)
			If $r == $i2 Then
			$i1 *= 5
			MsgBox (0,"Informacja","Wygrałeś " & $i1 & " kasy!")
			$i5 += $i1
			guictrlsetdata($Label4,$i5)
			Else

			$i5 -= $i1
			guictrlsetdata($Label4,$i5)
			Msgbox(0,"Informacja","przegrałes " & $i1 & " zł")
			EndIf
			if $i5 <= 0 Then
			msgbox(0,"Informacja","Gramy od nowa!")
			guictrlsetdata($Label4,3000)
		EndIf
EndFunc

Func bank ()
		;________________________________BANK_______
	 Global $i3 = GUICtrlRead ($Input3);  Pozycz    |
			$i4 = GUICtrlRead ($Input4);  Spłać     |
            $l = GUICtrlRead ($Label8); Kasa        |
		;________________________________BANK_______|

EndFunc

 

 

 

Nie mogę zrobić banku, pomógłby mi ktoś? Potrzebuję tego na jutro ;x

Chodzi mi o to, by po kliknięciu Pożycz, odejmowało z banku (do max -2000), a dodawało do głównej kasy.W spłać po wpisaniu danej kwoty zabrałoby z głównej kasy a dodało do banku.

 

@edit

 

zrobiłem coś takiego :

 

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ruletka", 397, 263, 189, 292)
$Input1 = GUICtrlCreateInput("",208, 16, 177, 21)
$Input2 = GUICtrlCreateInput("", 208, 56, 177, 21)
$Button1 = GUICtrlCreateButton("Graj!", 120, 88, 265, 33,$WS_GROUP)
$Label1 = GUICtrlCreateLabel("Ile stawiasz w tej rundzie", 8, 16, 188, 17)
$Label2 = GUICtrlCreateLabel("Jaka liczbe obstawiasz 0-5", 8, 56, 180, 17)
$Label3 = GUICtrlCreateLabel("Kasa:", 8, 96, 100, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("3000", 38, 96, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 208, 136, 177, 21)
$Input4 = GUICtrlCreateInput("", 208, 176, 177, 21)
$Label5 = GUICtrlCreateLabel("Pozycz kredyt (maksymalnie 3000)", 8, 138, 180, 17)
$Label6 = GUICtrlCreateLabel("Wpłać kredyt w wysokości :", 8, 176, 156, 17)
$Button2 = GUICtrlCreateButton("Pozycz/Spłać", 187, 216, 200, 33)
$Label7 = GUICtrlCreateLabel("W banku masz:", 8, 217, 73, 30)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("1000 zł", 70, 228, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			Case $Button1
			start ()
			Case $Button2
			Pozycz ()
			Splac ()
		Case $Form1
	EndSwitch
WEnd

Func start ()
			$i1 = GUICtrlRead ($Input1); stawka
			$i5 = GUICtrlRead ($label4); główna kasa
			$i2 = GUICtrlRead ($Input2); liczba
			$r = random (0,5,1)
			If $r == $i2 Then
			$i1 *= 5 ;ile dostaniemy (*=razy)
			MsgBox (0,"Informacja","Wygrałeś " & $i1 & " kasy!")
			$i5 += $i1
			guictrlsetdata($Label4,$i5)
			Else
			$i5 -= $i1
			guictrlsetdata($Label4,$i5)
			Msgbox(0,"Informacja","przegrałes " & $i1 & " zł")
			EndIf
			if $i5 <= 0 Then
			msgbox(0,"Informacja","Gramy od nowa!")
			guictrlsetdata($Label4,3000)
		EndIf
EndFunc

Func Pozycz ()
		;______	__________________________BANK_______
			$i3 = GUICtrlRead ($Input3);  Pozycz    |
            $l = GUICtrlRead ($Label8); Kasa	    |
			$i5 = GUICtrlRead ($label4); główna kasa|
		;________________________________BANK_______|
		$l -= $i3
		guictrlsetdata ($Label8,$l)
		If  $i3 >= 0 Then
		$i5 += $i3
		guictrlsetdata ($label4,$i5)
		EndIf
EndFunc

Func Splac ()
				 $i5 = GUICtrlRead ($label4); główna kasa
				 $i4 = GUICtrlRead ($Input4);  Spłać
				 $l = GUICtrlRead ($Label8); Kasa
				 $i5 -= $i4
				 guictrlsetdata ($label4,$i5)
EndFunc

 

 

 

lecz nie działa Spłacanie :X

 

@edit2

ok ... zrobiłem lecz kolejne pytanie xdddd

 

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ruletka", 397, 263, 189, 292)
$Input1 = GUICtrlCreateInput("",208, 16, 177, 21)
$Input2 = GUICtrlCreateInput("", 208, 56, 177, 21)
$Button1 = GUICtrlCreateButton("Graj!", 120, 88, 265, 33,$WS_GROUP)
$Label1 = GUICtrlCreateLabel("Ile stawiasz w tej rundzie", 8, 16, 188, 17)
$Label2 = GUICtrlCreateLabel("Jaka liczbe obstawiasz 0-5", 8, 56, 180, 17)
$Label3 = GUICtrlCreateLabel("Kasa:", 8, 96, 100, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("3000", 38, 96, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 208, 136, 177, 21)
$Input4 = GUICtrlCreateInput("", 208, 176, 177, 21)
$Label5 = GUICtrlCreateLabel("Pozycz kredyt (maksymalnie -4000)", 8, 138, 180, 17)
$Label6 = GUICtrlCreateLabel("Wpłać pieniądze do banku :", 8, 176, 156, 17)
$Button2 = GUICtrlCreateButton("Pozycz/Spłać", 187, 216, 200, 33)
$Label7 = GUICtrlCreateLabel("W banku masz:", 8, 217, 73, 30)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("1000 zł", 70, 228, 36, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			Case $Button1
			start ()
			Case $Button2
			Pozycz ()
			Splac ()
		Case $Form1
	EndSwitch
WEnd

Func start ()
			$i1 = GUICtrlRead ($Input1); stawka
			$i5 = GUICtrlRead ($label4); główna kasa
			$i2 = GUICtrlRead ($Input2); liczba
			$r = random (0,5,1)
			If $r == $i2 Then
			$i1 *= 5 ;ile dostaniemy (*=razy)
			MsgBox (0,"Informacja","Wygrałeś " & $i1 & " kasy!")
			$i5 += $i1
			guictrlsetdata($Label4,$i5)
			Else
			$i5 -= $i1
			guictrlsetdata($Label4,$i5)
			Msgbox(0,"Informacja","przegrałes " & $i1 & " zł")
			EndIf
			if $i5 <= 0 Then
			msgbox(0,"Informacja","Gramy od nowa!")
			guictrlsetdata($Label4,3000)
		EndIf
EndFunc

Func Pozycz ()
		;______	__________________________BANK_______
			$i3 = GUICtrlRead ($Input3);  Pozycz    |
            $l = GUICtrlRead ($Label8); Kasa	    |
			$i5 = GUICtrlRead ($label4); główna kasa|
		;________________________________BANK_______|
		$l -= $i3
		guictrlsetdata ($Label8,$l)
		If  $i3 >= 0 Then
		$i5 += $i3
		guictrlsetdata ($label4,$i5)
		EndIf
EndFunc

Func Splac ()
				 $i5 = GUICtrlRead ($label4); główna kasa
				 $i4 = GUICtrlRead ($Input4);  Spłać
				 $l = GUICtrlRead ($Label8); Kasa
				 $i5 -= $i4
				 guictrlsetdata ($label4,$i5)
				 $l += $i4
				 guictrlsetdata ($label8,$l)
EndFunc

 

 

 

 

Jak zrobić by pożyczać można było do max -4000 ?

 

Ok, zrobiłem ;) szkoda, że nikt nie pomógł .... temat można cls.

a tutaj dla ciekawskich jak to zrobiłem :

kod :

 

 

#include <GUIConstantsEx.au3> ; dodaje include "GUIConstantsEx.au3"
#include <WindowsConstants.au3> ; dodaje include "WindowsConstants.au3"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ruletka", 397, 263, 189, 292) ; tworzy okno o nazwie "Ruletka" z danymi wymiarami
$Input1 = GUICtrlCreateInput("",208, 16, 177, 21) ; dodaje miejsce na stawke w danym miejscu o danym rozmiarze
$Input2 = GUICtrlCreateInput("", 208, 56, 177, 21) ; dodaje miejsce na naszą wybraną liczbę w danym miejscu o danym rozmiarze
$Button1 = GUICtrlCreateButton("Graj!", 120, 88, 265, 33,$WS_GROUP); tworzy przycisk "Graj!" w danym miejscu o danych rozmiarach
$Label1 = GUICtrlCreateLabel("Ile stawiasz w tej rundzie :", 8, 16, 188, 17) ; Dodaje napis w danym miejscu
$Label2 = GUICtrlCreateLabel("Jaka liczbe obstawiasz 0-5 :", 8, 56, 180, 17) ; Dodaje napis w danym miejscu
$Label3 = GUICtrlCreateLabel("Kasa:", 8, 96, 100, 17) ; dodaje napis w danym miejscu
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla "Kasa:"
$Label4 = GUICtrlCreateLabel("3000", 38, 96, 36, 17) ; dodaje główną gotówke oraz jej miejsce
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla gotówki
$Input3 = GUICtrlCreateInput("", 208, 136, 177, 21) ; dodaje miejsce na wpisanie pozyczki w odpowiednim miejscu
$Input4 = GUICtrlCreateInput("", 208, 176, 177, 21) ; dodaje miejsce na wpisanie spłaty/zalokowania pieniędzy w banku w odpowiednim miejscu
$Label5 = GUICtrlCreateLabel("Pozycz kredyt (maksymalnie -4000) :", 8, 138, 180, 17) ; dodaje napis w danym miejscy
$Label6 = GUICtrlCreateLabel("Wpłać pieniądze do banku :", 8, 176, 156, 17) ; dodaje napis w danym miejscu
$Button2 = GUICtrlCreateButton("Pozycz/Spłać", 187, 216, 200, 33) ; dodaj przycisk w danym miejscu o danych rozmiarach
$Label7 = GUICtrlCreateLabel("W banku masz:", 8, 217, 73, 30) ; dodaje napis w danym miejscu
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; dodaje czcionke dla "W banku masz:"
$Label8 = GUICtrlCreateLabel("1000 zł", 70, 228, 36, 17) ; nasza kasa w banku
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla naszej gotówki w banku
GUISetState(@SW_SHOW) ; otwiera nam okno
#EndRegion ### END Koda GUI section ###

While 1; nieskończona pętla (dzięki temu nasz program moze istnieć)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			Case $Button1 ; co ma zrobić po wciśnięciu $button1 (Graj!)
			Start (); po wcisnięciu $button1 (Graj!) wykona się funkcja start
			Case $Button2 ; co ma zrobić po wciśnięciu $button2 (Pozycz/Splac)
			Pozycz () ; funkcja pozyczki
			Splac () ; funkcja splaty
			Limit () ; funkcja limitu
	EndSwitch
WEnd ; koniec pętli, dalej będzie tylko losować itp.

Func start () ; funkcja start
			$i1 = GUICtrlRead ($Input1); stawka
			$i5 = GUICtrlRead ($label4); główna gotówka
			$i2 = GUICtrlRead ($Input2); liczba na którą stawiamy
			$r = random (0,5,1) ; losuje liczbę od 0-5 dając całości
			If $r == $i2 Then ;jeśli wylosuje naszą liczbę to :
			$i1 *= 5 ;ile dostaniemy (*=razy)
			MsgBox (0,"Informacja","Wygrałeś " & $i1 & " kasy!"); informacja, ze wygralismy xxx zł
			$i5 += $i1 ; dodaje nam stawke do głównej gotówki
			guictrlsetdata($Label4,$i5); odczytuje co dodało (inaczej gotówka by się nie dodawała)
			Else ;jeśli warunek wyzej nie zostanie spełniony ($r == $i2 Then ...) to :
			$i5 -= $i1 ; odejmie nam kasę, którą daliśmy na daną liczbę
			guictrlsetdata($Label4,$i5) ; to samo co z $label4,$i5 (zmienne)
			Msgbox(0,"Informacja","przegrałes " & $i1 & " zł" & ", wylosowało liczbę " & $r & "."); informacja, ze przegralismy xxx zł a wylosowało x liczbę (od 0-5)
			EndIf ; zakończenie else
			if $i5 <= 0 Then ; Jeśli nasza główna gotówka = 0 wtedy :
			msgbox(0,"Informacja","Gramy od nowa!"); wyświetli się okno o nazwie "Informacja", a w nim będzie napisane "Gramy od nowa!"
			guictrlsetdata($Label4,3000);Zaczynamy od nowa z gotówką o wartości 3000
		EndIf ; koniec if'u
EndFunc ; koniec funkcji

Func Pozycz () ; funkcja pozyczka
		;______	__________________________BANK__________
			$i3 = GUICtrlRead ($Input3);  Pozycz    	|
            $l = GUICtrlRead ($Label8); Kasa w banku   	|
			$i5 = GUICtrlRead ($label4); główna gotówka |
		;________________________________BANK___________|
		$l -= $i3 ; odejmuje z banku daną liczbę
		guictrlsetdata ($Label8,$l) ; odczytuje to
		If  $i3 >= 0 Then ; jeśli $i3 (Pozycz) jest większe, bądź równe 0 wtedy :
		$i5 += $i3 ; Dodaje daną liczbę do głównej gotówki
		guictrlsetdata ($label4,$i5) ; odczytuje to
		EndIf ; koniec if'u
EndFunc ; koniec fukncji

Func Splac () ; funkcja splac
			$i5 = GUICtrlRead ($label4); główna gotówka
			$i4 = GUICtrlRead ($Input4);  Spłać
			$l = GUICtrlRead ($Label8); Kasa
			$i5 -= $i4 ; odejmuje od głównej gotówki daną liczbę
			guictrlsetdata ($label4,$i5) ; odczytuje to
			$l += $i4 ; dodaje do banku daną liczbę
			guictrlsetdata ($label8,$l) ; odczytuje to
EndFunc ; kończy funkcję

Func Limit () ; funkcja limit
			$i3 = GUICtrlRead ($Input3);  Pozycz
			$l = GUICtrlRead ($Label8) ;
			$i5 = GUICtrlRead ($label4); główna gotówka
			if $l <= -4000 Then
			$i5 -= $i3
			guictrlsetdata ($label4,$i5)
			$l += $i3
			guictrlsetdata ($label8,$l)
			MsgBox (0,"Informacja","Nie mozesz pozyczyc wiecej niz do -4000")
EndIf

EndFunc ; koniec funkcji

 

 

 

qxv1fr.jpg


by NovusOrdo


It is better to keep your mouth closed and let people think you are a fool than to open it and remove all doubt. ~Mark Twain

Ballas Pasjonat

Ballas

Opublikowano
Pasjonat

Ballas

Opublikowano

 

 

$Gotowka = 3000
$Debet = 0
$Oprocentowanie = 1.10
 
 
$GUI = GUICreate("Ruletka",140,200)
$Liczba = GUICtrlCreateInput("Podaj liczbe(1-5)",15,15,110,20,0x2000)
$Stawka_input = GUICtrlCreateInput("Podaj stawke",15,40,110,20)
$Kasa = GUICtrlCreateLabel("Twoja gotowka: "&@CRLF&$Gotowka&"$",15,65,110)
$Losuj = GUICtrlCreateButton("Losuj",15,95,110,20)
$Pozycz = GUICtrlCreateButton("Zaciagnij kredyt",15,165,110,20)
$kredyt = GUICtrlCreateInput("Kwota pozyczki(1-15000)",15,140,110,20)
$kredyt_label = GUICtrlCreateLabel("Do oddania: "&$Debet&"$",15,120,110,20,0x200)
GUISetState(@SW_SHOW)
 
While 1
   $msg = GUIGetMsg()
      Switch $msg
         Case -3
            Exit
         Case $Losuj
            Losuj()
         Case $Pozycz
            Pozycz()
      EndSwitch
WEnd
 
 
Func Losuj()
$Stawka = GUICtrlRead($Stawka_input)
$Postawiona_Liczba = GUICtrlRead($liczba)
If $Postawiona_Liczba < 1 Or $Postawiona_Liczba > 5 Then MsgBox(0,"","Nieprawidlowa liczba")
If $Gotowka <= 0 Then
If $mozliwosc_kredyt = 1 Then
   Return MsgBox(0,"","Nie masz gotowki, zaciagnij kredyt.")
ElseIf $mozliwosc_kredyt = 0 Then
   Return MsgBox(0,"GAME OVER","Nie masz gotowki oraz mozliwosci pobrania kredytu.")
   Exit
EndIf
EndIf
If $Stawka > $Gotowka Then Return MsgBox(0,"","Nie masz tyle gotowki.")
$random = Random(1,5,1)
ToolTip($random)
If $Postawiona_Liczba = $random Then
   MsgBox(0,"","Wygrales: "&$Stawka*5)
   If $Stawka*5 >= $debet Then
   $Gotowka += $Stawka*5
   $Gotowka -= $debet
   $debet = 0
ElseIf  $Stawka*5 < $debet
   $debet - $stawka*5
EndIf
Else
   MsgBox(0,"","Przegrales: "&$Stawka)
   $Gotowka -= $Stawka
EndIf
   GUICtrlSetData($Kasa,"Twoja gotowka: "&@CRLF&$Gotowka&"$")
   GUICtrlSetData($Kredyt_label,"Do oddania: "&$Debet&"$")
EndFunc
 
 
 
Func Pozycz()
If $Debet = 0 Then
   $Gotowka += GUICtrlRead($kredyt)
   GUICtrlSetData($Kasa,"Twoja gotowka: "&@CRLF&$Gotowka&"$")
   $Debet += GUICtrlRead($kredyt)*1.1
   GUICtrlSetData($Kredyt_label,"Do oddania: "&$Debet&"$")
EndIf
EndFunc

 

 

 

 

Patrz i ucz się. Całkowicie od nowa napisany. :rolleyes:

 

 

 

 

Rób to co pisałem, a nie czytasz spoilery.

@Edit: zmieniłem "ó" na "o" bo coś złego dzieje się z MPC

 

 

Kuźwa, zapomniałem troche pozmieniać po testach xD

JestemPolakiem Bywalec

JestemPolakiem

Opublikowano
Bywalec

JestemPolakiem

  • Autor
Opublikowano

ok, coś jeszcze pokombinuje z tym %, dzięki up ! chociaż wyprzedziłem i tak xD

 

@edit

nie działa twój kod ;x

 

@edit2

twój pomysł z oprocentowaniem jest genialny, a oto co mi wyszło

kod :

 

 

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3> ; dodaje include "GUIConstantsEx.au3"
#include <WindowsConstants.au3> ; dodaje include "WindowsConstants.au3"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ruletka", 397, 263, 189, 292) ; tworzy okno o nazwie "Ruletka" z danymi wymiarami
$Input1 = GUICtrlCreateInput("",208, 16, 177, 21) ; dodaje miejsce na stawke w danym miejscu o danym rozmiarze
$Input2 = GUICtrlCreateInput("", 208, 56, 177, 21) ; dodaje miejsce na naszą wybraną liczbę w danym miejscu o danym rozmiarze
$Button1 = GUICtrlCreateButton("Graj!", 120, 88, 265, 33,$WS_GROUP); tworzy przycisk "Graj!" w danym miejscu o danych rozmiarach
$Label1 = GUICtrlCreateLabel("Ile stawiasz w tej rundzie :", 8, 16, 188, 17) ; Dodaje napis w danym miejscu
$Label2 = GUICtrlCreateLabel("Jaka liczbe obstawiasz 0-5 :", 8, 56, 180, 17) ; Dodaje napis w danym miejscu
$Label3 = GUICtrlCreateLabel("Kasa:", 8, 96, 100, 17) ; dodaje napis w danym miejscu
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla "Kasa:"
$Label4 = GUICtrlCreateLabel("3000", 38, 96, 36, 17) ; dodaje główną gotówke oraz jej miejsce
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla gotówki
$Input3 = GUICtrlCreateInput("", 208, 136, 177, 21) ; dodaje miejsce na wpisanie pozyczki w odpowiednim miejscu
$Input4 = GUICtrlCreateInput("", 208, 176, 177, 21) ; dodaje miejsce na wpisanie spłaty/zalokowania pieniędzy w banku w odpowiednim miejscu
$Label5 = GUICtrlCreateLabel("Pozycz kredyt (maksymalnie -4000) :", 8, 138, 180, 17) ; dodaje napis w danym miejscy
$Label6 = GUICtrlCreateLabel("Wpłać pieniądze do banku :", 8, 176, 156, 17) ; dodaje napis w danym miejscu
$Button2 = GUICtrlCreateButton("Pozycz/Spłać", 187, 216, 200, 33) ; dodaj przycisk w danym miejscu o danych rozmiarach
$Label7 = GUICtrlCreateLabel("W banku masz:", 8, 217, 73, 30) ; dodaje napis w danym miejscu
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; dodaje czcionke dla "W banku masz:"
$Label8 = GUICtrlCreateLabel("1000 zł", 70, 228, 36, 17) ; nasza kasa w banku
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif") ; czcionka dla naszej gotówki w banku
GUISetState(@SW_SHOW) ; otwiera nam okno
#EndRegion ### END Koda GUI section ###

While 1; nieskończona pętla (dzięki temu nasz program moze istnieć)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			Case $Button1 ; co ma zrobić po wciśnięciu $button1 (Graj!)
			Start (); po wcisnięciu $button1 (Graj!) wykona się funkcja start
			Case $Button2 ; co ma zrobić po wciśnięciu $button2 (Pozycz/Splac)
			Pozycz () ; funkcja pozyczki
			Splac () ; funkcja splaty
			Limit () ; funkcja limitu
	EndSwitch
WEnd ; koniec pętli, dalej będzie tylko losować itp.

Func start () ; funkcja start
			$i1 = GUICtrlRead ($Input1); stawka
			$i5 = GUICtrlRead ($label4); główna gotówka
			$i2 = GUICtrlRead ($Input2); liczba na którą stawiamy
			$r = random (0,5,1) ; losuje liczbę od 0-5 dając całości
			If $r == $i2 Then ;jeśli wylosuje naszą liczbę to :
			$i1 *= 5 ;ile dostaniemy (*=razy)
			MsgBox (0,"Informacja","Wygrałeś " & $i1 & " kasy!"); informacja, ze wygralismy xxx zł
			$i5 += $i1 ; dodaje nam stawke do głównej gotówki
			guictrlsetdata($Label4,$i5); odczytuje co dodało (inaczej gotówka by się nie dodawała)
			Else ;jeśli warunek wyzej nie zostanie spełniony ($r == $i2 Then ...) to :
			$i5 -= $i1 ; odejmie nam kasę, którą daliśmy na daną liczbę
			guictrlsetdata($Label4,$i5) ; to samo co z $label4,$i5 (zmienne)
			Msgbox(0,"Informacja","przegrałes " & $i1 & " zł" & ", wylosowało liczbę " & $r & "."); informacja, ze przegralismy xxx zł a wylosowało x liczbę (od 0-5)
			EndIf ; zakończenie else
			if $i5 <= 0 Then ; Jeśli nasza główna gotówka = 0 wtedy :
			msgbox(0,"Informacja","Gramy od nowa!"); wyświetli się okno o nazwie "Informacja", a w nim będzie napisane "Gramy od nowa!"
			guictrlsetdata($Label4,3000);Zaczynamy od nowa z gotówką o wartości 3000
		EndIf ; koniec if'u
EndFunc ; koniec funkcji

Func Pozycz () ; funkcja pozyczka
		;______	__________________________BANK__________
			$i3 = GUICtrlRead ($Input3);  Pozycz    	|
            $l = GUICtrlRead ($Label8); Kasa w banku   	|
			$i5 = GUICtrlRead ($label4); główna gotówka |
		;________________________________BANK___________|
		$l -= $i3 * 1.093; odejmuje z banku daną liczbę * 9.3 %
		guictrlsetdata ($Label8,$l) ; odczytuje to
		If  $i3 >= 0 Then ; jeśli $i3 (Pozycz) jest większe, bądź równe 0 wtedy :
		$i5 += $i3 ; Dodaje daną liczbę do głównej gotówki
		guictrlsetdata ($label4,$i5) ; odczytuje to
		EndIf ; koniec if'u
EndFunc ; koniec fukncji

Func Splac () ; funkcja splac
			$i5 = GUICtrlRead ($label4); główna gotówka
			$i4 = GUICtrlRead ($Input4);  Spłać
			$l = GUICtrlRead ($Label8); Kasa
			$i5 -= $i4 ; odejmuje od głównej gotówki daną liczbę
			guictrlsetdata ($label4,$i5) ; odczytuje to
			$l += $i4 ; dodaje do banku daną liczbę
			guictrlsetdata ($label8,$l) ; odczytuje to
EndFunc ; kończy funkcję

Func Limit () ; funkcja limit
			$i3 = GUICtrlRead ($Input3);  Pozycz
			$l = GUICtrlRead ($Label8) ;
			$i5 = GUICtrlRead ($label4); główna gotówka
			if $l <= -4001 Then ; jeśli przekroczy liczbę -4000 w pozczce to :
			$i5 -= $i3 ; odejmie to co dodało
			guictrlsetdata ($label4,$i5) ; odczytuje
			$l += $i3 * 1.093;  doda to co odjeło
			guictrlsetdata ($label8,$l) ; odczytuje
			MsgBox (0,"Informacja","Nie mozesz pozyczyc wiecej niz do -4000")
EndIf
EndFunc ; koniec funkcji

 

 

 

qxv1fr.jpg


by NovusOrdo


It is better to keep your mouth closed and let people think you are a fool than to open it and remove all doubt. ~Mark Twain

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...