昨天学习了一下 网络知识，以前一直以为CSMA/CD 是工作在传输层，昨天才知道是数据链路层， 无线网是用的CSMA/CA的模式， 还有MAC地址是前24位 供应商代号，后24 位是用户号。
还有单模光纤 多模光纤 1000BASE TCL物理层的区别。
Clear
Clear All
Close Databases
Set Collate To "MACHINE"
T1=Seconds()
Local Akm[6]
Akm[1]="语文"
Akm[2]="数学"
Akm[3]="英语"
Akm[4]="物理"
Akm[5]="化学"
Akm[6]="总成绩"
Use Cjb In 0
Create Cursor 前N名 (准考证号 C (10),语文 N(6),数学 N(6),英语 N(6),物理 N(6),化学 N(6),总成绩 N(6))
Append Fr...
I read the ppt of the C2000 datasheet for designing and reserach ,the are something about the SPI bus SCI bus,how to reset the register map the memory write the arigitum for the digital filter such as FIR IIR
_IOempty(); function sin(),something theroy about DSP digital signal process
I read the ppt of the C2000 datasheet for designing and reserach ,the are something about the SPI bus SCI bus,how to reset the register map the memory write the arigitum for the digital filter such as FIR IIR
_IOempty(); function sin(),something theroy about DSP digital signal process
CAN BUS 接触了一点，发现和ethernet 很像，也是分各个层，协议，载波侦听多路访问 冲突检测等
扩展版等也有connect函数
Clear
Rand(-1)
lnNum=10 &&生成随机数个数
Dimension nStr[lnNum]
N=0
Do While n<lnNum
nItem = Ceiling(lnNum*Rand())
If Ascan(nStr,nItem)=0
nStr[N+1]=nItem
N=N+1
EndIf
EndDo
For Each nVar In nStr[lnNum]
? nVar
EndFor
方法...
Reccount()-Recno()+1<=N
N可以是任意的正整数
在MIPS Linux 内核裁剪的步骤中有几点发现
1 可以输入 make image 和make 区别 还有make clean make ... 的功能
增加 应用程序 cd user
vim Makefile
add dir($USER_CONFIGURE_APP) =+app
then 修改 configure.in
add USER_CONFUGURE_APP app
app为目录名 和生成的文件名 可能还需要修改app下的Makefile
然后用同样的方法在...
网址：http://bbs.bccn.net/thread-292155-1-111.html
字段名意思
grbh(个人编号)
sfz（身份证号）
xm（姓名）
dwbh（单位编号）
dwmc（单位名称）
jfsq（缴费属期）
jflx（缴费类型）
grjfjs（个人缴费基数）
grjfbj（个人缴费本金）
grjflx（个人缴费利息）
grjfbs（个人缴费标志）
grdzrq（个人到帐日期）
dwjfbj（单位缴...
Set Collate To "MACHINE"
Set Talk Off
T1=Seconds()
Clear
Close DataBases
Local Akm[2],Apm[7],Afs[2,7],TableName[2],cXbm
cXbm="校编码"
TableName[1]="成绩"
TableName[2]="成绩分析"
Akm[1]="语文"
Akm[2]="数学"
Apm[1]=1
Apm[2]=50
Apm[3]=100
Apm[4]=200
Apm[5]=300
Apm[6]=400
Apm[7]=500
Se...
Clear
lnYear=2015
lnMonth=2
lDate1=Date(lnYear,lnMonth,1) && 本月期初日期
lDate2=Gomonth(lDate1,1)-1 && 本月期末日期
lnDay1=Dow(lDate1,2)-1 && 与本周星期一之间相差的天数
lnDay2=lDate2-lDate1+1 && 本月天数
lnDay3=Ceiling((lnDay1+lnDay2)/7)*7 && 日历元素数
Create Cursor Tdate (星期一 N...
cStr="a b c d" && 变为 "a b c d"
Do While Space(2)$cStr
cStr=Strtran(cStr,Space(2),Space(1))
EndDo
MessageBox(cStr)
* 表格控件INIT事件
THISFORM.GRID1.ADDCOLUMN(1) && 在左边插入列。
THISFORM.GRID1.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).NAME = "NewColumn"
THIS.COLUMNS(THISFORM.GRID1.COLUMNCOUNT).HEADER1.CAPTION=[序号]
THISFORM.GRID1.NEWCOLUMN.CONTROLSOURCE = "PADL(RECNO(),LEN(TRANSFORM(RECCOUNT())),[0])"
PUBLIC oForm
oForm = NEWOBJECT("Form1")
oForm.Show
RETURN
DEFINE CLASS Form1 As Form
Height = 300
Width = 420
Add Object Grid1 As Grid
PROCEDURE Load
CREATE CURSOR TEMP (F1 C(10), F2 C(10), F3 I)
INSERT INTO TEMP VALUES ("ABC", "123...
Clear
dDate=Date()
STORE [] TO CRQ,CRQ1
A=REPLICATE([ ],(DOW(Date(Year(dDate),MONTH(dDate),1),2)-1)*3)
?[本月日历：]+tran(date())
?[一 二 三 四 五 六 日]
FOR I=1 TO Day(GOMONTH(dDate-Day(dDate)+1,1)-1)
CRQ=CRQ+IIF(I=1,A,[])+PADL(I,2,[ ])+IIF(DOW(Date(Year(dDate),MONTH(dDate),I),2)=7,CHR(13)+CHR(...
Set Talk Off
* -- 创建 4 个测试用临时表
Create Cursor A01 (f1 C(20))
Create Cursor A02 (f1 C(20))
Create Cursor A03 (f1 C(20))
Create Cursor A04 (f1 C(20))
For ii = 0 To 3
cAlias = Textmerge('A0<<ii+1>>')
For m.jj = 1 To 10000 && 每个测试表插入 20 条测试用记录
Insert Into (cAlias)...
NOTE 区位码生成程序
CREATE CURSOR T (S N(2))
FOR I=1 TO 94
INSERT INTO T VALUES (I)
ENDFOR
SELECT PADL(A.S,2,[0])+PADL(B.S,2,[0]) AS QWM,CHR(160+A.S)+CHR(160+B.S) HZ,;
TRANSFORM(ASC(CHR(160+A.S)+CHR(160+B.S))) NASC FROM T A INNER JOIN T B ON A.S<=B.S OR A.S>B.S
lcStr="Ａ１]中国"
?Strconv(lcStr,2)
结果:A1]中国
然后通过For EndFor方法提取出汉字
CSTR=[103]
A=CSORT(CSTR)
LIST MEMORY LIKE A
FUNCTION CSORT(AA)
PUBLIC ASTR(LEN(AA))
FOR I=1 TO LEN(AA)
ASTR(I)=SUBSTR(AA,I,1)
ENDFOR
=ASORT(ASTR)
RETURN @ASTR
LPARAMETERS CTABNAME
GO BOTTOM
*--- 检查最后一条记录是否为"小计"行
IF AT("小计",EVALUATE(FIELD(1)))>0
MESSAGEBOX("已经有小计记录",64,"系统信息")
RETURN
ENDIF
*--- 在数据表最后插入一条记录
INSERT INTO (CTABNAME) ((FIELD(1))) VALUES (PADC("小计",FSIZE(FIELD(1)),"-"))
FOR I=NZDS TO FCOUNT()
IF TYPE(FIELD(I))="N"
...