تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بدي أعمل LCD Interfacing with VB بواسطة ال parallel port
#1
السلام عليكم يعطيكم العافية جميعا يا ريت حد يساعدني لانوا ما في معي وقت يجب اني اخلص من الاكواد خلال 4 ايام بالكتير
الان انا لقيت صفحة و شفت الاكواد بس لمن اطبقها بقلي في خطئ يا ريت اذا ممكن حد بيقدر يساعدني و يشوف الاكواد
الي بدي اعملوا عرض الكلام على الفيجوال بيسك عن طريق lcd بواسطة parallel port 
هي الصفحة إلي لقيتها http://www.kswichit.com/lcd/lcd_vb.htm
طبعا ال lcd راح تكون 16*2
اذا حد ممكن يجرب الاكواد او يخدمني و كيف ممكن اعملها و هل يوجد الها مكتبة خاصة
شكرا للجميع مقدما
الرد }}}
تم الشكر بواسطة:
#2
من فضلكم ممكن حد يشوفلي الكود هذا
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استعلام بواسطة استعلام AMAZ1972AMAZ 2 352 16-08-23, 10:54 AM
آخر رد: AMAZ1972AMAZ
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  [VB.NET] مساعدة في البحث بواسطة التاريخ والوقت MOHAMMED ALZWI 2 474 02-08-23, 11:26 AM
آخر رد: MOHAMMED ALZWI
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  بحث بواسطة checkbox Lathe1 0 371 29-11-22, 02:34 AM
آخر رد: Lathe1
  حفظ البيانات بواسطة اللوب muaamar 0 649 27-06-22, 11:49 PM
آخر رد: muaamar
  استخدام parallel for makky 3 749 17-05-22, 03:23 AM
آخر رد: makky
  [VB.NET] بحث بواسطة رقم محمد بوقزاحة 0 729 07-12-21, 01:41 AM
آخر رد: محمد بوقزاحة
  كود لارسال البريد الالكتروني بواسطة الاوتولوك saudd4001 3 975 25-06-21, 01:03 PM
آخر رد: saudd4001
  كيف ازيد ارتفاع سطر في داتا جريد فيو-تم الحل بواسطة /ابوانس/ خالد20 2 1,155 25-06-21, 12:58 PM
آخر رد: خالد20

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم