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 1113 korisnika na forumu :: 108 registrovanih, 9 sakrivenih i 996 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, 9191vs, A.R.Chafee.Jr., aleph_one, alex71, Asteker, AudioTehnica, Banovo Brdo, Besudna, Bickoooo, Blizzard035, bokicacar, Boris90, boskelazo, bukefal, C-Gun, chichabg, Clouseau, dejno, Denaya, DezurniOperativni, Dogma21, Donneraj, Dovla, draganl, DrMrPr, Duce, Electron, Feller, Georgius, Gerilac, Giskard, gobrad, goran.vvv, Grebostrek, gregorxix, GveX, HrcAk47, hyla, Ivan Campo, Ivica1102, Ivoo, Jager715510, Jose, kaput21, Kobrim, Komder, Koser, krca73, Lep1na, LjubisaR, loon123, m94j, malimedo01, Marko43, markolopin, mačković, MB120mm, Md84, mean_machine, Medojed, Mi lao shu, miki kv, Miki281, Miler88, Milometer, Mićko, moldway, nebkv, Nemanja.M, Nikola93., nixos, Nobunaga, Novakomp, nuke92, OgnjenMitric, Orc, Panter, Parker, Pekman, pfc74, PITT, probisic, proka89, Puch300GD, raptorsi, Rebel Frank, repac, S-G, sap, Sir Budimir, Sirius, Sky diver 29, Smor, sony771, Stevan2026, synergia, Tafocus, Tamna_strana_Meseca, tomigun, trpche, USSVoyager, Velizar Laro, vensla, VJ, vojnik švejk, Zastava, |_MeD_|