FabulaTech Forum - VBScript Examples

Apr 25^th, 2024, 9:44pm

Welcome, Guest. Please Login or Register.

FabulaTech Forum
Serial Port Solutions
Serial Port Control (Moderators: Tim_GaliullinFT, Sergey_Jarovski, Andrew)
VBScript Examples

« Previous topic | Next topic »

Pages: 1

Notify of replies

Author

Topic: VBScript Examples (Read 5274 times)

infotech
FabulaTech Forum Newbie

Gender:

Posts: 1

VBScript Examples
« on: Feb 4^th, 2010, 11:28am »

Quote

Modify

1. Is it possible to get some vbscript examples?

« Last Edit: Feb 5^th, 2010, 5:39am by infotech »

IP Logged

Alex_Webster
FabulaTech Forum Senior Member

Gender:

Posts: 257

Re: WriteArray troubles in VBScript
« Reply #1 on: Feb 5^th, 2010, 5:40am »

Quote

Modify

Here is your code with a couple of remarks ( they are marked with !!!):
-----------------------------------------------------------------------

Dim objFTPort

'Dim arrCmd
'arrCmd = array(CByte(0), CByte(16), CByte(2), CByte(0), CByte(1))

Dim Arr(4)
Arr(0) = 0
Arr(1) = 16
Arr(2) = 2
Arr(3) = 0
Arr(4) = 1

Set objFTPort = CreateObject("FTSPC.FTSPCControl")
objFTPort.PortName = "COM1"
objFTPort.BaudRate = 2400
objFTPort.DataBits = 8
objFTPort.StopBits = 0 '!!! <--- =0 - one stop bit, =1 - 1.5stop bits, 2 - two stop bits
objFTPort.Parity = 0
objFTPort.FlowControl = 0
call objFTPort.Open()
If objFTPort.IsOpened Then
call objFTPort.WriteArray(arr, 5) '!!! Use "call" if you want to use "( )"
End If

'call objFTPort.Close()

IP Logged

Pages: 1

Notify of replies


« Previous topic \| Next topic »