MyCity » Visual Studio -> Visual Basic » Izdvojeno: korisno za opcije programa

korisno za opcije programa

Napisano na dan: 4.10.2004

korisno za opcije programa
Sledeća strana Pagination

Idi na vrh

Poslao: 04 Okt 2004 03:39
Idi na vrh
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Private Type opt
opcija1 As String
opcija2 As String
opcija3 As Integer
End Type

Private opcije As opt

Private Sub BinWrite()
'// pre upisivanja u fajl moraju se postaviti vrednosti
opcije.opcija1 = "Vrednost necega!"
opcije.opcija2 = "Vrednost necega drugog!"
opcije.opcija3 = 14


On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Write As #1
Put #1, 14, opcije '// ovde moze da bude bilo koji broj
Close #1
End Sub


Private Sub BinRead()
On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Read As #1
Get #1, 14, opcije '// ovde isto moze da bude bilo koji broj, ali se mora podudarati sa onim u Put
Close #1
End Sub

Private Sub Command1_Click()
'// snimi u fajl
BinWrite
End Sub

Private Sub Command2_Click()
'// citaj iz fajla
BinRead
MsgBox opcije.opcija1 & vbCrLf & opcije.opcija2 & vbCrLf & opcije.opcija3
End Sub

razlika u ovome je sto kada se fajl otvori u notepad-u ne moze tako lako da se procita. otvorite pa cete videti.
zgodno je i za save za igre, a mozete i dodatno da kriptujete (naravno vasim ili necijim drugim algoritmom)



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Visual Studio -> Visual Basic » Izdvojeno: korisno za opcije programa

Ko je trenutno na forumu
 

Ukupno su 1741 korisnika na forumu :: 113 registrovanih, 11 sakrivenih i 1617 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: alberto, aleksmajstor, alternator, baltazar01, Betty25, Bobrock1, bojcistv, branko7, bufanje, Chainsaw, comi_pfc, darkangel, dejno, Denaya, Dimitrise93, Django777, Djokislav, Djota1, Doca, doloress, dragoljub11987, Dragon Order, dulleo, dunavzed, Electron, Feller, Frunze, g_g, gregorxix, hooraay, IvanMiletic, Jaz, Jeremiah, kingkong1947, koliko, Kriglord, lafa008, Lep1na, luka1978, M74AB3, Mackomen, Magarac, majstro, Marko Marković, Meklejn, mercedesamg, Mercury, Mi lao shu, Miki01, Miki281, milenko1980, MILJEVINAC, Mićko, Mskok, Murko, N.e.m.a.nj.a., nenorodjo, neutrino, nevjerna beba, Nikola323, nikoladim, Njubara, Nobunaga, novator, nsharambasa, oldtimer, Pegggio, peradetlić, Peruta, pisac12, Povratak1912, promajauglavi, Prometeus, Promising0, Qvazimodo, s0ne, samsung, septembar, Shinobi, Singidunumac, sixpac, Sićko, Sky diver 29, SlaKoj, SpeedyGonzales, stegonosa, TBoy, Tihi86, tom, Tribal, ulogovan, uruk, varda, VaRvArI 85, veljkovicdani, vidra1, Visionary, vojnik švejk, vrag81, vuk77, vukan0799, vuksa72, Weah88, wizzardone, wolf431, XRF_d, YugoSlav, Zgembo78, Zrcalo, Zvlade, |_MeD_|, šumar bk2, 800077