作者mroscar (小歐斯卡)
看板Visual_Basic
標題[VB6 ] 請問一下方塊圖該怎麼做?
時間Thu May 3 15:28:17 2007
我想要每個方格的顏色隨機出現灰或籃色
圖例:
■
■■
■■
■■
■■
■
■
■■
■■■■■■
■
■
■■
■■
■■
■■
■
■
■■■
■■■
■■
■
■
■■
■■
■■
■■
■
■
■■
■■
■■
■■■
■■■■■
■■
■■
■
■
■■
■■
■■
■■
■
請問一下我的程式碼該怎麼修正呢?
Scale (0, 0)-(200, 200)
X1 = Int(200 * Rnd)
Y1 = Int(200 * Rnd)
X2 = Int(200 * Rnd)
Y2 = Int(200 * Rnd)
w = Rnd
If w > 0.5 Then c = QBColor(0)
If w < 0.5 Then c = QBColor(1)
DoEvents
If w > 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF
If w < 0.5 Then Line (X1, Y1)-(X2, Y2), c, BF
tt = Timer
Do While Timer - tt = 0.1
Loop
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.114.192.251