Check whether the following program for AT89c51 to display on LCD is write or wrong?

[pradeep]

I have been doing a project on GSM based Motor Control.
I have written a program for the project i.e. to display some data on 16×2 LCD (JH 162A) & to have 1 or 0 on ports P2.0 for motor speed control.

So please let me know whether it is write or wrong?

 

$large

Dim A As Byte

Dim Text As String * 16

Dim Sms As String * 6

Dim S As Byte

Cursor Off

P2 = 0

S = 0

Cls

Lcd ” GSM Based “

Lowerline

Lcd ” Motor Control”

Wait 2

Cls

Lcd “college name”

Lowerline Lcd ” “

Wait 2

Cls

Lcd ” Guided By:Prof”

Lowerline Lcd “Prof name”

Wait 2

Print “AT+CMGF=1”

Wait 1

Print “AT+CMGD=1”

Wait 1

A1:

Print “AT+CMGR=1”

Cls

Do

A = Inkey

If A = 34 Then

Cls

Text = “”

End If

If A > 47 And A < 123 Then

Lcd Chr(a)

Text = Text + Chr(a)

End If

If A = 79 Then

Sms = “”

Sms = Mid(text , 1 , 5)

If Sms = “234D0” Then

P2 = 0

End If

If Sms = “234D1” Then

P2 = 0

P2.0 = 1

S = 1

Call Sms

End If

If Sms = “234D2” Then

P2 = 0

P2.1 = 1

S = 2

Call Sms

End If

If Sms = “234D3” Then

P2 = 0

P2.2 = 1

S = 3

Call Sms

End If

If Sms = “234D4” Then

P2 = 0

P2.3 = 1

S = 4

Call Sms

End If

If Sms = “234D5” Then

Call Sms

End If

Print “AT+CMGD=1”

Wait 5

Goto A1

End If

Loop

Sub Sms

Cls

Lcd Sms

Print “AT+CMGD=1”

Wait 1

Text = “”

Print “AT+CMGS=” ; Chr(34) ;

“09702614387” ; Chr(34)

Wait 1

Print “SMS: ” ; Sms ; ” Speed

Level:” ; S;

Print Chr(26)

Wait 5

End Sub

[AJISH ALFRED]

Hi Pradeep,

“please let me know whether it is write or wrong?”

 

Suggest you to check it yourself. If there is any issue, please let us know in detail. We will surely help you.

[pradeep]

This is the diagram I’m working on. But I’m not getting any output.
wysiwyg_imageupload:7686:

[Author]

Posts