Generator nicków co 6 sekund

[piotrek693206]

Witam, mam problem otóż chce zrobic generator który generuje nicki co 3 sekundy czyli np tak

 

otwiera sie pierwsze okno i pisze 1.Nick1

znika po 3 sekundach

otwiera sie drugie okno po 3 sekundach i pisze 2.Nick2

klikam ok i pokazuje sie trzecie okno pisze np Nick1 Gra z Nick2

 

 

 

Proszę o przykładowy kod.

[hfaua]

Tak da się

[piotrek693206]

Tak da się

 

a wiesz jak. prosiłbym o gotowy kod

[hfaua]

Wiem jak.

 

// Miałeś być grzeczny. Trochę uprzejmości.

Protecto

[piotrek693206]

Wiem jak.

 

// Miałeś być grzeczny. Trochę uprzejmości.

Protecto

 

 

Podasz kod?

[Protecto]

Nabijacie posty. Wyciągnijcie wnioski.

 

@EDIT

Jeśli piszę wyciągnijcie wnioski, to mam na myśli, żebyście wyciągnęli wnioski.

Zwróć uwagę na swoje pytania:

 

czy wogóle da sie to zrobic??

Odpowiedź może brzmieć "Tak, można.".

Powinieneś zapytać: "Jak (w jaki sposó można to zrobić?"

 

a wiesz jak[?]

Odpowiedź może brzmieć "Tak, wiem.".

Poprawnie: "Proszę o przykładowy kod."

 

Podasz kod?

Odpowiedź może brzmieć "Tak, podam.".

Poprawnie: "Proszę o przykładowy kod."

 

Teraz otwieram temat i masz za zadanie odpowiednio sformułować swoją prośbę lub pytanie.

 

@EDIT

Proszę, aby nikt oprócz Piotrka nie pisał bezpośrednio pod tym postem. Czekamy na wypowiedź autora tematu.

[piotrek693206]

Wiem, zle postąpiłem nie czytając nic więcej to już się nie powtórzy na pewno. Masz 100% racje. Ok więc sformułuje to :

 

Proszę o przykładowy kod.

 

 

Mam nadzieje że pomożecie

[Sopelek997]

Dim $spolgloska_char[17] = ['b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'r', 's', 't', 'w', 'z']
Dim $samogloska_char[6] = ['a', 'e', 'i', 'o', 'u', 'y']
$spolgloska = Random(0, 1, 1)
dim $nickk[2]
$nick = ''
While 1
For $b = 0 To 1
$nick = ''
For $a = 1 To 2
For $i = 1 To Random(4, 8, 1) ;min. max ilosc liter
If $spolgloska = True Then
$nick &= $spolgloska_char[Random(0, 16, 1)]
;~  If Random(1, 3, 1) = 1 Then $nick &= $spolgloska_char[Random(0, 16, 1)]
Else
$nick &= $samogloska_char[Random(0, 5, 1)]
EndIf
$spolgloska = Not $spolgloska
If $i = 1 Then
$duza_litera = StringRight($nick, 1)
$nick = StringTrimRight($nick, 1)
$nick &= StringUpper($duza_litera)

EndIf
If $spolgloska = True Then

If Random(1, 3, 1) = 1 Then $nick &= $spolgloska_char[Random(0, 16, 1)]
$i += 1
EndIf
Next
$nick &= ' '
Next
MsgBox(64, '', $b+1 & ". " & $nick, 3)
$nickk[$b] = $nick
Next
MsgBox(64, '', $nickk[0] & " gra z " & $nickk[1])
WEnd

wykorzystałem mój dawny skrypt. Przerabiałem na szubko więc pisz w razie błędów

[Protecto]

@EDIT

Źle zrozumiałem prośbę. Cóż.

Ale zostawiam, może się przyda.

 

Po Twojemu:

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
$rnd = Random(1, $lines)
$nick1 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", "1. " & $nick1, 3000)
$rnd = Random(1, $lines)
$nick2 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", "2. " & $nick2, 3000)
MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")

 

Po mojemu:

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
$rnd = Random(1, $lines)
$nick1 = FileReadLine("nicki.txt", $rnd)
$rnd = Random(1, $lines)
$nick2 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")

 

Wygląd pliku nicki.txt (znajdującego się w tym samym folderze co skrypt):

nick1
nick2
nick3
nick4
...

[piotrek693206]

@EDIT

Źle zrozumiałem prośbę. Cóż.

Ale zostawiam, może się przyda.

 

Po Twojemu:

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
$rnd = Random(1, $lines)
$nick1 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", "1. " & $nick1, 3000)
$rnd = Random(1, $lines)
$nick2 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", "2. " & $nick2, 3000)
MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")

 

Po mojemu:

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
$rnd = Random(1, $lines)
$nick1 = FileReadLine("nicki.txt", $rnd)
$rnd = Random(1, $lines)
$nick2 = FileReadLine("nicki.txt", $rnd)
MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")

 

Wygląd pliku nicki.txt (znajdującego się w tym samym folderze co skrypt):

nick1
nick2
nick3
nick4
...

 

ok dzieki tylko jak mógłbys to jeszcze zeby sie nicki nie powtarzały i po nacisnięciu ok było następne nicki

[Protecto]

@UP

Jednak dobrze?

 

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
Do
$rnd = Random(1, $lines)
$nick1 = FileReadLine("nicki.txt", $rnd)
$rnd = Random(1, $lines)
$nick2 = FileReadLine("nicki.txt", $rnd)
Until $nick1 <> $nick2
MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")

Już nie będą się powtarzały.

 

#include <File.au3>
$lines = _FileCountLines("nicki.txt")
While 1
   Do
       $rnd = Random(1, $lines)
       $nick1 = FileReadLine("nicki.txt", $rnd)
       $rnd = Random(1, $lines)
       $nick2 = FileReadLine("nicki.txt", $rnd)
   Until $nick1 <> $nick2
   MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ")
WEnd

Losuje w nieskończoność.

[piotrek693206]

ok tylko tak zeby zamiast naciskac ok zeby co 3 sekundy samo sie dawało

[Protecto]

#include <File.au3>

HotKeySet("{ESC}", "close")

$lines = _FileCountLines("nicki.txt")
While 1
Do
	$rnd = Random(1, $lines)
	$nick1 = FileReadLine("nicki.txt", $rnd)
	$rnd = Random(1, $lines)
	$nick2 = FileReadLine("nicki.txt", $rnd)
Until $nick1 <> $nick2
SplashTextOn("", $nick1 & " gra z " & $nick2 & ". ", "300", "50", "-1", "-1", 35, "", "", "")
Sleep(3000)
WEnd

Func close()
Exit
EndFunc   ;==>close

 

ESC zamykasz.

 

@2DOWN

Już mi sie nie chce dziś myśleć. Albo Sopelek Ci coś napisze, albo ja jutro.

[Sopelek997]

@up. Prościej chyba będzie msgboxa z timeoutem

 

MsgBox(0, "", $nick1 & " gra z " & $nick2 & ". ", 3)

[piotrek693206]

wsystko wspaniale tylko że sie powtarza było nick 1 gra z nick 2 po czym było nick 2 gra z nick 3 a po tym było znowu nic 1 gra z nick 4 chodzi mi o to ze np Nick 2 gra z nick 1 i zeby tam gdzie nick 2 juz sie nick 2 nie powtórzyło

 

 

 

EDIT:

 

Pomoże ktos?

[Protecto]

Pomyśl sam. Myślisz, że ktoś Ci od tak będzie pisał gotowce.

 

Tu masz przykład losowania bez powtórzeń w C++.

Wystarczy trochę pozmieniać na AutoIt.

http://cpp0x.pl/kursy/Kurs-C++/Poziom-2/Losowanie-bez-powtorzen/293

[piotrek693206]

Temat do zamknięcia. Sam sobie pomogłem.