Математические подсчёты

[}{@KeR]

У меня вот есть пример который подсчитывает размер всех по отдельности находящихся файлов в папке:

Graphics 1024,768,32,2
SetBuffer BackBuffer()
SetFont(LoadFont("Arial",18))

Type ListFiles
        Field FileName$
        Field FileSize#
End Type

myDir=ReadDir("ui/") 
Repeat                                         
        FileName$=NextFile$(myDir) 
        If FileName$="" Then Exit     
        If FileType("ui/"+FileName$) <> 2 Then 
                                                                     
                f.ListFiles=New ListFiles                         
                f\FileName=FileName                      
                f\FileSize=FileSize("ui/"+FileName) 
                Print f\FileName+" - "+f\FileSize/1024/1024+" Мб"    
        End If
Forever
CloseDir myDir 


Repeat



Flip()
Until KeyHit(1)
End 


У меня вопрос в том как подсчитать всю сумму файлов в папке????

Кому непонятно прошу скопировать код себе и создать папку UI

[Mr_F_]

чо-чо?

[baton4ik]

Ага, то есть узнать и вывести на экран размер файлов ты можешь, а сложить их - нет?

[Nuprahtor]

Наверное ему нужно количество файлов, а не сумму их размера

[impersonalis]

Задача остро тебует решения в 3д. Вы все тупые. Автор уже указал ( Blitz3D > 3D-программирование)!

[LLI.T.A.L.K.E.R.]

Global 3DfFileSize
Global 3DfFileCount

Repeat
...

3DfFileSize=3DfFileSize+fFileSize/1024/1024 ; ( / 2048 ? )
3DfFileCount=3DfFileCount+1
....
Forever

Print "Всего 3Дэ-файлов = " + 3DfFileCount + " штук"
Print "Сумма размера всех 3Дэ-файлов = " + 3DfFileSize + " Мб"

[}{@KeR]

Я это виду к тому, чтобы программа узнавала сколько весят ресурсы для игры и выполняла их загрузку, а потом выводила в процентах на экран сколько загрузилось.

[RBK]

Зачем так всё усложнять. Сделай запись где указано сколько файлов надо загрузить и счётчик сколько уже загрузил. Второй делишь на первый умножаешь на 100, получаешь сколько процентов загрузил.

[}{@KeR]

Можешь примерчик накатать?

[}{@KeR]

Вот короче:

Graphics3D 1024,768,32,2
SetBuffer BackBuffer()
SetFont(LoadFont("Arial",18))
Global procent=0
 
dir=ReadDir("ui/")


Repeat 
file$=NextFile$(dir)
If file$="" Then Exit 

If FileType("ui/"+""+file$) <>2 Then  
Cls 
Text 40,40,  file$
EndIf   
 

If i = LoadImage("ui/"+file$)=1 Then 
EndIf 
  

RenderWorld()
Flip()
Forever WaitKey()
End 
 

CloseDir dir 


Прога показывает какой файл загружается из некой директории

У меня теперь вопрос в том как подсчитать на сколько процентов загружен определённый файл?

[LLI.T.A.L.K.E.R.]

Никак!

?

[Nex]

FileSize, ReadAvail ?

[SBJoker]

Обычно процесс загрузки отслеживается параллельным потоком, или глобальным хуком на чтение с диска этим процессом.

[Randomize]

Сообщение от SBJoker

Обычно процесс загрузки отслеживается параллельным потоком, или глобальным хуком на чтение с диска этим процессом.

Но это трудноразрешимо в Blitz3D. Почти неразрешимо.

[Nex]

Когда по сети передаешь файл, то можно определить процент закачки так что можно сделать только кода будет много, да и нафига?