B4J Question help c

[roberto64]

Hi , do you know how much of the forum help me convert a code to b4j where am I wrong?

********************************************************************************************/ #include <stdio.h> #include <wiringPi.h> #include <wiringPiI2C.h> #include <string.h> int LCDAddr = 0x27;//IIc LCD address int BLEN = 1;//1--open backlight.0--close backlight int fd;//linux file descriptor //writ a word(16 bits) to LCD void write_word(int data){ int temp = data; if ( BLEN == 1 ) temp |= 0x08; else temp &= 0xF7; //printf("%d\n Word scrittura SOLO - ",temp); wiringPiI2CWrite(fd, temp); } //send command to lcd void send_command(int comm){ int buf; // Send bit7-4 firstly buf = comm & 0xF0; // printf("%d\n buffeffere1 commando AND - ",buf); buf |= 0x04; // RS = 0, RW = 0, EN = 1 // printf("%d\n buffeffere1-1 commando OR- ",buf); write_word(buf); delay(2); buf &= 0xFB; // Make EN = 0 // printf("%d\n buffeffere2 send commando AND -",buf); write_word(buf); // Send bit3-0 secondly buf = (comm & 0x0F) << 4; // printf("%d\n buffeffere3 send commando AND - ",buf); buf |= 0x04; // RS = 0, RW = 0, EN = 1 // printf("%d\n buffeffere3-1 send commando OR- ",buf); write_word(buf); delay(2); buf &= 0xFB; // printf("%d\n buffeffere3 send commando AND -",buf); // Make EN = 0 write_word(buf); } //send data to lcd void send_data(int data){ int buf; //printf("%d\n primo numero data - ",data); // Send bit7-4 firstly buf = data & 0xF0; // printf("%d\n buffeffere1 send data AND - ",buf); buf |= 0x05; // RS = 1, RW = 0, EN = 1 // printf("%d\n buffeffere1-1 send data OR- ",buf); write_word(buf); delay(2); buf &= 0xFB; // Make EN = 0 //printf("%d\n buffeffere2 send data AND- " ,buf); write_word(buf); // Send bit3-0 secondly buf = (data & 0x0F) << 4; //printf("%d\n buffeffere3 send data AND- ",buf); buf |= 0x05; // RS = 1, RW = 0, EN = 1 // printf("%d\n buffeffere3-1 send data OR- ",buf); write_word(buf); delay(2); buf &= 0xFB; // Make EN = 0 //printf("%d\n buffeffere4 send data AND- ",buf); write_word(buf); } //initialize the lcd void init(){ send_command(0x33); // Must initialize to 8-line mode at first delay(5); send_command(0x32); // Then initialize to 4-line mode delay(5); send_command(0x28); // 2 Lines & 5*7 dots delay(5); send_command(0x0C); // Enable display without cursor delay(5); send_command(0x01); // Clear Screen wiringPiI2CWrite(fd, 0x08); } //clear screen void clear(){ send_command(0x01); //clear Screen } //Print the message on the lcd void write(int x, int y, char data[]){ int addr, i; int tmp; if (x < 0) x = 0; if (x > 15) x = 15; if (y < 0) y = 0; if (y > 1) y = 1; //printf("X: %*d\n",2,x); //printf("Y: %*d\n" 2,y); printf ("WXXX: %*d \n", 5, x); printf ("YYY: %*d \n", 5, y); // Move cursor addr = 0x80 + 0x40 * y + x; // printf("%x\n e ADR ",addr); send_command(addr); tmp = strlen(data); printf ("YYY: %*d \n", 10, tmp); for (i = 0; i < tmp; i++){ //printf("%c\n e questo ",data[i]); send_data(data[i]); } } void print_info() { printf("\n"); printf("|***************************|\n"); printf("| IIC 1602 LCD test |\n"); printf("| --------------------------|\n"); printf("| | LCD | | Pi |\n"); printf("| --------------------------|\n"); printf("| | GND | connect to | GND |\n"); printf("| | VCC | connect to | 5V |\n"); printf("| | SDA | connect to | SDA.1|\n"); printf("| | SCL | connect to | SCL.1|\n"); printf("| --------------------------|\n"); printf("| OSOYOO|\n"); printf("|***************************|\n"); printf("Program is running...\n"); printf("Press Ctrl+C to end the program\n"); } int main(){ //init I2C fd = wiringPiI2CSetup(LCDAddr); // printf("%x\n I2CSetup",fd); init(); print_info(); write(0, 0, "AIUTO"); write(0, 1, "SECONDA"); delay(3000); // clear(); // while(1){ // write(0,0,"This is Lesson13"); // write(0,1,"IIC LCD Test"); // delay(1000); //} return 0; }

code to be reproduced

Dim LCDAddr  As Object = 0x27
Dim LCD_Backlight As Byte = 0x08
Dim BLEN As Int = 0
    Dim fd As JavaObject
    Dim fd1 As Int
   
   
Private Sub write_word(data As Int)

    Dim  temp As Int = data
    If BLEN = 1 Then
'        temp = Bit.And(data,0x08)
        ADCDEVICE.wiringPiI2CWrite(fd, Bit.And(data,0x08))
    Else
'        temp = Bit.Or(data,0xF7)
        ADCDEVICE.wiringPiI2CWrite(fd, Bit.Or(data,0xF7))
    End If
   
'ADCDEVICE.wiringPiI2CWrite(fd, temp)
End Sub

'send control command to lcd
Private Sub send_command(comm As Int)
    Dim buf As Int
    ' Send bit7-4 firstly
    write_word(Bit.And(Bit.Or(comm, 0xF0), 0x04))
'     buf =  Bit.And(comm,0xF0)
'     buf =Bit.Or(comm, 0x04)
'        write_word(buf)
'    Sleep(2)
    buf =  Bit.And(comm,0xFB)' Make EN = 0
    write_word(buf)
    ' Send bit3-0 secondly
    write_word(Bit.And(Bit.Or(comm, 0x0F), 0x04))
'     buf =  Bit.And(comm,0x0F)
'     buf = Bit.Or(comm,0x04)
'        write_word(buf)
   
'    Sleep(2)
    buf = Bit.And (comm,0xFB) ' Make EN = 0
   
   
    write_word(buf)
'    Sleep(2)
End Sub

Private Sub send_data(data As Int)
    Dim buf As Int
    ' Send bit7-4 firstly
    write_word(Bit.And(Bit.Or(data, 0xF0), 0x05))
'    buf =  Bit.And(data,0xF0)
'    buf =  Bit.Or(data,0x05) ' RS = 1, RW = 0, EN = 1
'    write_word(buf)
'    Sleep(2)
    buf = Bit.And(data,0xFB) ' Make EN = 0
    write_word(buf)
    'Send bit3-0 secondly
    '(data And &HF) buf = (data And &HF) buf Or &H5 ' RS = 1, RW = 0, EN = 1
    write_word(Bit.And(Bit.Or(data, 0x0f), 0x05))
'    buf = Bit.And(data,0x0f)
'    buf = Bit.Or(data,0x05)
'    write_word(buf)
'    Sleep(2)
    buf =  Bit.And(data,0xFB) ' Make EN = 0
   
    write_word(buf)
'    Sleep(2)
End Sub
   
Private Sub Clear
    send_command(0x01)
End Sub

'inizia lcd
Private Sub init()
    send_command(0x33) ' Must initialize to 8-line mode at first
   
'    Sleep(5)
    send_command(0x32) ' Then initialize to 4-line mode
'    Sleep(5)
    send_command(0x28) ' 2 Lines & 5*7 dots
'    Sleep(5)
    send_command(0x0C) ' Enable display without cursor
'    Sleep(5)
    send_command(0X01) ' Clear Screen
   
    ADCDEVICE.wiringPiI2CWrite(fd, LCD_Backlight)
    Sleep(5)
End Sub

'Print the message on the lcd
Private Sub write( x As Int,  y As Int,  data As String)
    Dim addr As Int
    Dim i As Int
    Dim tmp As Int
    If x < 0 Then
        x = 0
    End If
    If x > 15 Then
        x = 15
    End If
    If y < 0 Then
        y = 0
    End If
    If y > 1 Then
        y = 1
    End If
    ' Move cursor
    addr = 0x80 + 0x40 * y + x

    send_command(addr)

    tmp = data.Length
    For i = 0 To tmp - 1
        send_data(i)
    Next
End Sub



Public Sub lcdinizia


    fd = Me
    fd = ADCDEVICE.wiringPiI2CSetup(0x27)
    If CInt(fd) <0 Then
        Log(" ==>> GPIO SETUP FAILED")
    Else
        Log("Fatto")
       
    End If
   
    init
    write(0, 0, "Hi man.Welcome ")
    write(0, 1, "to osoyoo.com")
    Sleep(3000)
    Clear
    Do While True
        write(0,0,"This is Lesson13")
        write(0,1,"IIC LCD Test")
        Sleep(1000)
    Loop

End Sub

Sub CInt(o As Object) As Int
    Return Floor(o)
End Sub