To LUGNET HomepageTo LUGNET News HomepageTo LUGNET Guide Homepage
 Help on Searching
 
Post new message to lugnet.roboticsOpen lugnet.robotics in your NNTP NewsreaderTo LUGNET News Traffic PageSign In (Members)
 Robotics / 9872
9871  |  9873
Subject: 
Re: ASP and Spirit.ocx
Newsgroups: 
lugnet.robotics
Date: 
Sat, 8 Jan 2000 22:54:06 GMT
Viewed: 
1106 times
  
Try something a little more like this:

option explicit
dim PBrickCtrl
dim getLinkType
set PBrickCtrl = server.CreateObject("SPIRIT.SpiritCtrl.1")
if ( isObject(PBrickCtrl)=true ) then
getLinkType=PBrickCtrl.LinkType
response.write("object success - getLinkType=" & getLinkType & "<br>" & vbCrLf)
else
response.write("object creation failed!" & "<br>" & vbCrLf)
end if
PBrickCtrl.ComPortNo ="1"
PBrickCtrl.LinkType = 0
PBrickCtrl.PBrick = 1
PBrickCtrl.InitComm()
PBrickCtrl.SetPower "012",0,1999
PBrickCtrl.On("012")
PBrickCtrl.PlaySystemSound( 2 )
PBrickCtrl.Off("012")

If PBrickCtrl.TowerAlive Then
'Lets rock

Else
  PBrickCtrl.CloseComm
End If



Message is in Reply To:
  Re: ASP and Spirit.ocx
 
(...) yeah I've had a stab at this a while ago. I should write this up I guess. The main problem I found with the spirit.ocx is the that (as far as I can tell) is not a console app, say like an ActiveX dll. Read the steps below I took.... 1. Install (...) (25 years ago, 14-Nov-99, to lugnet.robotics)

6 Messages in This Thread:


Entire Thread on One Page:
Nested:  All | Brief | Compact | Dots
Linear:  All | Brief | Compact
    

Custom Search

©2005 LUGNET. All rights reserved. - hosted by steinbruch.info GbR