線性規劃

在窗體中添加壹個Command1按鈕，復制下面的代碼，點擊命令按鈕，清空屏幕，然後隨機繪制20條線段。

私有子命令1_Click()

Dim I為整數，X1為整數，Y1為整數，X2為整數，Y2為整數

Dim ColorR As Long，ColorG As Long，ColorB As Long，DrawColor As Long

使不規則化

Cls

ScaleMode = 3 '將ScaleMode設置為像素。

DrawMode = 13 '輸出外觀(前景色和背景色的操作模式)

DrawStyle = 0 '線條樣式

0(默認值)實線、1虛線、2虛線、3點劃線、4點劃線、5無線線、6引用實線。

對於I = 1到20

X1 = Rnd * Me。刻度寬度

Y1 = Rnd * Me。比例尺高度

X2 = Rnd *我。刻度寬度

Y2 = Rnd * Me。比例尺高度

DrawWidth = Rnd * 10+1 '線寬，值可以選1 ~ 32767，但是太大了，無法區分。

ColorR = Rnd * 256

ColorG = Rnd * 256

ColorB = Rnd * 256

draw color =(((256 * ColorR)+ColorG)* 256)+ColorB

ForeColor =繪圖顏色

線(X1，Y1)-(X2，Y2)

然後

末端接頭

上一篇:朗逸abs打氣筒怎麽搭配

下一篇:能幫忙編壹下程麽Fanuc數控銑床編程，順便把程序的每壹句含義寫在後面。。謝謝