Discussion :

[gilles641]

Bonjour,
Mon maitre de stage me dit ce matin : tiens, voila une sonde qui se branche sur le port com, fais un ptit prog en delphi qui recupere la temperature, t as pleins de compos pour ca..
G trouve le fameux TComPort.
C bien beau, j arrive a me connecter au peripherique ( theoriquement ) et je vois pas comment je peux faire des requetes pour avoir la temperature ou quoique ce soit.. quelqu un a une idee ?
merci bcp

[MD Software]

Utilise WriteStr pour envoyer tes commandes et l'évènement onRxChar pour récupérer ce que la sonde te renvoie.

[gilles641]

Oui mais comment savoir quoi envoyer a la sonde ?

[gilles641]

Les seules infos que j ai c ca : www.riccibitti.com/pc_therm.htm

[MD Software]

Si tu n'as pas le protocole de communication avec la sonde, ça va être plus compliqué.
Ce que tu peux faire, c'est prendre l'un des programmes proprosé par ton lien et d'espionner les commandes transmises sur le port.

[gilles641]

En fait les sources en c ont l air super complexes..
Entre 10000 fctions g trouve la fct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
int ReadTemperature( HANDLE hCom, int read_time )
{
  if( TouchByte( hCom, 0x44 ) < 0 )
  {
    fprintf( stderr, "Error issuing Read Temperature command\n");
    return -1;
  }
 
  msDelay( read_time );
 
//  if( ( TouchReset( hCom ) ) < 0 )
//  {
//    fprintf( stderr, "Error initalizing OneWire device\n");
//    return -1;
//  }
 
  return 0;
}

Logiquement il faut envoyer 0x44 sur le port com et ensuite attendre une reponse.. je vois pas l interet de refaire un code qui marche ej sais pas pkoi il me demande ca.. et je pense pas qu en 2semaines je v comprendre ca..

[MD Software]

Si le code n'est pas clair, execute le et repère les commandes envoyées en espionant le port série

[gilles641]

Cool il vient de me dire de le recompiler en c++ puis de l appeler de delphi parce que c irrealisable..encore une matinee de perdue
merci bcp pour la reponse tt de meme

[Nono40]

??

Irréalisable en Delphi ? m'étonnerait beaucoup. Je crois surtout qu'il ne voulait pas se faire chier à te répondre. En cinq minutes en fouillant dans le code VB ( que je n'ai pas, simplement ouvert avec Notepad ) dispo sur son site, les trames sont ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Function temperature(address As Integer) As Double
 
    Dim temperature_int As Long
    Dim temperature_frac As Long
 
    address = address * 2
    On Error GoTo errors
    open_iic_bus MSComm1.object
 
    '/*resettiamo bene il chip*/
    IIC_stop
    '/**/
    IIC_start
    IIC_tx_byte &H90 + address
    IIC_tx_byte &HAC
    IIC_tx_byte &H2
 
    IIC_start
    IIC_tx_byte &H90 + address
    IIC_tx_byte &HEE
 
    IIC_stop
 
    IIC_start
    IIC_tx_byte &H90 + address
    IIC_tx_byte &HAA
    IIC_start
    IIC_tx_byte &H91 + address
    temperature_int = IIC_rx_byte(1)
 
    temperature_frac = IIC_rx_byte(0)
    temperature = (temperature_int * 256 + temperature_frac) / 128 * 5 / 10
    If temperature_int >= 128 Then
        temperature = temperature - 256
    End If
    IIC_stop
    Exit Function
 
errors:
    temperature = ERROR_TEMPERATURE_NOT_READ
End Function

Les fonction IIC start et stop sont dans le code de IIC_bus.bas et ne font que changer l'état des signaux de contrôle.

La fonction IIC_tx_byte envoi un caractère sur la liaison série via les signaux de contrôle ( et non pas sur les broches tx/rx ), le caractère est donné en paramètre à la suite de la fonction.

Dans le code ci-dessus tu trouves don les trames à envoyer, je ne suis pas allé plus loin mais ça doit pouvoir ce transcrire très facilement en Delphi.

Je n'ai pas le temps d'aller plus loin. Si tu bloques, donne l'endroit ou tu bloques et on vera ce qu'on peut faire

[edit]Vu que ce n'est pas TX/RX qui sont utilisés il ne faut pas utiliser WriteStr et ReadStr mais les fonction de changement d'état des signaux RTS et DTR du TComport