home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / sharewar / wscmclib / MODULE16.BAS < prev    next >
BASIC Source File  |  1998-08-09  |  682b  |  37 lines
  1. '
  2. ' VBA (EXCEL/ACCESS/WORD) Module Code
  3. '
  4.  
  5. Const Port = COM1
  6.  
  7. Function OpenPort ()
  8. Dim Code As Integer
  9. Code = SioReset(Port, 512, 512)
  10. Code = SioBaud(Port, Baud9600)
  11. Code = SioParms(Port, NoParity, OneStopBit, WordLength8)
  12. Code = SioDTR(Port, SET_LINE)
  13. OpenPort = Code
  14. End Function
  15.  
  16. Function ClosePort()
  17. ClosePort = SioDone(Port)
  18. End Function
  19.  
  20. Function GetByte()
  21. GetByte = SioGetc(Port)
  22. End Function
  23.  
  24. Function PutAT()
  25. Dim Code As Integer
  26. Code = SioPutc(Port, Asc("A"))
  27. Code = SioPutc(Port, Asc("T"))
  28. PutAT = SioPutc(Port, 13)
  29. End Function
  30.  
  31. Function PutByte (TheByte)
  32. Dim Code As Integer
  33. Code = SioPutc(Port, TheByte)
  34. PutByte = Code
  35. End Function
  36.  
  37.