Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
Me.Width = 4500: Me.Height = 4500
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.AutoRedraw = True
Me.Caption = "CBM666的万花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub
用VB编程有什么好玩的
声明:只要是编程软件就没有编不出来的东西。关键在程序员是否有那个能力。如果你说为什么C类语言这个强大、适用范围这么广。那么我可以告诉你,VB也很强大,C做得到的VB同样可以做到。只是在有些操作上没有C那么方便,所以不如C。因此你说VB可以做什么好玩的程序,明显不适合。但是如果你非要这样问,那么我的回答是:什么都可以。而且人们常用它做些小项目以及外挂。好玩的小游戏都可以做。(打游戏也可以做,只是不适合)
介绍一个VB小的有趣的程序代码
'万花筒程序
'粘贴下面代码即可,不用添加任何控件
PrivateWithEventsTimer1AsTimer
Dimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b#
PrivateSubForm_Load()
Me.Width=4500:Me.Height=4500
Me.Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2
Me.AutoRedraw=True
Me.Caption="CBM666的万花筒"
SetTimer1=Controls.Add("vb.timer","Timer1")
Timer1.Interval=10
EndSub
PrivateSubTimer1_Timer()
Randomize
r=340*Rnd
Ifr<>0Then
r1=500
s=r*Rnd
b=RGB(256*Rnd,256*Rnd,256*Rnd)
Fort=1To10000
a1=t*3.1415926/180
a2=(r1/r)*a1
xb=500+(-(r1-r)*Cos(a1)-s*Cos(a2-a1)+420)*4
yb=500+((r1-r)*Sin(a1)-s*Sin(a2-a1)+380)*4
Me.PSet(xb,yb),b
Nextt
EndIf
EndSub
参考资料:http://hi.baidu.com/cbm666/blog/item/01aa8bd4ec770900a08bb722.html
vb用什么软件好
下160多M的完整版的企业版。对于现在的宽带网和动辄300多G的硬盘而言,160M简直是连小菜都算不上。精简版的只能临时救急用的,很多控件都没有的。
大家觉得VB这个软件怎么样?
非常好!!!
不过我认为这个软件更适合女孩子使用
帮我做一个VB实用小软件,要好看...........也可以做一个小学生用的小软件
用VB做倒计时,预设(可以修改)距离考试结束还有两个小时,有时分秒,有语音提示。
很容易!
建3个TEXT(分别显示时、分、秒),1个定时器(设1秒),2个按钮(开始倒计时和退出)。
TEXT里分别写入预设的时间。如果是2小时,就分别写2、00、00。
定时器响应里:
秒-1,如果为负,置59,同时分钟位-1,....
类推。直至3个位都为0。
很简单的代码,时间到有语音提示等,不管你信不信,反正我测试通过了。
Dim sec, min, h
Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "开始倒计时"
End Sub
Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If
If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If
If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False
CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
End Sub
有比vb6更简单易学的软件吗
vf(visualfoxpro),可以用6.0版
我也在学
很简单,在各大书店都有买的哦!
我可以把文件发过来给你看
不过,我才小学6年级
做的很幼稚
提醒你:问题结束时间不多了!
除了VB可以做软件,还有什么可以做软件??????
任何编程开发工具都可以做软件。
转载请注明出处51数据库 » vb好玩软件 vb有趣小程序