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
已经运行过。
看是不是你要的?
SpinServers服务商也不算是老牌的服务商,商家看介绍是是2018年成立的主机品牌,隶属于Majestic Hosting Solutions LLC旗下。商家主要经营独立服务器租用和Hybrid Dedicated服务器等,目前包含的数据中心在美国达拉斯、圣何塞机房,自有硬件和IP资源等,商家还自定义支持用户IP广播到机房。看到SpinServers推出了美国独服的夏季优惠促销活动,最低月...
蓝竹云怎么样 蓝竹云好不好蓝竹云是新商家这次给我们带来的 挂机宝25元/年 美国西雅图云服务器 下面是套餐和评测,废话不说直接开干~~蓝竹云官网链接点击打开官网江西上饶挂机宝宿主机配置 2*E5 2696V2 384G 8*1500G SAS RAID10阵列支持Windows sever 2008,Windows sever 2012,Centos 7.6,Debian 10.3,Ubuntu1...
JUSTG,这个主机商第二个接触到,之前是有介绍到有提供俄罗斯CN2 GIA VPS主机活动的,商家成立时间不久看信息是2020年,公司隶属于一家叫AFRICA CLOUD LIMITED的公司,提供的产品为基于KVM架构VPS主机,数据中心在非洲(南非)、俄罗斯(莫斯科),国内访问双向CN2,线路质量不错。有很多服务商实际上都是国人背景的,有的用英文、繁体搭建的冒充老外,这个服务商不清楚是不是真...
vb课程设计为你推荐
网络的好处网络的优缺点网不易上网的利与弊(辩论)封包是什么这个七月半封包怎么填云电视是什么意思创维电视和创维云电视是同一厂家吗手机证书申请手机证书可以再什么网站上申请啊什么是3g什么是3G网络?一看视频就死机为什么电脑一看视频就死机呢?externextern用法水印水印是什么?镜像映像和镜像都有什么区别
深圳域名空间 tier 香港cdn 美国主机代购 外国空间 web服务器的架设 赞助 什么是服务器托管 新睿云 360云服务 便宜空间 网通服务器 网购分享 国外的代理服务器 阿里dns 卡巴斯基试用版下载 免费网站加速 发证机构 卡巴斯基官方下载 主机响 更多