هذا التابع يقوم باستقبال سلسلة نصية في صيغة postfix ويقوم باعطاء كل عملية مع العنصر الايسر لها والعنصر الايمن وذلك عند تحويلها الى مخطط
dfg اي يعطي تسلسل تنفيذ العمليات وقد تعبت جدا ولم افهم كيفية عمل هذا الاجراء
فاذا كان احد من المشرفين يساعدني ادعو له بطول العمر
سلسلةالـ postfix هي مثلاكماهو مبين ab*ab*+ab *ab+ab*+ as shown
Public Function MakeDFG(ctrlTextBox As Control)
Dim i As Integer
start:
For i = 1 To Len(ctrlTextBox)
CurrentChar = Mid(ctrlTextBox.Text, i, 1)
If (Not IsOperand(CurrentChar)) Then
If Not Done Then
If i - 1 >= 2 Then
CurrentOperation = CurrentChar
OpRight = Mid(ctrlTextBox, i - 1, 1)
OpLeft = Mid(ctrlTextBox, i - 2, 1)
arrDFGsz = arrDFGsz + 3
ReDim Preserve arrDFG(arrDFGsz)
arrDFG(arrDFGsz) = OpLeft
arrDFG(arrDFGsz - 1) = OpRight
arrDFG(arrDFGsz - 2) = CurrentOperation
ctrlTextBox.SelStart = i - 3
ctrlTextBox.SelLength = 2
ctrlTextBox.SelText = ""
Done = True
GoTo start
End If
Else
Done = False
End If
End If
ToNext:
Delay
DoEvents
Next i
End Function