[Szukam] Niby lotto

adv2 · 30 Marca 2013

Siemacie!
Mam pewien problem, bo chcę, by na moim konkursie wygrali moi koledzy, to chciałem zrobić takie niby lotto, by losowało te osoby co ja chcę, a niby ma losować uczciwie? Pomoże ktoś?

Sopelek997 · 30 Marca 2013

Jak chcesz wybrać konkretne osoby to lepiej będzie wybrać niż losować. Myślę, że pomogłem

ktoZjarany · 30 Marca 2013

za bardzo nie wiem o co chodzi, ale hm....

przykładowo, jeśli chcesz losować cyfry od 0 do 9, ale żeby największą szansę miała cyfra 3

$losy="012345678933333" ;to masz 40% szans na wylosowanie 3, bo 6/15=0,4

$wylosowany=stringmid($losy,random(1,stringlen($losy)),1) ;stringmid tworzy mniejszy string z podanego ($losy) zaczynając od losowej pozycji (random, gdzie 1 to początek, a stringlen to długość stringu) i mającego w sobie jeden znak

adv2 · 30 Marca 2013

Chodzi mi o program, który wpisuje osoby, które ja wybiorę, że niby to uczciwe, a tak naprawdę, to będę widział kogo wybiorę (wylosuje)

Phoenix_PL · 30 Marca 2013

Robisz tablicę z imionami dla których program wygeneruje zwycięskie liczby i voila...

Local $imiona[3] = ["Darek", "Michał", "Mateusz"]
Local $imie = GUICtrlRead($inImie) ;przyjmijmy ze imie jest wpisywane w inputa w GUI
Local $wynik ;tutaj bedzie przechowywana wylosowana liczba
 
For $i = 0 to 2 step +1
    If $imie = $imiona[$i] Then
        $wynik = "wygrana"
        ExitLoop
    Else
        $wynik = Random(0, 6, 1)
Next

Pawellek · 31 Marca 2013

#include <GUIConstants.au3>
#include <Misc.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Lotto", 485, 204, 320, 275)
$Label1 = GUICtrlCreateLabel("Imie 1:", 24, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Imie 2:", 24, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Imie 3:", 264, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 24, 121, 21)
$Input2 = GUICtrlCreateInput("", 112, 80, 121, 21)
$Label4 = GUICtrlCreateLabel("Imie 4:", 264, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 352, 24, 121, 21)
$Input4 = GUICtrlCreateInput("", 352, 80, 121, 21)
$Button1 = GUICtrlCreateButton("Losuj", 176, 128, 139, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $hDLL = DllOpen("user32.dll")


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Losuj()
		EndSwitch
$4 = GUICtrlRead($input4)		
If _IsPressed("02", $hDLL) Then
	MsgBox(0,"Wygrana","Wygrywa: " & $4)
	Sleep(50)
EndIf	
WEnd

Func Losuj()
$Wynik = Random(1,4,1)	
$1 = GUICtrlRead($input1)
$2 = GUICtrlRead($input2)
$3 = GUICtrlRead($input3)
$4 = GUICtrlRead($input4)

If $Wynik = 1 Then 
	MsgBox(0,"Wygrana","Wygrywa: " & $1)
ElseIf $Wynik = 2 Then 
	MsgBox(0,"Wygrana","Wygrywa: " & $2)
ElseIf $Wynik = 3 Then 
	MsgBox(0,"Wygrana","Wygrywa: " & $3)
ElseIf $Wynik = 4 Then 
	MsgBox(0,"Wygrana","Wygrywa: " & $4)
EndIf
EndFunc

Naciskajac lewy przycisk myszy program losuje imie z tych wpisanych w pola, natomiast gdy nacisniesz prawy przycisk myszy(niekoniecznie na guzik) to program wskazuje za kazdym razem, ze zwycięża imie 4. Jak zrobisz to umiejetnie to nikt sie nie kapnie.

adv2 · 31 Marca 2013

Okey, dzięki Pawellek, tylko chodzi mi o taki sam program, ale żeby już te imiona był wpisane w tym programie.

linoskoczek · 31 Marca 2013

$lizd = GUICtrlCreateList("Darek", 1, 1, 100, 200);zmien sobie tutaj wymiary, aha, no i zakladam, ze wczesniej zrobisz GUI
GUICtrlSetData(-1, "Sulpicjusz")
GUICtrlSetData(-1, "Scholastyk")
GUICtrlSetData(-1, "Cieszyryj")
GUICtrlSetData(-1, "Michał");robione najprostrzymi funkcjami

While 0 = 2*2/2*14*124*5632*124*0*125*125; trolol
Switch GUICtrlRead($lizd)
Case "Michał" Or "Lodołamacz"
MsgBox(0,0, "666")
Case Else
MsgBox(0,0, Random(1, 69)
EndSwitch
WEnd

Pawellek · 31 Marca 2013

To podaj te imiona, to edytuje kod. Ja nie jestem wrozbita maciejem, niestety.

adv2 · 31 Marca 2013

Tzn, tych imion właściwie nicków będzie około 1000

adv2 · 4 Kwietnia 2013

@ref
To zrób 400 nicków byle jakich np. admin1, admin2, admin3, admin4, admin5 itp. ja potem edytuje. Oczywiście jakby ktoś mógł to zrobić.

linoskoczek · 5 Kwietnia 2013

No przecież Ci zrobiłem...

$lizd = GUICtrlCreateList("Darek", 1, 1, 100, 200);zmien sobie tutaj wymiary, aha, no i zakladam, ze wczesniej zrobisz GUIGUICtrlSetData(-1, "Sulpicjusz")GUICtrlSetData(-1, "Scholastyk")GUICtrlSetData(-1, "Cieszyryj")GUICtrlSetData(-1, "Michał");robione najprostrzymi funkcjami ;TUTAJ WKLEJASZ GUICTRLSETDATA(-1, "IMIE"), MOŻESZ ICH ILE CHCESZ ZROBIĆ While 0 = 2*2/2*14*124*5632*124*0*125*125; trololSwitch GUICtrlRead($lizd)Case "Michał" Or "Lodołamacz"MsgBox(0,0, "666")Case ElseMsgBox(0,0, Random(1, 69)EndSwitchWEnd

Zaznaczyłem gdzie masz co wklejać.

adv2 · 6 Kwietnia 2013

nie no nie ogarniam, błąd mi wyskakuje, chcę coś takiego:

#include <GUIConstants.au3>
#include <Misc.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Lotto", 485, 204, 320, 275)
$Label1 = GUICtrlCreateLabel("Imie 1:", 24, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Imie 2:", 24, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Imie 3:", 264, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 24, 121, 21)
$Input2 = GUICtrlCreateInput("", 112, 80, 121, 21)
$Label4 = GUICtrlCreateLabel("Imie 4:", 264, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 352, 24, 121, 21)
$Input4 = GUICtrlCreateInput("", 352, 80, 121, 21)
$Button1 = GUICtrlCreateButton("Losuj", 176, 128, 139, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $hDLL = DllOpen("user32.dll")


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Losuj()
        EndSwitch
$4 = GUICtrlRead($input4)        
If _IsPressed("02", $hDLL) Then
    MsgBox(0,"Wygrana","Wygrywa: " & $4)
    Sleep(50)
EndIf    
WEnd

Func Losuj()
$Wynik = Random(1,4,1)    
$1 = GUICtrlRead($input1)
$2 = GUICtrlRead($input2)
$3 = GUICtrlRead($input3)
$4 = GUICtrlRead($input4)

If $Wynik = 1 Then
    MsgBox(0,"Wygrana","Wygrywa: " & $1)
ElseIf $Wynik = 2 Then
    MsgBox(0,"Wygrana","Wygrywa: " & $2)
ElseIf $Wynik = 3 Then
    MsgBox(0,"Wygrana","Wygrywa: " & $3)
ElseIf $Wynik = 4 Then
    MsgBox(0,"Wygrana","Wygrywa: " & $4)
EndIf
EndFunc

Tylko by imiona były już wpisane.

GameOverMan · 6 Kwietnia 2013

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Lotto", 485, 204, 320, 275)

$Label1 = GUICtrlCreateLabel("Imie 1:", 24, 24, 59, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Imie 2:", 24, 80, 59, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Label3 = GUICtrlCreateLabel("Imie 3:", 264, 24, 59, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Input1 = GUICtrlCreateInput("", 112, 24, 121, 21)

GUICtrlSetData(-1, "Imie 1"); imie

$Input2 = GUICtrlCreateInput("", 112, 80, 121, 21)

GUICtrlSetData(-1, "Imie 2"); imie

$Label4 = GUICtrlCreateLabel("Imie 4:", 264, 80, 59, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Input3 = GUICtrlCreateInput("", 352, 24, 121, 21)

GUICtrlSetData(-1, "Imie 3"); imie

$Input4 = GUICtrlCreateInput("", 352, 80, 121, 21)

GUICtrlSetData(-1, "Imie 4") ; imie

$Button1 = GUICtrlCreateButton("Losuj", 176, 128, 139, 65, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

adv2 · 6 Kwietnia 2013

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Lotto", 485, 204, 320, 275)
$Label1 = GUICtrlCreateLabel("Imie 1:", 24, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Imie 2:", 24, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Imie 3:", 264, 24, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 112, 24, 121, 21)
GUICtrlSetData(-1, "Imie 1"); imie
$Input2 = GUICtrlCreateInput("", 112, 80, 121, 21)
GUICtrlSetData(-1, "Imie 2"); imie
$Label4 = GUICtrlCreateLabel("Imie 4:", 264, 80, 59, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 352, 24, 121, 21)
GUICtrlSetData(-1, "Imie 3"); imie
$Input4 = GUICtrlCreateInput("", 352, 80, 121, 21)
GUICtrlSetData(-1, "Imie 4") ; imie
$Button1 = GUICtrlCreateButton("Losuj", 176, 128, 139, 65, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Nie działa, tylko się włącza na chwile.

GameOverMan · 6 Kwietnia 2013

Widać, że nie masz bladego pojęcia o pisaniu programów.

To tylko część kodu oddająca przykład. Zresztą dużo osób już Ci pokazywało jak zmienić wartość pola.

Nie ważne, chcesz wybierać te osoby, które mają zostać wylosowane w oknie programu czy z jakiegoś pliku *.ini czy może chcesz aby osoby które mają zostać wylosowane były już z góry ustalone w kodzie programu?

adv2 · 6 Kwietnia 2013

Tak chce by osoby były już ustalone które będą wybrane.

GameOverMan · 7 Kwietnia 2013

W takim razie rozumiem, że mają być ustalone w kodzie.

Ile ma być tych osób wybranych 4? Przy każdym losowaniu mają być te same 4? Czy przy kolejnym losowaniu już następne 4 wybrane osoby?

Po co wprowadzać listę tysiąca imion skoro i tak chcesz wybrać tylko kilka.

adv2 · 7 Kwietnia 2013

Bo to ma oszukać, ma tam być np. 400 nicków, a wszystko ma być ustawione i 3 osoby wygrywają ustawione w kodzie.

GameOverMan · 7 Kwietnia 2013

Weź mi to wytłumacz bo nie rozumiem, po co chcesz wpisywać 400 nicków jak mają być 3 osoby?

Po prostu wpisujesz te 3 nicki i po naciśnięciu buttona się pojawiają.

Chyba, że chcesz aby po kolejnym naciśnięciu buttona zostały wylosowane już przypadkowe osoby.

adv2 · 7 Kwietnia 2013

No chodzi mi o to, by oszukać, że to niby sprawiedliwe, a tak naprawdę, to oszukuje.

GameOverMan · 7 Kwietnia 2013

Proszę bardzo:

W pliku Uczestnicy.ini podajesz nazwy uczestników, każdą nazwę uczestnika oddzielasz od siebie znakiem |. Na pierwszych 3 miejscach podajesz nazwy uczestników, którzy mają zostać wylosowani w pierwszym losowaniu.

Download:

http://pl.rghost.net/private/45111116/8b9555c8d4773864a0da6e4a7e9aceff

Skan:

https://www.virustotal.com/pl/file/2e30212f4165bfb8d1971faa787c19ca78670d5e6fc884433e833aed6086eb35/analysis/1365330663/

adv2 · 7 Kwietnia 2013

No o takie coś dokładnie mi chodziło dzięki:)
Do zamknięcia.

Zaloguj się

👋 Witaj na MPCForum!

[Szukam] Niby lotto

Rekomendowane odpowiedzi

Zarchiwizowany