منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] بدي أعمل LCD Interfacing with VB بواسطة ال parallel port - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] بدي أعمل LCD Interfacing with VB بواسطة ال parallel port (/showthread.php?tid=32591)

بدي أعمل LCD Interfacing with VB بواسطة ال parallel port - abd saqqa - 19-12-19

السلام عليكم يعطيكم العافية جميعا يا ريت حد يساعدني لانوا ما في معي وقت يجب اني اخلص من الاكواد خلال 4 ايام بالكتير
الان انا لقيت صفحة و شفت الاكواد بس لمن اطبقها بقلي في خطئ يا ريت اذا ممكن حد بيقدر يساعدني و يشوف الاكواد
الي بدي اعملوا عرض الكلام على الفيجوال بيسك عن طريق lcd بواسطة parallel port 
هي الصفحة إلي لقيتها http://www.kswichit.com/lcd/lcd_vb.htm
طبعا ال lcd راح تكون 16*2
اذا حد ممكن يجرب الاكواد او يخدمني و كيف ممكن اعملها و هل يوجد الها مكتبة خاصة
شكرا للجميع مقدما

RE: بدي أعمل LCD Interfacing with VB بواسطة ال parallel port - abd saqqa - 19-12-19

من فضلكم ممكن حد يشوفلي الكود هذا
Visual Basic Code
Dim data As Variant

Private Sub Clear_Click()
LowRs
Out Val(&H378), Val(1) ' function to send data to parallel port
Enable
txtlcd1.Text = " " ' line 1 for LCD
txtlcd2.Text = " " ' line 2 for LCD
End Sub

Private Sub Start_Click()
Out Val(&H37A), Val(Inp(&H37A) And &HDF)
lcd_int
LCDWriteString txtlcd1.Text
next_line ' function to set cursor to second line
LCDWriteString txtlcd2.Text
End Sub

Sub LowRs()
Out Val(&H37A), Val(Inp(&H37A) Or &H8) ' Rs Low
End Sub


Sub LowEn()
Out Val(&H37A), Val(Inp(&H37A) Or &H1) ' En Low
End Sub

Sub HighRs()
Out Val(&H37A), Val(Inp(&H37A) And &HF7) ' Rs High
End Sub

Sub HighEn()
Out Val(&H37A), Val(Inp(&H37A) And &HFE) ' En High
End Sub

Sub lcd_write(data%)
HighRs
Out Val(&H378), Val(data)
Enable
End Sub

Sub next_line()
LowRs
Out Val(&H378), Val(&HC0)
Enable
End Sub


Sub lcd_int() 'subroutine to initialize LCD
LowRs
Out Val(&H378), Val(&H38)
Enable
LowRs
Out Val(&H378), Val(&HC)
Enable
LowRs
Out Val(&H378), Val(&H6)
Enable
LowRs
Out Val(&H378), Val(&H1)
Enable
End Sub


Sub Enable()
DELAYUS 20000
HighEn
DELAYUS 2000
LowEn
DELAYUS 2000
End Sub

' function to send ASCII character one by one to LCD
Public Sub LCDWriteString(ByVal OutStr As String)
Dim i As Integer 'write a string to LCD
For i = 1 To Len(OutStr)
lcd_write (Abs(Asc(Mid(OutStr, i, 1))))
Next i
End Sub