Re: Blitz

[Rostislav Stenicka <rostsoft@mira.cz>]

On 30-Lis-97, Filip Doksansky wrote:
>Rostislav Stenicka wrote:
>> 
>> Cau
>> 
>> Mam takovej problemv Blitz Basicu, chci kazdou 50tinu sekundy prihrat
>> kousek dat z disku a porad se to hrouti.
>> Nevi nekdo kde je problem?
>> 
>> Screen 0,3
>> ScreensBitMap 0,0
>> BitMapOutput 0
>> 
>> InitBank 1,50000,1
>> 
>> NPrint BankSize (1)
>> 
>> a.l=Bank (1)
>> 
>> Print  a.l
>> 
>> Print OpenFile (1,"programy:sound10")
>> 
>> SetInt 5
>> If c=0 Then h=Hours:m=Mins:s=Secs:v=0
>> c=c+1
>> If c=40 Then WriteMem 1,a.l,44000
>> Locate 10,10
>> If c>49 Then cit=cit+1:NPrint "gol",c,"cit",cit:v=1:c=0
>> Locate 10,11
>> NPrint Hours,"  ",Mins,"  ",Secs,"  ",c
>> End SetInt
>> 
>> While jb<>2
>>   VWait
>>   jb=Joyb(0)
>>   If jb=1 Then Plot SMouseX,SMouseY,2
>> Wend
>> 
>> NPrint "Saving the screen...."
>> 
>> MouseWait
>> 
> Sice v Basicu nedelam, ale podle toho, co jsi tu dal za
>priklad bych rekl, ze ty data ukladas v interruptu (mam na mysli
>tu cast mezi"SetInt 5" a End SetInt), coz samozrejme nejde, protoze
>ta samotna fce WriteMem asi vyzaduje interrupt. Ja bych to udelal tak,
>ze bych v interruptu akorat nastavoval nejakej priznak, a v normalnim
>programu dycky otestoval jestli je nastavenej, pokud ano, ulozit, smazat
>priznak atakdale dokola. Je ovsem velice pravdepodobny, ze to 50x za
>vterinu
>proste nestihne, potom smula :-( Kazdopadne, k tve otazce: Pada to 
>jednoznacne tim, ze pouzivas WriteMem v interruptu !

Prikaz WriteMem sice uklada ale do ramky a cte z HDD ale ne 50x za sekundu
nybrz jednou za 50tiny sekundy.
A jde mi o to prehravat sampl z primo z disky, tal abych jeste mohl neco
delat.

>FiDo of INSANITY

-- 
       P O Z O R
mam novou adresu: rostsoft@mira.cz

Rostislav Stenicka
Malesov 157
okr. Kutna Hora
285 41
TEL:   0327-59 54 21
Do prace:0327-502 160

Pokud pouzivate KOI8
Rostislav ótÅniÃka
MaleÓov 157