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?Sub

vb课程设计心得体会

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 已经运行过。

看是不是你要的?

hypervmart:英国/荷兰vps,2核/3GB内存/25GB NVMe空间/不限流量/1Gbps端口/Hyper-V,$10.97/季

hypervmart怎么样?hypervmart是一家国外主机商,成立于2011年,提供虚拟主机、VPS等,vps基于Hyper-V 2012 R2,宣称不超售,支持linux和windows,有荷兰和英国2个数据中心,特色是1Gbps带宽、不限流量。现在配置提高,价格不变,性价比提高了很多。(数据中心不太清楚,按以前的记录,应该是欧洲),支持Paypal付款。点击进入:hypervmart官方网...

pacificrack:VPS降价,SSD价格下降

之前几个月由于CHIA挖矿导致全球固态硬盘的价格疯涨,如今硬盘挖矿基本上已死,硬盘的价格基本上恢复到常规价位,所以,pacificrack决定对全系Cloud server进行价格调整,降幅较大,“如果您是老用户,请通过续费管理或升级套餐,获取同步到最新的定价”。官方网站:https://pacificrack.com支持PayPal、支付宝等方式付款VPS特征:基于KVM虚拟,纯SSD raid...

标准互联(450元)襄阳电信100G防御服务器 10M独立带宽

目前在标准互联这边有两台香港云服务器产品,这不看到有通知到期提醒才关注到。平时我还是很少去登录这个服务商的,这个服务商最近一年的促销信息比较少,这个和他们的运营策略有关系。已经从开始的倾向低价和个人用户云服务器市场,开始转型到中高端个人和企业用户的独立服务器。在这篇文章中,有看到标准互联有推出襄阳电信高防服务器100GB防御。有三款促销方案我们有需要可以看看。我们看看几款方案配置。型号内存硬盘IP...

vb课程设计为你推荐
高级工程师证书如何取得高级工程师证?开发管理什么是项目管理方便快捷怎样瘦大腿方便,快捷!测量师英国皇家特许测量师在中国有用吗网络营销讲师北京网络营销培训,纵横电商老师怎么样?安卓手机用什么安全软件好电脑管理安卓手机的软件哪个最好用免费数据采集软件那个软件可以自动每天采集几十个网站的最新信息,并且发布信息到自己的门户网站上阿里学院首页在阿里学院必须实名认证吗广州品牌网站设计广州哪家品牌设计公司好?余额宝客户端我的余额宝是用电脑操作充值的,为什么用手机的余额宝客户端看不到?
免费域名空间申请 zpanel cpanel主机 mediafire seovip windows2003iso 南昌服务器托管 绍兴高防 个人免费空间 赞助 双十一秒杀 上海服务器 阿里云邮箱申请 双十二促销 免备案jsp空间 accountsuspended 百度新闻源申请 此网页包含的内容将不使用安全的https asp简介 服务器是什么 更多