vb课程设计急求VB课程设计,模拟交通灯程序,尽量用简单点的程序做,谢谢啦~~~~~~
vb课程设计 时间:2021-08-30 阅读:(
)
vb 课程设计
Private?Sub?Form_Load()
Dim?s?As?String,?t()?As?String
Open?App.Path?&?"1.txt"?For?Input?As?#1
Do?Until?EOF(1)
????Line?Input?#1,?s
????t?=?Split(s,?"=",?2)
????If?UBound(t)?=?1?Then
????????If?IsNumeric(t(0))?Then?Text1(Val(t(0))).Text?=?Replace(t(1),?"::",?vbCrLf)
????End?If
Loop
Close?#1
End?Sub
Private?Sub?Form_Unload(Cancel?As?Integer)
Dim?t?As?TextBox
Open?App.Path?&?"1.txt"?For?Output?As?#1
For?Each?t?In?Text1
????Print?#1,?t.Index?&?"="?&?Replace(t.Text,?vbCrLf,?"::")
Next
Close?#1
End?Subvb课程设计心得体会
VB课程设计要求
1、每位同学自行选择一个题目进行设计,不得雷同。
也可自己提出设计题目,要预先取得老师的同意。
2、题目后面是每个题目的每班限值人数。
3、题目工作量较大时,可结组完成,但要预先取得老师的同意。
4、设计后期,应写出设计报告,包括:题目内容、算法说明、程序变量使用说明、解决方法、创新点及对设计所包含的知识点的认识等。
设计封面要包括题目、完成人班级、学号、姓名、指导教师、完成时间等。
VB课程设计报告格式 :
XXX系统的设计(题目自拟)
一、功能描述
对系统要实现的功能进行确切的描述。
二、概要设计
根据功能分析,建立系统的体系结构,即将整个系统分解成若干子模块,用框图表示各功能模块之间的接口关系
三、详细设计
详细说明各功能模块的实现过程,所用到的算法、技巧等(附上代码)。
四、效果及存在问题
说明系统的运行效果(附上界面图形)、存在哪些不足以及预期的解决办法。
五、心得
谈谈在课程设计过程中的心得体会。
VB课程设计 屏幕保护程序
我有一个屏幕保护教程VB的,可惜字数太多,这里贴不下!
二、 生成界面
对象 属性 设置值
Form1 AutoRedraw True
BackColor 黑色
BorderStyle 0 - None
Caption 我的编程世界……
ControlBox False
KeyPreview True
MaxButton False
MinButton False
Name frmScreenSaver
ScaleMode 3 - Pixel
WindowState 2 - Maximized
Label1 AutoSize True
BackStyle 0 - Transparent
BorderStyle 0 - None
Caption 我的编程世界……
ForeColor 红色
Font 幼圆
Timer1 Enabled False
Interval 1
在窗体下加入下面的代码:
Option Explicit
Dim QuitFlag As Boolean
Const SPI_SETSCREENSAVEACTIVE = 17
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long _
) As Long
Private Declare Function ShowCursor Lib "user32" ( _
ByVal bShow As Long _
) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, _
ByVal lpvParam As Long, _
ByVal fuWinIni As Long _
) As Long
Private Sub Form_Click()
QuitFlag = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
QuitFlag = True
End Sub
Private Sub Form_Load()
Dim Throw As Long
Throw = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, ByVal 0&, 0)
Select Case UCase$(Left$(Command$, 2))
Case "/A"
MsgBox "此屏幕保护程序不可以设置口令。
"
Unload Me
Exit Sub
Case "/C"
MsgBox "此屏幕保护程序没有设置项。
"
Unload Me
Exit Sub
Case "/P"
Unload Me
Exit Sub
Case "/S"
Show
Throw = ShowCursor(False)
Throw = SetWindowPos(hwnd, -1, 0, 0, 0, 0, (&H2 Or &H1))
Label1.Left = frmScreenSaver.ScaleWidth
Label1.Top = (frmScreenSaver.ScaleHeight - Label1.Height) / 2
Do
Label1.Left = Label1.Left - 3
Sleep (50)
If Label1.Left <= -Label1.Width Then Label1.Left = frmScreenSaver.ScaleWidth + Label1.Width
DoEvents
Loop Until QuitFlag = True
Timer1.Enabled = True
Case Else
Unload Me
Exit Sub
End Select
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Xnow As Single, Ynow As Single
Static Xlast As Single, Ylast As Single
Xnow = X
Ynow = Y
If Xlast = 0 And Ylast = 0 Then
Xlast = Xnow
Ylast = Ynow
Exit Sub
End If
If Xnow <> Xlast Or Ynow <> Ylast Then
QuitFlag = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Throw As Long
Throw = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, ByVal 0&, 0)
Throw = ShowCursor(True)
End Sub
Private Sub Label1_Click()
QuitFlag = True
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
QuitFlag = True
End Sub
Private Sub Timer1_Timer()
Unload Me
End Sub急求VB课程设计,模拟交通灯程序,尽量用简单点的程序做,谢谢啦~~~~~~
Option Explicit
Dim I As Byte, Tim As Byte, Tim1 As Byte
Private Sub Form_Load()
Form1.AutoRedraw = True
For I = 0 To 2
Shape1(I).Width = 1000
Shape1(I).Height = 1000
Shape1(I).Top = 100
Shape1(I).Left = 100 + I * 1000
Shape1(I).FillStyle = 0
Shape1(I).Shape = 3
Shape1(I).BorderWidth = 10
Next
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbBlack
Label1.Caption = ""
Label1.Alignment = 1
Label1.Width = 3000
Label1.Height = 1000
Label1.Top = 1200
Label1.Left = 100
Label1.BackColor = &H0
Label1.ForeColor = vbRed
Label1.FontSize = 50
Tim = 0
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Tim = Tim + 1
Tim = Tim Mod 26
Select Case Tim
Case 0 To 4, 21 To 25
If Tim > 20 Then
Label1.Caption = 31 - Tim
Else
Label1.Caption = 5 - Tim
End If
Shape1(0).FillColor = vbRed
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbBlack
Case 5 To 7, 18 To 20
Tim1 = Tim Mod 13
Label1.Caption = 8 - Tim1
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbYellow
Shape1(2).FillColor = vbBlack
Case 8 To 17
Label1.Caption = 18 - Tim
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbGreen
End Select
End Sub
已经运行过。
看是不是你要的?
近期联通CUVIP的线路(AS4837线路)非常火热,妮妮云也推出了这类线路的套餐以及优惠,目前到国内优质线路排行大致如下:电信CN2 GIA>联通AS9929>联通AS4837>电信CN2 GT>普通线路,AS4837线路比起前两的优势就是带宽比较大,相对便宜一些,所以大家才能看到这个线路的带宽都非常高。妮妮云互联目前云服务器开放抽奖活动,每天开通前10台享3折优惠,另外...
六一云互联六一云互联为西安六一网络科技有限公司的旗下产品。是一个正规持有IDC/ISP/CDN的国内公司,成立于2018年,主要销售海外高防高速大带宽云服务器/CDN,并以高质量.稳定性.售后相应快.支持退款等特点受很多用户的支持!近期公司也推出了很多给力的抽奖和折扣活动如:新用户免费抽奖,最大可获得500元,湖北新购六折续费八折折上折,全场八折等等最新活动:1.湖北100G高防:新购六折续费八折...
陆零网络是正规的IDC公司,我们采用优质硬件和网络,为客户提供高速、稳定的云计算服务。公司拥有一流的技术团队,提供7*24小时1对1售后服务,让您无后顾之忧。我们目前提供高防空间、云服务器、物理服务器,高防IP等众多产品,为您提供轻松上云、安全防护 为核心数据库、关键应用系统、高性能计算业务提供云端专用的高性能、安全隔离的物理集群。分钟级交付周期助你的企业获得实时的业务响应能力,助力核心业务飞速成...
vb课程设计为你推荐
计算机网络的定义计算机的网络定义是什么?它有哪两种网络?点对点短信是什么国内点对点短信多少钱一条?支付宝安全证书下载怎么下载支付宝安装控件价格咨询心理咨询价格昂贵吗青岛it社区青岛李沧区有哪些社区网络黑科技网络刷单骗局呼叫中心系统方案哪些呼叫中心厂商在呼叫中心系统方案建设方面好?怎样清除历史记录手机的历史记录怎么删除广州品牌网站设计广州哪家品牌设计公司好?wps表格数据恢复Wps表格怎么恢复数据
域名抢注工具 linode日本 安云加速器 kdata 服务器怎么绑定域名 debian源 免费测手机号 ftp免费空间 电信主机 域名dns 四川电信商城 服务器维护 免费个人主页 中国联通宽带测试 镇江高防服务器 symantec 游戏服务器 木马检测 rsync dbank 更多