Translate VBA to B4J

Ilya G. · Apr 17, 2020

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

DonManfred · Apr 17, 2020

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. · Apr 17, 2020

It is to control some devices through rs-485

DonManfred · Apr 17, 2020

Search Results

www.b4x.com

Ilya G. · Apr 17, 2020

DonManfred said:
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. · Apr 20, 2020

Anybody?

JohnC · Apr 20, 2020

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 · Apr 20, 2020

Opens fine with Notepad++.

Ilya G. · Apr 20, 2020

JohnC said:
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 · Apr 20, 2020

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. · Apr 20, 2020

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

roerGarcia · Apr 20, 2020

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

Ilya G. · Apr 20, 2020

roerGarcia said:
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 · Apr 20, 2020

Ley me see the Code later at office

JohnC · Apr 20, 2020

GanjaKyp said:
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. · Apr 20, 2020

I want to add more functions to app)

roerGarcia · Apr 20, 2020

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

Rich (BB code):

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. · Apr 21, 2020

roerGarcia said:

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

Rich (BB code):

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 · Apr 21, 2020

GanjaKyp said:
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. · Apr 21, 2020

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

roerGarcia said:

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

Rich (BB code):

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

Translate VBA to B4J

Active Member

Expert

Active Member

Attachments

Expert

Active Member

Active Member

Expert

B4X founder

Active Member

Attachments

Expert

Active Member

Active Member

Active Member

Active Member

Expert

Active Member

Active Member

Active Member

Expert

Active Member

Privacy & Transparency

Privacy & Transparency