السلااام عليكم
كيفكم :wub:
انا والله جايه ناخيتك تساعدوني في معرفت ماهو الخطاء في هذا البرنامج المتواضع لي باللغه الفجول بيسك 2005
البرنامج يقارن محتوى الكلمه الاولى من كل سطر في ملف نصي ببيانات الجدول حيث انه عندي جدولينmot و pot في قاعده البيانات حقتي
ويطلع عدد التعليمات من النوع pesudo وعدد التعليمات من النوع machine
هذا البرنامج وساعدوني في معرفة سبب عدم اكما البرنامج لعمله لانه يطلع اول كلمه بس ومايكمل باقي الكلمات الموجوده
:blink: الكوود
وحملته بالمرفقاات
Imports System.Data.OleDb
Imports System.IO
PublicClass Form1
Dim Conn AsNew OleDbConnection
Dim Comm AsNew OleDbCommand
Dim DA AsNew OleDbDataAdapter
Dim DS AsNew DataSet
Dim filename AsString
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Conn.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Application.StartupPath & "/db.mdb"
Comm.Connection = Conn
DA.SelectCommand = Comm
Comm.CommandText = "select * from POT"
DA.Fill(DS, "POT")
Comm.CommandText = "select * from MOT"
DA.Fill(DS, "MOT")
Try
Me.Cursor = Cursors.WaitCursor
Dim POTCount AsInteger = 0
Dim MOTCount AsInteger = 0
ListBox1.Items.Clear()
ListBox2.Items.Clear()
'========================
Dim path AsString = CurDir()
path = path.Remove(path.Length - 9, 9)
path += "source.txt"
IfNot File.Exists(path) Then
MsgBox("no found file")
ExitSub
EndIf
Dim fs As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read)
Dim r AsNew StreamReader(fs)
'========================
Dim MyReader AsNew StreamReader(path)
Dim ThisLine AsString = MyReader.ReadLine
Dim WholeText AsString = ""
DoWhile ThisLine IsNotNothing
WholeText = WholeText & "" & ThisLine
ThisLine = MyReader.ReadLine
MyReader.Close()
Dim Del() AsChar = **" "}
Dim AllWords() AsString = WholeText.Split(Del)
Dim MyWord AsString
ForEach MyWord In AllWords
DS.Tables("POT").Clear()
DS.Tables("MOT").Clear()
Comm.CommandText = "select * from POT where PSEUDO ='" & MyWord & "'"
DA.Fill(DS, "POT")
Comm.CommandText = "select * from MOT where OP_CODE ='" & MyWord & "'"
DA.Fill(DS, "MOT")
If DS.Tables("POT").Rows.Count > 0 Then
POTCount = POTCount + 1
ListBox1.Items.Add(MyWord)
EndIf
If DS.Tables("MOT").Rows.Count > 0 Then
MOTCount = MOTCount + 1
ListBox2.Items.Add(MyWord)
EndIf
Next
Loop
Label1.Text = "عدد تعليمات الـ psedo " & POTCount
Label2.Text = "عدد تعليمات الـ machine " & MOTCount
Me.Cursor = Cursors.Default
Catch ex As Exception
Me.Cursor = Cursors.Default
MsgBox(Err.Description, MsgBoxStyle.Critical)
EndTry
EndSub
EndClass
وفي تصميم الفورم انا مستخدمه 2 بتون و2 ليبل و2 لست بوكس
:blush: :wub: :blush:
