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
已经运行过。
看是不是你要的?
弘速云怎么样?弘速云是创建于2021年的品牌,运营该品牌的公司HOSU LIMITED(中文名称弘速科技有限公司)公司成立于2021年国内公司注册于2019年。HOSU LIMITED主要从事出售香港vps、美国VPS、香港独立服务器、香港站群服务器等,目前在售VPS线路有CN2+BGP、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。可联系商家代安装iso系统,目前推出全场vps新开7折,...
今天有看到Raksmart账户中有一台VPS主机即将到期,这台机器之前是用来测试评测使用的。这里有不打算续费,这不面对万一导致被自动续费忘记,所以我还是取消自动续费设置。如果我们也有类似的问题,这里就演示截图设置Raksmart取消自动续费。这里我们可以看到上图,在对应VPS主机的【其余操作】中可以看到默认已经是不自动续费,所以我们也不要担心被自动续费的。当然,如果有被自动续费,我们确实不想续费的...
官方网站:点击访问亚洲云官网618活动方案:618特价活动(6.18-6.30)全站首月活动月底结束!地区:浙江高防BGPCPU:至强铂金8270主频7 默频3.61 睿频4.0核心:8核(最高支持64核)内存:8G(最高支持128G)DDR4 3200硬盘:40G系统盘+80G数据盘带宽:上行:20Mbps/下行:1000Mbps防御:100G(可加至300G)防火墙:提供自助 天机盾+金盾 管...
vb课程设计为你推荐
销售报表销售分析报表怎么写查杀木马请问有什么方法查杀木马零终端银行卡圈存是什么意思封包是什么灰指甲封包治疗是什么,真的管用吗?最好的电脑操作系统主流的电脑操作系统都有哪些?查看加密空间请问下怎么看加密的qq空间软件更新不可用为什么vivo手机更新不了软件?软件更新不可用手机软件突然更新不了怎么办安卓手机用什么安全软件好电脑管理安卓手机的软件哪个最好用怎样下载文件QQ上发过来的文件怎么下载不了
qq空间域名 中国万网域名 注册cn域名 主机优惠码 电信测速器 fdcservers mach5 10t等于多少g 美国php主机 香港新世界电讯 web服务器架设软件 空间论坛 免费吧 台湾谷歌 上海服务器 Updog 视频服务器是什么 沈阳主机托管 国外网页代理 hosting 更多