lm75 cim5 aan pc via parallele poort

[Verwijderd]

hey,


voor school zijn we bezig met een weerstation. nu gebruiken we voor temp sensor de LM75, met I2C. maar als ik nu met de software (gemaakt in VB5) de sensor wil uitlezen krijg ik er alleen maar 1 en uit. hoe komt dat en wat kan ik er aan doen???

Misschien heeft iemand een voorbeeld in VB????

thnx

[Verwijderd]

Waarschijnlijk bedoel je de binaire output. Lees even De Parallelle poort FAQ. VB code om binair naar decimaal om te zetten:

Visual Basic .NET:

Function Bin2Dec(Num As String) As Long 
Dim n As Integer 
     n = Len(Num) - 1
     a = n 
     Do While n > -1 
        x = Mid(Num, ((a + 1) - n), 1) 
        Bin2Dec = IIf((x = "1"), Bin2Dec + (2 ^ (n)), Bin2Dec) 
        n = n - 1 
     Loop 
End Function

Hoeveel tekens krijg je als output?

[Verwijderd]

nou er horen 9 bits uit tekemen bestaand uit paar 0en en 1en. maar hij geeft alleen 1en uit. dus dat snap ik niet helemaal. als ik dat om zou gaan zetten krijg ik een temp van -55 graden. en das nie helemaal goed.(hoop ik. dan ist wel heel koud op m'n kamer.)

[Verwijderd]

Verwijderd schreef op 14 december 2003 @ 14:46:
nou er horen 9 bits uit tekemen bestaand uit paar 0en en 1en. maar hij geeft alleen 1en uit. dus dat snap ik niet helemaal. als ik dat om zou gaan zetten krijg ik een temp van -55 graden. en das nie helemaal goed.(hoop ik. dan ist wel heel koud op m'n kamer.)

Het zou wel bij je nickname passen Als je zeker weet dat je het hardwarematig goed hebt aangesloten (dat controleer je natuurlijk als eerste, nameten) lees je misschien het verkeerde uit. Misschien kun je eens een (relevant) stukje van je source code posten.

[Verwijderd]

jah zou zeker bij m'n naam passen. maar hier de source. ik gerbruik een OCX die door m'n leraar gemaakt is. ook daar heb ik de source van.


OCX:

code:

'Default Property Values:
Const m_def_prefix = "1001"
Const m_def_uitgang = "00000000000000000000000000000000"
Const m_def_ingang = "11111111111111111111111111111111"
'Const m_def_waarde = 0
'Property Variables:
Dim m_prefix As Variant
Dim m_uitgang As Variant
Dim m_ingang As Variant
'Dim m_waarde As Variant
'Event Declarations:
'Event IODataAvailable(ReadData As Byte) 'MappingInfo=IOOcx1,IOOcx1,-1,IODataAvailable
'Event Show() 'MappingInfo=UserControl,UserControl,-1,Terminate
'Dim X, Y As Byte
Dim scl, adres

Function read_i2c(adr)
Static leesdata As String, lees(8)
: start_i2c: write_i2c (adr)
  For Y = 1 To 8: For X = 0 To 7
    IOOcx1.WriteIO (2 + scl(X) Xor 3): If X = 5 Then lees(Y) = (IOOcx1.ReadIO() And 64) / 64
  Next X: Next Y
  IOOcx1.WriteIO (1): leesdata = ""
  For X = 1 To 8: leesdata = leesdata + Mid(Str(lees(X)), 2, 1): Next X: read_i2c = leesdata
End Function

Sub start_i2c()
Static sda
For X = 0 To 7
  If X > 5 Then sda = 0 Else sda = 1
  IOOcx1.WriteIO (sda * 2 + scl(X) Xor 3)
Next X
End Sub

Sub write_i2c(adr)
  For Y = 1 To 9
    For X = 0 To 7: IOOcx1.WriteIO (Mid(adr, Y, 1) * 2 + scl(X) Xor 3): Next X
  Next Y
  'IOOcx1.WriteIO (1)
End Sub

Private Sub Timer1_Timer()
Static uit(3), i(3) As String
  '**************   uit = uitgang    i = ingang  *************
  For a = 0 To 3
    uit(a) = Mid(m_uitgang, (a * 8) + 1, 8)
:   start_i2c: write_i2c (m_prefix + adres(a) + "0" + "1"): write_i2c (uit(a) + "1")
  Next a
  For a = 4 To 7: i(a - 4) = "": i(a - 4) = read_i2c(m_prefix + adres(a) + "1" + "1"): Next a
  m_ingang = i(3) & i(2) & i(1) & i(0)
End Sub

Private Sub UserControl_Initialize()
  scl = Array(0, 0, 0, 0, 1, 1, 1, 1): adres = Array("000", "001", "010", "011", "100", "101", "110", "111")
End Sub
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=Timer1,Timer1,-1,Enabled
Public Property Get Enabled() As Boolean
    Enabled = Timer1.Enabled
End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean)
    Timer1.Enabled() = New_Enabled
    PropertyChanged "Enabled"
End Property
'
'Public Property Get waarde() As Variant
'    waarde = m_waarde
'End Property
'
'Public Property Let waarde(ByVal New_waarde As Variant)
'    m_waarde = New_waarde
'    PropertyChanged "waarde"
'End Property

'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
'    m_waarde = m_def_waarde
    m_ingang = m_def_ingang
    m_uitgang = m_def_uitgang
    m_prefix = m_def_prefix
End Sub

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Timer1.Enabled = PropBag.ReadProperty("Enabled", True)
'    m_waarde = PropBag.ReadProperty("waarde", m_def_waarde)
    m_ingang = PropBag.ReadProperty("ingang", m_def_ingang)
    m_uitgang = PropBag.ReadProperty("uitgang", m_def_uitgang)
    IOOcx1.Interval = PropBag.ReadProperty("Interval", 1)
    m_prefix = PropBag.ReadProperty("prefix", m_def_prefix)
End Sub

Private Sub UserControl_Terminate()
  Timer1.Enabled = False
  For a = 0 To 3
:   start_i2c: write_i2c (m_prefix + adres(a) + "0" + "1"): write_i2c ("000000001")
  Next a

End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Enabled", Timer1.Enabled, True)
'    Call PropBag.WriteProperty("waarde", m_waarde, m_def_waarde)
    Call PropBag.WriteProperty("ingang", m_ingang, m_def_ingang)
    Call PropBag.WriteProperty("uitgang", m_uitgang, m_def_uitgang)
    Call PropBag.WriteProperty("Interval", IOOcx1.Interval, 1)
    Call PropBag.WriteProperty("prefix", m_prefix, m_def_prefix)
End Sub
'
''WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
''MappingInfo=UserControl,UserControl,-1,Refresh
'Public Sub Refresh()
'    UserControl.Refresh
'End Sub
'
'Private Sub UserControl_Terminate()
'    RaiseEvent Show
'End Sub
'
Public Sub Refresh()
     
End Sub

Public Property Get ingang() As Variant
    ingang = m_ingang
End Property

Public Property Let ingang(ByVal New_ingang As Variant)
    m_ingang = New_ingang
    PropertyChanged "ingang"
End Property

Public Property Get uitgang() As Variant
    uitgang = m_uitgang
End Property

Public Property Let uitgang(ByVal New_uitgang As Variant)
    m_uitgang = New_uitgang
    PropertyChanged "uitgang"
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=IOOcx1,IOOcx1,-1,Interval
Public Property Get Interval() As Long
    Interval = IOOcx1.Interval
End Property

Public Property Let Interval(ByVal New_Interval As Long)
    IOOcx1.Interval() = New_Interval
    PropertyChanged "Interval"
End Property
'
'Private Sub IOOcx1_IODataAvailable(ReadData As Byte)
'    RaiseEvent IODataAvailable(ReadData)
'End Sub
'
Public Property Get prefix() As Variant
    prefix = m_prefix
End Property

Public Property Let prefix(ByVal New_prefix As Variant)
    m_prefix = New_prefix
    PropertyChanged "prefix"
End Property

source :

code:

Text1.Text = i2c_temp.ingang

(onze leraar beweerd dat ik ook gewoon 8 IPV die 9 bits uitkan lezen. dus OCX leest er maar 8 uit.)

[DiLDoG]

als je de eerste 8 uit leest dan mis je bijvoorbeeld een halve graden. hij is gewoon half zo precies, wel zonde, maar t kan wel

[Verwijderd]

jah idd. maar ik krijg er alleen maar 1en uit. dus dta klopt gewoon niet. kan het ding kapot zijn of komen er dan nullen uit???

[Verwijderd]

Verwijderd schreef op 14 december 2003 @ 16:07:
jah idd. maar ik krijg er alleen maar 1en uit. dus dta klopt gewoon niet. kan het ding kapot zijn of komen er dan nullen uit???

Die OCX kan ik niet helemaal uitpluizen, heb dus geen idee of daar de fout zit. Maar als je wilt weten of de sensor verkeerde waardes afgeeft kun je dat natuurlijk gewoon meten; je weet dan meteen of al die eenen kloppen. Of die OCX goed is zal die docent wel weten

[Verwijderd]

De elektuur heeft een zeer makkelijk boek dat voorbeelden geeft wat betreft I2C op de serieele en parallele poort.
Het boek heet "pc poorten onder windows" meen ik.
Ga eens naar de bieb en kijk eens rond. Mischien dat je het zelf ook aan kunt schaffen (is een zeer leuk boek om te hebben).
www.elektuur.nl