Function Help

[Jason Boes <jpb at lumigen dot com>]

CutOffWeight is a TextArea.  I am Trying to get the code to warn me if 
the Value returned by the scale is lower than the text entered in Field 
to warn me.  I am just wondering what I am missing.

Protected Function CutOffWeight (a As Single) As Single
     a = Val(CuttOffField.Text)
End Function


Property ( CutOff Weight As Single)

In Serial Data Available:
  Dim j As Integer
  Dim k As Single

  j = Len(Serial1.LookAhead())

  If j = 18 then
    Beep
    k = Val(Right(Serial1.Read(18),14))
    TotalWeightText.Text = str(k)+ " g"
    if k < CutOffWeight() then
      beep
      beep
      beep
      beep
      beep
    End If
  End If

Jason Boes
IT/Instrumentation
Lumigen, Inc.
(248) 455-8282

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>