?? frmpollutedwater1.frm

?? 水質模糊綜合評價系統水質模糊綜合評價系統水質模糊綜合評價系統
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   41
      Top             =   5250
      Width           =   1455
   End
   Begin VB.Label Label6 
      BackColor       =   &H00FCB370&
      Caption         =   " 化學需氧量 (鉻法)CODCr"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   40
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label14 
      BackColor       =   &H00FCB370&
      Caption         =   "請輸入每種污染物對不同污染程度的隸屬度和該污染物的權重值后進行水污染程度的評價！"
      BeginProperty Font 
         Name            =   "幼圓"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1440
      TabIndex        =   39
      Top             =   600
      Width           =   9735
   End
   Begin VB.Label Label7 
      BackColor       =   &H00FCB370&
      Caption         =   "清潔隸屬度"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2880
      TabIndex        =   38
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label Label8 
      BackColor       =   &H00FCB370&
      Caption         =   "輕污染隸屬度"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4560
      TabIndex        =   37
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label Label9 
      BackColor       =   &H00FCB370&
      Caption         =   "中污染隸屬度"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6360
      TabIndex        =   36
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label Label10 
      BackColor       =   &H00FCB370&
      Caption         =   "重污染隸屬度"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8160
      TabIndex        =   35
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label Label11 
      BackColor       =   &H00FCB370&
      Caption         =   "污染物權重"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   10080
      TabIndex        =   34
      Top             =   1320
      Width           =   1095
   End
   Begin VB.Label Label12 
      BackColor       =   &H00FCB370&
      Caption         =   "評價結果："
      BeginProperty Font 
         Name            =   "幼圓"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   33
      Top             =   7800
      Width           =   1335
   End
   Begin VB.Label Label13 
      BackColor       =   &H00FCB370&
      Caption         =   " "
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   32
      Top             =   7800
      Width           =   5655
   End
End
Attribute VB_Name = "FrmPollutedWater1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'定義變量來保存文本框中的各隸屬度值和權重值
Dim m1 As Double
Dim m2 As Double
Dim m3 As Double
Dim m4 As Double
Dim m5 As Double
Dim m6 As Double
Dim m7 As Double
Dim m8 As Double
Dim m9 As Double
Dim m10 As Double
Dim m11 As Double
Dim m12 As Double
Dim m13 As Double
Dim m14 As Double
Dim m15 As Double
Dim m16 As Double
Dim m17 As Double
Dim m18 As Double
Dim m19 As Double
Dim m20 As Double
Dim m21 As Double
Dim m22 As Double
Dim m23 As Double
Dim m24 As Double
Dim m25 As Double
Dim m26 As Double
Dim m27 As Double
Dim m28 As Double
Dim m29 As Double
Dim m30 As Double
'定義變量保存歸一化權重值
Dim a1 As Double
Dim a2 As Double
Dim a3 As Double
Dim a4 As Double
Dim a5 As Double
Dim a6 As Double
'定義變量保存綜合評價結果向量的值
Dim r1 As Double
Dim r2 As Double
Dim r3 As Double
Dim r4 As Double
Dim i As Integer
Dim j As Integer
Private Sub BackG(f As Form, pic As PictureBox) '定義一個根據窗體大小變化而變化的顯示背景的過程
For i = 0 To (f.ScaleWidth \ pic.Width)
   For j = 0 To (f.ScaleHeight \ pic.Height)
      PaintPicture pic.Picture, i * pic.Width, j * pic.Height
       Next
    Next
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Pic1.Visible = False
Pic1.BorderStyle = 0
Pic1.AutoSize = True
Pic1.Picture = LoadPicture(App.Path + "\03.gif")
BackG Me, Pic1

End Sub
Private Sub Form_resize()
BackG Me, Pic1
End Sub



Public Sub ClearText() '這是一個清除窗體上所有文本框的過程
Dim x As Object          '聲明一個對象型變量x
For Each x In Me.Controls  '用for each循環可以對所有對象起作用而不必事先知道共有多少對象
If TypeOf x Is TextBox Then '判斷對象的類型是不是文本框
x.Text = ""                  '如果是就把框中內容清空為空字符串
End If
Next x
End Sub




Private Sub Command1_Click()
Dim x As Object          '聲明一個對象型變量x
For Each x In Me.Controls  '用for each循環可以對所有對象起作用而不必事先知道共有多少對象
     If TypeOf x Is TextBox Then '判斷對象的類型是不是文本框
        If x.Text = "" Then   '如果框中內容為空字符串則提示
        MsgBox "請將數據全部輸入后再進行評價！", vbOKOnly + vbExclamation, "提示"
        Exit Sub
        'ElseIf Val(x.Text) > 1 Or Val(x.Text) < 0 Then '如果框中內容值>1則提示
           'MsgBox "請輸入合理的數據！數值的范圍是[0,1]", vbOKOnly + vbExclamation, "提示"
           'Exit Sub
        End If
     End If
Next x

'取值保存
m1 = Val(Text1.Text)
m2 = Val(Text2.Text)
m3 = Val(Text3.Text)
m4 = Val(Text4.Text)
m5 = Val(Text5.Text)
m6 = Val(Text6.Text)
m7 = Val(Text7.Text)
m8 = Val(Text8.Text)
m9 = Val(Text9.Text)
m10 = Val(Text10.Text)
m11 = Val(Text11.Text)
m12 = Val(Text12.Text)
m13 = Val(Text13.Text)
m14 = Val(Text14.Text)
m15 = Val(Text15.Text)
m16 = Val(Text16.Text)
m17 = Val(Text17.Text)
m18 = Val(Text18.Text)
m19 = Val(Text19.Text)
m20 = Val(Text20.Text)
m21 = Val(Text21.Text)
m22 = Val(Text22.Text)
m23 = Val(Text23.Text)
m24 = Val(Text24.Text)
m25 = Val(Text25.Text)
m26 = Val(Text26.Text)
m27 = Val(Text27.Text)
m28 = Val(Text28.Text)
m29 = Val(Text29.Text)
m30 = Val(Text30.Text)
If (m5 + m10 + m15 + m20 + m25 + m30) = 0 Then
MsgBox "權重值不合理，請重新輸入", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If

'將權重值歸一化

a1 = m5 / (m5 + m10 + m15 + m20 + m25 + m30)
a2 = m10 / (m5 + m10 + m15 + m20 + m25 + m30)
a3 = m15 / (m5 + m10 + m15 + m20 + m25 + m30)
a4 = m20 / (m5 + m10 + m15 + m20 + m25 + m30)
a5 = m25 / (m5 + m10 + m15 + m20 + m25 + m30)
a6 = m30 / (m5 + m10 + m15 + m20 + m25 + m30)

'權重矩陣與隸屬度矩陣相乘得出綜合評價結果向量(r1,r2,r3,r4)
r1 = (a1 * m1) + (a2 * m6) + (a3 * m11) + (a4 * m16) + (a5 * m21) + (a6 * m26)
r2 = (a1 * m2) + (a2 * m7) + (a3 * m12) + (a4 * m17) + (a5 * m22) + (a6 * m27)
r3 = (a1 * m3) + (a2 * m8) + (a3 * m13) + (a4 * m18) + (a5 * m23) + (a6 * m28)
r4 = (a1 * m4) + (a2 * m9) + (a3 * m14) + (a4 * m19) + (a5 * m24) + (a6 * m29)

'取最大值得出評價結果
If r1 >= r2 And r1 >= r3 And r1 >= r4 Then
    Label13.Caption = "水污染程度為“清潔”"
    ElseIf r2 >= r1 And r2 >= r3 And r2 >= r4 Then
    Label13.Caption = "水污染程度為“輕污染”"
    ElseIf r3 >= r1 And r3 >= r2 And r3 >= r4 Then
    Label13.Caption = "水污染程度為“中污染”"
    ElseIf r4 >= r1 And r3 >= r2 And r4 >= r3 Then
    Label13.Caption = "水污染程度為“重污染”"
End If

End Sub

Private Sub Command2_Click()
ClearText

End Sub

Private Sub Command3_Click()
Unload Me

End Sub
上一頁 12
?? 文件大小 5645 K
?? 上傳用戶 haowfei
?? 所屬分類其他行業
??? 相關標簽

#模糊綜合 #評價系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmpollutedwater1.frm

?? 快捷鍵說明
