je les avaient joint a mon archive , parceque je ne savais pas s'il fallait qu'elles y soit toutesAr-S a écrit :Et concernant l'utilité de fmodexp.dll et fmodexL.dll ?
heu , cela signifie qu'on ne peut pas faire un jeu sous seven ??Ar-S a écrit :
Essaye de compiler pure radio en désactivant l'openscreen et le scroll.
Code : Tout sélectionner
Enumeration
#font
#window
EndEnumeration
; ***** variables a OLIV ondulation *********
; Variables
Global yo.F = EcranY/2
;vitesses de départ
Global vxo.F = 2
Global vyo.F = -45
Global Paso.F=0.2
#HauteurSin = 25 ; Coef qui joue sur la hauteur de la sinusoide
#LargeurSin = 50 ; Coef qui joue sur la largeur de la sinusoide
#VitesseAngle = 1 * #PI / 50 ; vitesse de modification de l'angle de départ du texte
Global angleo.F, FontID , long_text_bas ,Texte.s, longueur_texte
LoadFont(#font,"Comic Sans MS",12)
; ***************************************************
Procedure Ondulation(xo,yo,Texte.s,ro,vo,bo)
; procedure realisé par OLIV
StartDrawing ( ScreenOutput ()) ; Pour pouvoir utiliser les commandes des dessin 2D.
DrawingMode ( #PB_2DDrawing_Transparent ) ; On selectionne le mode pour ne pas avoir de fond derrière les lettres.
FrontColor ( RGB (ro,vo,bo) ) ; On change la couleur.
DrawingFont ( FontID (#font)) ; On change la police
angleo + #VitesseAngle ; Angle de départ de la sinusoide en radian
If angleo >= 2 * #PI
angleo = 0
EndIf
; On affiche toute les lettres
posx = 10 ; Position du caractère
For n = 1 To Len (Texte) ; Pour chaque lettre du texte
Lettre.s = Mid (Texte, n, 1) ; on récupère la lettre à la position n
posy = 5 + #HauteurSin * Sin (angleo + posx / #LargeurSin ) ; on calcul la position en Y de la lettre
; On part du centre de l'image (50) puis on ajoute un sin
; #HauteurSin fait varier l'amplitude du mouvement
; l'angle mis dans le sinus est d'abord composé de l'angle de départ d'affichage du texte (Angle)
; puis on augmente l'angle au fur et à mesure que l'on affiche des lettres avec le coefficient #LargeurSin qui permet de faire varier la largeur de la sinusoide
DrawText (xo+posx, yo+posy,Lettre)
posx + TextWidth (Lettre)
Next
StopDrawing () ; On signifie que l'on arrête les fonctions dessin 2D.
EndProcedure
ExamineDesktops()
EcranX=DesktopWidth(0)
EcranY=DesktopHeight(0)
InitSprite()
OpenWindow(#window,1,1,EcranX,EcranY,"scroll text")
OpenWindowedScreen (WindowID(#window),1,1,EcranX,EcranY,1,0,0)
Repeat
Event= WaitWindowEvent(2)
Texte.s="Pure-Radio By Dobro"
xo=xo-1
If xo<0
xo=EcranX
EndIf
yo=EcranY/2
Ondulation(xo,yo,Texte.s,255,0,255)
FlipBuffers()
ClearScreen(0)
Until Event=#PB_Event_CloseWindow
en fait , j'avais commencé mon prg en donnant cette possibilité au départParole De JOJO a écrit :hi dobro
ce serait sympa de pouvoir rajouter des stations radio
tu pourrais faire une possibilite comme ca?
ce n'est peut être pas de sa faute, car maintenant beaucoup de marque de portable ne mettent plusj'ai deja du répondre a un gars, qui ne sais pas comment activer le "Mix Stereo" de sa carte sons , sous seven
car c'est le "Micro interne" qui est defini par defaut...
Si des p'tits cons n'avaient pas téléchargé des musiques pour les revendre pendant des années, la loi Hadopi n'existerai pas.Dobro a écrit :oui ; je sais bien
Surement une consequence d'Hadopi
Liberté , egalité , qu'ils disaient ....
les portable Asus ont encore cette possibilitée
pas d'accords !!Chris a écrit :Si des p'tits cons n'avaient pas téléchargé des musiques pour les revendre pendant des années, la loi Hadopi n'existerai pas.Dobro a écrit :oui ; je sais bien
Surement une consequence d'Hadopi
Liberté , egalité , qu'ils disaient ....
les portable Asus ont encore cette possibilitée
C'est leur faute.
Coupons les c.... des p'tits cons
