自己没事写的无聊小程序!基本上用了以前学过的一些东东!!但对我这中懒人是不起作用的,只有那些一心学西的人才能用好这个小程序,程序不怎么美观!因为是小程序吧!所以自己也没考虑过给他做皮肤,应为我用到的function和循环较少!所以程序代码比较大!这也是给了我一次经验,以后写程序的时候要考虑那些东西用到的多,那些能够简化!尽量的用!呵呵!
点击下载
下面是程序代码功三个窗体:用于讨论技术的!!
========================================================
form1
===========
PrivateTypesave
sa1AsInteger
sa2AsInteger
sa3AsInteger
sa4AsInteger
sa5AsInteger
sa6AsInteger
sa7AsInteger
sa8AsInteger
EndType
Dimday1AsDate
DimheifengAssave
DimreddAsInteger
PrivateSubCommand1_Click()
DimhaifengsAsString
heifeng.sa1=Check1.Value
heifeng.sa2=Check2.Value
heifeng.sa3=Check3.Value
heifeng.sa4=Check4.Value
heifeng.sa5=Check5.Value
heifeng.sa6=Check6.Value
heifeng.sa7=Check7.Value
heifeng.sa8=Check8.Value
OpenApp.Path&"\save\save.dat"ForRandomAs#3Len=Len(heifeng)
redd=LOF(3)/Len(heifeng) 1
Put#3,redd,heifeng
Close#3
haifengs=Text1.Text
OpenApp.Path&"\save\save1.dat"ForRandomAs#4Len=2000
Put#4,redd,haifengs
Close#4
Command1.Enabled=False
OpenApp.Path&"\save\day.dat"ForRandomAs#5Len=Len(day1)
day1=Date
Put#5,redd,day1
Close#5
Command3.Enabled=True
tuichu=MsgBox("记录完成，请明天再来！！！",48,"运行结果")
EndSub
PrivateSubCommand2_Click()
Dimsav1AsString*30
Dimsav2AsString*30
Dimsav3AsString*30
Dimsav4AsString*30
Dimsav5AsString*30
Dimsav6AsString*30
Dimsav7AsString*30
Dimsav8AsString*30
IfCommand2.Caption="修改计划"Then
Command2.Caption="确认修改"
Text2.BackColor=&HFFFFFF
Text2.Locked=False
Text3.BackColor=&HFFFFFF
Text3.Locked=False
Text4.BackColor=&HFFFFFF
Text4.Locked=False
Text5.BackColor=&HFFFFFF
Text5.Locked=False
Text6.BackColor=&HFFFFFF
Text6.Locked=False
Text7.BackColor=&HFFFFFF
Text7.Locked=False
Text8.BackColor=&HFFFFFF
Text8.Locked=False
Text9.BackColor=&HFFFFFF
Text9.Locked=False
Else
Command2.Caption="修改计划"
Text2.BackColor=&HE0E0E0
Text2.Locked=True
Text3.BackColor=&HE0E0E0
Text3.Locked=True
Text4.BackColor=&HE0E0E0
Text4.Loc