AnsweredAssumed Answered

vrf Amendment to my previous email.

Question asked by ron.simonson on Oct 7, 1999
----------
X-Sun-Data-Type: text
X-Sun-Data-Description: text
X-Sun-Data-Name: text
X-Sun-Charset: us-ascii
X-Sun-Content-Lines: 7

Good afternoon all, I erroneously sent an old
version of the VEE program in my last email
regarding SPI programming.  Please replace the
lpio.vee program from my previous post with
this new one.  Sorry for the confusion.

Regards,  Ron.
----------
X-Sun-Data-Type: default
X-Sun-Data-Name: lpio.vee
X-Sun-Charset: us-ascii
X-Sun-Content-Lines: 271

(saveFormat "2.3")
(date "Thu 07/Oct/1999 14:42:24 ")
(veerev "5.0")
(platform "PC")
(execMode ole)
(filterNAN 0)
(workspaceStackingOrder M)
(SaveCF no)
(device 0 ROOTCONTEXT
(properties
(trigMode deg)
(nextID 21)
(popupTitleText "Untitled")
(popupMoveable 1))
(deviceList
(device 2 IMPORT
(properties
(name "Import Library")
(libType DLL)
(libName "SPI_DLL")
(fileName "C:\users\rons\Vee_Progs\ProgSPI\SPI_DLLv2.dll")
(defnFileName "C:\users\rons\Vee_Progs\ProgSPI\SPI_DLL.h"))
(implementation))
(device 3 START25
(properties
(name "Import Library")))
(device 7 TEXTDISPLAY
(interface
(input 1
(name "Data"))))
(device 8 LITERALCONSTANT
(properties
(name "Text"))
(interface
(output 1
(name "Text")
(lock name constraints)))
(implementation
(value Text
(data  "Done"))
(initValue Text
(data  ""))))
(device 12 NOTE
(properties
(text2 3 "You must toggle the Import Library" "button once, to load the DLL,"
"before making any calls to ProgSPI.")))
(device 13 CALL
(properties
(name "Call ProgSPI")
(callFunc "ProgSPI")
(parmMode rev30))
(interface
(input 1
(name "portid")
(optional yes))
(input 2
(name "delay_time")
(optional yes))
(input 3
(name "value")
(optional yes))))
(device 14 LITERALCONSTANT
(properties
(name "DelayTime"))
(interface
(output 1
(name "Text")
(lock name constraints)))
(implementation
(value Text
(data  "2"))
(initValue Text
(data  ""))))
(device 15 LITERALCONSTANT
(properties
(name "portid"))
(interface
(output 1
(name "Text")
(lock name constraints)))
(implementation
(value Text
(data  "0x278"))
(initValue Text
(data  ""))))
(device 16 FORMULA
(properties
(name "BuildRegString")
(expr 1 "(RegAddress*512)+RegData"))
(interface
(input 1
(name "RegAddress")
(optional yes))
(input 2
(name "RegData")
(optional yes))
(output 1
(name "Result")
(tag "Result")
(lock name constraints)
(optional yes))))
(device 17 CONSTANT
(properties
(name "RegData"))
(interface
(output 1
(name "Int32")
(lock name constraints)))
(implementation
(value Int32
(data  0))
(initValue Int32
(data  0))))
(device 18 CONSTANT
(properties
(name "RegAddress"))
(interface
(output 1
(name "Int32")
(lock name constraints)))
(implementation
(value Int32
(data  3))
(initValue Int32
(data  0))))
(device 20 START25
(properties
(name "Twiddle port pins")))
(configuration
(connect D1:0 D0:0)
(connect D0:0 D2:0)
(connect D3:1 D2:1)
(connect D11:0 D5:0)
(connect D7:1 D5:1)
(connect D6:1 D5:2)
(connect D8:1 D5:3)
(connect D10:1 D8:1)
(connect D9:1 D8:2)))
(contextCarrier
(wndRestoredOrigin 2 2)
(wndRestoredExtent 600 423)
(wndState max)
(active detail)
(detail
(extent 828 651)
(anchorPt 582 -29)
(configuration
(devCarrierFor 2
(active icon)
(icon
(extent 82 15))
(open
(extent 466 117))
(pinCenter -110 220))
(devCarrierFor 3
(active open)
(icon
(extent 82 0))
(open
(extent 121 87))
(title off)
(bg "Yellow")
(font "Arial" 14 bold)
(pinCenter -110 140))
(devCarrierFor 7
(active open)
(icon)
(open
(extent 121 22))
(pinCenter -110 290))
(devCarrierFor 8
(active icon)
(icon
(extent 26 15))
(open
(extent 174 29))
(pinCenter -220 290))
(devCarrierFor 12
(active open)
(icon
(iconImage "notepad.icn"))
(open
(extent 290 78)
(editing enabled))
(pinCenter -340 210))
(devCarrierFor 13
(active icon)
(icon
(extent 77 34))
(open
(extent 176 82))
(terminals on)
(pinCenter 110 510))
(devCarrierFor 14
(active open)
(icon
(extent 64 0))
(open
(extent 142 37))
(pinCenter -180 510))
(devCarrierFor 15
(active open)
(icon
(extent 35 0))
(open
(extent 142 37))
(pinCenter -180 440))
(devCarrierFor 16
(active open)
(icon
(extent 91 33))
(open
(extent 184 43))
(terminals on)
(pinCenter -210 580))
(devCarrierFor 17
(active open)
(icon
(extent 53 0))
(open
(extent 89 29)
(showFormat int))
(pinCenter -480 620))
(devCarrierFor 18
(active open)
(icon
(extent 75 0))
(open
(extent 111 29)
(showFormat int)
(formatter
(realFormat standard)
(realSigDigits 4)
(realRadixSpec 4)
(integerBase hexadecimal)))
(pinCenter -480 540))
(devCarrierFor 20
(active open)
(icon
(extent 103 0))
(open
(extent 146 69))
(title off)
(bg "Green")
(font "Arial" 14 bold)
(titleFont "Arial" 12)
(pinCenter 110 360))
(connect D1:0 D0:0
(points 2 -110 186 -110 210))
(connect D0:0 D2:0
(points 2 -110 230 -110 258))
(connect D3:1 D2:1
(points 2 -205 290 -173 290))
(connect D11:0 D5:0
(points 2 110 397 110 490))
(connect D7:1 D5:1
(points 4 -107 440 -90 440 -90 500 69 500))
(connect D6:1 D5:2
(points 2 -107 510 69 510))
(connect D8:1 D5:3
(points 4 -66 580 -50 580 -50 520 69 520))
(connect D10:1 D8:1
(points 4 -422 540 -410 540 -410 570 -395 570))
(connect D9:1 D8:2
(points 4 -433 620 -410 620 -410 590 -395 590)))
(stackingOrder 3 1 2 10 6 7 8 9 5 11 4 0))
(numberFormats
(realFormat standard)
(realSigDigits 4)
(realRadixSpec 4)
(integerBase decimal))))
---------------------------------------------------------------------
This is the "vrf" maillist, managed by Majordomo.  To send messages to
this maillist, just email to "vrf@lvld.hp.com".  Subscriptions and
unsubscriptions are done through the address "vrf-request@lvld.hp.com".
If you need details, just send a message containing the text "help"
to "vrf-request@lvld.hp.com".
---------------------------------------------------------------------

Outcomes