Hi guys,,
I have a code program, but when I compile it, I get errors warning :
',' expected.
Object converted to String. This is probably a programming mistake.(warning #7)
my code program is :
'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Type Pattern (Loc As Int, c As Char)
Dim T, P As String
Dim QsBc(127) As String
Dim Fq(127) As String
Dim Pat(127) As String
Dim fx As Int
End Sub
Sub AppStart (Args() As String)
T = "GCATCGCAGAGAGTATACAGTACG"
P = "GCAGAGAG"
preQsBc(T,P)
Freq(T,P)
OrderPattern(T,P)
optimalPcmp(T,P)
End Sub
Sub preQsBc(Te As String, Pt As String) 'fix codenya
Log("Nilai QsBc")
For i = 0 To Te.Length-1
QsBc(Asc(Te.CharAt(i))) = Pt.Length+1
Next
For i = 0 To Pt.Length-1
QsBc(Asc(Pt.CharAt(i))) = Pt.Length-i
Next
For i = 0 To Pt.Length-1
Log(Pt.CharAt(i) & " = " & QsBc(Asc(Pt.CharAt(i))))
Next
End Sub
Sub Freq(Tk As String, Pn As String) 'fix codenya
Log("Nilai frekuensi")
For i = 0 To Tk.Length-1
Fq(Asc(Tk.CharAt(i))) = 0
Next
For i = 0 To Tk.Length-1
Fq(Asc(Tk.CharAt(i))) = Fq(Asc(Tk.CharAt(i))) + 1
Next
For i = 0 To Pn.Length-1
Log(Pn.CharAt(i) & " = " & Fq(Asc(Pn.CharAt(i))))
Next
End Sub
Sub OrderPattern (Xt As String, Np As String)
Dim ptrn As Pattern
ptrn.Initialize
For i = 0 To Np.Length-1
ptrn.loc = i
ptrn.c = Pat(Asc(Np.CharAt(i)))
Pat(Asc(Np.CharAt(i))) = ptrn
Next
For i = 0 To Np.Length-1
Log(Pat(Asc(Np.CharAt(i))))
Next
End Sub
Sub optimalPcmp(m As String, n As String)
Dim pat1, pat2 As Pattern
pat1.Initialize
pat2.Initialize
fx = Freq(pat1.c) - Freq(pat2.c)
End Sub
Please help me, guys to solve this problem..
Thanks