PureBasic Forums - English

Or you can use this version ( the one I've built ). It powers directly from USB port and the component-list is smaller.
You can add up to 8 sensors in parallel-conection.

http://www.riccibitti.com/pc_therm/usb_pc_therm.gif

The project I'll be working in couple of weeks is for a thermometer ...

I have nothing against this

I got it . In the formula : , first time, the (temperature_int * 256 + temperature_frac) is divided by 128, then the result is multiplied by 0.5

Here is my code result :

Serial Port Opened!
The Integer part is :23
The Fraction part is :96
Temperature is :23.375000


Here is your code result :

5984
23.375


I use the formula :

Debug "The Integer part is :" +Str(temperature_int)
Debug "The Fraction part is :" +Str(temperature_frac ...

Yes, it works, but you have tu use #PB_SerialPort_Nohandshake.

With #PB_SerialPort_RtsCtsHandshake it gives me 0.0
With #PB_SerialPort_NoHandshake it gives me :
5840
22.8125

This is the modified code, with #PB_SerialPort_NoHandshake
;
; DS1631 at a serial port
;


#StartConvertT = $51 ...

This is my working code :

Procedure.i open_iic_bus()
comport.s = "COM1"
gg= OpenSerialPort(0, comport, 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 512)



If gg
Debug "Serial Port Opened!"
Else
Debug "nooo"
EndIf
EndProcedure

Procedure close_iic_bus()
CloseSerialPort(0 ...

This is what it shows in both cases ( before and after the modification ) :

Here is what the debug window "says" :

Serial Port Opened!
The Integer part is :22
The Fraction part is :208
Temperature is :22.812500
Serial Port Opened!
The Integer part is :22
The Fraction part is :208
Temperature is :22.812500
Serial Port Opened!
The Integer part is :22
The Fraction part is ...

Thanks, I got it, it works !
The "If B & $80" was the fault

It's DS1631, I changed the value, acording to DS1631 Datasheet, so $51 is good.

I also think that this piece of code has to do with it :

Public Function IIC_tx_byte(ByVal B As Long) As Integer
Dim i As Integer
For i = 0 To 7
If (B And &H80) Then
IIC_tx_bit_1
Else
IIC_tx_bit_0
End If
B = B * 2
Next
IIC_tx_byte = IIC_rx_bit
End Function

the If (B And &H80 ) looks ...

Yes, I agree, but the VB6 source code as I posted, works fine if I compile.

With math in my code, yes, I get -246, but if I correct the brackets as in your example, i get -1.0. But the real temperature that the VB6 compiled program shows is 21.88 degrees.

They are returning 255 , both of them

I tried both suggestions, and still nothing. I get -1.0 ( that means temperature_int = 255 and temperature_frac = 255 ).
Maybe is because how I opened the serial port.