PureBasic

Bonjour tous,

Toujours pour mes tests pour une application de gestion DMX-512, j'avais besoin d'avoir un temps BPM qui servira pour les animations alors j'ai fait ce petit source que je fait partager. Toujours ce source n'a aucune prétention.

Code : Tout sélectionner

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

DisableASM
EnableExplicit

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+
;- DECLARATION DES VARIABLES (SYSTEME).

;{ - CONSTANTES
#WinLenX      = 200
#WinLenY      = 160
;}
;{ - ENUMERATION
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Text_0
  #Text_1
  #Text_2
  #Text_3
  #String_0
EndEnumeration
;}
;{ - CONSTANTES GLOBALS
Global FontID1 = LoadFont(#PB_Any, "Century Gothic", 9, #PB_Font_HighQuality | #PB_Font_Bold)
Global FontID2 = LoadFont(#PB_Any, "Century Gothic", 12, #PB_Font_HighQuality | #PB_Font_Bold)
Global FontID3 = LoadFont(#PB_Any, "Century Gothic", 14, #PB_Font_HighQuality | #PB_Font_Bold)
;}

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

Procedure.f BPM_Time(value.l)
;
  If value > 0
    ProcedureReturn (60/value)
  EndIf

EndProcedure

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

Define i.l
Define event.l
Define eveng.l
Define value.l    = 120
Define Time.l     = ElapsedMilliseconds()
Define TimeOut.l  = BPM_Time(value) * 1000

Define hWnd.l = OpenWindow(#Window_0, 0, 0, #WinLenX, #WinLenY, "BPM", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
If hWnd <> 0
  TextGadget(#Text_0, 40, 80, 30, 30,  "", #PB_Text_Border)
  SetGadgetColor(#Text_0, #PB_Gadget_BackColor, $4A4A4A)
  TextGadget(#Text_1, 70, 80, 30, 30,  "", #PB_Text_Border)
  SetGadgetColor(#Text_1, #PB_Gadget_BackColor, $4A4A4A)
  TextGadget(#Text_2, 100, 80, 30, 30, "", #PB_Text_Border)
  SetGadgetColor(#Text_2, #PB_Gadget_BackColor, $4A4A4A)
  TextGadget(#Text_3, 130, 80, 30, 30, "", #PB_Text_Border)
  SetGadgetColor(#Text_3, #PB_Gadget_BackColor, $4A4A4A)
  StringGadget(#String_0, 40, 40, 120, 30, Str(value))
  SetGadgetFont(#String_0, FontID(FontID3))

  Repeat
    event   = WaitWindowEvent(50)
    eveng   = EventGadget()
    
    If event = #PB_Event_Gadget And eveng = #String_0
      TimeOut.l  = BPM_Time(Val(GetGadgetText(#String_0))) * 1000
    EndIf
    
    If ElapsedMilliseconds() - Time > TimeOut
      SetGadgetColor(#Text_0, #PB_Gadget_BackColor, $4A4A4A)
      SetGadgetColor(#Text_1, #PB_Gadget_BackColor, $4A4A4A)
      SetGadgetColor(#Text_2, #PB_Gadget_BackColor, $4A4A4A)
      SetGadgetColor(#Text_3, #PB_Gadget_BackColor, $4A4A4A)
      SetGadgetColor(i, #PB_Gadget_BackColor, $FF)
      i + 1
      If i>3
        i = 0
      EndIf
      Time = ElapsedMilliseconds()
    EndIf
  Until event = #PB_Event_CloseWindow
EndIf

Cordialement,
GallyHC

Sympa comme systeme

Ouaih!! rigolo

Encore tu me rappelle ma jeunesse

A cette epoque, un français avait créé les BPM computer
Je sais pas si j'avais pas vu un code qui permettait de faire pareil
En tout cas je l'avais créé sur ATARI

C'etait des petits boitiers fait maison, que l'on reliait a une SL1200 MK2
Il fallait une légère bidouille sous le plateau on passait le fil a travers la platine et hop y'avait un fil terminé par un jack 2.5
Tu branchait ce jack au petit boitier et c’était magique, même moi qu’était autant DJ que je suis programmeur

j'arrivais a mixer en fondu en quelques minutes

1/ Tu mettais le 1er vinyle , tu tapais avec ton doigt sur une surface sensible du BPM computer
2/ Des que tu arrêtais, ça calculait le BPM (Battement par minute)
3/ Tu notais ça sur le disque
4/ Tu te tapais toute la collection (Plusieurs milliers

)
5/ Mais après, tu posais le single 1 sur la platine 1, tu tapais la valeur du disque 1 sur le BPM computer 1
6/ tu posais le single 2 sur la platine 2, tu tapais la valeur du disque 2 sur le BPM computer 2
7/ Et la....t'avais une auréole au pantalon..............parce que la magie c’était que quand tu changeait le pitch de la SL1200, le BPM recalculait en live le nouveau BPM

8/ Il te restait plus qu'a ajuster les pitch de chaque platine pour qu'ils aient la même valeur
9/ Tu repérais une des basses du single a mixer, et tu la lâchait sur celle qui tournait en salle...

Il te restait plus qu'a mixer avec la table, ou même suprême jouissance.....laisser les deux titres pendant quelques secondes ensemble
Et parfois....c’était trop beau...ça m'apportait autant de bonheur que PB

Je crois de mémoire que ça coutait 2000 balles pièce...mais bon, j'm'etait saigné a bouffer des pattes pendant des années

Après le même constructeur a sorti le Beatbreaker 1 et 2
Alors la...c’était une autre limonade...un truc de ouf...une tuerie....
Le modèle 1 avait un mini sampler intégré qui te permettait de répéter des samples (Partie de musique) a gogo ou tu voulais, quand tu voulais.
Pour l’époque, c'etait révolutionnaire
Mais le 2...mammamia....l'truc de ouf
C'etait le même boitier que les BPM computer, mais relié a une interface cachée qui elle même etait relié a un sampler pro, le KORG SDD2000 de mémoire
Et la tu pouvais faire des tonnes de choses, créer tes propres programmes de "Sample repeat", en fait les serie de MaxMix 1,2,3, etc était créé avec ce genre de machine
J'ose pas te dire le prix qu'il vendaient ça, j'ai pris un croom sur plusieurs années

On est con quand on est jeune....remarque je suis toujours jeune

Encore un truc que j'ai dans mon placard, a coté de l'ATARI falcon que je voulais utiliser pour son sampling intégré

A l’époque c'etait trop de la balle, je m’éclate toujours a les écouter, y'avait des tueurs la dedans
Ecoute moi ça, mais c'est pas le meilleur, y'en a d'autres, mais je deviens vieux et j'me rappelle plus tout de cette partie de ma vie (J'ai deja du mal avec PB

), mais je les ai encore, plein de poussières sur une étagère :
http://www.youtube.com/watch?v=AhzRKjYw ... re=related
Et ça...qu'est ce que j'ai pu l'ecouter

http://www.youtube.com/watch?v=oVdrJJcE ... re=related

Et la non moins connue serie des Dance computer, dont voici la v4
http://www.youtube.com/watch?v=Mj1v0UeG ... re=related
Mais le 3.....trop de la balle..faut pas oublier d'eteindre..et mettre le son a donf !!!!!

http://www.youtube.com/watch?v=mKEAO66qSb4

Et aussi le raul mix, putain ce que j'ai pu perdre comme liquide la dessus

http://www.youtube.com/watch?v=1wnCwm6YXFA

Bon j'arrette..j'sent que j'vais encore gonfler le monde..avec mes "souviendres"

ah ben tiens justement concernant max mix as tu vu celle ci

http://www.youtube.com/watch?feature=pl ... wLrhgWR24s

très intéressant a partir de 3:36

Ouaaahhh !! ou t'as trouvé ça CASE !!!

DjKcc a écrit :en fait les serie de MaxMix 1,2,3, etc était créé avec ce genre de machine

J'avais raison, c’était vraiment ce genre de machine, de la même famille, mais apparemment en plus balaise

Les sampler c’était des vrais, qui devait surement pouvoir tenir plusieurs dizaines de secondes, peut être minutes...
La Korg SDD2000 tenait pas longtemps, j'm'en souviens plus, mais s’était en seconde, remarque pour les "Loop" ça suffisait

Par contre, j'ai été surpris qu'il jouaient de la lame de rasoir

En fait, ils étaient moins équipé que moi

parce qu'avec le beatbreaker tu faisait ça en quelques secondes.
Remarque peut être que c’était un peu plus vieux, mais le coup du magneto bande a lancement rapide et la lame de cutter..je savais pas, merci

Par contre, t'as reconnu le super ATARI pour piloter entre autre un des plus grand logiciel de séquenceur du moment, je crois que l'on aperçois PRO24 de steinberg, l'autre je le connais pas

ATARI, c’était le roi du midi a l’époque, j'en ai même vu au concert de Jm Jarre a LYON, quand j'avais pu aller derrière la scène

Trop cool ton lien commence par un des titres que j'adore le plus, bizzare inc (Playing with knife)
http://www.youtube.com/watch?v=cw1vd9o1uM0
J'ai tout une histoire a propos de ce maxi import
J'ai la version import d'une des plus grande discothèque de LYON, mais quand je dit "la" c'est le disque, car il m'a été offert directement de la main du DJ du moment.
J'm'etait fait pote avec lui, c'est aussi lui qui m'a donné des combines de mix, ainsi que le DJ d'une autre boite que j'avais en copain
T'y crois pas on etait a l'armée ensemble a courir dans la boue

En ce temps la je ne connaissais que mireille mathieu et milles colombe, Sylvie vartan, sardou, etc..
En fin de compte ça a fait comme avec vous tous, je croyais etre bon, et j'ai rencontré le talent

En quelques minutes j'ai débandé, et il m'a montré ce qu'on faisait avec une platine, les cuts, mixs, etc...
J'ai pris la baffe de ma vie comme avec PB, et de ce jours la je m'en suis jamais remis, j'ai essayé d'apprendre seul dans mon coins a coups de 10zaines d'heure de travail, et c'est comme ça que je suis devenu.....................rien comme pour PB

En ce temps la, la régie de la discotheque de mon copain le DJ, sortait du sol, c’était la période d'autres imports de la mort, je les achetais tous, j’étais tous les WE en boite avec certains DJ a sniffer les titres du moment et je me fournissais dans le même magasin d'import.
Je passais toute la nuit, a le regarder mixer, il aurait surement préféré une blonde a forte poitrine..et ben il avait KCC comme fan !!!

Je me servais aussi en matos son et lumiere au meme endroit que les grands, c'est comme ça que je connaissais du monde dans la partie, et que je recevais des invites, aux soirées evenementielles.
J'ai meme pu entrer une camera a une soirée de presentation du plus gros laser de l'epoque, refroidi par eau, c'etait au xyphos complex de lyon...quand je revois cette video..j'en ai encore les frissons dans le dos.
T'imagine sur la video le DJ mixais le dormeur doit se reveiller....de pleasure game

C'est comme ça que j’étais le plus fier du monde a avoir eu le premier sur LYON, même avant toutes les boites, enfin je crois, hors mis peut etre si elle avait reçu le titre en cadeau, mais j'en doute.
Un titre..... c'etait l'ultissime SNAP rhythm is a dancer :
http://www.dailymotion.com/video/x20f0b ... ncer_music
J’étais encore plus fier que quand j'ai mis le nez la ou fallait pas a une fille pour la première fois
Moi le DJ le moins rapide de l'ouest avoir battu les boites sur leur propre terrain...ça a duré que deux jours, mais deux jours ou j'ai du giclé toutes les 3 minutes

J'allais acheter mes disques de 70 a 100 balles pièces le mercredi et les DJ en principe le samedi....j'm'en tripote encore

Dans ta vidéo, j'ai aussi reconnu, quand les meufes dansent en discothèque DJ Pierre - Get On The Floor, c'etait aussi un de mes préféré, ce DJ Pierre un tueur des disques italiens de mix
http://www.youtube.com/watch?v=H9fVSG4L5m0
Il me semble aussi avoir entendu DJH...put...qu'est ce que c'est loin tout ça
Tous ces disques sont encore sur mon etagere pleine de poussiere

Temps en temps je les sorts...et je pleure

La sono, c'est une de mes plus grandes passions, j'en parle plus depuis des années et tous mon matos est dans des malles.
Alors ça fait du bien..de le faire un peu..j'aurais des milliers de choses a dire, tu pense en plus de 10 ans...
Mais bon, si tu passes par ma région...j't'invite.....et j'te saoule

Bonjour tous,

J'ai ajouter ce petit source à mon site, si cela interresse quelqu'un

http://koakdesign.info/news/?url=4d&val=39

Cordialement,
GallyHC

Bah moi, pour ma collection

Merci beaucoup

J'me repete, mais a chaque fois que je vais sur ton site j'le trouve beau

Tiens c'est rigolo, parce que cette fois j'suis chez moi et la barre de menu est bien casée, et j'me suis rendu compte que j'etais sous firefox, alors j'ai testé sous IE7 et ça recommence, donc je pense que tu avais raison

merci gally, sympatoche ton source, et désolé pour le HS avec KCC ,)

question pour ton soft de contrôle dmx tu compte utiliser quelle interface dmx?

j'dis ca car je me tâte a en acheter une pour contrôler mon matos a la place de mon répartiteur électrique... et aussi plus simple a câbler.

bonjour,

je verrais avec le matos de certain lighteux (la je voudris deja le faire avec un boitier velleman VM116 et USB-DMX V3). Pour le prix un boitier velleman coute moin de 100€ et l'autre c'est 140€ (ou a faire soit même).

les infos :
http://www.velleman.eu/products/view/?id=353412
http://www.dmx512-online.net/fr-article27.html

après il y en a pas mal d'autre comme sunlite, dashlight, ect... mais la les prix sont tout autre. J'espere avoir bien repondu a ta question. Sinon je voudrais en integre le plus possible par la suite.

Cordialement,
GallyHC

PureBasic

Avoir un temps de BPM visiblement

Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement

Re: Avoir un temps de BPM visiblement