The task is to automatically generate a Vb6 function for each Gosub and replace the Gosub call with the call and parameters of the newly generated function
Example:
Sub GosubDemo()
Dim Num
Dim Num2
' Solicit a number from the user.
Num = InputBox("Enter a positive number to be divided by 2.")
' Only use routine if user enters a positive number.
If Num > 0 Then GoSub MyRoutine
[login to view URL] Num
Exit Sub ' Use Exit to prevent an error.
MyRoutine:
Num = Num/2 ' Perform the division.
Num2 = Num2/2
Return ' Return control to statement.
End Sub ' following the GoSub statement.
Expected result:
Sub GosubDemo()
Dim Num
Dim Num2
' Solicit a number from the user.
Num = InputBox("Enter a positive number to be divided by 2.")
' Only use routine if user enters a positive number.
If Num > 0 Then MyRoutine(Num,Num2)
[login to view URL] Num
End Sub ' following the GoSub statement.
Function MyRoutine(ref Num as Integer, ref Num2 as Integer)
Num = Num/2 ' Perform the division.
End Function
Hello, I can make it in C# or VBS easily.
I am dedicated C# developer and I can make script using C# or VBS to adding functions automatically for your project.
They you can get your satisfied result in shot time.
If you want fast and perfect work, Please contact to me.
Thank you.
Ruslan.
€250 EUR in 5 days
5.0 (8 reviews)
5.1
5.1
6 freelancers are bidding on average €442 EUR for this job
Hi there,
I have read your project description and i'm confident i can do this project for you perfectly.I still have a few questions. please leave a message on my chat so we can discuss the budget and deadline of the project.
Thanks.
..
Hello there, I am interested in the project. I have expertise in VB6 development and I am sure I can provide you the exact solution you are looking for. I can deliver you the solution within 24 hours of bid acceptance.
Thank You.
Hello, I think, I can do it as VB.NET program. I look problems with function parameter type - Num is integer? We don't know it, If we used Dim Num. Regards.