KGF_dll - nouvelles versions

Désolé klaus mais ton archive est toujours endommagée !

Bonsoir à tous !

Je viens de télécharger et installer KGF du lien http://klauspanoramic.esy.es/versions/KGF.zip.

Pas de problème pour moi.

@Minibug:
As-tu essayé le site, le site miroir et le WebDav ? La DLL est à jour sur les 3 sites.

EDIT

Je viens de télécharger ma DLL sur mon site. j'ai décompressé de ZIP, sans problème. J'ai fait une comparaison binaire entre la DLL téléchargée et celle que j'ai en développement - elles sont identiques.

Alors, je dois en conclure que le problème vient de ton côté - pas d'autre explication, malheureusement.

J'ai téléchargé de nouveau et maintenant tout fonctionne !

Mystère dans mon PC ?!

Merci Klaus Wink

Je viens de mettre en place, à 0h06 ce lundi 18/12/2017, une nouvelle version de KGF.dll (sans changement de numéro de version !).

Cette version apporte une amélioration de la fonction InitSpeakerControl. Dans le programme Radio FM publié ci-dessus, le VuMeter pour le canal de gauche bouge maintenant ! Je cherche à débloquer le canal de droite...

Pour rappel, voici le code:

Code:: Dim Station$,url$,Frequence%,Q%,LeftD% ,res%,WB%
Dim Volume%,GaucheVol%,DroitVol%,Min_Track5%,Max_Track5%,Hnd_Dll%
DIM TotalVol%
dim VUL%, VUT%, VUR%

Label Choix,Plus,Moin,Lecture,Etein
Label NiveauSon
label ChangeVolume, ChangeMute

Color 0,0,0,0
Height 0,180
Width 0,530
Caption 0,"Radio FM"
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein

' resize off form 0
If File_exists("D:\Programmation\Projet Panoramic\poste radio\form.dll")=1
Dll_On "D:\Programmation\Projet Panoramic\poste radio\form.dll"
res% = DLL_CALL2("SetSize",HANDLE(0),0)
Width 0,531
Dll_Off
End_if

' création browser
' Dll_On "D:\Programmation\Projet Panoramic\poste radio\kgf.dll"
Dll_On "kgf.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)

Alpha 1
Left 1,200

' liste des stations
List 2
Top 2,40
Left 2,260
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
' File_Load 2,"D:\Programmation\Projet Panoramic\poste radio\stations.txt"
File_Load 2,"stations.txt"
On_Click 2,Choix
Alpha 3
Left 3,260 : Top 3,20
Caption 3,"Stations:"

Check 7 : top 7,87
left 7,5
Track_Bar 5
Left 5,20: Top 5,85
Width 5,222: Height 5,26
Min 5,0 : Max 5,65535
On_Change 5,NiveauSon
Progress_Bar 6
Left 6,20: Top 6,120
Width 6,222: Height 6,10

' Tableau FREQUENCE
Container 10
Caption 10,"FREQUENCE"
Left 10,20 :Top 10,20
Width 10,200 : Height 10,52
Hide 10

LeftD%=-10
For Q%=11 to 16
LeftD%=LeftD%+30
DIGIT1 Q%
Parent Q%,10
Top Q%,15
Width Q%,20
Height Q%,34
Left Q%,LeftD%
Color Q%,0,255,0
Caption Q%,""
Next Q%
Show 10

Button 20
Left 20,221 : Top 20,28
Width 20,21 : Height 20,21
Font_Size 20,16
Font_Bold 20
Caption 20,"+"
On_Click 20,Plus

Button 30
Left 30,221 : Top 30,52
Width 30,21 : Height 30,21
Font_Size 30,20
Font_Bold 30
Caption 30,"-"
On_Click 30,Moin

Frequence%=0

On_User_Event ChangeVolume
res% = dll_call0("CreateMasterVolume")
TotalVol% = dll_call0("GetMasterVolume")
position 5,TotalVol%
res% = dll_call0("GetMasterMute")
if res%=0 then mark_on 7
on_click 7,ChangeMute

form 1000 : caption 1000,"VuMeters" : left 1000,left(0)+width(0) : top 1000,top(0)
width 1000,650 : height 1000,250
res% = dll_call1("CreateAutoUpdater",100)

VUL% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUL%,0,0,200,200)
res% = dll_call3("SetVuMeterLimits",VUL%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUL%,0)

VUT% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUT%,200,20,200,200)
res% = dll_call3("SetVuMeterLimits",VUT%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUT%,2)

VUR% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUR%,400,0,200,200)
res% = dll_call3("SetVuMeterLimits",VUR%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUR%,1)

res% = dll_call4("InitSpeakerControl",100,adr(GaucheVol%),adr(DroitVol%),adr(Volume%))
res% = dll_call2("AutoUpdate",VUL%,adr(GaucheVol%))
res% = dll_call2("AutoUpdate",VUT%,adr(Volume%))
res% = dll_call2("AutoUpdate",VUR%,adr(DroitVol%))

End

' changement du volume dans le panneau du mixeur Windows
ChangeVolume:
if User_Event_WParam=hex("06020000") then position 5,User_Event_LParam
if User_Event_WParam=hex("06010000")
if User_Event_LParam=0
Mark_On 7
else
Mark_Off 7
end_if
end_if
return

' changement de l'état actif/muet du haut-parleur
ChangeMute:
if checked(7)=1
res% = dll_call1("SetMasterMute",0)
else
res% = dll_call1("SetMasterMute",1)
end_if
return

' selection des fréquences + ou -
Plus:
Set_Focus 10
Frequence%=Frequence%+1
If Frequence%=>42 Then Frequence%=1
Item_Select 2,Frequence%
Gosub Choix
Return

Moin:
Set_Focus 10
Frequence%=Frequence%-1
If Frequence%=<0 Then Frequence%=42
Item_Select 2,Frequence%
Gosub Choix
Return

' selection des stations
Choix:
Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""

If Clicked(2)=1 Then Frequence%=Item_Index(2)
Select Frequence%
Case 1 : Station$="France-Inter"
Caption 13,"8" : Caption 14,"7" : Caption 15,"-" : Caption 16,"8" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-inter/"
Case 2 : Station$="Générations"
Caption 13,"8" : Caption 14,"8" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/generations/"
Case 3 : Station$="Nostalgie"
Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/nostalgie/"
Case 4 : Station$="Chante-France"
Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"9" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/chante-france/"
Case 5 : Station$="Contact-Fm"
Caption 13,"9" : Caption 14,"1" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/contact-fm/"
Case 6 : Station$="Cherie-Fm"
Caption 12,"9" : Caption 13,"1." : Caption 14,"7" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/cherie/"
Case 7 : Station$="France-Musique"
Caption 12,"9" : Caption 13,"2." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-musique/"
Case 8 : Station$="France-culture"
Caption 12,"9" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-culture/"
Case 9 : Station$="Orient-Fm"
Caption 12,"9" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/orient/"
Case 10 : Station$="Galaxie FM France"
Caption 12,"9" : Caption 13,"5." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/galaxie/"
Case 11 : Station$="Puls Radio"
Caption 12,"9" : Caption 13,"5." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/puls/"
Case 12 : Station$="Jazz"
Caption 12,"9" : Caption 13,"5." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/jazz/"
Case 13 : Station$="Skyrock"
Caption 12,"9" : Caption 13,"6." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/skyrock/"
Case 14 : Station$="Voltage"
Caption 12,"9" : Caption 13,"6." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/voltage/"
Case 15 : Station$="Rire et chanson"
Caption 12,"9" : Caption 13,"7." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rire-et-chanson/"
Case 16 : Station$="Metropolys"
Caption 12,"9" : Caption 13,"7." : Caption 14,"6" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/metropolys/"
Case 17 : Station$="FG DJ Radio"
Caption 12,"9" : Caption 13,"8." : Caption 14,"2" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fg-dj/"
Case 18 : Station$="Vibration FM"
Caption 12,"9" : Caption 13,"8." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/vibration/"
Case 19 : Station$="Latina"
Caption 12,"9" : Caption 13,"9." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/latina/"
Case 20 : Station$="France Maghreb 2 France"
Caption 12,"9" : Caption 13,"9." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/maghreb-2/"
Case 21 : Station$="NRJ"
Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/nrj-france/"
Case 22 : Station$="Alouette France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/alouette/"
Case 23 : Station$="Fun Radio"
Caption 11,"1" : Caption 12,"0" : Caption 13,"1." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fun/"
Case 24 : Station$="Oui FM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$=""
Case 25 : Station$="MFM Radio France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/mfm/"
Case 26 : Station$="Gold FM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/gold-fm/"
Case 27 : Station$="Virgin"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/virgin/"
Case 28 : Station$="RFM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rfm/"
Case 29 : Station$="Hit West France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/hit-west/"
Case 30 : Station$="RTL"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rtl/"
Case 31 : Station$="Europe 1"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/europe/"
Case 32 : Station$="Radio FIP"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fip/"
Case 33 : Station$="France-Info"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-info/"
Case 34 : Station$="RTL2"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rtl2/"
Case 35 : Station$="Beur FM France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"6." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/beur/"
Case 36 : Station$="France-Bleu"
Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-bleu/"
Case 37 : Station$="RFI France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rfi/"
Case 38 : Station$="Radio Meuh France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/meuh/"
Case 39 : Station$="Enjoy Radio"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/enjoy/"
Case 40 : Station$="La Grosse Radio France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"3" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/la-grosse/"
Case 41 : Station$="Africa-1-France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/africa-1-france/"
Case 42 : Station$="Swigg Radio"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"5" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/ado/"
End_Select
gosub Lecture
Return

Lecture:
res% = dll_call2("WB_Url",WB%,adr(url$))
NiveauSon()
Return

' / GESTIONS DU VOLUME /
***********************************************************
NiveauSon:
TotalVol%=position(5)
If TotalVol%<0 Then TotalVol%=0
If TotalVol%>65535 Then TotalVol%=65535
res% = dll_call1("SetMasterVolume",TotalVol%)
Return

Sub NiveauSon()
' RECUPERE LE NIVEAU ACTUEL DU SON
TotalVol% = dll_call0("GetMasterVolume")
position 5,TotalVol%
End_Sub

************************************************************

Etein:
res% = dll_call0("DeleteMasterVolume")
res% = dll_call1("WB_Delete",WB%)
Dll_Off
Terminate
Return

Je viens de tester et ça fonctionne ! cheers

Par contre je trouve que le vue mètre n'est pas " très réactif ".
Crois tu qu'il serait possible de rafraîchir l'affichage de l'aiguille pour avoir un mouvement plus fluide ?

Oui, bien sûr !

1. Dans le programme Panoramic, ligne 112: le timer est fixé à 100 millisecondes. On peut améliorer, mais pour le moment, ça ne sert à rien, car dans la fonction InitSpeakerControl en ligne 129, il y ain timer interne fixé à 200 milisecondes.

2. attendre une version plus "aboutie" qui viendra dès que j'aurai résolu le problème du canal droit. En attendant, je garde ce délai de 200 millisecondes, afin d'éviter un blocage du programme. Mais je rendrai ce timer programmable, tout comme l'est actuellement celui de CreateAutoUpdater.

N'oublie pas qu'il sagit d'une version de travail (le canal gauche manque encore, et il n'y a pas encore de documentation pour InitSpeakerControl qui risque de changer.

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bjr klaus
chez moi j'ai une erreur à la ligne 102
"erreur de fonction" expression arithmétique non correct
avec la derniere demo que tu as posté

c'est dommage parce que a ma version du poste que j'ai créer
un progress_bar

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

oups ça marcherai mieux si je prend la peine de téléchargé kgf Razz

la fonction KGFupdate a planté.

J' ai bien eu le téléchargement de tout dans mon dossier "C:\KGF"
mais le fichier zip n' est pas valide.
Du moins c' est le message que j' ai quand j' essai de l' ouvrir après avoir fermer la fenêtre DOS qui était resté ouverte avec plein de message disant que rien n' allait.

Je vais reprendre la dll sur le webdav.

Peut être encore un coup de Microsoft et de sa dernière version de W10 ?... scratch

Quelle est l'URL sur laquelle tu télécharges ?

J' avais la version 812 de KGF.dll et j' ai utilisé sa fonction "KGFupdate".
Donc l' URL associée dans la dll...
Laughing

J' ai repris la dll sur le webdav mais comme c' est la dernière version
ma procédure n' est plus prise en compte.

Code:: sub constantes()
dim_local i%

dim Kgf$ : Kgf$="C:\KGF\KGF.dll"
dim KgfMini% : KgfMini%=814

dim Mm% : no%=no%+1 : Mm%=no%
dim Sm%(50) : for i%=1 to 50 : no%=no%+1 : Sm%(i%)=no% : next i%
end_sub

sub KGF_UpDating()
dim_local vers%,vers$,mess$(6),res%

mess$(1)="Ce programme nécessite KGF.dll"
mess$(2)="Si vous n' installez pas KGF.dll, ce programme se fermera."
mess$(3)="Voulez vous installer KGF.dll ?"
mess$(5)="Si vous ne mettez pas KGF.dll à jour, ce programme se fermera."
mess$(6)="Voulez vous mettre à jour KGF.dll ?"

if dir_exists("C:\KGF\")=0
if message_warning_yes_no( mess$(1)+chr$(13)+mess$(2)+chr$(13)+mess$(3))=1
dir_make "C:\KGF\"
res% = DLL_call0("KGFupdate")
else
terminate
end_if
else
if file_exists("C:\KGF\KGF.dll")=1
dll_on Kgf$
vers$=string$(25," ")
vers% = DLL_call1("KGFdllVersion", adr(vers$))
if Vers%<KgfMini%
mess$(4)="Votre version : "+vers$+chr$(13)+"doit être mise à jour."
if message_warning_yes_no( mess$(4)+chr$(13)+mess$(5)+chr$(13)+mess$(6))=1
res% = DLL_call0("KGFupdate")
else
terminate
end_if
end_if
end_if
end_if
end_sub

Je vois. J'avais codé 2 adresses URL différentes, et les deux adresses ne sont plus valides. Je vais corriger cela.

Ok Klaus, merci pour ta réactivité.

Je me remets un peu le nez dans la programmation
et je m' aperçois que ces quelques jours sans Panoramic
me jouent des tours.

Alzheimer quand tu nous tiens...(it's a joke)
Laughing

Bon, la fonction KGFUpdate est à jour sur le WebDav, le site miroir (Hostinger) que j'ai mis en première URL, et mon site principal (000webhost) que j'ai mis en URL de secours. En général, Hostinger est plus rapide.

Donc, téécharge manuellement la DLL sur un des 3 sites, et la mise à jour automatique fonctionnera à partir de là.

J' ai créé un petit programme pour la mise à jour de kgf.dll

Code:: dim Kgf$ : Kgf$="C:\KGF\KGF.dll"
dim Vers%,Vers$,res%

label Clic

dll_on Kgf$
vers$ = string$(25," ")
vers% = DLL_call1("KGFdllVersion",adr(vers$))
vers$ = trim$(vers$)

height 0,150
width 0,300
font_name 0,"Arial"
font_size 0,8

button 1
caption 1,"M.A.J"
top 1,height(0)-(height(1)+50)
left 1,(width(0)-width(1))/2
cursor_point 1
on_click 1,Clic

print_locate 10,10
print str$(vers%)
print_locate 10,30
print vers$
print_locate 10,50
print "Date du jour : "+date$

end

Clic:
   MAJ_KGF()
return

sub MAJ_KGF()
   dim_local res%
   res% = DLL_call0("KGFupdate")
end_sub

J' ai enregistré ce programme en exécutable.
Lorsque je le lance, le programme est fermé et vient
une fenêtre d' invite de commande noir qui finit par afficher ceci

KGF_dll - nouvelles versions - Page 20 Captur10

- La fonction travaille dans le dossier "C:\KGF" ou se trouve la dll et y déballe tout
- Elle supprime la dll.

Sauf qu' après elle cherche ses fichiers sur bureau ou est le programme à relancer

Suspect

Ben... ce n'est pas vraiment fait pour travailler sur le desktop. As-tu le fichier unzip.exe quelque part ? Normalement, la fonction KGFupdate devrait le copier dans le dossier où se trouve également KGFupdate.exe. Essaie de placer ton programme dans le dossier où se trouve KGF.dll et de l'exécuter là.

Nouvelle version:
KGF.dll V8.15 du 19/12/2017

Nouveautés:
- Novelle fonction: AutoUpdateBar

Modules modifiés:
KGF.dll
KGF.chm

La doc et les sources sont à jour.

Cette fonction attache les objets Panoramic SCROLL_BAR, PROGRESS_BAR et TRAK_BAR à l'objet AutoUpdater. Ainsi, ces objets peuvent être pilotés automatiquement par le changement de contenu d'une variable, tout comme les VuMeter et le Scope.

Voici un exemple avec une version déjà ancienne de la Radio FM de Pascal10000. Dans la fenêtre contenant les VuMeter, il y a une Progress_Bar sous le VuMeter central qui donne le son total. Cette Progress_Bar est synchronisée sur la même variable que le VuMeter qu-dessus. Dans le source, les lignes 135, 136 et 137 permettent de choisir le type de barre (actuellement, une Progress_bar):

Code:: Dim Station$,url$,Frequence%,Q%,LeftD% ,res%,WB%
Dim Volume%,GaucheVol%,DroitVol%,Min_Track5%,Max_Track5%,Hnd_Dll%
DIM TotalVol%
dim VUL%, VUT%, VUR%, BarIndexT%
BarIndexT% = -1

Label Choix,Plus,Moin,Lecture,Etein
Label NiveauSon
label ChangeVolume, ChangeMute

Color 0,0,0,0
Height 0,180
Width 0,530
Caption 0,"Radio FM"
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein

' resize off form 0
If File_exists("D:\Programmation\Projet Panoramic\poste radio\form.dll")=1
Dll_On "D:\Programmation\Projet Panoramic\poste radio\form.dll"
res% = DLL_CALL2("SetSize",HANDLE(0),0)
Width 0,531
Dll_Off
End_if

' création browser
' Dll_On "D:\Programmation\Projet Panoramic\poste radio\kgf.dll"
Dll_On "kgf.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)

Alpha 1
Left 1,200

' liste des stations
List 2
Top 2,40
Left 2,260
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
' File_Load 2,"D:\Programmation\Projet Panoramic\poste radio\stations.txt"
File_Load 2,"stations.txt"
On_Click 2,Choix
Alpha 3
Left 3,260 : Top 3,20
Caption 3,"Stations:"

Check 7 : top 7,87
left 7,5
Track_Bar 5
Left 5,20: Top 5,85
Width 5,222: Height 5,26
Min 5,0 : Max 5,65535
On_Change 5,NiveauSon
Progress_Bar 6
Left 6,20: Top 6,120
Width 6,222: Height 6,10

' Tableau FREQUENCE
Container 10
Caption 10,"FREQUENCE"
Left 10,20 :Top 10,20
Width 10,200 : Height 10,52
Hide 10

LeftD%=-10
For Q%=11 to 16
LeftD%=LeftD%+30
DIGIT1 Q%
Parent Q%,10
Top Q%,15
Width Q%,20
Height Q%,34
Left Q%,LeftD%
Color Q%,0,255,0
Caption Q%,""
Next Q%
Show 10

Button 20
Left 20,221 : Top 20,28
Width 20,21 : Height 20,21
Font_Size 20,16
Font_Bold 20
Caption 20,"+"
On_Click 20,Plus

Button 30
Left 30,221 : Top 30,52
Width 30,21 : Height 30,21
Font_Size 30,20
Font_Bold 30
Caption 30,"-"
On_Click 30,Moin

Frequence%=0

On_User_Event ChangeVolume
res% = dll_call0("CreateMasterVolume")
TotalVol% = dll_call0("GetMasterVolume")
position 5,TotalVol%
res% = dll_call0("GetMasterMute")
if res%=0 then mark_on 7
on_click 7,ChangeMute

form 1000 : caption 1000,"VuMeters" : left 1000,left(0)+width(0) : top 1000,top(0)
width 1000,650 : height 1000,300
res% = dll_call1("CreateAutoUpdater",100)

VUL% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUL%,0,0,200,200)
res% = dll_call3("SetVuMeterLimits",VUL%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUL%,0)

VUT% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUT%,200,20,200,200)
res% = dll_call3("SetVuMeterLimits",VUT%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUT%,2)

VUR% = dll_call3("CreateVUMeter",handle(1000),1,0)
res% = dll_call5("LocalizeVuMeter",VUR%,400,0,200,200)
res% = dll_call3("SetVuMeterLimits",VUR%,65535,50000)
res% = dll_call2("SetVuMeterOrientation",VUR%,1)

res% = dll_call5("InitSpeakerControl",67,100,adr(GaucheVol%),adr(DroitVol%),adr(Volume%))
res% = dll_call2("AutoUpdate",VUL%,adr(GaucheVol%))
res% = dll_call2("AutoUpdate",VUT%,adr(Volume%))
res% = dll_call2("AutoUpdate",VUR%,adr(DroitVol%))

progress_bar 1001 : parent 1001,1000 : top 1001,225 : left 1001,200 : width 1001,200
' scroll_bar 1001 : parent 1001,1000 : top 1001,225 : left 1001,200 : width 1001,200
' track_bar 1001 : parent 1001,1000 : top 1001,225 : left 1001,200 : width 1001,200
min 1001,0 : max 1001,100 : position 1001,0
BarIndexT% = dll_call4("AutoUpdateBar",object_internal(1001),BarIndexT%,handle(1001),adr(Volume%))
End

' changement du volume dans le panneau du mixeur Windows
ChangeVolume:
if User_Event_WParam=hex("06020000") then position 5,User_Event_LParam
if User_Event_WParam=hex("06010000")
if User_Event_LParam=0
Mark_On 7
else
Mark_Off 7
end_if
end_if
return

' changement de l'état actif/muet du haut-parleur
ChangeMute:
if checked(7)=1
res% = dll_call1("SetMasterMute",0)
else
res% = dll_call1("SetMasterMute",1)
end_if
return

' selection des fréquences + ou -
Plus:
Set_Focus 10
Frequence%=Frequence%+1
If Frequence%=>42 Then Frequence%=1
Item_Select 2,Frequence%
Gosub Choix
Return

Moin:
Set_Focus 10
Frequence%=Frequence%-1
If Frequence%=<0 Then Frequence%=42
Item_Select 2,Frequence%
Gosub Choix
Return

' selection des stations
Choix:
Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""

If Clicked(2)=1 Then Frequence%=Item_Index(2)
Select Frequence%
Case 1 : Station$="France-Inter"
Caption 13,"8" : Caption 14,"7" : Caption 15,"-" : Caption 16,"8" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-inter/"
Case 2 : Station$="Générations"
Caption 13,"8" : Caption 14,"8" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/generations/"
Case 3 : Station$="Nostalgie"
Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/nostalgie/"
Case 4 : Station$="Chante-France"
Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"9" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/chante-france/"
Case 5 : Station$="Contact-Fm"
Caption 13,"9" : Caption 14,"1" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/contact-fm/"
Case 6 : Station$="Cherie-Fm"
Caption 12,"9" : Caption 13,"1." : Caption 14,"7" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/cherie/"
Case 7 : Station$="France-Musique"
Caption 12,"9" : Caption 13,"2." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-musique/"
Case 8 : Station$="France-culture"
Caption 12,"9" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-culture/"
Case 9 : Station$="Orient-Fm"
Caption 12,"9" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/orient/"
Case 10 : Station$="Galaxie FM France"
Caption 12,"9" : Caption 13,"5." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/galaxie/"
Case 11 : Station$="Puls Radio"
Caption 12,"9" : Caption 13,"5." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/puls/"
Case 12 : Station$="Jazz"
Caption 12,"9" : Caption 13,"5." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/jazz/"
Case 13 : Station$="Skyrock"
Caption 12,"9" : Caption 13,"6." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/skyrock/"
Case 14 : Station$="Voltage"
Caption 12,"9" : Caption 13,"6." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/voltage/"
Case 15 : Station$="Rire et chanson"
Caption 12,"9" : Caption 13,"7." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rire-et-chanson/"
Case 16 : Station$="Metropolys"
Caption 12,"9" : Caption 13,"7." : Caption 14,"6" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/metropolys/"
Case 17 : Station$="FG DJ Radio"
Caption 12,"9" : Caption 13,"8." : Caption 14,"2" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fg-dj/"
Case 18 : Station$="Vibration FM"
Caption 12,"9" : Caption 13,"8." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/vibration/"
Case 19 : Station$="Latina"
Caption 12,"9" : Caption 13,"9." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/latina/"
Case 20 : Station$="France Maghreb 2 France"
Caption 12,"9" : Caption 13,"9." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/maghreb-2/"
Case 21 : Station$="NRJ"
Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/nrj-france/"
Case 22 : Station$="Alouette France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/alouette/"
Case 23 : Station$="Fun Radio"
Caption 11,"1" : Caption 12,"0" : Caption 13,"1." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fun/"
Case 24 : Station$="Oui FM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$=""
Case 25 : Station$="MFM Radio France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/mfm/"
Case 26 : Station$="Gold FM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/gold-fm/"
Case 27 : Station$="Virgin"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/virgin/"
Case 28 : Station$="RFM"
Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rfm/"
Case 29 : Station$="Hit West France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/hit-west/"
Case 30 : Station$="RTL"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rtl/"
Case 31 : Station$="Europe 1"
Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/europe/"
Case 32 : Station$="Radio FIP"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/fip/"
Case 33 : Station$="France-Info"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-info/"
Case 34 : Station$="RTL2"
Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rtl2/"
Case 35 : Station$="Beur FM France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"6." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/beur/"
Case 36 : Station$="France-Bleu"
Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/france-bleu/"
Case 37 : Station$="RFI France"
Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/rfi/"
Case 38 : Station$="Radio Meuh France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"1" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/meuh/"
Case 39 : Station$="Enjoy Radio"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"2" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/enjoy/"
Case 40 : Station$="La Grosse Radio France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"3" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/la-grosse/"
Case 41 : Station$="Africa-1-France"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"4" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/africa-1-france/"
Case 42 : Station$="Swigg Radio"
Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"5" :Caption 1,Station$
url$="http://www.ecouterradioenligne.com/ado/"
End_Select
gosub Lecture
Return

Lecture:
res% = dll_call2("WB_Url",WB%,adr(url$))
NiveauSon()
Return

' / GESTIONS DU VOLUME /
***********************************************************
NiveauSon:
TotalVol%=position(5)
If TotalVol%<0 Then TotalVol%=0
If TotalVol%>65535 Then TotalVol%=65535
res% = dll_call1("SetMasterVolume",TotalVol%)
Return

Sub NiveauSon()
' RECUPERE LE NIVEAU ACTUEL DU SON
TotalVol% = dll_call0("GetMasterVolume")
position 5,TotalVol%
End_Sub

************************************************************

Etein:
res% = dll_call0("DeleteMasterVolume")
res% = dll_call1("WB_Delete",WB%)
Dll_Off
Terminate
Return

Attention: lire la doc de la fonction avant de l'utiliser !

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

un gros bug a la demo
Windows arrête carement le programe!!! Rolling Eyes

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

bon ça ne se plante plus
en mettant la commande à ligne 145
soit que je mette res%= ou BarIndexT%= rien ne se passe
en y mettant la valeur BarIndexT% en adr() c'est pareil

res% = dll_call4("AutoUpdateBar",object_internal(1001),BarIndexT%,handle(1001),adr(Volume%))

Tu l'appelles comme ceci:

Code:: dim BarIndexT%
BarIndexT% = -1
BarIndexT% = dll_call4("AutoUpdateBar",object_internal(1001),BarIndexT%,handle(1001),adr(Volume%))

Regarde le programme que j'ai posté avec la publication de la nouvelle version de KGF.dll...
a condition que la Progress_Bar soit bien l'objet 1001 de Panoramic !

Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011

est ce que la demo fonctionne bien chez toi?
à l'executer chez moi ça se plante carrément

KGF_dll - nouvelles versions - Page 20 Aa116

As-tu chargé la dernière DLL ? Quelle est l'erreur lors du plantage de la démo ?

Information:
La doc dans KGF.chm et la doc en ligne a été étendue pour inclure le nouvel objet SpeakerControl.

» KGF_dll - nouvelles versions
» Nouvelles versions
» Synedit_Editor - nouvelles versions
» KGF_dll - nouvelles versions
» KGF_dll - nouvelles versions