- I m using P89V51RD2
I want to read data from PORT-2 of microcontroller using VB-6 software

while reading data form port, VB-6 shows the ASII value of the data but I want the decimal value

PLEAZ HELP

 

please help me in wrting code in VB-6.0 for reading the data from port of P89V51RD2 and displaying the exact decimal equivalent of data at the port.

storing it into the data and den displaying it in VB6.0


PLZ HELP

 

Use the ASC function.

 

Use the ASC function.

ASC function is not working in our case

this is my code , plz suggest me or give me modified code


Public i As Integer
Dim values() As Integer
Public Temp_In As Variant
Public Data_In As Variant
Dim k As Variant
Public j As Integer

Private Sub Form_Load()

MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()
Temp_In = MSComm1.Input

Text1.Text = Text1.Text & Temp_In
Data_In = Asc(Temp_In)
Text2.Text = Text2.Text & Data_In


End Sub

 

plz rely coderzzzzzzzzzzzz
....................

 

What numbers are you getting and what are you expecting ?

 

What numbers are you getting and what are you expecting ?

I am giving data = 0011 1001=(39)"hexadecimal" at port -2 of of microcontroller
but Im getting ascii value of 39HEX ie 9 at the hyperterminal and as well as VB-6 gui textbox.

I want the same number 39 in my GUI.

thanku

 

0011 1001 is not 39- decimal
It is 57-decimal = ASCII "9"

There are 10 types of people in the world, those who understand binary and those who don't.

 

0011 1001 is not 39- decimal
It is 57-decimal = ASCII "9"

There are 10 types of people in the world, those who understand binary and those who don't.

sorry
I mean I want to display 57 which is decimal equivalent of data at port 2 of my uc

 

Write a routine on the MCU equivalent to num2str(int d).
It is not difficult.

 

Write a routine on the MCU equivalent to num2str(int d).
It is not difficult.

I hav written my code above pls tell me where shud i make change

 

Can't see the code.

 

MrChips, i'm surprised...

 

Surprised with?

 

involvement

 

I steer people in the right direction but I don't follow them.

 

Why not use the str function ?

This will convert a number into a string so 59 will become "59".

The application help will tell you how to use the str function.