数学建模社区-数学中国

标题: [求助]苦难女求层次分析法AHP的vc或vc++程序或软件 [打印本页]

---

作者: mildseven    时间: 2005-4-6 13:06
标题: [求助]苦难女求层次分析法AHP的vc或vc++程序或软件
苦难女求层次分析法（AHP）的vc或vc++程序或软件，望热心人士帮帮忙，急用！！[em19][em19][em18][em18][em18][em06]

---

作者: mildseven    时间: 2005-4-7 09:09
<>呜呜～～～，没人顶？？</P><>各位大gg,大jj们，救我啊！</P>

---

作者: madio    时间: 2005-4-7 09:38
标题: 转一个vb写的代码！
Private Sub Command1_Click()
Dim num As Integer
5 d0 S% G+ ]% P8 f* B, O( NDim num0, num1, num2 As Double
strline = ""
fly1 = 1
: T. e* p  N  @. DOn Error Resume Next
3 H) u7 q, g* C. z/ K  For i = 1 To List_n
  For j = 1 To List_n
* Y3 W# @' z% l) h* F  h  Text3((i - 1) * List_n + j).Enabled = True
  Next j
! q; D% Q. F; ^! {  Next i
For i = 1 To List_n
  For j = i To List_n
  If i = j Then
    Text3((i - 1) * List_n + j).text = " 1"
  Else
% C4 g0 R, W1 V$ C) [: A   num = 1
4 p! L/ j" A- x( T- V" n   num1 = 1
* B7 }4 E3 N0 d. I* F( `' [   num2 = 1
   num = InStr(num, Text3((i - 1) * List_n + j).text, "/")
8 e) n/ L# m8 [0 m7 q! k    If num &lt;&gt; 0 Then
  g1 {( T3 Z0 J% G& X# p! t- A     num1 = Val(Left(Text3((i - 1) * List_n + j).text, num))
     num2 = Val(Right(Text3((i - 1) * List_n + j).text, Len(Text3((i - 1) * List_n + j).text) - num))
; ^2 d. ?  c( N) U+ x1 H  T! g( K3 ?9 v# c     Text3((i - 1) * List_n + j).text = num1 / num2
     Text3((j - 1) * List_n + i).text = num2 / num1
8 _6 I. c2 a4 w: F# P" W3 R! G    Else
     Text3((j - 1) * List_n + i).text = 1 / Val(Text3((i - 1) * List_n + j).text)
) i7 }' \9 ~! y+ z7 `    End If
  End If
Next j
1 C+ M8 N. p' X( D$ R) h! s5 z5 s- NNext i
' j0 f% K6 o0 U# s5 Z% YL = MsgBox("您确定以上的数据吗？", 49, "提示")
. r( F: D( }2 p  p6 ^5 [" Q3 I& kIf L &lt;&gt; 1 Then
' J0 ^8 B& R0 O) \+ g4 _2 _Exit Sub
End If
, u+ \0 o, L$ f6 w2 x4 a, ACall caculation(Combo1.ListIndex + 1, List_n, Text3)
) ~1 M& m4 N+ I, S2 W  a- x6 QIf Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1 Then
! l4 [  _! v1 p7 V9 m, [0 o3 Rh = MsgBox("重新输入新数据吗？", 3)
) L) R0 C2 v6 O- X+ s' Z! C; ESelect Case h
/ h: l+ @3 n  J5 F6 VCase 1
  GoTo op
% ]& ^5 n0 ]* {! s* f( A4 E( ^Case 2
  Exit Sub
8 ~* `, m2 T0 m' g2 V  _2 wCase 7
; o6 d- k! `$ j4 n. X   Exit Sub
0 z* g$ [( l( [: T, y, MEnd Select
End If
, f' [1 y$ t4 g: c1 o% Rop: Selected(Combo1.ListIndex + 1) = Combo1.ListIndex + 1
" t4 s9 @6 m. k- [6 l  ?! y9 eCall check
7 G5 e8 V" I" W* g9 ~. R8 p'结果说明
For i = 1 To List_n
+ g: h) [8 n4 G1 `

2 w9 m( s/ i$ B# s' jNext i
If fly1 = 1 And fly2 = 1 Then
9 M5 F! c& [# Q; O4 ]Command1.Enabled = False
5 a" n% a/ V" ]  t* b2 rCommand2.Enabled = False
- E$ O7 B4 m" n4 E# l+ @  For i = 1 To List_n
    ftoa(i) = 0
    For j = 1 To List_m
- {( y1 X; K3 H     ftoa(i) = ftoa(i) + AAs(j, i) * AAs(0, j)
    Next j
    strline = strline + Str(ftoa(i)) + "  "
  Next i
, r+ p& J4 B# v) ?) _5 aj = MsgBox("各方案对目标的权数为：" + Chr(10) + Chr(13) + strline, 64, "结论")

End If
! ]$ @# \9 y" T2 J5 U5 I; q
- ]7 ^/ ?" U: B% e+ rFor i = 1 To List_n
   For j = 1 To List_n
    Text3((i - 1) * List_n + j).Visible = True
    Text3((i - 1) * List_n + j).text = ""
   If i &gt; j Or i = j Then
. @: p/ n% d/ \7 p    Text3((i - 1) * List_n + j).Enabled = False
    Text3((i - 1) * List_n + j).BackColor = &amp;H868754
5 Q( |0 v$ H4 J" l, u   End If
' i5 M* e5 Q1 t0 h2 i   Next j
Next i
End Sub
1 D: I) B# l" w( Q. A& O注意上面的Text3是一个文本框控件的数组！

---

作者: mildseven    时间: 2005-4-28 17:11
<>谢谢！</P><>但我要C 或是 VC的啊</P>

---

作者: mokung    时间: 2009-5-9 01:40
3# madio
Thank you .

---

作者: ywwnudt    时间: 2009-7-8 08:01
苦难女,找到你要的东西没有?分享一下

---

作者: frainbbs    时间: 2009-7-8 15:26
呵呵 苦难女

---

作者: spurs1988    时间: 2009-7-26 10:51
还没找到吗？郁闷......

---

作者: chaikeen    时间: 2009-8-13 21:26
xixexeixeiixxeixeiixeixeiie

---

作者: 东方明珠-WDZYQ    时间: 2009-10-31 17:23
下来用了哈，上面的VB程序还可以，

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5