Convert VB6 to C#

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

[Link mogu videti samo ulogovani korisnici]

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 ???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

[Link mogu videti samo ulogovani korisnici]

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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)))