User Tag List

+ Trả lời chủ đề
Hiện kết quả từ 1 tới 4 của 4

Chủ đề: Lam sao de tao dang do thi truot trong VB6

  1. #1
    svBK's Newbie
    Tham gia ngày
    Oct 2005
    Bài gửi
    8

    Mặc định Lam sao de tao dang do thi truot trong VB6

    Rat mong nhan duoc su giup do cua cac bac cao thu ve lap trinh VB6
    trong viec tao dang do thi dang truot (do thi dong) su dung ham Sin or Cos. Toi moi chi ve duoc ham Sin chay trong khung Picture .
    Toi muon khi duong hinh Sin toi ve sau khi cham vao canh cua khung Picture thi lai tiep tuc ve tiep bang cach chay lai tu diem dau voi so lieu ke tiep.
    Xin chan thanh cam on!

  2. #2
    svBK's Newbie
    Tham gia ngày
    May 2006
    Bài gửi
    4

    Mặc định

    có ai có code đoạn mã vb này thì post lên đi tui cũng đang tìm hiểu về nó mong được anh em giúp đỡ

    mình đang làm đề tài thực tập cơ sở { có nội dung giống như trên
    dùng vb lập trình đồ thị động} bocap nếu cậu có code thì cho mình xin về tham khảo được không thanks trước nha

  3. #3
    svBK's Newbie
    Tham gia ngày
    May 2006
    Bài gửi
    4

    Icon10 đây là phương án của tôi bạn thử coi

    Sub demo()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim t As Integer
    ReDim M(32)
    ReDim dt(32)
    ReDim Q(32)
    dt(0) = 0
    dt(1) = 0
    M(0) = 0
    M(1) = 0
    Worksheets("Sheet1").Range(Cells(5, 2), Cells(34, 6)).ClearContents
    For i = 5 To 35
    Worksheets("Sheet1").Cells(4, 2).Formula = "=round(Rand()*5,0)-3"
    j = i - 5
    If i > 34 Then
    j = 29
    i = 34
    Loop1:
    k = 0
    While k < 29
    M(k) = M(k + 1)
    dt(k) = dt(k + 1)
    Q(k) = Q(k + 1)
    Cells(k + 5, 2).Value = Cells(k + 6, 2).Value
    Cells(k + 5, 3).Value = Cells(k + 6, 3).Value
    Cells(k + 5, 4).Value = Cells(k + 6, 4).Value
    Cells(k + 5, 5).Value = Cells(k + 6, 5).Value
    Cells(k + 5, 6).Value = Cells(k + 6, 6).Value
    k = k + 1
    Wend
    Cells(i, 2).Value = Cells(4, 2).Value
    GoTo Nextchange
    End If

    Cells(i, 2).Value = Cells(4, 2).Value
    Cells(i, 3).Value = Cells(4, 2).Value - Cells(i - 1, 2).Value
    If j > 1 Then M(j) = M(j - 1) + (1 / j) * (Cells(i, 2).Value - M(j - 1))
    Cells(i, 4).Value = M(j)
    If j > 1 Then dt(j) = ((j - 2) / (j - 1)) * dt(j - 1) + (1 / j) * ((Cells(i, 2).Value - M(j - 1)) ^ 2)
    Cells(i, 5).Value = dt(j)
    Q(j) = dt(j) ^ 2 + Cells(4, 7).Value * M(j)
    Cells(i, 6).Value = Q(j)
    Worksheets("Sheet1").Range(Cells(i, 2), Cells(i, 6)).Font.Bold = True
    Application.Wait (Now + TimeValue("0:00:01"))
    Worksheets("Sheet1").Range(Cells(i, 2), Cells(i, 6)).Font.Bold = False
    Next i
    Nextchange:
    Cells(34, 3).Value = Cells(4, 2).Value - Cells(33, 2).Value
    M(29) = M(28) + (1 / 29) * (Cells(4, 2).Value - M(28))
    Cells(34, 4).Value = M(29)
    dt(29) = (27 / 29) * dt(28) + (1 / 29) * ((Cells(4, 2).Value - M(28)))
    Cells(34, 5).Value = dt(29)
    Q(29) = dt(29) ^ 2 + Cells(4, 7).Value * M(29)
    Cells(34, 6).Value = Q(29)
    Application.Wait (Now + TimeValue("0:00:01"))
    GoTo Loop1
    'Application.Wait (Now + TimeValue("0:00:10"))
    'Worksheets("Sheet1").Range(Cells(5, 2), Cells(34, 6)).ClearContents
    End Sub

  4. #4
    svBK's Newbie
    Tham gia ngày
    Jun 2007
    Bài gửi
    1

    Mặc định

    Chào các bạn nhé bạn nào biết cách vẽ đồ thị trong vb nhận dữ liệu từ cổng com không? Dữ liệu nhận được của mình là dạng số nguyên do PLC gửi về 1s một lần
    ai giúp được mình thì mail cho mình sớm nhé: xuanvudk2@gmail.com
    cảm ơn các bạn nhiều nhé
    Mình cần gấp lắm..................

+ Trả lời chủ đề

Thông tin chủ đề

Users Browsing this Thread

Hiện có 1 người đọc bài này. (0 thành viên và 1 khách)

Chủ đề tương tự

  1. dang ghet
    Gửi bởi giant trong mục Giảng đường khoa ĐTVT
    Trả lời: 12
    Bài cuối: 05-10-2009, 05:27 PM
  2. Toi dang hoc C,C++
    Gửi bởi zidane trong mục Lập Trình
    Trả lời: 38
    Bài cuối: 18-06-2007, 04:06 PM
  3. co ai thi chuyen he tu cao dang len dai hoc khong
    Gửi bởi nhanbktech trong mục Giảng đường CNTT
    Trả lời: 8
    Bài cuối: 15-04-2004, 09:47 PM
  4. Dang rộng vòng tay cái nào
    Gửi bởi hyacinth trong mục Tâm sự & Tư vấn
    Trả lời: 9
    Bài cuối: 05-02-2004, 10:37 PM
  5. dang tim ban de noi chuyen
    Gửi bởi chi_la_nhu_the trong mục Giới thiệu bản thân
    Trả lời: 15
    Bài cuối: 29-11-2002, 12:23 PM

Từ khóa (Tag) của chủ đề này

Quyền viết bài

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình


About svBK.VN

    Bách Khoa Forum - Diễn đàn thảo luận chung của sinh viên ĐH Bách Khoa Hà Nội. Nơi giao lưu giữa sinh viên - cựu sinh viên - giảng viên của trường.

Follow us on

Twitter Facebook youtube