Ok,
First, I call the function:
short k1944a_ready (void)
{
short i;
do { ibwait (bd, 0x4800); ibrsp (bd, &sp); i++; }
while ((!(sp & 16))&&(i<10));
if (i==10)
{
MessagePopup ("", "Le volmËtre ne rÈpond plus");
return 0;
}
return 1;
}
from the instrument librairy.
Sometimes the first breakpoint I have is at ibwait line.
Second, I call the function : Mesure_V2(nb_pts,Vb);
This function calls :
void k1944a_acquisition (int voie, int mod, double niveau, int np, double t[])
{
short i;
calibre_precedent = 1000;
while ((calibre[voie]!=calibre_precedent)||(i != np))
{
calibre_precedent = calibre[voie];
k1944a_trigger (voie, mod, 1, niveau, 1);
i = k1944a_lire_buffer (voie, t);
}
Then k1944a_trigger (voie, mod, 1, niveau, 1); calls :
void k1944a_trigger (int voie, short mode1, int mode2, double niveau, int attendre)
{
mode1 += mode2;
if ((mode1>=20)&&(mode1<=23)) Fmt (chaine, "C%dT%d,%fX", voie, mode1, niveau);
else Fmt (chaine, "C%dT%dX", voie, mode1);
k1944a_ecrire (chaine);
if (attendre != 0)
{
k1944a_reading_done ();
}
}
and k1944a_ecrire (chaine); calls :
short k1944a_ecrire (char *texte)
{
short ok;
ibwrt (bd, texte,(long)strlen(texte));
ok=k1944a_ready ();
if (ok==0) return 0;
return 1;
}
where I have problem with ibwrt.
To initialize the instrument the function is :
short k1944a_init (void)
{
short ok;
//bd = OpenDev ("k1944", "");
bd = ibdev(0, 9, 0, T100s,
1, 0);
if (bd < 0) return -1;
// ibclr (bd);
Delay (1.0);
/* ibdma (bd, 1); */
calibre[1] = 100; calibre[2] = 100;
ok=k1944a_ecrire ("M24Q0X"); /*si ok=0, le voltmËtre ne rÈpond pas ‡*/
/* l'ordre d'Ècriture */
if (ok==0) return -1;
return 0;
}
If you need more tell me.
Thanks.
