Une astuce qui ne sert à rien !

' Astuce pour échanger la valeur de 2 variables sans passer par une troisième
dim x,y
x = 10 : y = 30 : print "avant l'échange : x = ";x;" y = ";y
x = x + y : y = x - y : x = x - y : print "après l'échange : x = ";x;" y = ";y

flag% = 1 - flag%

' trouver le maximum de 2 nombres sans utiliser la fonction MAX()
dim x,y,m
x = 10 : y = 7
print " Sans utiliser la fonction MAX()"
m = (x+y+abs(x-y))/2 : print " Le maximun de ",x;" et de ";y;" est : ";m

' trouver le maximum de 4 nombres
dim x,y,z,u,m
x = 5 : y = 3 : z = 22 : u = 14
' En utilisant la fonction MAX()
m = max(max(max(x,y),z),u)
print " En utilisant la fonction MAX()"
print "Le maximum de ";x;" "; y;" ";z;" ";u;" est : ";m
' En se passant de la fonction MAX()
m = (x+y+abs(x-y))/2 : m = (m+z+abs(m-z))/2 : m = (m+u+abs(m-u))/2
print : print " Sans utiliser la fonction MAX()"
print "Le maximum de ";x;" "; y;" ";z;" ";u;" est : ";m

' asctuces.bas
'
' ce programme montre comment simuler un SELECT-CASE avec
' des valeurs en chaîne de caractère. On utilise une LIST cachée
' pour garder toutes les valeurs possibles, une par ligne,
' puis la fonction SerachListBox de KGF.dll pour trouver l'indice
' qui est alors utilisé comme indice pour la commande SELECT.

' initialisation générale (juste un exemple)
label fin_data
dim x%, s$
data "Janvier","Février","Mars","Avril","Mai","Juin","Juillet"
data "Août","Septembre","Octobre","Novembre","Décembre"
list 10 : hide 10
on_error_goto fin_data
while 1=1 : ' boucle jusqu'à la fin des data
read s$ : item_add 10,s$
end_while
fin_data:
off_error_goto

' charger KGF.dll
KGF_initialize("KGF.dll")

s$ = "Mai" : ' choisir un mois

' *** les deux lignes suivantes sont l'astuce proprement-dite:
SearchListBox(handle(10),0,s$) : ' déterminer son numéro
select SearchListBox
case 1: print "1 = Janvier"
case 2: print "2 = Février"
case 3: print "3 = Mars"
case 4: print "4 = Avril"
case 5: print "5 = Mai"
case 6: print "6 = Juin"
case 7: print "7 = Juillet"
case 8: print "8 = Août"
case 9: print "9 = Septembre"
case 10: print "10 = Octobre"
case 11: print "11 = Novembre"
case 12: print "12 = Décembre"
end_select
end

#INCLUDE "KGF_SUB.bas"

declarations()
interface()
Remp_dlist()
end
' ------------------------------------------------------------------------------
Sub declarations()
dim i%
label Clic
End_Sub
' ------------------------------------------------------------------------------
sub interface()
Objets("form",0,1,0,0,350,100,0,"Find Index")
Objets("Alpha",1,1,5,10,0,0,0,"Entrez un mois de l'année (sans accents)")
Objets("Edit",2,1,20,10,0,0,0,"")
Objets("Alpha",3,1,20,170,0,0,0,"Valeur :")
Objets("Dlist",4,1,0,0,0,0,0,"")
Objets("button",5,1,20,140,20,20,0,"V")
on_click 5,Clic
end_sub
' ------------------------------------------------------------------------------
Sub Remp_dlist()
dim_local x%,a$
for x%=1 to 12
read a$
item_add 4,a$
next x%
End_Sub
' ------------------------------------------------------------------------------
data "JANVIER","FEVRIER","MARS","AVRIL","MAI","JUIN","JUILLET"
data "AOUT","SEPTEMBRE","OCTOBRE","NOVEMBRE","DECEMBRE"
' ------------------------------------------------------------------------------
Clic:
Valeur()
return
' ------------------------------------------------------------------------------
Sub Valeur()
dim_local b$,b%,x%
b$=upper$(text$(2))
for x%=1 to 12
if item_read$(4,x%)=b$
b%= x%
exit_for
end_if
next x%
caption 3,"Valeur :"+str$(x%)
End_Sub
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Objets(obj$,No%,V%,T%,L%,W%,H%,P%,C$)
DIM_LOCAL indx%
' Création de l'objet
IF VARIABLE("T_obj$") = 0
DIM T_obj$
T_obj$="01SCENE3D;02BUTTON;03EDIT;04MEMO;05COMBO;06ALPHA;07FORM;08LIST;09PICTURE;"
T_obj$=T_obj$+"10CHECK;11OPTION;12MAIN_MENU;13SUB_MENU;14SOUND;15MOVIE;16TRACK_BAR;"
T_obj$=T_obj$+"17OPEN_DIALOG;18SAVE_DIALOG;19SCROLL_BAR;20PROGRESS_BAR;21SPIN;"
T_obj$=T_obj$+"22GRID;23CONTAINER;24;25;26DLIST;27SCENE2D;28TIMER;29;30;31;"
T_obj$=T_obj$+"32CONTAINER_OPTION;33;34;35;36;37;38;39;40;41IMAGE;"
END_IF
indx% = INSTR(T_obj$,UPPER$(obj$)+";"): indx% = VAL(MID$(T_obj$,indx%-2,2))
if indx%<>7 and NO%=0 then NO%=NO%+1
SELECT indx%
CASE 1: SCENE3D No%
CASE 2: BUTTON No% :Caption No%,C$
CASE 3: EDIT No%
CASE 4: MEMO No%
CASE 5: COMBO No%
CASE 6: ALPHA No% :Caption No%,C$
CASE 7: IF No%>0 :FORM No% :end_if:Caption No%,C$
CASE 8: LIST No%
CASE 9: PICTURE No%
CASE 10: CHECK No% :Caption No%,C$
CASE 11: OPTION No% :Caption No%,C$
CASE 12: MAIN_MENU No%
CASE 13: SUB_MENU No% :Caption No%,C$
CASE 14: SOUND No%
CASE 15: MOVIE No%
CASE 16: TRACK_BAR No%
CASE 17: OPEN_DIALOG No%
CASE 18: SAVE_DIALOG No%
CASE 19: SCROLL_BAR No%
CASE 20: PROGRESS_BAR No%
CASE 21: SPIN No%
CASE 22: GRID No%
CASE 23: CONTAINER No% :Caption No%,C$
CASE 26: DLIST No%
CASE 27: SCENE2D No%
CASE 28: TIMER No%
CASE 32: CONTAINER_OPTION No% :Caption No%,C$
CASE 41: IMAGE No%
END_SELECT
' Visibilité
If V% = 0 Then hide NO%
' Dimensions
If H% > 0 Then Height NO%,H%
If W% > 0 Then Width NO%,W%
' Placement
If indx% = 7
If T% > 0 : Top NO%,T% : Else : Top NO%,(Screen_y-H%)/2 : End_If
If L% > 0 : Left NO%,L%: Else : Left NO%,(Screen_x-W%)/2: End_If
Else
If T% > 0 then Top NO%,T%
If L% > 0 then Left NO%,L%
End_If
' filiation
If P% > 0 then Parent NO%,P%
END_SUB