|
多线程技术（multithreading）是编程中最强大的概念之一。使用多线程技术，你可以把复杂的事务拆分到彼此独立执行的多个线程之中。良好的多线程应用程序是自然地同步的，类似于Web服务调用。在默认情况下，Web服务调用属于阻塞（blocking）调用--即调用者（caller）的代码停止执行，直到Web服务返回结果为止。但是由于Web服务调用通常很慢，就可能导致客户端性能降低，除非你采用特殊的步骤使调用异步进行。
本文讲解的是如何建立一个图表应用程序，从这个例子中你可以看到如何在不影响客户端UI的时候异步地调用Web服务。示例代码利用Chart FX组件使用图形来显示股票信息。当然读者也可以使用.NET编写的免费图表类库。
建立一个Web服务
示例代码需要访问假想的股票报价Web服务。我们在Visual Studio .NET 2003中建立一个Web服务，把它命名为“StockWS”。这个Web服务由一个叫做getPrice()的Web方法组成，该方法只接受一个股票编码参数：
Public Function getPrice(ByVal stock As String) As Single
Return Rnd() * 100
End Function
|
不管被请求的股票是什么，getPrice()方法都生成一个随机的价格。它的唯一目标是模拟一个返回特定股票价格的真实的Web服务。
尽管本文使用的是一个成型的Web服务来进行演示的，但是你可以轻易地替换这个Web服务以显示真正的股票信息。
使用Chart FX组件显示图形
在建立上面的Web服务项目之后，先给解决方案浏览器添加一个Windows应用程序项目（叫做Stock Quote，股票报价）。给该项目增加一个对前面所建立的Web服务的引用。解决方案浏览器现在应该如图1所示。
图1：解决方案浏览器中的项目
图中显示了StockWS Web服务项目和Windows窗体项目Stock Quote。
为了建立本文的示例项目，你必须从http://chartfx.com/下载和安装Chart FX组件30天试用版。在安装这个绘图组件之后，你可以在Visual Studio .NET 2003的工具盒中看到它（如图2所示）。
图2：工具盒中的Chart组件
你需要从网站上下载并安装Chart FX组件30天试用版。
在该Windows应用程序默认的Form1中，用下面一些控件填充该窗体，如图3所示：
◆Chart
◆ComboBox
◆Button
图3：Stock Quote主窗体
图中显示了添加适当的控件之后窗体样式。
Chart（绘图）组件为定制自己的行为和外观提供了很多选项。你可以使用向导（位于属性窗体底部，如图4所示）格式化这个Chart组件。
图4：Chart组件的格式化向导
该向导为Chart组件提供了大量的格式化选项。
使用示例的最简单的方法是把下面一些Chart属性复制并粘贴到"Windows窗体设计器生成的"代码段中：
'Chart1
Me.Chart1.AxisX.Staggered = True
Me.Chart1.AxisX.Step = 10
Me.Chart1.AxisY.Step = 10
Me.Chart1.BackObject = GradientBackground1
Me.Chart1.DataStyle =SoftwareFX.ChartFX.DataStyle.ReadXValues
Me.Chart1.DesignTimeData = _
"C:\Program Files\ChartFX for .NET 6.2\Wizard\XYZero.txt"
Me.Chart1.Gallery = SoftwareFX.ChartFX.Gallery.Lines
Me.Chart1.InsideColor = System.Drawing.Color.Transparent
Me.Chart1.LineWidth = 3
Me.Chart1.Location = New System.Drawing.Point(40, 16)
Me.Chart1.MarkerShape =SoftwareFX.ChartFX.MarkerShape.None
Me.Chart1.Name = "Chart1"
Me.Chart1.NSeries = 1
Me.Chart1.NValues = 20
Me.Chart1.Palette = "HighContrast.HighContrast"
Me.Chart1.PointLabels = True
Me.Chart1.Size = New System.Drawing.Size(656, 216)
Me.Chart1.TabIndex = 12
Me.Chart1.Titles.AddRange(New _
SoftwareFX.ChartFX.TitleDockable(){TitleDockable1})
|
同时，把下面一些数据项添加到组合框控件中：“MSFT”、“SUN”、“YHOO”和“GE”。你可以在Form_Load事件中进行这样的操作：
Me.cmbStocks1.Items.AddRange(New String() {"MSFT", "SUN", "YHOO", "GE"})
|
激活图形
下一步，导入下面的名字空间（在代码窗口的顶部）：
Imports SoftwareFX.ChartFX
Imports System.Threading
|
定义用于线程的全局变量t1：
在Chart1_Load事件中，初始化Chart组件：
Private Sub Chart1_Load(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles Chart1.Load
'x轴上每隔5点显示时间
Chart1.AxisX.Step = 5
'每个点之间用5象素间隔
Chart1.AxisX.PixPerUnit = 5
'使图表可以滚动
Chart1.Scrollable = True
'打开和关闭通讯管道
Chart1.OpenData(COD.Values, 1, COD.Unknown)
Chart1.CloseData(COD.Values)
End Sub
|
给当前的窗体添加一个叫做StockQuote的类。StockQuote类调用前面的Web服务并用返回的股票价格来更新图表。
Public Class StockQuote
'组件中图形的数量
Const NUM_SERIES = 1 Private lastPoint As Integer = 0
Dim stockPrice As Single Private pStockSymbol As String
Private pStockSeries As Integer = 0
Private pChartControl As Chart WriteOnly Property StockSymbol()
Set(ByVal Value)
pStockSymbol = Value
End Set
End Property WriteOnly Property ChartControl()
Set(ByVal Value)
pChartControl = Value
End Set
End Property Public Sub InvokeWebService()
Dim ws As New StockWS.Service1 For i As Integer = 0 To 10000
stockPrice = ws.getPrice(pStockSymbol)
pChartControl.Invoke(New _
myDelegate(AddressOf updateChart), New Object() {})
'继续之前等待1秒钟
Thread.Sleep(1000)
Next
End Sub Public Delegate Sub myDelegate()
Public Sub updateChart()
pChartControl.OpenData(COD.Values, NUM_SERIES, COD.Unknown)
pChartControl.Value(pStockSeries, lastPoint) = stockPrice
'显示x轴上的时间
pChartControl.AxisX.Label(lastPoint) = DateTime.Now.ToShortTimeString
lastPoint += 1
pChartControl.CloseData(COD.Values)
'把滚动条移到最右边
pChartControl.AxisX.ScrollPosition = pChartControl.AxisX.ScrollSize
End Sub End Class
|
|
设为主页
收藏本站
相关文章:
