分享:十字路口
vb吧
全部回复
仅看楼主
level 11
(〇)起因。
前两天有位吧友,说要把汽车的图片放到十字路口的图片上去。
我动了心。做了一个十字路口红绿灯控制车辆通行的程序。
(一)假设和假定。
1、每个方向四车道,不考虑转向增加车道、左转待灯位,不考虑人行横线,不考虑公共车站港湾,不考虑非机动车道。
2、车辆只制作了直行车辆,其他的左转右转车辆,大家有兴趣的话自己补充。
3、时间仓促,代码没有优化,请大家见谅。
2018年04月13日 12点04分 1
level 10
码呢[喷]
2018年04月13日 13点04分 2
你太心急了,呵呵
2018年04月13日 13点04分
老大,你太心急了,我要一个一个打字呀
2018年04月13日 13点04分
level 11
(二)素材:十字地图一幅,大小适中。汽车图片四张,车头分别朝向上下左右,宽度为车道宽度的2/3左右。
(三)控件及其属性。
一个主图片框picture1,大小与地图匹配。
在图片框内有图片框数组picture2,四个,大小分别与车辆图片一致。
形状数组shape1,12个。圆形,实心填充。分别代表四个方向,每个方向左转直行右转的红绿灯。这里与城市实际交通灯不同,每个灯变色控制一个方向,而不是用三个灯的亮和灭来表示(这点对红绿色盲不公平,谨表示歉意)。
标签5个,文本框5个。用来做设置的输入和输入的提示。分别是绿灯时间、左转时间、黄灯时间、车辆速度、时间比例。
一个按钮,用来确认设置。
2018年04月13日 13点04分 3
忘记了,还有一个关键的控件:计时器,设置及时间隔50毫秒。
2018年04月13日 13点04分
四个picture2的边框设为无
2018年04月13日 14点04分
level 11
(四)素材与窗体
2018年04月13日 13点04分 4
level 11
(五)运行效果图
我不会录制视图,只截一张图。
2018年04月13日 13点04分 5
level 11
(六)窗体级变量和常量
(七)自定义过程和函数
2018年04月13日 13点04分 6
level 11
(八)控件事件
2018年04月13日 13点04分 7
level 11
(完)
2018年04月13日 13点04分 8
补充说明:每个方向只有一辆车,所以省略了排队……
2018年04月13日 13点04分
level 8

2018年04月13日 14点04分 9
谢谢
2018年04月13日 14点04分
level 10
支持!有时间研究一下~
2018年04月13日 14点04分 10
谢谢
2018年04月13日 15点04分
level 11
看来讨论技术的帖子还是不太招人喜欢啊
2018年04月16日 00点04分 12
小白看不懂,高手懒得看,知音难觅。
2022年05月04日 04点05分
@夜幕降临100 自娱自乐,哈哈哈
2022年05月04日 11点05分
@璐村惂鐢ㄦ埛_0748V5Z馃惥 大佬看下13楼的帖子,能不能帮忙解答一下。
2022年05月04日 12点05分
level 4
大佬:
我把做好的宏代码以"表单控件"的形式插入,做一个执行按钮,见截图。
但是呢,我想把这个按钮给锁住,意思是让人无法对这个按钮的名称进行修改,该如何做?
锁定了单元格,锁定了工程,但是 这个按钮名称仍然能改,也是醉了。
2022年05月04日 12点05分 13
不知道。
2022年05月04日 13点05分
1.建议单开一个新贴,不要到处挖坟。2.如果在这边迟迟没解决,建议左转VBA吧。3.对于你这个问题你可以尝试用代码指定控件名称,或者尝试把表单控件换成ActiveX控件。
2022年05月05日 04点05分
@余思培 VBA人更少,我开了新帖子,发了两次都不知道哪去了。。。。
2022年05月05日 10点05分
level 13
[大拇指][大拇指][大拇指]
2022年05月06日 09点05分 14
1