serial comm problem

[schu4647]

For development i always use an LED to make sure my output is going on and off. Then I usually have to drive the relay with a transistor. I haven't found a relay yet I could directly drive.

[mister_e]

forget me...i was wrong

[mister_e]

dumb answer here too check the next...

[mister_e]

no big solution... it's working here using

Private Sub Form_Load()
    Option1(0).Value = True
    MSComm1.CommPort = 1
    MSComm1.Settings = "2400,n,8,1"
    MSComm1.DTREnable = False
    MSComm1.RThreshold = 1
    MSComm1.InputLen = 1
    MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
    Dim pinstate As Byte
    If Option1(0).Value = True Then
        pinstate = 1
        Else
            pinstate = 0
        End If
    
    MSComm1.Output = Chr(255) & Chr(pinstate)
End Sub

Private Sub form_unload(Cancel As Integer)
    MSComm1.PortOpen = False
End Sub

on the PICSide

INCLUDE "modedefs.bas"

Si       VAR PORTA.4
RELAY    VAR PORTB.2
pinstate VAR BYTE

main:
    SerIn Si,n2400,[255],pinstate
    
    IF pinstate=1 Then
        GoSub Relayon
        Else
           GoSub Relayoff
        EndIF
    
    goto main
    
Relayon:
    High RELAY
    Return

Relayoff:
    Low RELAY
    Return

sorry, try a lower resistor value and be sure you share the same ground, be sure you place 0.1 uF cap close to your PIC and be sure of your crystal speed and capacitor value.

Schu4647 have also point an interesting fact... be sure it's not the relay who create the bug.

[Melanie]

> I haven't found a relay yet I could directly drive

There are many 5v Reed Relays, many of which need less current than an LED... and some even have integral back-emf diodes across the coil which dispenses the need for any other external components. Meder Electronic www.meder.com springs to mind, at prices in volume of under $1 a lump, they're not exactly budget breaking either.

[dhouston]

> I haven't found a relay yet I could directly drive

There are many 5v Reed Relays, many of which need less current than an LED... at prices in volume of under $1 a lump, they're not exactly budget breaking either.

And they tend to be rated for billions of cycles.

[schu4647]

Those are girly relays. I use manly relays.