BASICプログラムをVisualBasicプログラムに書き換えるには？ (ID:118438)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ちょっとどのBASICかは解かりませんが下にプログラムの一部を載せときます。ちなみにVB6.0に書き換えようとしています。

i = 0                                   'Definition Of Sampling Interval
    j = 0
    k = 0
    l = 0
    If (Abs(am(i) - Amin) > 2) Then
        i = i + 1
        End If
    If (j = 0) Then
        j = j + 1
        End If
    If (i - l > 300) Then
        start = Fix(k / j)
        End If
    j = j + 1
    k = k + i
    l = i
    i = i + 1
    If (i < 999) Then
        GoTo if (abs(am(i)-Amin)>2) then
        i = i + 1
        End If
        End If
    Print "Two minimums are not found."
    GoTo Input #"Push Local and Return";AAA
    GoTo If (abs(am(i)-Amin)>2) Then
        i = i + 1
        End If
    start = Fix(k / j)
    j = 1
    k = i
    l = i
    i = i + 1
    If (Abs(am(i) - Amin) > 2) Then
       If (i - l > 10) Then
       fine = Fix(k / j) - 1
       End If
       End If
    j = j + 1
    k = k + i
    l = i
    GoTo i=i+1
    If (i - 1 > 10) Then
       fine = Fix(k / j) - 1
       End If
    GoTo i=i+1
    fine = Fix(k / j) - 1
    Print fine + "-" + start
    pt = fine - start + 1
    n = 64
    Print n; "Points"

こんな感じです。

←解決時は質問者本人がここをチェックしてください。

戻る