SmallNet Programing

SmallNet, Programing, se enfoca en la producci�n de diversos productos, entre los cuales van desde: animaciones, gesti�n empresarial, juegos, rrecorridos virtuales, etc. Cada uno de estos segmentos son cubiertos en funci�n a la necesidad que cada uno de ellos, por ejemplo para resolver un problema empresarial, se utilizara una herramienta como Visual Studio, para desarrollar una animaci�n sencilla, basado en el seno y coseno por asi decirlo, se utilizara un engine 3d; todos los requerimientos se pueden cumplir mas o menos utilizando cualquier herramienta que soporte programaci�n, en funci�n a las carater�sticas propias de cada uno.

Para el programador no es suficiente haber concluido un proyecto, sino recrearlo, reproducido en otras plataformas, para que el producto tenga mas alcance y popularidad, lo extraordinario es la incorporaci�n de estos trabajos a la sociedad y por ende a los usuarios, que cada vez son mas exigentes. De esta manera desarrollar acorde a los estandares y tendencias actuales del mercado siempre sera nuestro objetivo.

Rockola en Blitz Basic. (beta 01/04/06)

Este codigo esta a�n en desarrollo. Lo que se pretende hacer, es un sistema que permita funcionar como una Video Rockola, utilizando las caracteristicas 3d de Blitz.

;SmallNet 2006 Include "start.bb" Global ele,x,y,angle Global posY Global invideo Global mindex Global R,G,B Global spacing Global vlista Global fnd Global pos Global stv Global minlist,maxlist,p,n,restar,q,h,lcount Global fntH,fntF,fntl,fntlb ;AmbientLight 127,127,127 AmbientLight 200,200,220 invideo=False fntH=LoadFont("Bauhaus Md BT",50,True,False,False);n,c,s fntF=LoadFont("Bauhaus Md BT",30,True,False,False);fecha fntl=LoadFont("Arial",30,True,False,False) fntlb=LoadFont("Samba is Dead",37,False,False,False) a=0 vel=1 posY=0 mindex=0 R=255 G=255 B=0 spacing=30 vlista=5 ;default ;vlista=3 maxlist=6 minlist=0 n=maxlist Const segs=128,width#=4,depth#=.125 mesh=CreateMesh() surf=CreateSurface( mesh ) For k=0 To segs xf#=Float(k)*width/segs-width/2 uf#=Float(k)/segs AddVertex surf,xf,1,0,uf,0 AddVertex surf,xf,-1,0,uf,1 Next For k=0 To segs-1 AddTriangle surf,k*2,k*2+2,k*2+3 AddTriangle surf,k*2,k*2+3,k*2+1 Next brs=LoadBrush( "123654.jpg" ) PaintSurface surf,brs click=LoadSound("sound3.mp3") ;fnd=LoadImage("fn.JPG") bkgd=CreateMesh() s=CreateSurface(bkgd) AddVertex s,+1,+1,+1,0,0:AddVertex s,-1,+1,+1,1,0 AddVertex s,-1,-1,+1,1,1:AddVertex s,+1,-1,+1,0,1 AddTriangle s,0,1,2:AddTriangle s,0,2,3 ScaleMesh bkgd,105,77,100;225,225,225 EntityFX bkgd,1 FlipMesh bkgd EntityOrder bkgd,10 tex2=LoadTexture("fn.JPG") EntityTexture bkgd,tex2 pivot=CreatePivot() cam=CreateCamera( pivot ) PositionEntity cam,0,0,-1.5 filein = ReadFile("mydata2.txt") While Not Eof(filein) ReadLine$(filein) lcount=lcount+1 Wend CloseFile( filein ) ;cargando vector Dim lista$(lcount) filein = ReadFile("mydata2.txt") For i=0 To lcount-1 lista$(i)=ReadLine$( filein ) Next CloseFile( filein ) ;fin de carga de vector While Not KeyHit(1) ph#=MilliSecs()/4 cnt=CountVertices(surf)-1 For k=0 To cnt xf#=VertexX(surf,k) yf#=VertexY(surf,k) zf#=Sin(ph+xf*300)*depth VertexCoords surf,k,xf,yf,zf Next UpdateNormals mesh UpdateWorld RenderWorld ;DrawImage fnd,0,0 If invideo=True ;Cls ; clear the screen DrawMovie movie,x,y,w,h stv=MoviePlaying(movie) EndIf Text 470,557,"video:" + stv If KeyDown(200);arriba If sDelay=vlista If mindex>0 mindex=mindex-spacing EndIf If pos>0 Then pos=pos-1 If pos<a Then a=a-1 n=n-1 EndIf sDelay=0 PlaySound (click) EndIf sDelay=sDelay+1 EndIf If KeyDown(208);abajo If sDelay=vlista If mindex<maxlist*spacing mindex=mindex+spacing EndIf If n<(lcount-1) Then pos=pos+1 If pos>(n-restar) Then n=n+1 a=a+1 EndIf PlaySound (click) EndIf sDelay=0 EndIf sDelay=sDelay+1 EndIf For q=a To n eddy(Left$(lista$(q),Abs(Len(lista$(q))-4)),(spacing*(q-restar)),R,G,B) If q>=maxlist Then restar=n-maxlist EndIf Next If KeyHit(28);enter ;movie=OpenMovie("logo_rockola.gif") movie=OpenMovie("J:\rbd\" + lista$((mindex/30)+restar)) ; check to see if it loaded okay If movie=0 Then RuntimeError "Error - Movie not loaded!" If Not(MoviePlaying(movie)) Then RuntimeError "Error - Movie not playing!" w=800 ; the width of the movie h=600 ; the height of the movie x=0 y=0 ;period=100 ; the interval between frames ;time=MilliSecs() ; the time of the last frame update invideo=True EndIf SetFont fntH Color 255,255,0 Text 92,100,CurrentTime$() SetFont fntF Color 255,255,255 Text 100,137,CurrentDate$() SetFont fntlb Color Rand(255),255,Rand(255) Text 80,557,"INSERT COIN" If KeyDown(26) TurnEntity cam,0,1,0 If KeyDown(27) TurnEntity cam,0,-1,0 If KeyDown(30) MoveEntity cam,0,0,.1 If KeyDown(44) MoveEntity cam,0,0,-.1 If KeyDown(203) TurnEntity mesh,0,1,0,True If KeyDown(205) TurnEntity mesh,0,-1,0,True If KeyDown(200) TurnEntity mesh,1,0,0,True If KeyDown(208) TurnEntity mesh,-1,0,0,True Flip Wend CloseMovie(movie) End Function eddy(Texto$,posY,iRed,iGreen,iBlue) If mindex=posY Then Color (255),0,0 ;Color Rand(255),0,0 Else Color iRed,iGreen,iBlue EndIf SetFont fntl Text 140,posY+300,Texto$ End Function

La lista de los temas es un archivo.txt, que es generado con un programa hecho en VB.

Esta lista es cargada a un vector.

Para desplazarse por la lista se usan las teclas cursor, y para ver el video la tecla Enter.

Descarga los archivos

Esperamos concluir muy pronto este programa, se aceptan sugerencias de todo tipo a: [email protected] Las mejoras o cambios se pondran en esta pagina constantemente.

La variable stv indica si el video se esta reproduciendo.

Hosted by www.Geocities.ws