主题：有点复杂的计算过程如何实现

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eventcode.zip

 

 改了一下列名

 

 

此主题相关图片如下：qq截图20170510203921.png

 你还要输入 性别、年龄 才能计算的。

先看懂代码，如果要加重量的条件，在原来的条件加上即可。

 

生成图表，参考 http://www.foxtable.com/webhelp/scr/0972.htm

 

计算的时候，直接修改计算的代码

 

http://www.foxtable.com/webhelp/scr/0361.htm

 

Dim rn1 As Integer = val(e.Form.Controls("TextBox11").text)
Dim rn2 As Integer = val(e.Form.Controls("TextBox21").text)
Dim rn3 As Integer = val(e.Form.Controls("TextBox31").text)
Dim rn4 As Integer = val(e.Form.Controls("TextBox41").text)
Dim sj1 As Integer = val(e.Form.Controls("TextBox12").text)
Dim sj2 As Integer = val(e.Form.Controls("TextBox22").text)
Dim sj3 As Integer = val(e.Form.Controls("TextBox32").text)
Dim sj4 As Integer = val(e.Form.Controls("TextBox42").text)
Dim t As Table = Tables("作图用临时表")
t.DataTable.DataRows.Clear
Dim nr1 As Row = t.AddNew
nr1("项目") = "有氧运动"
nr1("总热能") = rn1
nr1("总时间") = sj1
Dim nr2 As Row = t.AddNew
nr2("项目") = "力量运动"
nr2("总热能") = rn2
nr2("总时间") = sj2
Dim nr3 As Row = t.AddNew
nr3("项目") = "柔韧运动"
nr3("总热能") = rn3
nr3("总时间") = sj3
Dim nr4 As Row = t.AddNew
nr4("项目") = "日常活动"
nr4("总热能") = rn4
nr4("总时间") = sj4

 

 

 没必要写入表的，你不是可以直接给图表赋值？这样就不需要表这一步。

参考代码

 

Dim rn1 As Double = val(e.Form.Controls("TextBox11").text)
Dim rn2 As Double = val(e.Form.Controls("TextBox21").text)
Dim rn3 As Double = val(e.Form.Controls("TextBox31").text)
Dim rn4 As Double = val(e.Form.Controls("TextBox41").text)

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("主窗体").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Text = "11111"
Series.Y(0) = rn1
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Text = "22222"
Series.Y(0) = rn2
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Y(0) = rn3
Series.Text = "3333"
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 1 '一个系列只能包括一个值
Series.Y(0) = rn4
Series.Text = "4444"

Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

Dim rn1 As Double = val(e.Form.Controls("TextBox11").text)
Dim rn2 As Double = val(e.Form.Controls("TextBox21").text)
Dim rn3 As Double = val(e.Form.Controls("TextBox31").text)
Dim rn4 As Double = val(e.Form.Controls("TextBox41").text)

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("主窗体").Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Dim sum As Double =rn1 + rn2 + rn3 + rn4
Dim ary() As Double = {rn1, rn2, rn3, rn4}
Dim cs() As String = {"有氧运动","力量运动","柔韧运动","日常活动"}
For i As Integer = 0 To cs.length-1
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Length = 1 '一个系列只能包括一个值
    Series.DataLabelText = cs(i) & "(" & Format(ary(i)/sum, "0.00%") & ")"
   
    Series.Y(0) = ary(i) '指定值
Next

 你把窗口另存一下，新建一个项目，把窗口导入，然后发布，看看效果。