Vesala

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

Pravim igru vesala.

Zavrsio sam interfejs.
Tu mi se javio problem sa nasim slovima.
Imam problem sa Ć, Č, Ž i Š.
Sta da radim sa tim?

Dalje...

Sad treba da isprogramiram da racunar nasumicno izabere jednu rec.
Sastavio sam listu gradova, reka i planina, u zasebnim text fajlovima.

Korisnik moze da izabere iz kog fajla ce da racunar bira rec, odnosno, da li zeli gradove, reke, ili planine.

Meni treba kod da racunar odabere jednu rec iz odabranog text fajla, i da tu rec sacuva u neku promenljivu. Svaki fajl sadrzi 20 reci.

Gradovi ::Beograd
Valjevo
Vranje
Zrenjanin
Jagodina
Kragujevac
Kraljevo
Kruševac
Leskovac
Loznica
Niš
Požarevac
Priština
Smederevo
Sombor
Subotica
Pirot
Bor
Prokuplje
Lazarevac

Mislim da bi ostalo mogao sam da uradim, ali ako zapne negde onda cu da se javim .

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

Mislim da treba u lokalitet na windowsu da bude, taj sa ščćđ,ali za imena fajlova .
ili da se nekako u programu koristi unicode
znam da jedan prog nije hteo dok mu se ne promeni lokalitet

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

@FarscapeFan
Oke, resio. U Regional and Language Options sam promenio verziju jezika za non-Unicode programe na Serbian(Latin).
Kad neko igra igru, mora da promeni tu opciju, a treba mu i sistemski disk . Kakve gluposti...

Jos drugi problem...

-----------------------

EDIT: Evo kako sada izgleda:

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

E samo da kazem na VB 2008 kada stavljas Label ili Button ili sta god rade i cirilicna i latinicna.

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

Resio sam ovo drugo.

Dim line As Integer Dim fajl As String Dim broj As Integer Dim linija As Integer linija = 0 If mnuListaNI(0).Checked = True Then     fajl = "gradovi.txt" ElseIf mnuListaNI(1).Checked = True Then     fajl = "reke.txt" Else     fajl = "planine.txt" End If line = Int(Rnd * 21) Open fajl For Input As #1 Do While Not EOF(1) Line Input #1, rec linija = linija + 1 If linija = line Then Exit Do Loop Close #1     For broj = 0 To Len(rec) - 1         Label1.Caption = Label1.Caption + "_ "     Next broj     Label3.Caption = rec

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

Uloguj se preko Facebooka da bi skinuo fajl:

Evo ovde u ovoj temi sam postavio vesala(HangMan) koja su radjena u Visual C# :
http://www.mycity.rs/3D-programiranje/Vasi-projekti_4.html#1095230

https://www.mycity.rs/must-login.png

Uporedi malko, mozda ti pomogni neki codovi ili nesto

• 1Ovo se svidja korisniku: mcrule
  
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Napisano: 04 Feb 2011 11:28

@mcrule
Lepo uradjeno... Ne kapiram bas ovaj C# pa nemam bas mnogo koristi. Nesto sam razumeo nesto ne...
------
Ja ne znam kako dalje da radim. Lepo se bira rec, prikazuje "-" u jednoj labeli. Broj "-" znakova odgovara broju slova u reci.

Ali sad ne znam kako da pretrazim tu rec. Mogu da iskoristim InStr da vidim da li je korisnik kliknuo na pravo slovo, tj. da li postoji to slovo u reci i na kojoj poziciji se nalazi slovo. Medjutim, kako sad da zamenim "-" znakove u labeli za odgovorajuce slovo? Da koristim neku drugu taktiku?

Dopuna: 04 Feb 2011 19:44

Nasao sam ovo:
http://www.vb6.us/source-code/full-hangman-game-vb6

Bas je lepo uradjeno...

Ja cu uzeti samo kod koji mi je potreban...

Dopuna: 05 Feb 2011 16:29

Oke, poslednja faza .

Imam problem sa ovim kodom:
Private Sub Command1_Click(Index As Integer) Dim txt As Integer If InStr(rec, Command1(Index).Caption) <> 0 Then     For txt = 1 To Len(rec)         If InStr(rec, Command1(Index).Caption) = txt Then _             Text1(txt).Text = Command1(Index).Caption     Next txt Else     zivoti = zivoti - 1 End If 'Command1(Index).Enabled = False End Sub

Mislim da se vidi sta sam zeleo .

I lepo radi, da kazem...
Ali, javlja se poblem ukoliko se ureci nadju dva ista slova, npr. dva A ili dva I. Nece da se upisu oba, vec se upise samo jedno, prvo slovo od ta dva.

Dopuna: 06 Feb 2011 8:18

Ispravio sam gresku. Nisam odavno koristio InStr funkciju, odnosno, odavno nisam radio u VB.

If InStr(txt, rec, Command1(Index).Caption) = txt Then _             Text1(txt).Text = Command1(Index).Caption

Izgleda da sve sto sam pitao, sve sam sam resio . FarscapeFan mi je dao ideju za nasa slova.
Znaci, na nekim racunarima igra nece raditi kako treba, zavisi od podesavanja...

ProcitajMe.txt ::Igra je rađena na srpskom jeziku, pa postoji mogućnost da se određena slova ne prikazuju kako treba. Tu ne mogu ništa.

Kada pokrenete igru, vi trebate da odaberete jednu od tri ponuđenih grupa reči.
Ponuđeni su: gradovi, reke i planine.
Zatim trebate da pretisnete dugme "Nova igra".

Računar će da odabere nasumično jednu reč iz grupe reči koju ste odabrali.
Reči se nalaze u text fajlovima: gradovi.txt, reke.txt i planine.txt.

Vaš cilj je da pogodite koju je reč računar izabrao.
To radite tako što klikćete na slova. Kada kliknete na slovo, ono će postati nedostupno.
Ukoliko kliknete na slovo koje se nalazi u reči, to će se zabeležiti.
Ukoliko pogrešite, deo tela po deo će vam se pojavljivati na vešalima.
Imate deset pokušaja.

Još je važno da se lj, nj i dž tretiraju kao DVA slova.

Ukoliko mislite da znate koji bi odgovor mogao biti, ne morate pretiskati dugmad.
Možete kliknuti na dugme "Upiši odgovor" i u prozor koji će vam se pojaviti trebate
da upišete odgovor za koji mislite da je tačan. Pazite, ukoliko tu pogrešite, izgubili
ste.

Uz igru uvek moraju ići ranije navedeni text fajlovi.
Fajlove možete sami menjati, dodavati nove reči i brisati ih.
Reči ne smeju imati VIŠE od 10 slova.

Program nije osetljiv na veličinu slova.

KOLE017

Download:
https://www.mycity.rs/must-login.png

Kome ne rade srpska slova, evo bez njih:
https://www.mycity.rs/must-login.png

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

kole017 ::Ispravio sam gresku. Nisam odavno koristio InStr funkciju, odnosno, odavno nisam radio u VB.
Izgleda da sve sto sam pitao, sve sam sam resio . FarscapeFan mi je dao ideju za nasa slova.
Znaci, na nekim racunarima igra nece raditi kako treba, zavisi od podesavanja...

E super, drago mi je da si supeo! Eto vidis da mozes i sam sve se moze kad se hoce
Kao sto vidis ja sam ono radio u Visual C# -u, a ovde ne znam da radim, pa zato ti nisam mogao nista pomoci, sorry...
Ali neka vazno da si uspeo, bravo!