module1.bas

用XML做专家系统的一个编译器,有说明书,使用简单,有模板

Attribute VB_Name = "Module1"
Public ObjectArray(20) As String
Public AttributeArray(20, 50) As String
Public RuleArray(20, 50, 2, 50, 4) As String '为每个对象提供50条规则，每条规则的前提和结论最多可以为50条，每条前提或结论实际上就是对象属性
Public RuleNameArray(20, 50) As String
Public Type tnode
 Name As String
 Att As String
 loc(1) As Integer 'from zero
 ChildCount As Integer 'from one
 Children(10) As Integer
End Type
Public NodeList(100) As tnode
Public fMainForm As frmMain

Sub Main()
    Dim i As Long
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    '延时
    For i = 0 To 1000
    Next
    Load fMainForm
    fMainForm.Show
    Unload frmSplash
End Sub

Sub LoadResStrings(frm As Form)
    On Error Resume Next


    Dim ctl As Control
    Dim obj As Object
    Dim fnt As Object
    Dim sCtlType As String
    Dim nVal As Integer


    'set the form's caption
    frm.Caption = LoadResString(CInt(frm.Tag))
    

    'set the font
    Set fnt = frm.Font
    fnt.Name = LoadResString(20)
    fnt.Size = CInt(LoadResString(21))
    'set the controls' captions using the caption
    'property for menu items and the Tag property
    'for all other controls
    For Each ctl In frm.Controls
        Set ctl.Font = fnt
        sCtlType = TypeName(ctl)
        If sCtlType = "Label" Then
            ctl.Caption = LoadResString(CInt(ctl.Tag))
        ElseIf sCtlType = "Menu" Then
            ctl.Caption = LoadResString(CInt(ctl.Caption))
        ElseIf sCtlType = "TabStrip" Then
            For Each obj In ctl.Tabs
                obj.Caption = LoadResString(CInt(obj.Tag))
                obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
            Next
        ElseIf sCtlType = "Toolbar" Then
            For Each obj In ctl.Buttons
                obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
            Next
        ElseIf sCtlType = "ListView" Then
            For Each obj In ctl.ColumnHeaders
                obj.Text = LoadResString(CInt(obj.Tag))
            Next
        Else
            nVal = 0
            nVal = Val(ctl.Tag)
            If nVal > 0 Then ctl.Caption = LoadResString(nVal)
            nVal = 0
            nVal = Val(ctl.ToolTipText)
            If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
        End If
    Next
End Sub

Public Sub delay(ByVal length As Integer)
Dim j, k As Integer
For i = 0 To length
k = 0
For j = 0 To 1000
k = k + 1
Next
Next
End Sub