809
社区成员
发帖
与我相关
我的任务
分享1000分求輪盤遊戲源程序，UP者有分
因為現在公司有做一網絡遊戲需要有一個象輪盤(Roulette)一樣抽獎程序，有運氣的玩家可獲得點數，希望有一部份或全部程序的高手幫忙，謝謝了,不夠分可以在加
...全文
请发表友善的回复…
发表回复
gzhiceberg 2004-07-13
- 打赏
- 举报
4、如果是画的话，还要解决画面抖动问题
麻烦
麻烦
gzhiceberg 2004-07-13
- 打赏
- 举报
要解决几个问题：
1、动态画轮盘、画股子
2、旋转速度控制:由强变弱
3、结束锁定，不能压界,出现模糊结果
1、动态画轮盘、画股子
2、旋转速度控制:由强变弱
3、结束锁定，不能压界,出现模糊结果
stevenqi 2004-07-13
- 打赏
- 举报
to: gzhiceberg(天晓得) 說得對，如果誰能做我可以發圖片給他，或留下郵箱
我的郵箱是：stevenqi@163.net
QQ: 42563283
我的郵箱是：stevenqi@163.net
QQ: 42563283
soso119 2004-07-13
- 打赏
- 举报
動態的......有點難..
blueonly 2004-07-13
- 打赏
- 举报
a ~~~
BlueBeer 2004-07-13
- 打赏
- 举报
晕？界面也让我们画？
BlueBeer 2004-07-12
- 打赏
- 举报
看看这样行不
Private l As Long
Private Sub Form_Load()
Command1.Caption = 0
End Sub
Private Sub Command1_Click()
Randomize
l = CLng(Rnd * 10 + 10)
Timer1.Interval = 20 - l + 1
End Sub
Private Sub Timer1_Timer()
With Timer1
.Interval = IIf(.Interval >= 500, 0, .Interval + l)
End With
Command1.Caption = (Command1.Caption + 1) Mod 37
End Sub
Private l As Long
Private Sub Form_Load()
Command1.Caption = 0
End Sub
Private Sub Command1_Click()
Randomize
l = CLng(Rnd * 10 + 10)
Timer1.Interval = 20 - l + 1
End Sub
Private Sub Timer1_Timer()
With Timer1
.Interval = IIf(.Interval >= 500, 0, .Interval + l)
End With
Command1.Caption = (Command1.Caption + 1) Mod 37
End Sub
viena 2004-07-12
- 打赏
- 举报
无
sanyou98 2004-07-12
- 打赏
- 举报
up
luler 2004-07-12
- 打赏
- 举报
做好后别忘记告诉俺，俺要下重注。
lqtflwg718 2004-07-12
- 打赏
- 举报
严重关注！
stevenqi 2004-07-12
- 打赏
- 举报
我現在主要要的是：一個圓盤上有0-36個數字，當圓盤開始轉動時，擲下一個股子是想對圓盤相反方向運動的，當轉動一段時間後股子和圓盤停下來時，股子停在上面的數字跟玩家猜的數字一樣的話，就為玩家贏，玩家就可以得到送出的點數
RUKYO 2004-07-10
- 打赏
- 举报
呵呵，没有，只有蹭点分啦。
lsftest 2004-07-10
- 打赏
- 举报
说清楚要求、玩法。。。。。。。。
stevenqi 2004-07-10
- 打赏
- 举报
急啊，版主快來幫忙啊
stevenqi 2004-07-10
- 打赏
- 举报
勇夫怎麼還沒出現呢
混吃等死 2004-07-10
- 打赏
- 举报
3楼！
icehouse 2004-07-10
- 打赏
- 举报
2楼
nineclock 2004-07-10
- 打赏
- 举报
呵，一楼，帮你顶
mxfeng 2004-07-10
- 打赏
- 举报
不懂规则！
加载更多回复（1）
