Cần giúp đỡ về Visual Basic

[ankeda89]

VB là một lĩnh vực rất rộng, để thông thạo được phần mềm này không dễ dàng chút nào.Hiện tại mình và một số bạn trong lớp đang cần cách vẽ đồ thị trên VB (note : đồ thị xung ).Bạn nào đã và đang nghiên cứu vấn đề này thì chỉ dùm nha!
thanks !

[dinhnv]

Để vẽ được đồ thị trên VB, trước hết bạn cần hiểu về Timer, đối tượng vẽ Line và sử dụng mảng trong VB.
Thực chất của vẽ đồ thị, là việc mảng sẽ lưu giá trị sau khoảng thời gian nào đó, và giá trị đó sẽ thể hiện bằng cách vẽ lệnh Line trên Picture (tất nhiên bạn phải truyền thông được từ VĐK lên VB).
Bạn xem file đính kèm.

[robot]

thầy chỉ cụ thể được không ạ.

[phongvan1525]

Mình thấy có những phần mềm phụ trợ cho vẻ đồ thị Visual rất hay các bạn xem link này đi,chỉ cụ thể lắm.nhưng để vẻ đồ thị trước hết nên thông thạo các bước lập trình cơ bản như Thầy nói trên đả.chúc thành công!
http://www2.hcmuaf.edu.vn/contents.p...=nguyenbavuong

[dinhnv]

Chúng ta bắt đầu bài vẽ đồ thị nhé
Đầu tiên bạn thiết kế 1 form có các đối tượng như hình vẽ.

[dinhnv]

Tiếp theo, tại thuộc tính Form Load (), tức là khi Start Form (F5), chúng ta sẽ vẽ trước hệ trục tọa độ (x,y) trên Picture

Private Sub Form_Load()

Form1.Pic1.Line (x0, y0)-(x0 + maxwidth, y0), vbBlack
Form1.Pic1.Line (x0, y0)-(x0, 500), vbBlack
'--------------
Form1.Pic1.Line (x0, y0)-(x0, y0), vbBlue
NoPos = 0
hs = 500
End Sub

Phần khai báo biến:

Option Explicit
Const x0 = 100, y0 = 9000 'Tọa độ x,y ban đầu
Const maxwidth = 14500 ' Chiều ngang tối đa của hoành độ
Dim hs As Integer ' Biến này gọi là hệ số khuyếch đại (...)
Dim x As Single, i As Integer ' Biến nhận các giá trị
Dim NoPos As Integer ' Đếm số vị trí (giá trị)
Dim Pos() As Integer ' Mảng lưu giá trị

Các bạn thử đoạn chương trình đó trước nhé. Hôm sau tiếp tục.

[ankeda89]

thanks thầy !
bữa sau học tiếp.Nhanh nhé thầy.

[dinhnv]

Hôm nay chúng ta tiếp tục đến Timer nhé.

Hôm trước tôi có post hình form, trên đó có 1 textbox và 1 timer. Bây giờ tôi sẽ giả lập giá trị đọc được thông qua timer và đưa vào textbox.

Private Sub Timer1_Timer()
Dim i As Integer
Text1.Text = Rnd(12000) * 1500
x = Val(Text1.Text)
End Sub

Và giá trị Interval của Timer là do các bạn thiết lập (1000=1s)
Ví dụ, tôi thiết lập Interval = 200, tức là 200/1000=0,2s đọc giá trị một lần.
Rồi đó, giá trị trong textbox đã tự thay đổi chưa.

[ankeda89]

mai chỉ tiếp nhe thầy!

[dinhnv]

Hôm nay chúng ta tiếp tục nhé
Sau khi đã có được giá trị trong Textbox, bây giờ chúng ta sẽ đưa giá trị đó vào mảng, mỗi lần ghi vào mảng thì tọa độ điểm sẽ tăng lên 1:

NoPos = NoPos + 1 //toa do diem
ReDim Preserve Pos(NoPos)
Pos(NoPos) = y0 - x

//Câu lệnh ReDim Preserve được sử dụng khi bạn muốn định lại kích cỡ của mảng động nhưng không muốn làm mất các giá trị đã lưu trong mảng

Tiếp theo, chúng ta sẽ lấy các giá trị trong mảng và vẽ tương ứng với từng tọa độ thu được:

Form1.Pic1.Line (x0, y0)-(x0 + maxwidth, y0), vbBlack
Form1.Pic1.Line (x0, y0)-(x0, 500), vbBlack
Form1.Pic1.Line (x0, y0)-(x0, y0), vbBlue
For i = 1 To NoPos
Form1.Pic1.Line -(x0 + hs * i, Pos(i)), vbBlue
Next i

(Tất cả các lệnh trên được viết trong Timer)
Bài này còn 1 vấn đề nữa, khi vẽ hết độ rộng màn hình (Screen) thì làm sao chúng ta thu nhỏ nó lại, giống như máy đo nhịp tim đó? Các bạn tìm thử rồi hôm sau tiếp nhé!