透过温度生成图片和向光盘写内容（online Waiting）

通过温度生成图片和向光盘写内容（online Waiting）
txt文档（temporary.txt）
createTime =>温度        
12012/4/5 21:43:17 =>20.5625 ℃

1.把这个文档写入光盘
2.通过读取文档根据时间段（一个月，一周）生成图片（温度变化图）保存到某个位置，点击显示在vb上显示该图片。
[解决办法]

????什么意思？
[解决办法]
你要想对保存的数据进行汇总、查询、分析，建议使用数据库保存数据，而不用使用txt文件。
比如你可以使用 
sql="select avg(温度) as 平均温度,月份 from TempData Group by 月份"
rs=cnn.execute(sql) '非常轻松的获得每个月的平均温度
[解决办法]

引用:

引用:

你要想对保存的数据进行汇总、查询、分析，建议使用数据库保存数据，而不用使用txt文件。
比如你可以使用
sql="select avg(温度) as 平均温度,月份 from TempData Group by 月份"
rs=cnn.execute(sql) '非常轻松的获得每个月的平均温度

这个我知道 主要是怎么出数据这种 不是平均数据 是将每个时间描点……

那也简单：
sql="select *from TempData where 日期 between #日期1# and #日期2#"

rs=cnn.execute(sql)

rs每条记录代表每个日期的温度


[解决办法]
绘制图片?picturebox呀,画好了,用picturebox的savepicture呗


SavePicture 语句示例
本例使用 SavePicture 语句保存画在 Form 对象的 Picture 属性中的图形。要试用此例，可将以下代码粘贴到 Form 对象的声明部分，然后运行此例，单击 Form 对象。

Private Sub Form_Click ()
   ' 声明变量。
   Dim CX, CY, Limit, Radius   as Integer, Msg as String
   ScaleMode = vbPixels   ' 设置比例模型为像素。
   AutoRedraw = True ' 打开 AutoRedraw。
   Width = Height   ' 改变宽度以便和高度匹配。
   CX = ScaleWidth / 2   ' 设置 X 位置。
   CY = ScaleHeight / 2   ' 设置 Y 位置。
   Limit = CX   ' 圆的尺寸限制。
   For Radius = 0 To Limit   ' 设置半径。
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      DoEvents   ' 转移到其它操作。
   Next Radius
   Msg = "Choose OK to save the graphics from this form "
   Msg = Msg & "to a bitmap file."
   MsgBox Msg
   SavePicture Image, "TEST.BMP"   ' 将图片保存到文件。
End Sub

查看更多 下一篇