Centar za edukaciju-BiH


Stranice (5):1,2,3,4,5

#21 09.02.2015 13:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
Uf pa jqa nisam ni vidio da je on zakacio fajlove.
Znaci opet mu nije ovdje uspjelo.
za @avko
Kada ti se otvori onaj treci prozor u opisu tada klikas na taster dole i ucitas fajlove 1 2 ili 3 vise ne moze.
Kada ti se ispod toga pojavi ime ili imena fajlova znaci da su ucitani.
Poslije toga netrebas nista raditi sem zatvoriti taj prozor.
Probaj opet slobodno, ako neces ovdje mozes u test forumu.

Sada cu pogledati ovaj tvoj rad.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#22 09.02.2015 13:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
Pa cekaj to sto si zakacio je samo moj primjer a gdje je tvoje.
Zakaci svoje i exel fajlove.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#23 10.02.2015 10:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
Ako treba pojasnjenje nekog dijela moga koda i to napisi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#24 10.02.2015 12:05
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: VB6 open binary file
proba bin out

Prilozi:
Informacije o tipu datoteke za:zip  proba out(1).zip
Preuzimanja:252
Velicina datoteke:20.14 KB


zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 10.02.2015 12:06 od strane Avko. ↑  ↓

#25 10.02.2015 12:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
Napisao sam ti gore.
Kada izvrsis upload netrebas nista pritiskati vise nego jednostavno zatvoriti prozor.
Znaci kada u onom prozoru kliknes na taster odaberi i pojavi de dialog box za odabir fajla te ga odabere i kliknes na open. I to je sve sada samo zatvoris prozor za upload.
Netrebas klikati na potvrdi niti na bilo sta samo zatvori prozor.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#26 10.02.2015 13:00
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: VB6 open binary file
Citiraj zxz:
Napisao sam ti gore.
Kada izvrsis upload netrebas nista pritiskati vise nego jednostavno zatvoriti prozor.
Znaci kada u onom prozoru kliknes na taster odaberi i pojavi de dialog box za odabir fajla te ga odabere i kliknes na open. I to je sve sada samo zatvoris prozor za upload.
Netrebas klikati na potvrdi niti na bilo sta samo zatvori prozor.

evo sada sam naucio zakaciti fajl. svakoga dana u svakom pogledu sve vise napredujem Grinning
sada mozemo razvijati vb aplikaciju
malo ja
vise ti
vise ti nego ja
pa cemo se druziti Grinning
zivot je moja domovina.
↑  ↓

#27 10.02.2015 18:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
Hehe dobra ti ta pjesmica.
Ako naucis programirat kao sto mjesme pises bit ces dobar hehehe.
Evo ti tvoj kod.
U exelu sam sve uradio.
E sad ja nisam ni citao ponovo gore a zaboravio sam sta tacno hoces.
Da prvo napisem sta sam napravio.
Prepravio sam tvoju proceduru za upis fajla.
Samo sam prepravio tvoje varijable koje seu bile brojevi u tekst i odredio duzine zapisa u tipu.
Da se razumijemo mogle su one i ostato brojcane bez problema pa ako zelis mozemo oko toga eksperimentisati.
Moze se ovo doraditi da bude i binarni zapis ali koliko se sjecam ti si rekao da te to ne interesuje bar za sada.

Napravio sam ti i proceduru z ucitavanje jednog reda podataka.
To moze isprobati ako u immediate ukucas:
?UcitajRed(brojredakojizelis)
Primjer:
?UcitajRed(7)
PreuzmiIzvorni kôd (Visual Basic):
  1. Type osoba
  2.     maticniBr As String * 13
  3.     ime As String * 25
  4.     prezime As String * 25
  5.     datumR As String * 10
  6.     adresa As String * 25
  7.     telefon As String * 9
  8. End Type
  9.  
  10. Function saveBinFile()
  11.     Dim O As osoba
  12.     Dim maticni As Long 'vrijednost kucice
  13.    Dim strSize As Long
  14.  
  15.     Open "c:\popis.bin" For Random As #1 Len = Len(O)
  16.     For f = 1 To 50
  17.         Worksheets("list1").Select
  18.         maticni = Cells(f + 1, 1)
  19.         O.maticniBr = maticni
  20.         O.ime = Cells(f + 1, 2)
  21.         O.prezime = Cells(f + 1, 3)
  22.         O.datumR = Cells(f + 1, 4)
  23.         Worksheets("list2").Select
  24.         O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False)
  25.         O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False))
  26.          Put 1, f, O
  27.     Next f 'sljedeci red
  28.    Close 1 'zatvorimo datoteku
  29. End Function
  30.  
  31. Function UcitajRed(KojiRed As Integer)
  32.   Dim RedP As osoba 'red podataka za ososubu
  33.  Dim temp
  34.   Open "c:\popis.bin" For Random As #1 Len = Len(RedP)
  35.     Get #1, KojiRed, RedP
  36.  temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & RedP.datumR _
  37.  & vbCr & "Adresa:" & RedP.adresa _
  38.  & vbCr & "Matcini br:" & RedP.maticniBr & vbCr & "Tel:" & RedP.telefon
  39.   Close #1
  40.   MsgBox temp
  41. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#28 10.02.2015 21:21
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: VB6 open binary file
e ovo je za ono stihove.
Evo i binarni zapis.
PreuzmiIzvorni kôd (Visual Basic):
  1. Type osoba
  2.     maticniBr As String
  3.     ime As String
  4.     prezime As String
  5.     datumR As String
  6.     adresa As String
  7.     telefon As String
  8. End Type
  9. Type binar
  10.     maticniBr() As Byte
  11.     ime() As Byte
  12.     prezime() As Byte
  13.     datumR() As Byte
  14.     adresa() As Byte
  15.     telefon() As Byte
  16. End Type
  17.  
  18. Function saveBinFile()
  19.     Dim O As osoba
  20.     Dim B As binar
  21.     Dim maticni As Long 'vrijednost kucice
  22.    Dim strSize As Long
  23.     Dim tmp() As Byte
  24.  
  25.     Open "c:\popis.bin" For Binary As #1 'Len = Len(O)
  26.    For f = 1 To 50
  27.         Worksheets("list1").Select
  28.         maticni = Cells(f + 1, 1)
  29.         O.maticniBr = maticni
  30.         O.ime = Cells(f + 1, 2)
  31.         O.prezime = Cells(f + 1, 3)
  32.         O.datumR = Cells(f + 1, 4)
  33.         Worksheets("list2").Select
  34.         O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False)
  35.         O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False))
  36.         B.adresa = O.adresa
  37.         B.maticniBr = O.maticniBr
  38.         B.ime = O.ime
  39.         B.prezime = O.prezime
  40.         B.datumR = O.datumR
  41.         B.telefon = O.telefon
  42.         Put 1, , B
  43.     Next f 'sljedeci red
  44.    Close 1 'zatvorimo datoteku
  45. End Function
  46.  
  47. Function UcitajRed(KojiRed As Integer)
  48.   Dim RedP As binar 'red podataka za ososubu
  49.  Dim t As osoba
  50.   Dim temp
  51.   Dim I As Integer
  52.  
  53.   Open "c:\popis.bin" For Binary As #1
  54.   For I = 1 To KojiRed
  55.     Get #1, , RedP
  56.   Next I
  57.  temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & Trim(RedP.datumR) _
  58.  & vbCr & "Adresa:" & Trim(RedP.adresa) _
  59.  & vbCr & "Matcini br:" & Trim(RedP.maticniBr) & vbCr & "Tel:" & Trim(RedP.telefon)
  60.   Close #1
  61.   MsgBox temp
  62. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#29 11.02.2015 09:36
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: VB6 open binary file
ockej
malo cu to isprobavati pa se javim ako gdje zapnem
lp
zivot je moja domovina.
↑  ↓

#30 11.02.2015 11:37
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: VB6 open binary file
u ovome prvome slucaju gdje koristis random tj snimanje valjda u klasicni txt fajl velicina fajla je 5,22kb
onom drugom metodom gdje koristis binari velicina je 7,84kb, a ona moja prva metoda snimanja u binari obliku tamo gdje ubacujem velicinu stringa pa svaki pojedinacno snimam dakle:

strSize = Len(O.ime)
Put 1, , strSize
Put 1, , O.ime
ta na kraju datoteka zauzima 2,89kb
valjda stedi na taj nacin sto odredujem unapred koliko ce zauzeti mjesta, neznam nisam bas neki strucnjak

(neznam dio teksta citirati pa sam prepisao)
zxz citat: To moze isprobati ako u immediate ukucas:

e taj imedidate neznam sto je ni gdje se nalazi, ali mi se svida ono sa function, to si napravio pa poslje mozemo pozivati valjda prema potrebi,
uff uff uff pomalo me glava pocela boliti od svega ovoga
idem uzeti malo neke knjige pa vidjeti ako ima sta o funkcijama i modulima pa se javim navece.
kupio na rasprodaji vbnet, vb6, vbdatabase. bilo jeftino pa sve sto imalo ime vb u sebi i ja uzeo Smiling
zivot je moja domovina.
↑  ↓

Stranice (5):1,2,3,4,5


Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 40 pm.