exemple d'un programme déchargeant un travail sur un autre

rem réceptionne les ordres et produit un son correspondant
width 0,200:height 0,80
dim prg_B$  , ID_recoi%  ,ID% ,handle% , recu$
label message_recu
ID% = 1 : ' à modifier selon le programme

prg_B$ = "Music midi"                :' celui du récepteur pour les sons
ID_recoi% = -2222

caption 0,prg_B$:' celui-ci est le programme en arrière plan pour le son
edit ID%:left id%,id_recoi% : top id%,id_recoi%
on_change id%,message_recu
midi_on

END
' ==============================================================================

message_recu:
  recu$=text$(ID%)
  if recu$ = "bip"  then Midi_Instrument 24 : Midi_play 60,10 : ' Rebond à droite
  if recu$ = "zap"  then Midi_Instrument 127 : Midi_play 60,10
  if recu$ = "stop" then midi_off :terminate
' les sons ont été copié à partir du programme de Jicehel, et n'ont pas de correspondance avec le nom donné
return

rem envoi ordre de son, à un programme au travers d'un EDIT et sauvegardé en "z:\recoi_sons.exe"
left 0,300
dim prg_B$, ID_recoi%  ,ID% ,handle% ,mes$ , res% :      ' prg_A$  ,ID_envoi%        : inutile
label envoyer_message
dll_on "H:\TESTE\MULTI_PROG\A\IPC.dll"
                                                          ' prg_A$ = "Programme JEU"  : inutile
prg_B$ = "Music midi"  :' celui du récepteur pour les sons
                                                          ' ID_envoi% = -1111          : inutile
ID_recoi% = -2222

id% = 1 :' N° de l'objet edit, selon le programme
list id% : item_add id%,"bip" : item_add id%,"zap" : item_add id%,"stop"
on_click id%,envoyer_message

execute "z:\recoi_sons.exe" :' c'est l'adresse de l'autre programme de sons
wait 2000

END
' ==============================================================================

envoyer_message:
  mes$ = item_index$(id%)
  handle% = dll_call3("IPCGetHandle",adr(prg_B$),len(prg_B$),ID_recoi%)
  res% = dll_call3("IPCSendMessage",adr(mes$),len(mes$),handle%)
return