Centar za edukaciju-BiH



#1 28.01.2011 15:44
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:progres bar
da li se može na ovu funkciju koja vrši pretvaranje karaktera u fajlu u UTF-8
ubaciti progres bar
Public Sub subConvertToUTF8(strPathName As String)
Dim lngI As Long
Dim lngMax As Long
Dim strTempPathName As String
Dim intOrgFileHandle As Integer
Dim intTempFileHandle As Integer
Dim i As Integer
Dim bytInput As Byte
Dim intOutput As Integer
strTempPathName = funGetTempPathName(strPathName)

intOrgFileHandle = FreeFile
Open strPathName For Binary Access Read As intOrgFileHandle

intTempFileHandle = FreeFile
Open strTempPathName For Binary Access Write As intTempFileHandle

subWriteUTF8 intTempFileHandle, &HFEFF 'Byte order mark

Do While Not EOF(intOrgFileHandle)

Get #intOrgFileHandle, , bytInput
intOutput = funConvert(bytInput)
If intOutput <> 0 Then
subWriteUTF8 intTempFileHandle, intOutput
End If

Loop


Close intTempFileHandle
Close intOrgFileHandle

Kill strPathName
Name strTempPathName As strPathName

kada file posjeduje dosta podataka zna da potraje pa bih htio da ugradim
progres bar koji bi pokazivao dokle je funkcija došla sa obradom

pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 28.01.2011 15:45 od strane Bosanec. ↑  ↓

#2 28.01.2011 16:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: progres bar
Naravno da moze ali za progres bar trebas start korak i end. Ti ovdje nemas end.
Start moze biti 1 end bi mogao uzeti velicinu filea a korak jedan red.
Jedan red bi mogao naci pomocu duzine prvog reda kada ucitas.
Do While Not EOF(intOrgFileHandle)
Get #intOrgFileHandle, , bytInput
'Ovdje bi trebao postaviti progres funkciju odnosno pozvati je.
intOutput = funConvert(bytInput)
If intOutput <> 0 Then
subWriteUTF8 intTempFileHandle, intOutput
End If
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 02.02.2011 15:43
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: progres bar
Evo jedan primjer progress bar-a

Prilozi:
Informacije o tipu datoteke za:rar  ProgresBar.rar
Preuzimanja:356
Velicina datoteke:14.18 KB


Miro
↑  ↓

#4 02.02.2011 21:43
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:Re: progres bar
probaću da ga ukomponujem u funkciju

fino izgleda dadne aplikaciji jedan ozbiljan izgled

pozdrav
↑  ↓

Stranice (1):1

Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 21 am.