korisno za opcije programa

korisno za opcije programa

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.
Ko je trenutno na forumu
 

Ukupno su 796 korisnika na forumu :: 40 registrovanih, 6 sakrivenih i 750 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 4channer, A.R.Chafee.Jr., aljosa7, Apok, axa, Blue, Buzdovan2, Crvena Petokraka, Dimitrise93, Djurdevdan, doktor1964, goxin, goxsys, GreenMan, helen1, Josip1969, jovan.simovic97, kalens021, Koca Popovic, krkalon, Kubovac, Lošmi, Marko Marković, micoboj, MilosM2, Nebo_M, NenadG, Neo BetOnBit, pein, perko91, pjaka2001, repac2, Roman, royst33, srbi, ssekir75, vathra, W123, wizzardone, zajcev1