Scale một picture, vẽ đồ thị biểu diễn

[truongphu]

Thủ thuật: Scale một picture, vẽ đồ thị biểu diễn
Tác giả: truongphu
Mô tả: Scale một picture, vẽ đồ thị biểu diễn

---

Lâu ngày đụng vẽ, mất hơn tiếng đồng hồ. Nhân câu hỏi bạn anhtuan1285

Syntax: [ Download ] [ Hide ]

Syntax: [ Download ] [ Show ]

Using vb Syntax Highlighting

Dim i As Long, CôngSuât(1 To 24) As Integer
                ' tang ban anhtuan1285 20/5/2010
Private Sub ToaDo() ' Code truongphu
'Picture1.Cls
Picture1.Scale (-1, 100)-(25, -2) ' x tu' -1 Ðê'n 25 y tu' 100 xuô'ng -2
   Picture1.Line (0, 0)-(25, 0), vbBlack ' Draw X axis: x=0->25 y=0
   For i = 0 To 25
        Picture1.Line (i, -2)-(i, 0), vbBlack ' Ðánh dâ'u
       ' môi i là môt nâ'c 1, chiê`u cao theo ti lê y tu'` -2-> 0
   Next i
    Picture1.Line (0, 100)-(0, 0), vbBlack ' Draw Y axis: x=0 y=100-> 0
   For i = 0 To 100 Step 5 ' y Ðon vi lo'n nên step 5
       Picture1.Line (-0.5, i)-(0, i), vbBlack
     'môi i là nâ'c 5, chiê`u dái theo ti lê x tu' -0.5 -> 0
       
    Next i
End Sub

Private Sub Command1_Click()
    ToaDo
End Sub

Private Sub Command2_Click()
    Dim TÐ As Integer
    For i = 0 To 24
        TÐ = Int(Rnd * 30) + 70
        If i > 0 Then
            Picture1.Line (i, 0)-(i, TÐ), vbRed
            CôngSuât(i) = TÐ
        End If
    Next
End Sub

Private Sub Command3_Click()
    For i = 2 To 24
        Picture1.Line (i - 1, CôngSuât(i - 1))-(i, CôngSuât(i)), vbBlue
    Next
End Sub

Private Sub Form_Paint()
    ' In trên form Toa Ðô truc Y
   Me.CurrentX = 0
    Me.CurrentY = Picture1.Top - 100
    Me.Print "100 MW"
    Me.CurrentY = Picture1.Top + 2700
    Me.Print "  0 MW"
    Me.CurrentY = Picture1.Top + 1350
    Me.Print " 50 MW"
    ' In trên Form Toa Ðô truc X
   Me.CurrentX = Picture1.Left - 50
    Me.CurrentY = Picture1.Top + 100 + Picture1.Height
    Me.Print "Gio'`:"
    Me.CurrentY = Picture1.Top + 100 + Picture1.Height
    Me.CurrentX = Picture1.Left + 400
    Me.Print 1
    Me.CurrentY = Picture1.Top + 100 + Picture1.Height
    Me.CurrentX = Picture1.Left + Picture1.Width - 350
    Me.Print 24
    Me.CurrentY = Picture1.Top + 100 + Picture1.Height
    Me.CurrentX = Picture1.Left + 2800
    Me.Print 12
End Sub
 

Parsed in 0.013 seconds, using GeSHi 1.0.8.4

Ve~ Scale Picture & Line STANDARD.rar

(1.82 KiB) Đã tải về 217 lần.

Hình chụp:

[anhtuan1285]

Trước tiên em rất cảm ơn bác Truongphu và món quà của bác dành cho em. em sẽ nghiên cứu thật kỹ món quà này của bác để học tập.

Nhân đây em cũng muốn chia sẻ suy nghĩ và định hướng của em trước khi đưa phần biểu đồ này vào chương trình . dưới đây em xin đính kèm 1 ví dụ ( nhưng chưa có lệnh mà chỉ là giao diện )
Mô tả qua về ví dụ :
Xem biểu đồ công suất tiêu thụ theo giờ
Đến các giờ là ( 0h,1h , 2h,3h,4h....23h )phải nhập thông số (công suất tiêu thụ)của các lộ 676, 677, 678, 685.sau khi nhập vào và save lại . các thông số đó sẽ đc lưu vào CSDL là 1file access (cái này em đã làm rồi ).và tại các thời điểm bất kỳ mình muốn xem biểu đồ công suất tiêu thụ của 1 lộ nào đó ( VD: 676 ) thì Click vào " Xem biểu đồ công suất tiêu thụ theo giờ " nó sẽ trả ra cho ta giá trị về biểu đồ của các giờ của lộ 676.(như projec bác tặng em )
Xem biểu đồ công suất tiêu thụ theo ca
Đến 06h nhặt ra lấy 1 giá trị của 06h và 14h00 nhặt ra lấy 1 giá trị của 14h00 và đến 22h00 nhặt ra lấy 1 giá trị của 22h00 (nhặt ra từ CSDL) sau đó nối 3 điểm đó lại với nhau. và cũng là xem của từng lộ một (676,677,678,685)
Tóm lại :
Chương trình sẽ nhận giá trị để làm tọa độ từ CSDL xuất ra và giá trị đó đc thể hiện trên trên biểu đồ của chúng ta.(có thể xem đc biểu đồ ở các tháng trước đó), giá tri trên trục Y là giá trị 24h ngày hôm trước và cũng là 0h của ngày mới.