Test program for Hiasm 4
Add(MainForm,2953706,21,105)
{
Width=976
Height=593
Point(onClose)
link(onClose,2455737:doWork2,[(71,132)(71,398)])
}
Add(EnumCOM,15691736,98,245)
{
OutType=0
link(onEnumPorts,3955287:doAdd,[])
}
Add(COMEX,10679999,203,427)
{
DataBits=1
Point(onRING)
Point(onDCD)
Point(onCTS)
Point(onDSR)
Point(onSetComState)
Point(doRXClear)
Point(doDTR)
Point(doRTS)
Point(doSetComState)
link(onSyncWrite,1930118:doText,[(271,433)(271,349)])
link(onRead,10979187:doValue,[(345,440)(345,412)])
link(onSyncRead,3724314:doValue,[(345,447)(345,454)])
link(Port,6647147:Value,[])
link(BaudRate,16326190:Value,[(216,321)(370,321)])
link(onRING,6561896:doText,[(275,454)(275,468)])
link(onDCD,11709161:doText,[(281,461)(281,517)])
link(onCTS,12023232:doText,[(268,468)(268,559)])
link(onDSR,8285548:doText,[(258,475)(258,601)])
link(onSetComState,7542368:doText,[(249,482)(249,650)])
}
Add(ComboBox,1302486,308,203)
{
Left=200
Top=30
Width=170
Height=24
Strings=#2:50|2:75|3:110|3:150|3:300|3:600|4:1200|4:1800|4:2000|4:2400|4:3600|4:4800|4:7200|4:9600|5:14440|5:19200|5:28800|5:38400|5:57600|6:115200|6:128000|6:256000|
Text="Baud Rate"
DataType=1
Point(onSelect)
Point(onChangeText)
link(onClick,16326190:doValue,[(352,216)(352,230)])
}
Add(Memory,16326190,364,224)
{
link(onData,3506215:doText,[(407,230)(407,229)])
}
Add(ComboBox,3955287,154,245)
{
Left=5
Top=30
Width=170
Height=24
Strings=#0:|4:COM1|4:COM2|4:COM3|4:COM4|4:COM5|4:COM6|4:COM7|4:COM8|4:COM9|5:COM10|5:COM11|5:COM12|5:COM13|5:COM14|5:COM15|5:COM16|5:COM17|5:COM18|5:COM19|5:COM20|
Text="Port Number"
Point(onSelect)
Point(onChangeText)
link(onClick,6647147:doValue,[(194,258)(194,265)])
}
Add(Memory,6647147,203,259)
{
Default=Integer(9600)
link(onData,213112:doText,[])
}
Add(Button,14559517,7,245)
{
Left=15
Top=85
Width=80
Caption="Enum"
link(onClick,5608508:doWork2,[])
}
Add(Button,452509,112,322)
{
Left=15
Top=110
Width=80
Caption="Open"
link(onClick,10679999:doOpen,[(187,328)(187,433)])
}
Add(Button,11772522,112,364)
{
Left=15
Top=135
Width=80
Caption="Close"
link(onClick,2455737:doWork1,[(177,370)])
}
Add(CheckBox,12491755,84,497)
{
Left=235
Top=65
Width=75
Caption="DTR 1"
link(onCheck,10679999:doDTR,[(177,503)(177,461)])
}
Add(Button,6992723,84,455)
{
Left=105
Top=85
Width=80
Caption="RX Clear"
link(onClick,10679999:doRXClear,[(174,461)(174,454)])
}
Add(CheckBox,184272,84,539)
{
Left=235
Top=115
Width=80
Caption="RTS 1"
link(onCheck,10679999:doRTS,[(160,545)(160,468)])
}
Add(Label,1930118,294,343)
{
Left=635
Top=155
}
Add(Label,6561896,308,462)
{
Left=395
Top=145
}
Add(Label,4207733,371,462)
{
Left=320
Top=145
Width=52
Height=20
Caption="OnRing "
}
Add(Label,11709161,308,511)
{
Left=395
Top=65
}
Add(Label,11544116,371,511)
{
Left=325
Top=65
Width=52
Height=20
Caption="On DCD"
}
Add(Label,12023232,308,553)
{
Left=395
Top=115
}
Add(Label,382687,371,553)
{
Left=325
Top=115
Width=52
Height=20
Caption="On CTS"
}
Add(Label,8285548,308,595)
{
Left=395
Top=85
}
Add(Label,6988529,371,595)
{
Left=325
Top=85
Width=52
Height=20
Caption="On DSR"
}
Add(Label,7542368,308,644)
{
Left=635
Top=125
}
Add(Label,14659245,371,644)
{
Left=515
Top=125
Width=102
Height=20
Caption="On Set Com State"
}
Add(RichEdit,5827556,714,448)
{
Left=395
Top=180
Width=365
Height=320
ScrollBars=3
InsertCRLF=1
Point(FileName)
link(FileName,1383569:Value,[(741,415)(797,415)])
}
Add(Label,213112,259,259)
{
Left=145
}
Add(HubEx,5608508,63,245)
{
link(onEvent,15691736:doEnumPorts,[])
}
Add(Button,14188485,84,581)
{
Left=375
Top=30
Width=100
Height=25
Caption="Set com state"
link(onClick,10679999:doSetComState,[(195,587)(195,475)])
}
Add(Label,3506215,418,223)
{
Left=320
Top=5
}
Add(RichEdit,8299331,533,300)
{
Left=15
Top=180
Width=365
Height=320
ScrollBars=3
InsertCRLF=1
Point(onChar)
Point(FileName)
Point(doCursor)
Point(Handle)
link(onChar,15117365:doWork1,[(575,313)])
link(FileName,10911216:Value,[(560,291)(783,291)])
}
Add(Label,6235371,203,147)
{
Left=100
Top=160
Width=121
Height=20
Caption="Data for transmitting"
}
Add(Label,16289719,447,156)
{
Left=505
Top=155
Width=96
Height=20
Caption="Received data "
}
Add(HubEx,2455737,173,392)
{
Angle=1
link(onEvent,10679999:doClose,[(177,440)])
}
Add(Memory,3724314,567,448)
{
link(onData,15554017:doCompare,[(611,454)(611,594)(450,594)(450,734)])
}
Add(Memory,10979187,525,406)
{
link(onData,7009701:doCompare,[(563,412)(563,521)(441,521)(441,629)])
}
Add(RadioButton,1452631,462,539)
{
Left=720
Top=20
Selected=0
Caption="Async"
}
Add(RadioButton,681468,463,673)
{
Left=720
Top=50
Caption="Sync"
}
Add(If_else,7009701,462,623)
{
Op2=Integer(1)
link(onTrue,6366776:doData,[])
link(Op1,1452631:Selected,[])
}
Add(DoData,6366776,525,623)
{
link(onEventData,13463060:doWork3,[(635,629)])
link(Data,10979187:Value,[])
}
Add(DoData,12028296,567,728)
{
link(onEventData,13463060:doWork2,[(615,734)(615,601)])
link(Data,3724314:Value,[])
}
Add(If_else,15554017,462,728)
{
Op2=Integer(1)
link(onTrue,12028296:doData,[])
link(Op1,681468:Selected,[(468,716)(469,716)])
}
Add(HubEx,13463060,631,595)
{
Angle=3
link(onEvent,5827556:doAdd,[(635,454)])
}
Add(ODialog,13068799,707,245)
{
link(onExecute,5671635:doEvent1,[])
}
Add(Button,4665630,651,245)
{
Left=15
Top=505
Caption="Load"
link(onClick,13068799:doExecute,[])
}
Add(Label,7547326,28,532)
{
Left=815
Top=275
}
Add(Memory,10911216,777,245)
{
link(onData,10116895:doEvent1,[])
}
Add(Label,7000143,868,245)
{
Left=20
Top=535
}
Add(Hub,10116895,826,245)
{
OutCount=3
link(onEvent1,7000143:doText,[])
link(onEvent2,8299331:doLoad,[(847,258)(847,284)(507,284)(507,327)])
}
Add(Button,1920478,427,350)
{
Left=90
Top=505
Width=85
Caption="Transmit"
link(onClick,8050318:doWork2,[])
}
Add(ArrayEnum,12635300,602,378)
{
link(onItem,15117365:doWork3,[(646,384)(646,349)])
link(Array,8299331:Array,[(608,362)(553,362)])
}
Add(HubEx,15117365,571,343)
{
Angle=1
link(onEvent,10679999:doWrite,[(575,386)(191,386)(191,447)])
}
Add(HubEx,8050318,544,350)
{
Angle=1
link(onEvent,12635300:doEnum,[(548,384)])
}
Add(SDialog,8306008,742,350)
{
FileName="logtx.txt"
link(onExecute,1383569:doValue,[])
}
Add(Button,4087852,686,350)
{
Left=400
Top=505
Caption="Save"
link(onClick,8306008:doExecute,[])
}
Add(Memory,1383569,791,350)
{
link(onData,5827556:doSave,[(835,356)(835,419)(702,419)(702,482)])
}
Add(Button,14492944,651,196)
{
Left=195
Top=505
Width=65
Caption="Save"
link(onClick,15437328:doExecute,[])
}
Add(SDialog,15437328,707,196)
{
FileName="logrx.txt"
link(onExecute,14041053:doEvent1,[])
}
Add(Hub,5671635,749,245)
{
InCount=2
OutCount=3
link(onEvent1,10911216:doValue,[])
}
Add(Hub,14041053,756,196)
{
InCount=2
OutCount=3
link(onEvent1,5671635:doEvent2,[(782,202)(782,230)(737,230)(737,258)])
link(onEvent2,8299331:doSave,[(782,209)(782,271)(521,271)(521,334)])
}
Prolific Comm To USB driver not working
Move on to a product that will work.
