📄 matrix_input.dlg
字号:
/*
matrix input
*! VERSION 1.1.0 28mar2005
*/
VERSION 9.0
DEFINE _dlgwd 465
DEFINE _dlght 340
INCLUDE header
HELP hlp1, view("help matrix_define")
RESET res1
DEFINE lbwd 60
DEFINE lbsep +65
DEFINE lbtx 60
DEFINE txsep +75
DEFINE mawd 120
DEFINE masep +160
DEFINE lft 10
DEFINE ttop 10
DEFINE top 85
DEFINE ss +20
DEFINE ms +25
DEFINE wid 40
DEFINE sep +45
DIALOG main, label("matrix input - Inputting a matrix") tabtitle("Main")
BEGIN
TEXT tx_name lft ttop mawd ., label("Create matrix named:")
EDIT ed_name @ ss mawd ., max(32) label("Create matrix named")
LISTBOX lb_rows masep ttop lbwd 65, label("Rows") /*
*/ contents(rows_con) onselchangelist(rows_sel)
TEXT tx_rows lbsep @ lbtx ., label("Rows")
LISTBOX lb_cols txsep @ lbwd 65, label("Columns") /*
*/ contents(cols_con) onselchangelist(cols_sel)
TEXT tx_cols lbsep @ lbtx ., label("Columns")
EDIT ed_r1c1 lft top wid ., label("Row 1, column 1")
EDIT ed_r1c2 sep @ @ ., label("Row 1, column 2")
EDIT ed_r1c3 sep @ @ ., label("Row 1, column 3")
EDIT ed_r1c4 sep @ @ ., label("Row 1, column 4")
EDIT ed_r1c5 sep @ @ ., label("Row 1, column 5")
EDIT ed_r1c6 sep @ @ ., label("Row 1, column 6")
EDIT ed_r1c7 sep @ @ ., label("Row 1, column 7")
EDIT ed_r1c8 sep @ @ ., label("Row 1, column 8")
EDIT ed_r1c9 sep @ @ ., label("Row 1, column 9")
EDIT ed_r1c10 sep @ @ ., label("Row 1, column 10")
EDIT ed_r2c1 lft ms @ ., label("Row 2, column 1")
EDIT ed_r2c2 sep @ @ ., label("Row 2, column 2")
EDIT ed_r2c3 sep @ @ ., label("Row 2, column 3")
EDIT ed_r2c4 sep @ @ ., label("Row 2, column 4")
EDIT ed_r2c5 sep @ @ ., label("Row 2, column 5")
EDIT ed_r2c6 sep @ @ ., label("Row 2, column 6")
EDIT ed_r2c7 sep @ @ ., label("Row 2, column 7")
EDIT ed_r2c8 sep @ @ ., label("Row 2, column 8")
EDIT ed_r2c9 sep @ @ ., label("Row 2, column 9")
EDIT ed_r2c10 sep @ @ ., label("Row 2, column 10")
EDIT ed_r3c1 lft ms @ ., label("Row 3, column 1")
EDIT ed_r3c2 sep @ @ ., label("Row 3, column 2")
EDIT ed_r3c3 sep @ @ ., label("Row 3, column 3")
EDIT ed_r3c4 sep @ @ ., label("Row 3, column 4")
EDIT ed_r3c5 sep @ @ ., label("Row 3, column 5")
EDIT ed_r3c6 sep @ @ ., label("Row 3, column 6")
EDIT ed_r3c7 sep @ @ ., label("Row 3, column 7")
EDIT ed_r3c8 sep @ @ ., label("Row 3, column 8")
EDIT ed_r3c9 sep @ @ ., label("Row 3, column 9")
EDIT ed_r3c10 sep @ @ ., label("Row 3, column 10")
EDIT ed_r4c1 lft ms @ ., label("Row 4, column 1")
EDIT ed_r4c2 sep @ @ ., label("Row 4, column 2")
EDIT ed_r4c3 sep @ @ ., label("Row 4, column 3")
EDIT ed_r4c4 sep @ @ ., label("Row 4, column 4")
EDIT ed_r4c5 sep @ @ ., label("Row 4, column 5")
EDIT ed_r4c6 sep @ @ ., label("Row 4, column 6")
EDIT ed_r4c7 sep @ @ ., label("Row 4, column 7")
EDIT ed_r4c8 sep @ @ ., label("Row 4, column 8")
EDIT ed_r4c9 sep @ @ ., label("Row 4, column 9")
EDIT ed_r4c10 sep @ @ ., label("Row 4, column 10")
EDIT ed_r5c1 lft ms @ ., label("Row 5, column 1")
EDIT ed_r5c2 sep @ @ ., label("Row 5, column 2")
EDIT ed_r5c3 sep @ @ ., label("Row 5, column 3")
EDIT ed_r5c4 sep @ @ ., label("Row 5, column 4")
EDIT ed_r5c5 sep @ @ ., label("Row 5, column 5")
EDIT ed_r5c6 sep @ @ ., label("Row 5, column 6")
EDIT ed_r5c7 sep @ @ ., label("Row 5, column 7")
EDIT ed_r5c8 sep @ @ ., label("Row 5, column 8")
EDIT ed_r5c9 sep @ @ ., label("Row 5, column 9")
EDIT ed_r5c10 sep @ @ ., label("Row 5, column 10")
EDIT ed_r6c1 lft ms @ ., label("Row 6, column 1")
EDIT ed_r6c2 sep @ @ ., label("Row 6, column 2")
EDIT ed_r6c3 sep @ @ ., label("Row 6, column 3")
EDIT ed_r6c4 sep @ @ ., label("Row 6, column 4")
EDIT ed_r6c5 sep @ @ ., label("Row 6, column 5")
EDIT ed_r6c6 sep @ @ ., label("Row 6, column 6")
EDIT ed_r6c7 sep @ @ ., label("Row 6, column 7")
EDIT ed_r6c8 sep @ @ ., label("Row 6, column 8")
EDIT ed_r6c9 sep @ @ ., label("Row 6, column 9")
EDIT ed_r6c10 sep @ @ ., label("Row 6, column 10")
EDIT ed_r7c1 lft ms @ ., label("Row 7, column 1")
EDIT ed_r7c2 sep @ @ ., label("Row 7, column 2")
EDIT ed_r7c3 sep @ @ ., label("Row 7, column 3")
EDIT ed_r7c4 sep @ @ ., label("Row 7, column 4")
EDIT ed_r7c5 sep @ @ ., label("Row 7, column 5")
EDIT ed_r7c6 sep @ @ ., label("Row 7, column 6")
EDIT ed_r7c7 sep @ @ ., label("Row 7, column 7")
EDIT ed_r7c8 sep @ @ ., label("Row 7, column 8")
EDIT ed_r7c9 sep @ @ ., label("Row 7, column 9")
EDIT ed_r7c10 sep @ @ ., label("Row 7, column 10")
EDIT ed_r8c1 lft ms @ ., label("Row 8, column 1")
EDIT ed_r8c2 sep @ @ ., label("Row 8, column 2")
EDIT ed_r8c3 sep @ @ ., label("Row 8, column 3")
EDIT ed_r8c4 sep @ @ ., label("Row 8, column 4")
EDIT ed_r8c5 sep @ @ ., label("Row 8, column 5")
EDIT ed_r8c6 sep @ @ ., label("Row 8, column 6")
EDIT ed_r8c7 sep @ @ ., label("Row 8, column 7")
EDIT ed_r8c8 sep @ @ ., label("Row 8, column 8")
EDIT ed_r8c9 sep @ @ ., label("Row 8, column 9")
EDIT ed_r8c10 sep @ @ ., label("Row 8, column 10")
EDIT ed_r9c1 lft ms @ ., label("Row 9, column 1")
EDIT ed_r9c2 sep @ @ ., label("Row 9, column 2")
EDIT ed_r9c3 sep @ @ ., label("Row 9, column 3")
EDIT ed_r9c4 sep @ @ ., label("Row 9, column 4")
EDIT ed_r9c5 sep @ @ ., label("Row 9, column 5")
EDIT ed_r9c6 sep @ @ ., label("Row 9, column 6")
EDIT ed_r9c7 sep @ @ ., label("Row 9, column 7")
EDIT ed_r9c8 sep @ @ ., label("Row 9, column 8")
EDIT ed_r9c9 sep @ @ ., label("Row 9, column 9")
EDIT ed_r9c10 sep @ @ ., label("Row 9, column 10")
EDIT ed_r10c1 lft ms @ ., label("Row 10, column 1")
EDIT ed_r10c2 sep @ @ ., label("Row 10, column 2")
EDIT ed_r10c3 sep @ @ ., label("Row 10, column 3")
EDIT ed_r10c4 sep @ @ ., label("Row 10, column 4")
EDIT ed_r10c5 sep @ @ ., label("Row 10, column 5")
EDIT ed_r10c6 sep @ @ ., label("Row 10, column 6")
EDIT ed_r10c7 sep @ @ ., label("Row 10, column 7")
EDIT ed_r10c8 sep @ @ ., label("Row 10, column 8")
EDIT ed_r10c9 sep @ @ ., label("Row 10, column 9")
EDIT ed_r10c10 sep @ @ ., label("Row 10, column 10")
END
LIST rows_con
BEGIN
1
2
3
4
5
6
7
8
9
10
END
LIST cols_con
BEGIN
1
2
3
4
5
6
7
8
9
10
END
LIST rows_sel
BEGIN
script r1
script r2
script r3
script r4
script r5
script r6
script r7
script r8
script r9
script r10
END
LIST cols_sel
BEGIN
script c1
script c2
script c3
script c4
script c5
script c6
script c7
script c8
script c9
script c10
END
SCRIPT r1
BEGIN
script allr2off
script allr3off
script allr4off
script allr5off
script allr6off
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r2
BEGIN
program r2on
script allr3off
script allr4off
script allr5off
script allr6off
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r3
BEGIN
program r2on
program r3on
script allr4off
script allr5off
script allr6off
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r4
BEGIN
program r2on
program r3on
program r4on
script allr5off
script allr6off
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r5
BEGIN
program r2on
program r3on
program r4on
program r5on
script allr6off
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r6
BEGIN
program r2on
program r3on
program r4on
program r5on
program r6on
script allr7off
script allr8off
script allr9off
script allr10off
END
SCRIPT r7
BEGIN
program r2on
program r3on
program r4on
program r5on
program r6on
program r7on
script allr8off
script allr9off
script allr10off
END
SCRIPT r8
BEGIN
program r2on
program r3on
program r4on
program r5on
program r6on
program r7on
program r8on
script allr9off
script allr10off
END
SCRIPT r9
BEGIN
program r2on
program r3on
program r4on
program r5on
program r6on
program r7on
program r8on
program r9on
script allr10off
END
SCRIPT r10
BEGIN
program r2on
program r3on
program r4on
program r5on
program r6on
program r7on
program r8on
program r9on
program r10on
END
SCRIPT allr2off
BEGIN
main.ed_r2c1.disable
main.ed_r2c2.disable
main.ed_r2c3.disable
main.ed_r2c4.disable
main.ed_r2c5.disable
main.ed_r2c6.disable
main.ed_r2c7.disable
main.ed_r2c8.disable
main.ed_r2c9.disable
main.ed_r2c10.disable
END
SCRIPT allr3off
BEGIN
main.ed_r3c1.disable
main.ed_r3c2.disable
main.ed_r3c3.disable
main.ed_r3c4.disable
main.ed_r3c5.disable
main.ed_r3c6.disable
main.ed_r3c7.disable
main.ed_r3c8.disable
main.ed_r3c9.disable
main.ed_r3c10.disable
END
SCRIPT allr4off
BEGIN
main.ed_r4c1.disable
main.ed_r4c2.disable
main.ed_r4c3.disable
main.ed_r4c4.disable
main.ed_r4c5.disable
main.ed_r4c6.disable
main.ed_r4c7.disable
main.ed_r4c8.disable
main.ed_r4c9.disable
main.ed_r4c10.disable
END
SCRIPT allr5off
BEGIN
main.ed_r5c1.disable
main.ed_r5c2.disable
main.ed_r5c3.disable
main.ed_r5c4.disable
main.ed_r5c5.disable
main.ed_r5c6.disable
main.ed_r5c7.disable
main.ed_r5c8.disable
main.ed_r5c9.disable
main.ed_r5c10.disable
END
SCRIPT allr6off
BEGIN
main.ed_r6c1.disable
main.ed_r6c2.disable
main.ed_r6c3.disable
main.ed_r6c4.disable
main.ed_r6c5.disable
main.ed_r6c6.disable
main.ed_r6c7.disable
main.ed_r6c8.disable
main.ed_r6c9.disable
main.ed_r6c10.disable
END
SCRIPT allr7off
BEGIN
main.ed_r7c1.disable
main.ed_r7c2.disable
main.ed_r7c3.disable
main.ed_r7c4.disable
main.ed_r7c5.disable
main.ed_r7c6.disable
main.ed_r7c7.disable
main.ed_r7c8.disable
main.ed_r7c9.disable
main.ed_r7c10.disable
END
SCRIPT allr8off
BEGIN
main.ed_r8c1.disable
main.ed_r8c2.disable
main.ed_r8c3.disable
main.ed_r8c4.disable
main.ed_r8c5.disable
main.ed_r8c6.disable
main.ed_r8c7.disable
main.ed_r8c8.disable
main.ed_r8c9.disable
main.ed_r8c10.disable
END
SCRIPT allr9off
BEGIN
main.ed_r9c1.disable
main.ed_r9c2.disable
main.ed_r9c3.disable
main.ed_r9c4.disable
main.ed_r9c5.disable
main.ed_r9c6.disable
main.ed_r9c7.disable
main.ed_r9c8.disable
main.ed_r9c9.disable
main.ed_r9c10.disable
END
SCRIPT allr10off
BEGIN
main.ed_r10c1.disable
main.ed_r10c2.disable
main.ed_r10c3.disable
main.ed_r10c4.disable
main.ed_r10c5.disable
main.ed_r10c6.disable
main.ed_r10c7.disable
main.ed_r10c8.disable
main.ed_r10c9.disable
main.ed_r10c10.disable
END
PROGRAM r2on
BEGIN
call gaction main.ed_r2c1.enable
if !H(main.ed_r1c2) {
call gaction main.ed_r2c2.enable
}
if !H(main.ed_r1c3) {
call gaction main.ed_r2c3.enable
}
if !H(main.ed_r1c4) {
call gaction main.ed_r2c4.enable
}
if !H(main.ed_r1c5) {
call gaction main.ed_r2c5.enable
}
if !H(main.ed_r1c6) {
call gaction main.ed_r2c6.enable
}
if !H(main.ed_r1c7) {
call gaction main.ed_r2c7.enable
}
if !H(main.ed_r1c8) {
call gaction main.ed_r2c8.enable
}
if !H(main.ed_r1c9) {
call gaction main.ed_r2c9.enable
}
if !H(main.ed_r1c10) {
call gaction main.ed_r2c10.enable
}
END
PROGRAM r3on
BEGIN
call gaction main.ed_r3c1.enable
if !H(main.ed_r1c2) {
call gaction main.ed_r3c2.enable
}
if !H(main.ed_r1c3) {
call gaction main.ed_r3c3.enable
}
if !H(main.ed_r1c4) {
call gaction main.ed_r3c4.enable
}
if !H(main.ed_r1c5) {
call gaction main.ed_r3c5.enable
}
if !H(main.ed_r1c6) {
call gaction main.ed_r3c6.enable
}
if !H(main.ed_r1c7) {
call gaction main.ed_r3c7.enable
}
if !H(main.ed_r1c8) {
call gaction main.ed_r3c8.enable
}
if !H(main.ed_r1c9) {
call gaction main.ed_r3c9.enable
}
if !H(main.ed_r1c10) {
call gaction main.ed_r3c10.enable
}
END
PROGRAM r4on
BEGIN
call gaction main.ed_r4c1.enable
if !H(main.ed_r1c2) {
call gaction main.ed_r4c2.enable
}
if !H(main.ed_r1c3) {
call gaction main.ed_r4c3.enable
}
if !H(main.ed_r1c4) {
call gaction main.ed_r4c4.enable
}
if !H(main.ed_r1c5) {
call gaction main.ed_r4c5.enable
}
if !H(main.ed_r1c6) {
call gaction main.ed_r4c6.enable
}
if !H(main.ed_r1c7) {
call gaction main.ed_r4c7.enable
}
if !H(main.ed_r1c8) {
call gaction main.ed_r4c8.enable
}
if !H(main.ed_r1c9) {
call gaction main.ed_r4c9.enable
}
if !H(main.ed_r1c10) {
call gaction main.ed_r4c10.enable
}
END
PROGRAM r5on
BEGIN
call gaction main.ed_r5c1.enable
if !H(main.ed_r1c2) {
call gaction main.ed_r5c2.enable
}
if !H(main.ed_r1c3) {
call gaction main.ed_r5c3.enable
}
if !H(main.ed_r1c4) {
call gaction main.ed_r5c4.enable
}
if !H(main.ed_r1c5) {
call gaction main.ed_r5c5.enable
}
if !H(main.ed_r1c6) {
call gaction main.ed_r5c6.enable
}
if !H(main.ed_r1c7) {
call gaction main.ed_r5c7.enable
}
if !H(main.ed_r1c8) {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -