1概述
我国是一个多地震国家，进入九十年代以来，我国地区明显进入本世纪的第五次地震活动高峰期。对于人口密集、经济发达的大中城市，是否能做好防震减灾工作将直接影响着我国的经济发展及社会安定。为此，我国提出了防震减灾十年目标。城市震害预测及防震减灾对策工作的目的是充分利用现代科学技术的新方法、新技术,如地理信息系统，对城市可能出现的震害进行预测，发现城市建筑物和构筑物抗震性能的薄弱环节，据此制定适合城市的抗震对策和减灾防灾规划。
2需求分析
系统设计的主要思想，就是应用GIS技术，完成从数据管理到最终计算整个过程的城市防震减灾的系统。根据概率地震危险性分析或设定地震得到的对未来地震影响的预测，确定给定目标的地震影响，结合对目标抗震能力的分析，在预测的地震影响下，估计目标可能遭受的破坏，并据此评价地震造成的经济损失和人员伤亡。因此，我们在系统开发中使用了网络分析（Network Analyst）功能，以解决在防震对策中救灾最佳路径的选取等。
3.应用逻辑结构
客户端计算机通过局域网访问数据服务器，数据服务器中存放属性数据库或地图数据。
客户端计算机上的城市防震减灾系统软件基于TopMap GIS平台，分析城市地震发生的空间位置，并提供在防震中最佳路径的选取，为城市防震减灾提供有效的辅助决策支持。
4.软件架构
4.1软件框架
城市防震减灾系统的地图数据和属性数据位于服务器中，客户端可以通过TopMap ActiveX 6＋TopMap SDP6进行数据的访问。
4.2软件环境
服务器系统：Windows 2003（Windows 2000 Server）属性数据库：SQL Server（Oralce等）客户端系统：Windows 2003（Windows XP、Windows 2000）
4.3 GIS软件配置
| 序号 |
产品名称 |
备注 |
| 1 |
1套TopMap ActiveX V6企业开发版（E版） |
必备 |
| 2 |
1套TopMap ActiveX软件开发狗 |
必备 |
| 3 |
N套TopMap ActiveX 软件狗 |
必备 |
| 4 |
TopMap SDP V6 |
必备 |
| 5 |
TopMap Desktop 6 |
辅助管理 |
5本方案特点
1) 系统基于流行的.net框架平台，系统性能稳定，使用方便；
2) 系统基于慧图的TopMap ActiveX+TopMap SDP实现地理信息系统的查询分析和管理，GIS数据访问快速稳定。
3) 系统结合城市防震减灾提供强大的网络分析功能，在系统中提供最佳救灾路径，并在地图上展现出来。
posted @
2007-11-02 09:57 lizhong 阅读(91) |
评论 (0) |
编辑1概述
我国是一个多地震国家，进入九十年代以来，我国地区明显进入本世纪的第五次地震活动高峰期。对于人口密集、经济发达的大中城市，是否能做好防震减灾工作将直接影响着我国的经济发展及社会安定。为此，我国提出了防震减灾十年目标。城市震害预测及防震减灾对策工作的目的是充分利用现代科学技术的新方法、新技术,如地理信息系统，对城市可能出现的震害进行预测，发现城市建筑物和构筑物抗震性能的薄弱环节，据此制定适合城市的抗震对策和减灾防灾规划。
2需求分析
系统设计的主要思想，就是应用GIS技术，完成从数据管理到最终计算整个过程的城市防震减灾的系统。根据概率地震危险性分析或设定地震得到的对未来地震影响的预测，确定给定目标的地震影响，结合对目标抗震能力的分析，在预测的地震影响下，估计目标可能遭受的破坏，并据此评价地震造成的经济损失和人员伤亡。因此，我们在系统开发中使用了网络分析（Network Analyst）功能，以解决在防震对策中救灾最佳路径的选取等。
3.应用逻辑结构
客户端计算机通过局域网访问数据服务器，数据服务器中存放属性数据库或地图数据。
客户端计算机上的城市防震减灾系统软件基于TopMap GIS平台，分析城市地震发生的空间位置，并提供在防震中最佳路径的选取，为城市防震减灾提供有效的辅助决策支持。
4.软件架构
4.1软件框架
城市防震减灾系统的地图数据和属性数据位于服务器中，客户端可以通过TopMap ActiveX 6＋TopMap SDP6进行数据的访问。
4.2软件环境
服务器系统：Windows 2003（Windows 2000 Server）
属性数据库：SQL Server（Oralce等）
客户端系统：Windows 2003（Windows XP、Windows 2000）
4.3 GIS软件配置
|
序号
|
产品名称
|
备注
|
|
1
|
1套TopMap ActiveX V6企业开发版（E版）
|
必备
|
|
2
|
1套TopMap ActiveX软件开发狗
|
必备
|
|
3
|
N套TopMap ActiveX 软件狗
|
必备
|
|
4
|
TopMap SDP V6
|
必备
|
|
5
|
TopMap Desktop 6
|
辅助管理
|
5本方案特点
1) 系统基于流行的.net框架平台，系统性能稳定，使用方便；
2) 系统基于慧图的TopMap ActiveX+TopMap SDP实现地理信息系统的查询分析和管理，GIS数据访问快速稳定。
3) 系统结合城市防震减灾提供强大的网络分析功能，在系统中提供最佳救灾路径，并在地图上展现出来。
www.topmap.com.cn
posted @
2007-11-02 09:53 lizhong 阅读(43) |
评论 (0) |
编辑
24点代码如下
Public Sub king(ByVal i As Integer)
Select Case i
Case 1
A = numberA
B = numberB
C = numberC
D = numberD
data(A, B, C, D)
Case 2
A = numberA
B = numberB
C = numberD
D = numberC
data(A, B, C, D)
Case 3
A = numberA
B = numberC
C = numberB
D = numberD
data(A, B, C, D)
Case 4
A = numberA
B = numberD
C = numberB
D = numberC
data(A, B, C, D)
Case 5
A = numberA
B = numberC
C = numberD
D = numberB
data(A, B, C, D)
Case 6
A = numberA
B = numberD
C = numberC
D = numberB
data(A, B, C, D)
Case 7
A = numberB
B = numberA
C = numberC
D = numberD
data(A, B, C, D)
Case 8
A = numberC
B = numberA
C = numberD
D = numberC
data(A, B, C, D)
Case 9
A = numberC
B = numberA
C = numberB
D = numberC
data(A, B, C, D)
Case 10
A = numberC
B = numberA
C = numberD
D = numberB
data(A, B, C, D)
Case 11
A = numberC
B = numberA
C = numberD
D = numberB
data(A, B, C, D)
Jieguo = a + b + c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "-" & d & "=24")
End If
Case 3
Jieguo = a + b + c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "*" & d & "=24")
End If
Case 4
Jieguo = a + b + c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & b & "+" & c & "/" & d & "=24")
End If
Case 5
Jieguo = a * b + c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "+" & d & "=24")
End If
Case 6
Jieguo = a * b + c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "+" & c & "-" & d & "=24")
End If
Case 7
Jieguo = a * b * c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "+" & d & "=24")
End If
Case 8
Jieguo = a * b * c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "-" & d & "=24")
End If
Case 9
Jieguo = a * b * c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "*" & d & "=24")
End If
Case 10
Jieguo = a * b - c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "-" & c & "*" & d & "=24")
End If
Case 11
Jieguo = a / b + c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "/" & b & "+" & c & "+" & d & "=24")
End If
Case 12
Jieguo = a * b / c + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "+" & d & "=24")
End If
Case 13
Jieguo = a * b * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "*" & c & "/" & d & "=24")
End If
Case 14
Jieguo = a * b / c - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "-" & d & "=24")
End If
Case 15
Jieguo = a * b / c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & b & "/" & c & "/" & d & "=24")
End If
Case 16
Jieguo = (a + b) * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & c & "/" & d & "=24")
End If
Case 17
Jieguo = (a + b) * (c + d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "+" & d & ")" & "=24")
End If
Case 18
Jieguo = (a + b) * (c - d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")
End If
Case 19
Jieguo = (a - b) * (c - d)
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & "(" & c & "-" & d & ")" & "=24")
End If
Case 20
Jieguo = (a - b) * c / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "/" & d & "=24")
End If
Case 21
Jieguo = (a - b) * c * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & ")" & "*" & c & "*" & d & "=24")
End If
Case 22
Jieguo = (a + b + c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "*" & d & "=24")
End If
Case 23
Jieguo = (a + b + c) / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "+" & c & ")" & "/" & d & "=24")
End If
Case 24
Jieguo = (a + b - c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "+" & b & "-" & c & ")" & "*" & d & "=24")
End If
Case 25
Jieguo = a * (b + c) + d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "+" & d & "=24")
End If
Case 26
Jieguo = a * (b - c) + d
If (Jieguo = 24) Then
Me.lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "+" & d & "=24")
End If
Case 27
Jieguo = a * (b + c) - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "+" & c & ")" & "-" & d & "=24")
End If
Case 28
Jieguo = a * (b - c) - d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "*" & "(" & b & "-" & c & ")" & "-" & d & "=24")
End If
Case 29
Jieguo = a + (b + c) / d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString(a & "+" & "(" & b & "+" & c & ")" & "/" & d & "=24")
End If
Case 30
Jieguo = (a - b / c) * d
If (Jieguo = 24) Then
lblshow.Text = System.Convert.ToString("(" & a & "-" & b & "/" & c & ")" & "*" & d & "=24")
End If
End Select
Next j
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
numberA = Convert.ToSingle(txt1.Text)
numberB = Convert.ToSingle(txt2.Text)
numberC = Convert.ToSingle(txt3.Text)
numberD = Convert.ToSingle(txt4.Text)
For i = 1 To 13
king(i)
Next i
If (lblshow.Text = "请稍后……") Then
lblshow.Text = "无解！！！"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
txt1.Text = (Int(Rnd() * 13) + 1).ToString()
txt2.Text = (Int(Rnd() * 13) + 1).ToString()
txt3.Text = (Int(Rnd() * 13) + 1).ToString()
txt4.Text = (Int(Rnd() * 13) + 1).ToString()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
End Sub
End Class
posted @
2007-10-23 10:57 lizhong|
编辑