Page 1 of 1

GenFiles

Posted: Fri Jun 10, 2016 4:48 pm
by 0CodErr
Это для демонстрации работы ProgressBar.
Программа просто создаёт файлы в папке (edit1) в количестве (edit2).
GenFiles.kex (1.36 KiB)
Downloaded 417 times
Исходник
GenFiles.asm (12.78 KiB)
Downloaded 408 times
Суть в этом месте
Spoiler:

Code: Select all

        mov    [pb.max], ecx
        mov    [pb.value], dword 0
; draw progressbar
        push   pb
        call   [progressbar_draw]
; ------------------------------------- ;
        cmp    [count], dword 0
        jz     .done
; SetCurrentDirectory
        mov    eax, 30
        mov    ebx, 1
        mov    ecx, [edit1.text]
        int    64
;
        mov    [status_string], dword sz_doing
        call   DrawStatus
.do:
        CreateNextFile
        test   eax, eax
        jnz    .error
; increase progress
        push   pb
        call   [progressbar_progress]
; CheckEvent
        mov    eax, 11
        int    64
        call   [eax * 4 + Events]
        dec    dword [count]
        jnz   .do
.done:
        mov    [status_string], dword sz_done
        call   DrawStatus
	ret
.error:
        mov    [status_string], dword sz_error
        call   DrawStatus
	ret
Скриншот во время работы:
Spoiler:
GenerateFiles.PNG
GenerateFiles.PNG (31.49 KiB)
Viewed 8670 times
Вот, кстати, такой баг обнаружился, иногда создаются файлы с неверными атрибутами, например, месяц ну никак не может быть равен 15. Проявляется примерно 1 из 10000.
Spoiler:
15_04_16.png
15_04_16.png (75.66 KiB)
Viewed 8670 times

Re: GenFiles

Posted: Fri Oct 07, 2016 11:35 am
by Leency
Спасибо за программу. Позволила обнаружить баг.
Залью на SVN.
P.S. Ссылка на тему висела в закладках браузера с июня, ждала моего возвращения :)

Re: GenFiles

Posted: Fri Oct 07, 2016 12:22 pm
by Leency
Залил рев. #6573

Кроме этого:
- сделал поле путь активным по-умолчанию
- сделал то в поле количество можно вводить только цифры

Добавлю в автосборку. Наверное, на ISO.