Board.KolibriOS.org

Official KolibriOS board
It is currently Fri Apr 26, 2019 1:04 pm

All times are UTC+03:00




Post new topic  Reply to topic  [ 3 posts ] 
Author Message
 Post subject: GenFiles
PostPosted: Fri Jun 10, 2016 4:48 pm 
Offline

Joined: Sun Oct 30, 2011 6:43 pm
Posts: 1499
Это для демонстрации работы ProgressBar.
Программа просто создаёт файлы в папке (edit1) в количестве (edit2).
Attachment:
GenFiles.kex [1.36 KiB]
Downloaded 122 times

Исходник
Attachment:
GenFiles.asm [12.78 KiB]
Downloaded 118 times

Суть в этом месте
Spoiler: Show
Code:
        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: Show
Attachment:
GenerateFiles.PNG
GenerateFiles.PNG [ 31.49 KiB | Viewed 1304 times ]


Вот, кстати, такой баг обнаружился, иногда создаются файлы с неверными атрибутами, например, месяц ну никак не может быть равен 15. Проявляется примерно 1 из 10000.
Spoiler: Show
Attachment:
15_04_16.png
15_04_16.png [ 75.66 KiB | Viewed 1304 times ]


Last edited by 0CodErr on Tue Dec 20, 2016 2:32 pm, edited 1 time in total.

Top
   
 Post subject: Re: GenFiles
PostPosted: Fri Oct 07, 2016 11:35 am 
Offline
Designer
User avatar

Joined: Thu Jan 25, 2007 3:33 pm
Posts: 4994
Спасибо за программу. Позволила обнаружить баг.
Залью на SVN.
P.S. Ссылка на тему висела в закладках браузера с июня, ждала моего возвращения :)

_________________
Через тернии к звездам


Top
   
 Post subject: Re: GenFiles
PostPosted: Fri Oct 07, 2016 12:22 pm 
Offline
Designer
User avatar

Joined: Thu Jan 25, 2007 3:33 pm
Posts: 4994
Залил рев. #6573

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

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

_________________
Через тернии к звездам


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 3 posts ] 

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited