FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Rotation d'une image d'un angle quelconque
par JL35 Aujourd'hui à 16:09

» StratégoV8 et V9
par Jean Claude Aujourd'hui à 14:22

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 KGF.dll - demandes ou suggestions de modifications ou ajouts

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3  Suivant
AuteurMessage
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 16:40

Une image ? Pourquoi pas... Elle remplirait le centre du bouton ? N'oublie pas que le bouton doit tourner, et donc l'image avec. il devrait y avoir une bordure fixe d'une certaine largeur, contenant les marques des graduations, etc. Faudra m'en dire un peu plus. J'ai certaines idées, mais il faudrait aussi que ça corresponde à tes besoins. Sinon, ce n'est pas la peine.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 16:47

enfin a plusieur image dont l'axe des images
soient les mêmes comme de bien entendu

comme ci dessous

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 17:21

Je vois. Pas de problème avec ça. Tu donnes 20 positions. Est-ce que ce sont des positions "à cran d'arrêt", sans positions internédiaires, ou est-ce que ce sont juste des exemples ? Est-ce qu'il y a exactement 20 positions, ou est-ce que cela peut varier ? Y a-t-il une position minimale et maximale, procoquant la butée du bouton ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 17:41

non ce ne sont pas a cran j'aurai pu en faire de plus mais ça prend du temps a les faire
je ne pense pas que cela se remarquera dès qu'il sera en fonction
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 19:12

Ok, je vois. J'ai la possibilité de faire tourner l'image avec le bouton - donc, une seule image sera suffisante, en réalité. L'idée, c'est d'avoir une valeur minimale et maximale, correspondant chacune à un angle spécifique. Le bouton arrivera en butée sur ces valeurs. Bien sûr, les angles peuvent être choisis librement.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mar 12 Déc 2017 - 21:11

pour utilisé track_bar circulaire
a cran d'arret est possible a le faire
en panoramic pure

source:
Code:
left 0,500:top 0,300
dim tic$,img%,dossier$
dossier$="D:\Programmation\Projet Panoramic\Gfx"
img%=9
label change
picture 1
top 1,10
left 1,10
width 1,39
height 1,39
file_load 1,dossier$+"Pot9.bmp"
on_mouse_down 1,change
end
change:

If scancode=2 Then img%=img%+2
If scancode=1 Then img%=img%-2

if img%=<1 then img%=1
if img%=>19 then img%=19

select img%
 case 1:file_load 1,dossier$+"Pot1.bmp"
 case 3:file_load 1,dossier$+"Pot3.bmp"
 case 5:file_load 1,dossier$+"Pot5.bmp"
 case 7:file_load 1,dossier$+"Pot7.bmp"
 case 9:file_load 1,dossier$+"Pot9.bmp"
 case 11:file_load 1,dossier$+"Pot11.bmp"
 case 13:file_load 1,dossier$+"Pot13.bmp"
 case 15:file_load 1,dossier$+"Pot15.bmp"
 case 17:file_load 1,dossier$+"Pot17.bmp"
 case 19:file_load 1,dossier$+"Pot19.bmp"
end_select
return

le source fonctionne avec les potentiomètres
que j'ai posté ci dessus
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 4:52

Bon, j'arrête pour ce soir.

J'ai créé deux types de boutons rotatifs:
- un bouton coloré sans image, plus simple
- un bouton coloré avec une image optionnélle
Dans le deuxième cas, l'image peut contenir le pointeur, ou il sera généré par la DLL,
soit sous forme d'un trait, soit sous forme d'un cercle. Couleur et épaisseur du trait
ou du cercle sont paramétrables. L'image peut être fixe et seul le pointeur tourne,
ou l'image peut tourner, le pointeur étant solidaire de l'image.
Dans les deux cas, on peut indiquer une valeur minimale (défaut: 0) et une valeur
maximale (défaut: 100), ainsi que la position initiale du pointeur.

Tout cela fonctionne très bien maintenant chez moi. Demain, je vais coder la transmission
des valeurs au programme Panoramic.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 15:58

J'ai mis une version en ligne avec un nouvel objet: DialButton. Il n'y a pas encore la documentation, mais j'aimerais ton avis. Je poste ci-dessous le programme de démo, ainsi que les images de deux boutons. Le programme demandera un fichier image pour le bouton qui s'affichera à droite. Essaie d'abord avec ces deux images qui ont un bon rendu. Puis, tu peux faire ta propre image (avec le pointeur dans le programme tel qu'il est, mais en changeant un paramètre (voir les commentaires), le programme peut générer le pointeur.

Il y a 7 possibilités différentes de récupérer automatiquement la position du curseur, indépendemment d'une fonction qui permet de retourner cette valeur. Toutes ces méthodes sont montrés dans ce programme, à sélectionner par la combo tout en haut.

Voici le code:
Code:
' test_DialButton.bas

label close0, Event, ChangeResultat

dim DB1%, DB2%, res%, f$
dim pos1%, pos2%

dll_on "KGF.dll"

caption 0,"Test de DialogButton"
on_close 0,close0

on_User_Event Event

alpha 1 : top 1,4 : left 1,10 : caption 1,"Résultat dans:"
combo 2 : top 2,2 : left 2,90 : width 2,200
  item_add 2,"../.."
  item_add 2,"USER_EVENT"
  item_add 2,"varable de type integer"
  item_add 2,"EDIT par handle"
  item_add 2,"SCROLL_BAR par handle"
  item_add 2,"PROGRESS_BAR par handle"
  item_add 2,"TRACK_BAR par handle"
  item_add 2,"caption(0)  (pour DEBUG)"
res% = dll_call2("SelectComboBoxItem",handle(2),1)
on_click 2,ChangeResultat
 
edit 11 : top 11,200 : left 11,10
scroll_bar 12 : top 12,230 : left 12,10 : min 12,0 : max 12,100
progress_bar 13 : top 13,260 : left 13,10 : min 13,0 : max 13,100
track_bar 14 : top 14,290 : left 14,10 : min 14,0 : max 14,100
edit 15 : top 15,320 : left 15,10


'  res% = dll_call3("SetDialButtonResultMode",DB1%,3,object_internal(13))
'  end


edit 21 : top 21,200 : left 21,230
scroll_bar 22 : top 22,230 : left 22,230 : min 22,0 : max 22,100
progress_bar 23 : top 23,260 : left 23,230 : min 23,0 : max 23,100
track_bar 24 : top 24,290 : left 24,230 : min 24,0 : max 24,100
edit 25 : top 25,320 : left 25,230


open_dialog 99 : filter 99,"Images (BMP,JPG,PNG,GIF)|*.bmp;*.jpg;*.png;*.gif"

f$ = file_name$(99)
if f$="_" then f$ = ""
' f$ = "Pascal10000_2.bmp"

res% = dll_call6("SetDialButtonDefaults",1,255,255,0,1,0)
res% = dll_call6("SetDialButtonDefaults",2,255,255,0,1,0)
res% = dll_call6("SetDialButtonDefaults",3,255,0,0,1,1)
' res% = dll_call6("SetDialButtonDefaults",4,255,255,255,1,10) : ' cette ligne avec marqueur
res% = dll_call6("SetDialButtonDefaults",4,255,255,255,1,0) : ' cette ligne sans marqueur

DB1% = dll_call2("CreateDialButton",handle(0),1)
' res% = dll_call4("SetDialButtonColor",DB1%,255,255,0)
' res% = dll_call6("SetDialButtonIndicator",DB1%,5,0,255,0,0)
res% = dll_call4("LocateDialButton",DB1%,30,30,100)
 
DB2% = dll_call2("CreateDialButton",handle(0),2)
res% = dll_call2("LoadDialButtonImage",DB2%,adr(f$))
' res% = dll_call6("SetDialButtonIndicator",DB2%,5,10,255,255,255)
res% = dll_call4("LocateDialButton",DB2%,230,30,150)

end

close0:
  res% = dll_call1("DeleteDialButton",DB1%)
  res% = dll_call1("DeleteDialButton",DB2%)
  return

Event:
caption 0,hex$(USER_EVENT_WPARAM)
  if bin_and(USER_EVENT_WPARAM,hex("FFFF0000"))<>hex("07010000") then return
  select bin_and(USER_EVENT_WPARAM,hex("0000FFFF"))
    case 1
      text 15,"UserEvent 1 = "+str$(USER_EVENT_LPARAM)
    case 2
      text 25,"UserEvent 2 = "+str$(USER_EVENT_LPARAM)
  end_select
  return

ChangeResultat:
' pour type 1:
select item_index(2)-1
  case 0
  case 1
    res% = dll_call3("SetDialButtonResultMode",DB1%,1,0)          : ' USER_EVENT
  case 2
    res% = dll_call3("SetDialButtonResultMode",DB1%,2,adr(pos1%)) : ' variable
  case 3
    res% = dll_call3("SetDialButtonResultMode",DB1%,3,handle(11)) : ' EDIT
  case 4
    res% = dll_call3("SetDialButtonResultMode",DB1%,4,handle(12)) : ' SCROLL_BAR
  case 5
    res% = dll_call3("SetDialButtonResultMode",DB1%,5,handle(13)) : ' PROGRESS_BAR
  case 6
    res% = dll_call3("SetDialButtonResultMode",DB1%,6,handle(14)) : ' TRACK_BAR
  case 7
    res% = dll_call3("SetDialButtonResultMode",DB1%,7,0) : ' mode DEBUG
end_select 
' pour type 2:
select item_index(2)-1
  case 0
  case 1
    res% = dll_call3("SetDialButtonResultMode",DB2%,1,0)          : ' USER_EVENT
  case 2
    res% = dll_call3("SetDialButtonResultMode",DB2%,2,adr(pos2%)) : ' variable
  case 3
    res% = dll_call3("SetDialButtonResultMode",DB2%,3,handle(21)) : ' EDIT
  case 4
    res% = dll_call3("SetDialButtonResultMode",DB2%,4,handle(22)) : ' SCROLL_BAR
  case 5
    res% = dll_call3("SetDialButtonResultMode",DB2%,5,handle(23)) : ' PROGRESS_BAR
  case 6
    res% = dll_call3("SetDialButtonResultMode",DB2%,6,handle(24)) : ' TRACK_BAR
  case 7
  res% = dll_call3("SetDialButtonResultMode",DB2%,7,0) : ' mode DEBUG
end_select
return

Une première image de bouton:


La seconde image:


Pour construire ta propre image, il serait bien de faire l'image avec au moins 100x100 pixels.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 16:38

c'est formidable klaus
bon une question! est ce que la valeur maxi est toujours a 100 ou bien peut 'elle
etre variable a soi??

et les dimentions peuvent elles etre a moin 100 de pixels?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 16:44

pour la taille j'ai trouver!
AH aussi peut ton mettre en min -100 et max +100?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 17:45

Oui, aux deux questions.
- tu peux programmer librement la dimension par la fonction
Code:
res% = dll_call4("LocateDialButton",DB%,x%,y%,w%,h%)
- tu peux changer les valeurs des limites avec la fonction
Code:
res% = dll_call4("ConfigureDialButton",DB%,max%,min%,position%)

Les valeurs peuvent être négatives, même les deux, mais max% doit toujours être plus grand que min% et position% doit se trouver entre les deux (limites comprises).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 18:22

les paramètres en négatif ne fonctionne pas lors des test j'ai comme erreur
" no correct arithmetic expression line 69"

avec ces paramètres
es% = dll_call4("ConfigureDialButton",DB2%,100,-100,0)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 18:31

Oui, Panoramic a un problème pour passer des constantes négatives en paramètre. Problème connu depuis lontemps.

Tu le résouds de la manière suivante:
Code:
dim res%, neg%
neg% = 0 - 100
res% = dll_call4("ConfigureDialButton",DB2%,100,neg%,0)

Mais, évidemment, tu es conscient que tu enfreins la règle que j'ai indiquée plus haut, non ? Ta valeur maximale est plus petite que la valeur minimale. Fais plutôt comme ceci:
Code:
dim res%, neg%
neg% = 0 - 100
res% = dll_call4("ConfigureDialButton",DB2%,neg%,100,0)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 19:16

dsl mais les fonctions que tu m"as donnée sont les max% avant les min%!!!!

res% = dll_call4("ConfigureDialButton",DB%,max%,min%,position%)
peur  etre une erreur
de toute façon ça fonctionne quand même dans les deux sens
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 19:48

Non, tu as raison. Tu avais le bon ordre, et c'est moi qui ai fait la confusion. Désolé, c'est encore un peu nouveau, tout ça, et la doc commence tout juste à prendre forme...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Minibug

avatar

Nombre de messages : 2484
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 22:07

En voila encore un bel objet pour Panoramic.
Excellente idée Klaus. Bravo !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

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

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 22:36

Au fait un grand merci klaus
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 23:23

Merci !!!
Je termine la doc et je publie le tout, officiellement.

Ensuite, je vais m'atteler à la fonction de recherche souhaitée par Pédro...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Mer 13 Déc 2017 - 23:55

@Pascal10000:
Je pense que tu as rectifié toi-même: j'ai donné une définition erronnée de la fonction LocateDialButton. En voici la version correcte:
Code:
res% = dll_call4("LocateDialButton",DB%,x%,y%,d%)
x%,y% étant les coodonnées du coin en haut à gauche
d% étant la taille d'un côté du carré englobalant le DialButton. En effet, comme il se présentera sous forme d'un cercle, il faut donner son diamètre...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Marc



Nombre de messages : 582
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Jeu 14 Déc 2017 - 10:00

Bonjour à tous !

Je découvre toutes ces nouvelles commandes KGF.

Merci Klaus !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Sam 16 Déc 2017 - 0:49

@Pédro Alvarez:
Je me penche maintenant sur la fonction de recherche que tu as souhaitée. Est-ce que l'approche suivante serait correcte:
Code:
res% = dll_call4('FindMultipleStringsInString",adr(Instring$),adr(Separator$),handle(MultipleCombo%),handle(ResultCombo%))
avec:
Instring$ = chaîne de caractère dans laquelle il faut chercher tout cela
Separator$ = chaîne de caractères contenant le séparateur évoqué dans ta demande
MultipleCombo% = numéro Panoramic d'un objet combo contenant la liste des lignes avec les chaînes à chercher
ResultCombo% = numéro Panoramic d'un objet combo recevant, soit une copie des lignes de MultipleCombo% dont la partie gauche est trouvée dans Instring$, soit uniquement la partie droite de ces lignes

Est-ce que j'ai compris ce qu'il faut faire, ou est-ce que quelque chose m'a échappé ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Sam 16 Déc 2017 - 3:28

J'ai fait rapidement une première version de cette fonction, et j'ai voulu la tester avec les exemples que tu as publiés, Pédro. Mais je pense que le forum a dû "bouffer" certains espaces, car les critères de recherche ne correspondent pas. Voici mon code, dans lequel j'ai pris tes textes par copier/coller:
Code:
' test_FindMultipleStringsInString.bas

label chercher

dim InString$, Separator$
dim res%


alpha 1 : caption 1,"Chaîne à traiter:" : top 1,10 : left 1,10
edit 2 : top 2,30 : left 2,10 : width 2,500
  text 2,"Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen."


alpha 11 : caption 11,"Séparateur:" : top 11,60 : left 11,10
edit 12 : top 12,80 : left 12,10 : width 12,200
  text 12,";locut;"

alpha 21 : caption 21,"Critères:" : top 21,110 : left 21,10
combo 22 : top 22,130 : left 22,10 : width 22,500
  item_add 22,"ni si quiera sé qué es lo que celebramos . ;locut; je ne sais même pas ce que l ' on est censé fêter ? '  ; locut;"
  item_add 22,"ni siquiera advirtieron a los matones anti - occupy central que habían suscitado el conflicto . ;locut; les malfrats anti - occupy central , qui avaient provoqué l ' affrontement n ' avaient , eux , même pas reçu d ' avertissement . ; locut;"

button 31 : top 31,160 : left 31,10 : caption 31,"Chercher" : on_click 31,chercher

alpha 41 : caption 41,"Résultats:" : top 41,190 : left 41,10
combo 42 : top 42,210 : left 42,10 : width 42,500

dll_on "KGF.dll"

end
Or, en regardant ce que lon charge dans la combo 22, je vois mal ce que l'on pourrait trouver par rapport au edit 2... Pourrais-tu corriger stp ?

Ce n'est pas la peine de tenter de tester - la fonction n'est pas encore distribuée. Je voudrais juste que les chaînes de caractères soient correctes.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 904
Date d'inscription : 19/01/2014

MessageSujet: Demande d'une nouvelle fonction dans kgf.   Sam 16 Déc 2017 - 9:24

Bonjour.

@Klaus.

Merci du temps que tu prends à créer de nouvelles fonctions personnalisées.

Je te renvoie un petit exemple de ce que je souhaiterais.

Le texte dans lequel chacune des sous-chaînes à rechercher est le suivant (exemple):

Code:
   Mirando al cielo desde cualquiera de los hemisferios, se pueden ver sin telescopio unas 4.500 estrellas. Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen. Las estrellas más abundantes, tres de cada cuatro en la Vía Láctea, son las enanas rojas y tienen un brillo tan tenue que no pueden contemplarse a simple vista. Ni siquiera la más cercana de ellas, Proxima Centauri, a solo 4,5 años luz, es visible en el cielo nocturno. Sin embargo, es en torno a esos astros donde se empieza a plantear que, por probabilidad, será más fácil encontrar mundos habitables. Precisamente en esa estrella vecina, los astrónomos acaban de encontrar un nuevo planeta que puede ofrecer una idea sobre la naturaleza de los refugios de la vida en el cosmos, bastante distintos de nuestro planeta o de lo que cabría imaginar si la Tierra es nuestra referencia.

Un extrait du fichier contenant les expressions idiomatiques:

Code:
en el año de gracia ;locut; en l ' an de grâce ; locut;
en el año del trigésimo aniversario de galaksija , todos los colegios en serbia están equipados con computadoras para los estudiantes , la tasa de penetración de internet era cercana al 65 por ciento en 2012 , y los visitantes a menudo se sorprenden cuando ven que hay wifi disponible casi en todas partes en todas las ciudades y pueblos del país . ;locut; à l ' heure du trentième anniversaire du galaksija , chaque école en serbie est équipée d ' ordinateurs pour les élèves , le taux de pénétration d ' internet était proche de 65 % en 2012 , et les visiteurs sont souvent surpris de la disponibilité immédiate du wifi dans chacune des villes du pays . ; locut;
en el año fiscal 1985 había 82 ,000 productores domésticos de lácteos , que explotaban alrededor de 2 . 11 millones de animales . ;locut; il y avait près de 82 . 000 foyers de producteurs laitiers en 1985 , élevant autour de 2 ,11 millions d ' animaux . ; locut;
en el año reciente , hay más y más críticas que dicen que el departamento de noticias de tvb ha sido armonizado ( que ha adoptado la autocensura ) . ;locut; ces dernières années , de plus de plus de voix s ' élèvent pour dénoncer "l ' harmonisation" du service des informations de la tvb ( adoption de l ' autocensure ) . ; locut;
en el año , son muchas las malas decisiones que se han tomado , como por ejemplo la expulsión del embajador británico y las ineficientes leyes aprobadas por nuestros distinguidos miembros del parlamento . ;locut; de très mauvaises décisions ont été prises cette année comme l ' expulsion de l ' ambassadeur de grande - bretagne , les mauvaises lois adoptées par nos honorables parlementaires . ; locut;
en el antiguo egipto trabajaban esclavos . ;locut; dans l ' égypte ancienne , travaillaient des esclaves . ; locut;
en el anuncio de tallarines maggi ( nestlé ) , una madre le explica a su hijo : maggi es el mejor porque tiene proteína esencial y calcio que ayuda a construir músculos y huesos fuertes . '  ;locut; dans la publicité pour les nouilles maggi ( nestlé ) , une mère explique à son enfant : maggi est le meilleur produit , car il contient des des protéines et du calcium , essentiel pour la croissance des os et les muscles '  ; locut;
en el anuncio , que se puede ver en youtube subtitulado en inglés , se ve cómo un indio punjabí le habla a su nieta suman de su amigo de la niñez yousuf , de la tienda de dulces que los padres de este último poseían en el viejo lahore , y de cómo los amigos se separaron por la partición de india de 1947 . ;locut; sur le petit film publicitaire , disponible sur youtube avec des sous - titres en français , un indien du pendjab raconte à sa petite - fille suman des souvenirs de son enfance heureuse à lahore , au pakistan . il se souvient de son ami d ' enfance yousuf et de la boutique de bonbons que son père avait dans le vieux lahore , et lui raconte comment lui et son ami ont été séparés à cause de la partition de 1947 . ; locut;
en el apogeo de su poder , el imperio romano abarcaba desde gran bretaña a la península arábica , el norte de África y europa oriental . ;locut; proportionnellement au pouvoir qui était le sien , l ' empire romain s ' étendait de la bretagne à la péninsule arabique , à l ' afrique du nord et à l ' europe de l ' est . ; locut;
en el área cerrada por reparaciones de la central station estaban reunidos docenas de reporteros ; uno de ellos caminaba cerca de mi y hablaba por teléfono , oí ¿"presidente" ? ¿"todos murieron" ? etc . pensé que era una broma ( diciendo algo entre la multitud para iniciar un chisme ) . ;locut; dans la zone fermée pour rénovation de la gare centrale , des dizaines de journalistes étaient rassemblés . l ' un d ' eux cheminait à côté de moi en parlant au téléphone . j ' ai entendu président , '  tous morts ? '  etc . j ' ai cru que c ' était une blague ( lancer quelque chose dans la foule pour démarrer des ragots ) . ; locut;
en el área de asakusa , que es hogar del denkikan , la primera sala dedicada al cine de japón , construida a principios del 1900 y un lugar simbólico para la industria del cine japonés , fueron forzadas a cerrar el 21 de octubre de 2012 las tres últimas salas de cine tradicionales asakusa - meigaza , asakusa - chuei gekijo y asakusa - shin gekijo . ;locut; dans la zone d ' asakusa , où se trouve le denkikan , premier cinéma du japon , construit au début des années 1900 et lieu symbolique pour l ' industrie cinématographique japonaise , les trois derniers cinémas traditionnels asakusa - meigaza , asakusa - chuei gekijo et asakusa - shin gekijo furent contraints de fermer le 21 octobre 2012 . ; locut;
en el área de calidad del aire se informan algunos progresos . la consolidación de lo avanzado necesitaría la puesta en marcha de una legislación adaptada . ;locut; quelques progrès peuvent être constatés en matière de qualité de l ' air , la consolidation de l ' acquis demanderait la mise en oeuvre d ' une législation adaptée . trois protocoles supplémentaires du clrtap ( convention sur la pollution transfrontalière de l ' air ) ont été ratifiés . ; locut;

On recherche donc, dans le texte plus haut, la partie gauche de chacune des expressions ci-dessus.

Exemple, pour le 1er item de la combo ci-dessus:

en el año de gracia

Le séparateur étant ;locut;

Surtout, ne pas oublier d'effectuer un trim$() après la lecture de chacune des parties gauches, afin de supprimer les espaces de fin éventuels avant ;locut;.

Quant à la syntaxe de la fonction, pas de problème, cela me plaît bien.
Par contre, je ne vois pas bien l'intérêt de InString$, car les sous-chaînes à rechercher se trouvent toutes dans une combo !

Merci de la suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10413
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   Sam 16 Déc 2017 - 11:41

Citation :
Par contre, je ne vois pas bien l'intérêt de InString$, car les sous-chaînes à rechercher se trouvent toutes dans une combo !
C'est parce que j'avais mal compris. Je croyais qu'il fallait chercher dans une seule chaîne de caractères, puisque dans ton post initial, tu avais donne:
Code:
chaine$ = "..."

Ok, j'ai de quoi travailler. Merci pour ces infos.

EDIT

Le texte à analyser, celui que tu as donné dans ta première citation, est bien une seule ligne ! Selon toi, il doit se trouver, ligne par ligne, dans une combo, ou c'est à moi de faire cela ? Car tel que c'est, la chaîne peur vite devenir trop grande...

EDIT

Si je fais comme ça, est-ce que cela corrspond à ce que tu cherches, par rapport au texte que tu donnes ?
Code:
combo 2 : top 2,30 : left 2,10 : width 2,500
  item_add 2,"Mirando al cielo desde cualquiera de los hemisferios, se pueden ver sin telescopio unas 4.500 estrellas."
  item_add 2,"Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen."
  item_add 2,"Las estrellas más abundantes, tres de cada cuatro en la Vía Láctea, son las enanas rojas y tienen un brillo tan tenue que no pueden contemplarse a simple vista."
  item_add 2,"Ni siquiera la más cercana de ellas, Proxima Centauri, a solo 4,5 años luz, es visible en el cielo nocturno."
  item_add 2,"Sin embargo, es en torno a esos astros donde se empieza a plantear que, por probabilidad, será más fácil encontrar mundos habitables."
  item_add 2,"Precisamente en esa estrella vecina, los astrónomos acaban de encontrar un nuevo planeta que puede ofrecer una idea sobre la naturaleza de los refugios de la vida en el cosmos, bastante distintos de nuestro planeta o de lo que cabría imaginar si la Tierra es nuestra referencia."

EDIT

Donc, je fais la fonction de la manière suivante ?
Code:
res% = dll_call4("FindMultipleStringsInString",handle(InputCombo%),adr(separator$),handle(MultipleCombo%),handle(ResultCombo%))

EDIT

Même dans les textes donnés dans ton post, aucun des deux critères ne figure dans ces 6 lignes de texte à analyser. Je ne comprends pas vraiment ce que je dois chercher...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 904
Date d'inscription : 19/01/2014

MessageSujet: Demande d'une nouvelle fonction dans kgf.   Sam 16 Déc 2017 - 12:13

Bonjour.

Pour info, le texte espagnol initial se trouve dans une variable, et non dans une combo.

Il faut donc rechercher, dans ce texte, la chaîne suivante:

en el año de gracia

Cette sous-chaîne correspond au 1er item de la combo.

L'ensemble des sous-chaînes trouvées dans le texte doit être sauvegardé dans un autre objet combo.

Mais au départ, peut-être qu'aucune sous-chaîne ne figurera dans le texte.

Ceci n'est qu'un exemple.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: KGF.dll - demandes ou suggestions de modifications ou ajouts   

Revenir en haut Aller en bas
 
KGF.dll - demandes ou suggestions de modifications ou ajouts
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 3Aller à la page : Précédent  1, 2, 3  Suivant
 Sujets similaires
-
» conseiller du vin---suggestions
» quelques ajouts
» ? DEVENIR COPAINS. (demandes de partenariat)
» ? LES DEMANDES DE PARTENARIAT
» Liste de liens

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: