none
[VB6]請問這段程式的作用.... RRS feed

  • 問題

  • 請問一下下面這段副程式。。。。

    Private Sub BinToDec(K As Integer)

      Dim ch1 As Integer, ch2 As Integer, ch3 As Integer
      Dim ch As String
      Dim A As Integer
     
      A = K
      If A < 0 Then A = 0
      ch1 = A \ 100
      BUF(1) = Chr(Asc("0") + ch1)
      ch2 = ((A Mod 100) \ 10)
      BUF(2) = Chr(Asc("0") + ch2)
      ch3 = ((A Mod 100) Mod 10)
      BUF(3) = Chr(Asc("0") + ch3)
    End Sub

    之後再呼叫該副程式將其處理成:
    Text1(CurIdx).Text = BUF(1) & BUF(2) & BUF(3)

    我想請教各位這段副程式的功用與處理的過程原理
    我是各VB新手~~可以的話。。。拜託大家了~~~謝謝 
    2006年11月16日 下午 06:03

解答

    1. 打開 VB6 ,新增模組,貼進去。
    2.  A = k 按一下 F9
    3. 在即時運算視窗輸入 ? BinToDec(123)
    4. 程式會在 A = K 停下來。
    5. 按 F8 一次會到下一行,滑鼠移到變數上面會顯示變數值。
    6. 重複 5 到最後一行。

    答案如所求。

     

    2006年11月17日 上午 01:41
    版主

所有回覆

    1. 打開 VB6 ,新增模組,貼進去。
    2.  A = k 按一下 F9
    3. 在即時運算視窗輸入 ? BinToDec(123)
    4. 程式會在 A = K 停下來。
    5. 按 F8 一次會到下一行,滑鼠移到變數上面會顯示變數值。
    6. 重複 5 到最後一行。

    答案如所求。

     

    2006年11月17日 上午 01:41
    版主
  • 謝謝你熱心的回覆 ~~
    雖然剛剛我稍微試一下~~~還是不太暸...不過還是回覆先....^_^
    但是至少我已經會一點點的偵錯了~~~我再努力TRY一下
    我是VB的超級大新手~~~~~
    再次謝謝你~~~~
    2006年11月17日 下午 12:37
  • BTW.....
    請問有人知道哪裡有偵錯教學或者觀念說明的資料嗎???
    因為我買了一些書~~~裡面都沒提到
    是因為這是很基本的東西嗎???大家應該都要會嗎???~~~
    若不是這樣~~~有沒有基本入門的書可以介紹給我呢???
    謝謝~~~^_^
    2006年11月17日 下午 05:14
  • F8/F5/F9/Shift+F9 的用法都可以在選單上找到

    國內沒人寫或翻譯 VB6 除錯相關書籍,7年前松格有翻譯一本 Microsoft Press 程式設計與除錯技巧 (VS97) ,不過松格已經倒很久了,這本書不知道找不找得到。

    2006年11月18日 上午 01:21
    版主