Convert VB6 to C#

4

Convert VB6 to C#

offline
  • Pridružio: 01 Nov 2015
  • Poruke: 66

Napisano: 28 Nov 2016 22:06

Zaboravio sam da dodam timer1.Start(); u button1 funkciju.Sad se prikazuju slova ali u svakom labelu se generise razlicit broj slova i kada se pristisne stop ne zaustavlja generisanje u labelu

postimg.org/image/t8a5i75n1/

private void button1_Click(object sender, EventArgs e)
{
timer1.Start();
Label[] label = new Label[] { label2,label3, label4, label5, label6, label7, label8, label9, label10, label11, label12,label13 };
for (int i = 0; i < 12; i++)
slova[i] = label[i].Text;

if (!button1.Enabled)
return;
if (button1.Text == "Start")
{
i = 0;
timer1.Enabled = true;
button1.Text = "Stop";
button1.Enabled = true;
}
else
{
label[i].Text = slova[i];
i = i + 1;
if (i == 12)
{
textBox1.Enabled = true;
button1.Enabled = false;
button1.Text = "Start";
timer1.Enabled = false;
//Vreme.Enabled = true;
textBox1.Focus();
}
}
}

private void timer1_Tick(object sender, EventArgs e)
{
//char[] letters = "AБВГДЂЕЖЗИЈКЛЉМНЊОПРСТЋУФХЦЧЏШ".ToCharArray();
char[] letters = new char[30] { 'A', 'Б', 'В', 'Г', 'Д', 'Ђ', 'Е', 'Ж', 'З', 'И', 'Ј', 'К', 'Л', 'Љ', 'М', 'Н', 'Њ', 'О', 'П', 'Р', 'С', 'Т', 'Ћ', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Џ', 'Ш' };
Label[] label = new Label[] { label2,label3, label4, label5, label6, label7, label8, label9, label10, label11, label12, label13 };

string randomString = "";
for (int i = 0; i < 12; i++)
{
randomString += letters[rand.Next(0, 30)].ToString();
label[i].Text = randomString;
}
}

Dopuna: 28 Nov 2016 22:12

Resio sam problem samo sam obrisao petlju :
for (int i = 0; i < 12; i++)
{
randomString += letters[rand.Next(0, 30)].ToString();
label[i].Text = randomString;
}
Sad kod izgleda ovako:
randomString += letters[rand.Next(0, 30)].ToString();
label[i].Text = randomString;

Dopuna: 28 Nov 2016 22:24

Da li moze da se napravi da kompujter uzme neku rec iz recnika i izmesa je,a kad se prtiska dugme prikazuju se ta slova.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

Na taj nacin ti radi igra 'slagalica' iz istoimene tv emisije, s tim sto se jos doda par suglasnika na kraj, kako bi bilo 12 slova.



offline
  • Pridružio: 01 Nov 2015
  • Poruke: 66

Napisano: 29 Nov 2016 9:25

Kako to da napravim???

Dopuna: 30 Nov 2016 13:37

Kako da uzmem random rece iz baze podataka da je izmesam i da izbacim ta slova na label ???

offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

Pavle, ljudi ovde zaista nemaju vremena sav kod za tebe da sazvacu. Moras malo sam da istrazujes i da guglas.

http://lmgtfy.com/?q=Shuffle+letters+in+word+C%23

Prvi link ti daje odgovor na tvoje pitanje oko algoritma za pretumbavanje slova u reci

offline
  • Pridružio: 01 Nov 2015
  • Poruke: 66

Sta rade ove komande:

Call rs.Open("SELECT DISTINCT Reci FROM " & CStr(duzina), Conn, adOpenKeyset)
rs.Move getRandom(0, rs.RecordCount - 1)
rec = rs.Fields(0).Value

Set rs = Conn.Execute("SELECT DISTINCT Reci FROM " & CStr(Len(r)))

Ko je trenutno na forumu
 

Ukupno su 902 korisnika na forumu :: 16 registrovanih, 2 sakrivenih i 884 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, drimer, ekser222, Istman, Kruger, mean_machine, mgolub, mnn2, operniki, panzerwaffe, RecA, Trpe Grozni, Tvrtko I, W123, yufighter, zzapNDjuric99