[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:

• [ask] install Visual basic 6.0 error
• JUAL DVD Source Code Visual Basic 6.0, Vb-Net, Delphi, Visual Foxpro,Web Bisnis, Java, PHP
• JUAL Source Code Visual Basic 6.0, Vb-Net, Delphi, Visual Foxpro,Web Bisnis, Java, PHP
• beda visual basic 6.0 - visual basic 2005 - visual basic 2008 - dan visual basic.net?