عالم رقمي يؤمن بالصفر والواحد يصعب قراءة المعطيات التماثلية ( التشابهية) فيتصدر ال plc قائمة
الاجهزة القادرة على قراءة مثل هذا الدخل
وتبيقى مثل هذه القراءات بعيدة عن شاشة الكومبيوتر اونضطر الى ادخالها رقما رقما بشكل يدوي لمعالجتها
ولقد مرت معي باصدفة دارة تعرفونها جميعكم وهي دارة الانزياح الرقمي المستخدمة في زبنة السيارات
وساشرحها لمن لايعرفها ( هي دارة تستخم لتزيين السيارات عبارة عن ليدات تعمل بشكل متتابع ويمكن زيادة سرعة الليدات بواسطة مقاومة متغيرة ) ذهبت من فوري وقمت بشرائها وهي رخيصة جدا
عزيزي عندما تحصل على هذه الدارة ستلاحظ ان هناك مقاومة متغيرة استبدلها بحساس حراري
ثم صل ترنزستور BD139 على خرج الليد الاول من الدارة وسيخرج الترنزستور اشارة سالبة
كرر العملية على خرج الليد الثاني قتحصل على اشارتين سالبتين من الدارة ثم أهمل الليدت الباقية كانها لم تكن
اذا لم تستطع ذلك اطلب من صانع الكترونيات المساعدة او راسلني عبرالمنتدى اوعبر الايميل
النتيجة حصولك على اشارتين سالبتين تعملان بتسارع يحكمه الدخل الوارد من الحساس او المقاومة المتغيرة
الوصل مع الكومبيوتر يكون عبر الفتحتين ال 11 وال 12 للبراليل حيث تسقبل هذه الفتحات الاشارات السالبة
ويقوم الكود التالى بقياس الفرق بين سرعة الاشارة السالبة الاولى وبين الثانية
بعد ذلك افتح برنامج vb.net 2005 واكتب الكود التالي :
علما ان هناك قاعدة بيانات اكسيس اسمها AAA وفيها حقل اسمه TAB يجب وضعه في ذات المجلد
وكذلك داتا BBB
وستكون الواجهة كما في المرفق
وكذلك الدارة ارست صورتها مع المرفق
Option Strict Off
Option Explicit On
Public Class Form1
Inherits System.Windows.Forms.Form
Dim bmbA As BindingManagerBase
'لاحظ هنا اختلاف التعاريف bmba
Dim bmbaa As BindingManagerBase
Dim tab As New TabPage
'لاحظ هنا اختلاف التعاريف 1
Dim TAB1 As New TabPage
'لاحظ هنا اختلاف التعاريفBBB
Dim BBB As New DataSet
Dim AAA As New DataSet
Dim N As Integer
Private Sub Command1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles Command1.KeyPress
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
'UPGRADE_NOTE: Char was upgraded to Char_Renamed. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
Dim Char_Renamed As Object
'UPGRADE_WARNING: Couldn't resolve default property of object Char_Renamed. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Char_Renamed = Chr(KeyAscii)
'UPGRADE_WARNING: Couldn't resolve default property of object Char_Renamed. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
Text1.Text = "KeyAscii = " & Str(KeyAscii) & "Char = " + Char_Renamed
Text1.Text = Str(KeyAscii)
eventArgs.KeyChar = Chr(KeyAscii)
If KeyAscii = 0 Then
eventArgs.Handled = True
End If
End Sub
Private Sub Command1_KeyUp(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyEventArgs) Handles Command1.KeyUp
Dim KeyCode As Short = eventArgs.KeyCode
Dim Shift As Short = eventArgs.KeyData \ &H10000
Text1.Text = ""
End Sub
Private Sub Timbmb_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timbmb.Tick
If Val(Text1.Text) = 112 Then
bmbA.Position += 1
Timbmb.Enabled = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
bmbA.Position += 1
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim MydsAa As New DataSet
Dim conAa As New OleDb.OleDbConnection
Dim sqlAa As String
sqlAa = "select A from TAB1 "
conAa.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=BBB.mdb;Persist Security Info=False"
Try
Dim daPersonA As New OleDb.OleDbDataAdapter(sqlAa, conAa)
daPersonA.Fill(BBB, "TAB1")
Catch e1 As OleDb.OleDbException
Label1.Text = e1.Message
End Try
TextBox1.DataBindings.Add("Text", BBB, "TAB1.A")
bmbA = Me.BindingContext(BBB, "TAB1")
bmbA.Position = bmbA.Count
bmbA.Position = 0
Dim MydsA As New DataSet
Dim conA As New OleDb.OleDbConnection
Dim sqlA As String
sqlA = "select A from tab"
conA.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=AAA.mdb;Persist Security Info=False"
Try
Dim daPersonA As New OleDb.OleDbDataAdapter(sqlA, conA)
daPersonA.Fill(AAA, "tab")
Catch e11 As OleDb.OleDbException
Label2.Text = e11.Message
End Try
TextBox2.DataBindings.Add("Text", AAA, "tab.A")
bmbaa = Me.BindingContext(AAA, "tab")
bmbaa.Position = bmbaa.Count
bmbaa.Position = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timbmb1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timbmb1.Tick
If Text1.Text = "" Then
Timbmb.Enabled = True
End If
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timbmba_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timbmba.Tick
bmbaa.Position += 1
ProgressBar2.Value = Val(TextBox1.Text)
ProgressBar1.Value = Val(TextBox3.Text)
End Sub
Private Sub ProgressBar1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub Timraiesee_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timraiesee.Tick
If TextBox2.Text = 99 Then
Timbmba.Enabled = False
Timbmb1.Enabled = False
Timbmb.Enabled = False
TextBox3.Text = TextBox1.Text
bmbaa.Position = 0
bmbA.Position = 0
Else
Timbmba.Enabled = True
Timbmb1.Enabled = True
End If
End Sub
Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar2.Click
End Sub
End Class
