[ask]Visual Basic error

PHPmaster

cc dan kk yg cantik2 dan ganteng2.. saia mw nanya knp coding saia error yah..

Code:

Function StateMachine1(ByVal kal As String) As String
Dim HslString As String, HslKet As String, HslPred As String, HslSubj As String
Dim HslObjek As String, hslImbuhan As String
Dim pch() As String = Split(kal, " ")
Dim A As Integer, e As Integer = -1, u As Integer, k As Integer, PosKt As Integer
Dim PosKt1 As Integer

For u = 0 To UBound(pch)
For A = 0 To UBound(Imbuh)
e = InStr(1, pch(u), Imbuh(A, 0), CompareMethod.Text)
If (e > 0) And (e < Len(pch(u)) - 3) Then
If Imbuh(A, 1) = "0" Then hslImbuhan = hslImbuhan & Imbuh(A, 0) & "!"
ElseIf e 0 Then
If e = Len(pch(u)) - (Len(Imbuh(A, 0)) + 1) Then
If Imbuh(A, 1) = "1" Then hslImbuhan = hslImbuhan & Imbuh(A, 0) & "!"
End If
End If
Next A
Next u

For k = 1 To 2
For u = 0 To UBound(pch)
For A = 0 To UBound(KDasar)
e = InStr(1, pch(u), KDasar(A, 0), CompareMethod.Text)
If e > 0 Then
If KDasar(A, 1) = "3" Then
HslKet = Struktur(CInt(KDasar(A, 1)))
PosKt1 = u
ElseIf KDasar(A, 1) = "1" Then
HslPred = Struktur(CInt(KDasar(A, 1)))
PosKt = u
End If
End If
Next A
Next u
Next k

Lanjut:
If PosKt1 = 0 Then
PosKt = PosKt - 1
End If

HslObjek = Struktur(PosKt + 1)
HslSubj = Struktur(PosKt - 1)

If PosKt1 = 0 Then
HslString = HslKet & "-" & HslSubj & "-" & HslPred & "-" & HslObjek & "#" & Mid(hslImbuhan, 1, Len(hslImbuhan) - 1)
Else
HslString = HslSubj & "-" & HslPred & "-" & HslObjek & "-" & HslKet & "#" & Mid(hslImbuhan, 1, Len(hslImbuhan) - 1)
End If
StateMachine1 = HslString
End Function

klo dijalanin kek gini dy blg di sini

Code:

HslSubj = Struktur(PosKt - 1)

errornya index out of range..

tapi kalo saia ganti jadi

Code:

HslSubj = Struktur(PosKt + 1)

malah jd ada error baru di sini

Code:

HslString = HslKet & "-" & HslSubj & "-" & HslPred & "-" & HslObjek & "#" & Mid(hslImbuhan, 1, Len(hslImbuhan) - 1)

katanya errornya argument exception..

tolong bantuannya master2 visual basic..

thank you so much

</div>

Terkait:

Menu