Eof() funkcija

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

Mozda se neko javi, ja dalje ne bih mogao da ti pomognem posto nikad nisam obratio paznju na Basic jezike, ja sam se zalepio za Pascal/Delphi kao muva za lepljivu traku.

Mogu samo da pomognem oko univerzalnih stvari koje vaze za bilo koji jezik (kao ovo gore).

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

Ok. Znas li onda gde mogu da skinem pascal/delphi? Da li je to slicno basicu?

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

Nije slican Basicu

Moze se skinuti odavde: [Link mogu videti samo ulogovani korisnici]
Postoji besplatna (free) verzija koja je malo osakacena, ali moze da posluzi za mnoge stvari.

Druga solucija ti je Lazarus:
[Link mogu videti samo ulogovani korisnici]

To je open source kopija Delphija, i postoji za mnoge operativne sisteme, tako da tvoj program mozes iskompajlirati i na Linuxu ili nekom trecem OS-u.

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

OK.
Hvala puno.

Dopuna: 01 Okt 2008 17:24

Ljudi, nasao sam rupu u mom programu. Naime, prvo se ukuca neko korisnicko ime, npr, fer, a kao lozinku uzmimo fut. Onda dodamo jos jedno korisnicko ime, npr, Hp, lozinka je romi. Na kraju kada budemo hteli da pretrazujemo, ako umesto korisnickog imena ukucamo lozinku, kao rezultat ce prijaviti sledece korisnicko ime. Primer: ako ukucamo fut, kao lozinka ce se pokazati Hp.
Smislio sam resenje i za ovo, ali mi je potrebna jedna funkcija.
Ta funkcija treba da proveri da li je nesto napisano brojevima, ili da li je nesto broj.
Npr: if p$ je broj then notice "Lozinka ne postoji".
Sve sam smislio kako, ali mi je ova funkcija neophodna.

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

[Link mogu videti samo ulogovani korisnici]
Na sajtu gore imas redosled slova, brojeva, znakova i specijalnih karaktera po ASCII standardu. Napravis petlju u kojoj se proverava da li svaki karakter unete lozinke pripada opsegu karaktera 48 do 57.

Funkcija koja ti kazuje ASCII kod nekog karaktera je val()
Suprotna funkcija je Str$() - daje ti karakter na osnovu koda.

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

E pa slusaj moj komsija, ja sam ti veoma iskusan sa LBom, i preporucujem ti da se ne bakces sa tim posto je puno komplikovanije nego da koristis RANDOM tip citanja podataka, mnogo je lakse sa njim, ako treba primjer javi

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

ferfutfer ::
Ljudi, nasao sam rupu u mom programu. Naime, prvo se ukuca neko korisnicko ime, npr, fer, a kao lozinku uzmimo fut. Onda dodamo jos jedno korisnicko ime, npr, Hp, lozinka je romi. Na kraju kada budemo hteli da pretrazujemo, ako umesto korisnickog imena ukucamo lozinku, kao rezultat ce prijaviti sledece korisnicko ime. Primer: ako ukucamo fut, kao lozinka ce se pokazati Hp.
Smislio sam resenje i za ovo, ali mi je potrebna jedna funkcija.
Ta funkcija treba da proveri da li je nesto napisano brojevima, ili da li je nesto broj.
Npr: if p$ je broj then notice "Lozinka ne postoji".
Sve sam smislio kako, ali mi je ova funkcija neophodna.

@inenad-e treba mi funkcija koja prepoznaje brojeve. Bobby mi je dao funkciju val(), ali nesto mi ne radi.

prompt "Karakter?"; a$ if val(a$)<060 or val(a$)>071  then notice "Ovaj karakter je slovo" else notice "Ovaj karakter je broj" end

Sta god da upisem, ono pise "Ovaj karakter je slovo".
Koji je tvoj nacin @inenad-e?

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

Jesi li siguran da ti a$ sadrzi samo to slovo, a ne i Enter (013 + 010 ASCII znakove)?
Drugo, u Pascalu taj uslov ne bi funkcionisao jer sadzi tri uslova kojima nije odredjen prioritet. Po Pascalovoj logici, to bi moralo da se napise ovako:

if (val(a$)<060) or (val(a$)>071) then...

Trece, kakav zapis brojeva koristi LibertyBasic po defaultu (decimalne, heksadecimalne, oktalne)?
Kada se broj zapisuje sa nulom na pocetku, i ima tri cifre, to se obicno smatra za oktalni zapis. Da li je i u LibertyBasicu tako?
Ako jeste, onda ispitujes pogresne vrednosti.

Dopuna: 01 Okt 2008 20:45

Probaj jos i sledece:

if (a$ < str$(60)) or (a$ > str$(71)) then ...

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

 prompt "Karakter?"; a$ if f (a$ < str$(60)) or (a$ > str$(71)) then notice "Ovaj karakter je slovo" else notice "Ovaj karakter je broj" end
Ovo radi, ali samo do sedmice. Kad upisem 8 i 9, ono pise da je slovo.
Radi i sa brojevima od 10 do 79, sve sto pocinje sa 8x (81,82...) i sa 9x nece da radi.


if (val(a$)<060) or (val(a$)>071) then..
...ovo ne radi.

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

Hajde pogledaj onaj sajt sto sam ti dao link jos jednom.
Uzeo si pogresnu kolonu brojeva (a lepo sam gore napisao koji opseg kodova da proveravas...).