DarkBASIC Pro Versão de Avaliação Patch 5.7 USB Dongle Forum Indique   Lista de Email Diário Antigo Outros Produtos Cartography Shop DarkMatter Local DBPro Sites Italy UK

Visualizador de Código Fonte Este é o código fonte de  "3D Video". Cor: Verde   Laranja   Branco   Tam. Fonte: Padrão   Grande ` This code is copyright Dark Basic Software Limited 2002 Rem Project: 3DVideo Rem Created: 10/08/2002 07:03:30 rem Hours: 4 rem Init sync on : sync rate 0 : hide mouse rem Switch display mode if available if check display mode(1024,768,32)=1 then set display mode 1024,768,32 rem Set default screen color backdrop rgb(0,32,32) set text font "Verdana" ink rgb(0,255,0),0 set text to bold set text size 20 rem Load animation load animation "7clicks.wmv",1 rem Direct animation to texture play animation to image 1,1,0,0,320,240 stop animation 1 rem Create 3D projection for p=1 to 3 make object plain p,320,240 scale object p,p*250,p*250,p*250 if p>1 then ghost object on p,2 texture object p,1 next p set object light 1,0 rem Setup camera position camera 0,0,-700 rotate camera 0,0,0 rem Load sound load sound "type.wav",1 : set sound volume 1,80 : set sound speed 1,44000 load sound "type.wav",2 : set sound volume 2,80 : set sound speed 2,44000 rem Text data dim htext$(5) rem Main loop begin=1 while mouseclick()=0 rem Begin animation and narration if begin=1 begin=0 restore stop animation 1 loop animation 1 narstage=0 : pause=0 : text$="" for h=1 to 5 : htext$(h)="" : next h time=timer() endif rem Move projection around for p=1 to 3 a#=wrapvalue(a#+1.0) position object p,cos(a#)*20,sin(a#)*10,p*75 yrotate object p,cos(a#)*20 zrotate object p,(p-1)*10 next p rem Teletype seconds=timer()-time inc pause if pause>=0 pause=0 if narstage=0 read triggersec read leaper narstage=1 endif if narstage=1 if seconds>=triggersec then narstage=2 endif if narstage=2 read nar$ if nar$="*" then end narstage=3 nari=1 endif if narstage=3 for r=1 to leaper if nari<=len(nar$) a$=mid$(nar$,nari) text$=text$+upper$(a$) if sound playing(1)=0 then play sound 1 if sound playing(2)=0 then play sound 2 inc nari endif next r if nari>len(nar$) for h=5 to 2 step -1 htext$(h)=htext$(h-1) next h htext$(1)=text$ narstage=0 text$="" endif endif endif basey=screen height()-40 for h=1 to 5 text 32,basey-(h*16),htext$(h) next h text 32,basey,text$ rem Update screen sync rem End loop endwhile rem Narration: data 1500,1,"Let me show you how to create your very own" data 1500,1,"computer program in seven clicks." data 8500,2,"This is nothing original as we have done this" data 8500,1,"type of software before." data 12250,1,"What is original is that I can do this in seven" data 12250,1,"clicks and it's a programming language!" data 18750,2,"And by the way clicks to do include keyboard" data 20000,1,"presses - subclause 1(one)." data 25000,2,"First thing we do is load the software." data 30500,2,"That was two clicks." data 32750,1,"The third click is here and the forth click" data 32750,2,"is here." data 38000,1,"Now we type out a name." data 43000,1,"The fifth click is here." data 47500,1,"The sixth click is there, where we type out" data 47500,1,"a very simple program." data 55000,1,"And the seventh and final click is the click" data 55000,1,"to compile and run the program." data 61000,1,"Click!" data 64000,1,"And there you go." data 65000,2,"Hello world, two lines of code." data 67500,1,"Very simple." data 68500,1,"And all done in just seven clicks!" data 71500,1,"" data 71500,1,"*" Selecionar todo o código Ver este Download

Copyright © 2003 Dark Basic Software Limited.
Virtual Object Informática Ltda.®