重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一、分析:
成都创新互联公司不只是一家网站建设的网络公司;我们对营销、技术、服务都有自己独特见解,公司采取“创意+综合+营销”一体化的方式为您提供更专业的服务!我们经历的每一步也许不一定是最完美的,但每一步都有值得深思的意义。我们珍视每一份信任,关注我们的网站设计制作、成都网站制作质量和服务品质,在得到用户满意的同时,也能得到同行业的专业认可,能够为行业创新发展助力。未来将继续专注于技术创新,服务升级,满足企业一站式网络营销推广需求,让再小的品牌网站建设也能产生价值!
1,这一类随时间而变化的曲线图,通常把横轴作为时间,把纵轴作为相应的值,在这里就是密度值。
2,点的集合就是线;一组时间、密度值,对应一个点,把点连接起来就构成了线。
二、在VB.NET中作图,需要知道并解决几个问题:
1,与VB6一样,VB.NET中默认的坐标系统,左上角为坐标原点,X轴的正向为从左向右,Y轴的正向是从上向下。
为了使得它与数学中的坐标系统相一致,可以使用VB.NET中Graphics类的两个方法;
1、TranslateTransform----平移变换
格式:Graphics.TranslateTransform(dx,dy)
其中:dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式:Graphics.ScaleTransform(sx,sy)
其中:sx 和 sy分别是Single数据类型;
例如:为了符合数学中的一般格式,可以使用下述代码:
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了。
三、VB.NET中绘制图形
1,绘制圆或椭圆
'绘制图形的三步曲
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆,该圆在:直线x=200,y=200,x=200+100,y=200+100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆,该圆在:直线x=200,y=200,x=200+100,y=200+100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意:最后两个数值如果不等,就是绘制椭圆
当圆足够小,就是点了。
2,绘制直线
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
这个比较复杂,我正好最近在弄这些,首先和你说下任务量,首先写好所有抽样分布的函数,分位数以及概率的算法,其中分位数和求概率的算法需要调用伽玛分布算法,阶乘算法,积分算法,另外要有防止数据运算溢出,我完成这些源码和调试花了一个星期,所以你如果不是非要用vb做,那就用excel那里面基本都有这些函数可以调用,想编编程序,那就用下vba。我之所以用vb.net是由于要做一个整合统计分析,回归分析以及线性规划并包含绘图和云图的功能,这个必须从底层编起
DataGridView没有存储功能,不叫导入,他是显示、读取、编辑数据用的。如果你的Grid里有数据他来自哪个表啊?你就要分析哪个表与Excel表的关系,而不是Grid与Excel表的关系。用Grid可以直接连接Excel表,不需要做导入操作,估计你意思是Grid里有数据了,修改里面的数据插入Excel匹配数据项。先可以读取Excel数据,然后插入到你Grid显示的表里,而不是Grid里。
OleDbConnection cnn=new OleDbConnection();
cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StrartUpPath + "/Excel名称.xls;Extended Properties='Excel 8.0;HDR=YES'";
cnn.Open();
try
{
sql="Select 字段名 From [Sheet1$] where 条件表达式";
OleDbDataAdapter oda=new OleDbDataAdapter(sql,cnn);
DataSetds=new DataSet();
oda.Fill(ds);
if(ds.Tables[0].Rows.Countamp;gt;0)
{
//...继续连接数据库,也填充一个DataSet对象ds1
//...把Excel数据循环遍历方式或者用跨数据库方式(或ACCESS整理方式)插入数据库
dataGridView.DataSource=ds1.Tables[0];
}
}
catch
{
cnn.Close();
MessageBox.Show("数据库文件丢失","系统消息");
}
finnly
{
cnn.Close();
}
sql 为string
不知道你看懂没有