Translate VBA to B4J

[Ilya G.]

Hi, can anybody translate VBA code to B4J, and how much it cost?

 

[DonManfred]

I do not know VBA but anyway: How could one answer your question WITHOUT knowing what you need to get "translated"?
What does the VBA Code do? Post it

 

[Ilya G.]

It is to control some devices through rs-485

 

[DonManfred]

Search Results

www.b4x.com

 

[Ilya G.]

Search Results

www.b4x.com

Yes, I saw these topics. But I can’t implement this code in B4J myself because I don’t understand how this VBA code works

 

[Ilya G.]

Anybody?

 

[JohnC]

Is it possible you could resave the txt files in a different [Unicode] format because most of the characters are not legible:

Dim vh As Byte 'ñåðèéíûé íîìåð êîíòðîëëåðà

 

[Erel]

Opens fine with Notepad++.

 

[Ilya G.]

Is it possible you could resave the txt files in a different [Unicode] format because most of the characters are not legible:

Dim vh As Byte 'ñåðèéíûé íîìåð êîíòðîëëåðà

there are comments in russian

 

[JohnC]

Ah, I don't have the Russian language pack installed, so that explains why.

VBA is a form of basic for Microsoft applications like Access, Excel and Word which allows users to create custom scripts to get those office applications to do/automate special things that they normally don't do.

The code is definitely doing a lot of serial communication and bit manipulation, but without English translation for every line, it would take a lot of time to understand the overall picture of what the code does.

 

[Ilya G.]

I think it's VB, not VBA. I will try to translate comments to english in google translate

 

[roerGarcia]

And without a device similar to the one controlled by the application, it is very difficult to test.

 

[Ilya G.]

And without a device similar to the one controlled by the application, it is very difficult to test.

Maybe I can do rdp connection to computer with this device for you?

 

[roerGarcia]

Ley me see the Code later at office

 

[JohnC]

It is to control some devices through rs-485

VB still runs on Windows 10 PC's, so can I ask why you want to change platforms?

 

[Ilya G.]

I want to add more functions to app)

 

[roerGarcia]

This is very specific, do you have the operation manual for that equipment?

Public Function tstKv () As String
'we convert the string and check the type of converter, if it is Z397-Guard then return its operating mode
Dim stro As String 'formed string
Dim i as byte
Dim rr as string

i = 0
'prepare a message


 Do While i <pssl
 stro = stro + Chr (m5 (i)) 'convert to symbol
 i = i + 1
 Loop
'MsgBox Trim (stro)
'MsgBox Mid (Trim (stro), 1, 10)
If Mid (Trim (stro), 1, 10) = "Z397-Guard" Then
    rr = Mid (Trim (stro), 27, 1)
Else: rr = 8
Call CloseHandle (ss)
End if

 

[Ilya G.]

This is very specific, do you have the operation manual for that equipment?

Public Function tstKv () As String
'we convert the string and check the type of converter, if it is Z397-Guard then return its operating mode
Dim stro As String 'formed string
Dim i as byte
Dim rr as string

i = 0
'prepare a message


Do While i <pssl
stro = stro + Chr (m5 (i)) 'convert to symbol
i = i + 1
Loop
'MsgBox Trim (stro)
'MsgBox Mid (Trim (stro), 1, 10)
If Mid (Trim (stro), 1, 10) = "Z397-Guard" Then
    rr = Mid (Trim (stro), 27, 1)
Else: rr = 8
Call CloseHandle (ss)
End if

You mean you need Mid (Trim (stro), 27, 1)?

 

[JohnC]

You mean you need Mid (Trim (stro), 27, 1)?

I think he means that these routines are communicating with the device using a very specific protocol. And hopefully the operation manual will describe this protocol in detail so we can better understand the command set and handshaking requirements to communicate with the device.

 

[Ilya G.]

Documentation is available, but in Russian https://ironlogic.ru/il_new.nsf/htm/ru_advanced_protokol & http://posix.ironlogic.ru/wiki/Z397....B2.D0.B5.D1.80.D1.82.D0.B5.D1.80.D0.BE.D0.BC

This is very specific, do you have the operation manual for that equipment?

Public Function tstKv () As String
'we convert the string and check the type of converter, if it is Z397-Guard then return its operating mode
Dim stro As String 'formed string
Dim i as byte
Dim rr as string

i = 0
'prepare a message


Do While i <pssl
stro = stro + Chr (m5 (i)) 'convert to symbol
i = i + 1
Loop
'MsgBox Trim (stro)
'MsgBox Mid (Trim (stro), 1, 10)
If Mid (Trim (stro), 1, 10) = "Z397-Guard" Then
    rr = Mid (Trim (stro), 27, 1)
Else: rr = 8
Call CloseHandle (ss)
End if

This code apparently handles the response: Z397-Guard S/N:00214,Mode:0