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
' ###################################################
Aucun commentaire:
Enregistrer un commentaire