1樓：匿名使用者
首先 獲得資料 一般用rs232 來傳送資料 接收就行了
畫圖簡單多了 picture1.line 一個語句就夠了
我就貼一段隨機產生1500個數字 畫圖的**給你參考一下吧
2個控制元件 picturebox + command
private sub form_load()
picture1.cls
picture1.drawwidth = 1 'drawwidth返回或設定圖形方法輸出的線寬。
picture1.autoredraw = true
picture1.backcolor = qbcolor(0) 'qbcolor:用來表示所對應顏色值的 rgb 顏色碼，引數：1~15
picture1.scale (-1500, 1500)-(1500, -1500) 'scale用以定義 form、picturebox 或 printer 的座標系統，引數：左上-右下
picture1.scale (0, 1500)-(1500, -1500) 'scale用以定義 form、picturebox 或 printer 的座標系統，引數：左上-右下
picture1.line (-1500, 0)-(1500, 0), qbcolor(15) '畫水平線
end sub
private sub command1_click()
dim i as integer
dim t(1500) as integer
dim x1 as double
dim y1 as double
dim x2 as double
dim y2 as double
for i = 0 to 1500
t(i) = int((500 * rnd) + 500)
if i > 1 then
picture1.line (i - 1, t(i - 1))-(i, t(i)), qbcolor(12)
end if
next
end sub
2樓：曉yy日堯
用vb實現。。。
就是讀取、顯示、儲存這幾個主要功能嗎？
我上位機用vb想把從下位機讀取到的資料儲存到excel中，以時間命名。該怎麼做呢？最好有原始碼
3樓：崔文靜
我也需要這個··求助，郵箱[email protected]
如何將資料庫中的**(二進位制)，讀出並顯示在介面的image控制元件？[vb6.0]
4樓：匿名使用者
<%dim pid
pid=trim(request("pid"))
set db = server.createobject("adodb.connection")
db.open conn
sql = "select * from product where product_id =" & pid
set rs = db.execute( sql )
response.expires = -9999
response.contenttype = "image"
response.addheader "pragma","no-cache"
response.addheader "cache-ctrol","no-cache"
response.binarywrite rs("product_photo")
set rs=nothing
set conn=nothing
%>以上存為photo.asp
呼叫的時候：
vb6.0 製作一個上位機，實時讀取串列埠資料（一次好多個資料）並儲存到 mysql資料庫 50
5樓：匿名使用者
根據上下位機間通訊協議，使用mscomm控制元件的oncomm事件完成接收。判斷取出儲存。
在VB6 0中的SetWindowTextA DLL過程只能作用於自身的物件嗎，能設定其它應用程式嗎
public declare function getforegroundwindow lib user32 alias getforegroundwindow as long 獲得當前操作的視窗控制代碼 public declare function enumwindows lib user32 ...
現在學習經典的vb6 0和vc6 0工作中還有應用前景嗎
其實vc從6到8變動都不大，只要你不需要使用.net framework隨便學哪個版本都是一樣的。如果要用.net的話就必須學2003以後的版本了，但是c 做.net還不如直接用c 簡單 安全又快速。vc6還是有一定的應用領域的，在桌面軟體的開發中用vc6或vc2005都是一樣的。而且我們國家軍事國...
vb6 0中怎麼產生1到9的隨機數
option explicit private sub command1 click const bits 9 選出 9 組數 const mfor bits 1const jz 9 每個數是1位 dim a bits as long dim tabs as string dim i as long...