forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)
-   -   Математические подсчёты (http://forum.boolean.name/showthread.php?t=14232)

}{@KeR 14.02.2011 19:54

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

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_ 14.02.2011 20:39

Ответ: Математические подсчёты
 
чо-чо?

baton4ik 14.02.2011 21:22

Ответ: Математические подсчёты
 
Ага, то есть узнать и вывести на экран размер файлов ты можешь, а сложить их - нет?

Nuprahtor 14.02.2011 21:24

Ответ: Математические подсчёты
 
Наверное ему нужно количество файлов, а не сумму их размера

impersonalis 14.02.2011 21:37

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

LLI.T.A.L.K.E.R. 14.02.2011 23:05

Ответ: Математические подсчёты
 
Global 3DfFileSize
Global 3DfFileCount

Repeat
...

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

....
Forever

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

}{@KeR 15.02.2011 13:00

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

RBK 15.02.2011 14:36

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

}{@KeR 15.02.2011 15:02

Ответ: Математические подсчёты
 
Можешь примерчик накатать?

}{@KeR 15.02.2011 18:32

Ответ: Математические подсчёты
 
Вот короче:
PHP код:

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 
LoadImage("ui/"+file$)=1 Then 
EndIf 
  

RenderWorld()
Flip()
Forever WaitKey()
End 
 

CloseDir dir 

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

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

LLI.T.A.L.K.E.R. 15.02.2011 21:31

Ответ: Математические подсчёты
 
Никак!

?

Nex 15.02.2011 21:53

Ответ: Математические подсчёты
 
FileSize, ReadAvail ?

SBJoker 15.02.2011 22:27

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

Randomize 16.02.2011 01:55

Ответ: Математические подсчёты
 
Цитата:

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

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

Nex 16.02.2011 02:31

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


Часовой пояс GMT +4, время: 20:39.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot