السلام عليكم ورحمة الله وبركاتة
احب ان اضيف اضافة بسيطة لوضوع اخى واستاذى مهندس عبد السلام
((الغائب الحاضر ))
اعادة الله الينا سالما غانما ولعل المانع خير
تفضلوا هذا الرابط واعتبروة فقط اضافة بسيطة لشروحات المهندس عبد السلام
وهو فعلا نفس مشروع مهندس احمد الطباخ
وتم تنفيذ المشروع بمساعدة منة ومساعدة الاخ مهندس حسن هادى وقد تفضل بتعديل البرمجة وتم تبسيطها
وقمت بعمل انترفيس بسيط بالفجول اتمنى ان يعجبكم المشروع كما هو وتستفيدون منة
دى صورة لبرنامج بسيط vb6 لمشروع اخى حسن كما هو حتى الان
رابط التحميل
http://www.4shared.com/rar/lL9Z4uqfce/naser_matrix.html
البرنامج تم تحويلة الى exe لكى يعمل على اى جهاز بدون برنامج الفجول بيسك
ودة الكود vb6 لمن يرغب التعديل او اعادة تنسيق البرنامج
كود:
Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.Text
End Sub
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
End Sub
Private Sub Form_Resize()
Me.Height = 6000
Me.Width = 7500
End Sub
Private Sub send_Click()
MSComm1.PortOpen = True
MSComm1.Output = Text1.Text & Label1.Caption
MSComm1.PortOpen = Fals
End Sub
Private Sub Text1_DblClick()
Text1.Text = ""
End Sub
|
http://www.qariya.info/vb/showthread...604#post881604
تمنياتى لكم جميعا بالتوفيق الدائم
