Fabriquer sa Resistor Color

 

 

Les Electroniciens.com

Réseau de Développeurs en Electronique
http://les-electroniciens.com/forums/fabriquer-resistor-color-wheel-sur-robivescom



http://www.instructables.com/id/Resistor-Color-Wheel/step3/null/

 En modifiant un programme de "papydall  forum Panoramic "
 voici une application de gestion de temps  pour "Panoramic"
  temps entre  " Click "

code

' ###################################################
' Attention panoramique ne gère qu'une seule dll à la fois
' ###################################################
 width 0,200:height 0,150:color 0,200,180,150
 top 0,(screen_y-height(0))/2 :left 0,(screen_x-width(0))/2
 label sp_Click
 dim t% , tickCount%
caption 0,"ges.temps"
 button 1 :left 1,50:top 1,50:caption 1,"Click"
 alpha 2 :left 2,50:top 2,25
 on_click 1,sp_Click
' ====
  end
' ====
sp_Click:
          dll_on "kernel32.dll"
               tickCount% = dll_call0("GetTickCount")
               caption 2, str$(tickCount%-t%)
               t%=tickCount%
          dll_off
return
' ###################################################