这是我编写的智能软件的文件部分的草稿,还有许多要修改与精减的地方,但大的框架就是这样。等我先精减了,再修改,这样容易些。主要用byref来简化。文件部分完成后就是操作部分(智能软件的核心部分),也是相对困难的部分。在编写操作部分时,我应该会对文件部分进行大量的修改。<?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace>
在修改前,先让大家体验一下我所编写的文件部分。
Private Sub Command1_Click()
Open "d:\textfil.txt" For Random As 1 Len = 18
Dim zrecordnumber '记忆柱所包含的recordnumber的总量
Dim centerN '第几个中枢
Dim acenterN
acenterN = 30
Dim center(30)
Dim ccenter(30, 3)
Dim clengthN '一个中枢在长度空间上的第几个记忆柱
Dim cheightN
Dim cwidthN
Dim clength(30)
Dim cheight(30)
Dim cwidth(30)
Dim oplengthN '一个中枢在长度空间上的第几个记忆柱
Dim opheightN
Dim opwidthN
Dim recordnumberN '具体到一个记忆柱之前的所有的recordnumber数
Dim recordnumber '要读写记忆柱的recordnumber所在的位置
Dim clabel(30) '标志一个中枢的记忆柱的纤维联系方式
Dim outputsameN '一个记忆柱在相同中枢的传出所到达的记忆柱数。
Dim outputnotsameN '一个记忆柱在不同中枢的传出所到达的记忆柱数。
Dim subzrecordnumber
Dim arecordnumber(30)
subzrecordnumber = 600
zrecordnumber = 1800
outputnotsameN = 5
outputsameN = 3