VB中怎么把TXT或者数据库的数据绘制成曲线
发布网友
发布时间:2024-10-07 01:09
我来回答
共1个回答
热心网友
时间:2024-10-20 13:43
#include <windows.h>
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,PSTR szCmdLine,int iCmdShow)
{
static TCHAR szAppNume[]=TEXT("HelloWin");
HWND hWnd;
MSG msg;
WNDCLASS wndclass;
wndclass.style = CS_HREDRAW|CS_VREDRAW;
wndclass.lpfnWndProc = WndProc;
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = 0;
wndclass.hInstance = hInstance;
wndclass.hIcon = LoadIcon(NULL,IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL,IDC_ARROW);
wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName = NULL;
wndclass.lpszClassName = szAppNume;
if(!RegisterClass(&wndclass))
{
MessageBox(NULL,TEXT("This program requires Windows NT!"),szAppNume,MB_ICONERROR);
return 0;
}
hWnd = CreateWindow(szAppNume, //window class name
TEXT("The Hello Program"), //window caption
WS_OVERLAPPEDWINDOW, //window style
CW_USEDEFAULT, //initial x postion
CW_USEDEFAULT, //initial y postion
CW_USEDEFAULT, //initial x size
CW_USEDEFAULT, //initial y size
NULL, //parent window handle
NULL, //window menu handle
hInstance, //program instance handle
NULL); //creation parameters
ShowWindow(hWnd,iCmdShow);
UpdateWindow(hWnd);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
switch(message)
{
case WM_CREATE:
break;
case WM_PAINT:
hdc = BeginPaint(hWnd,&ps);
GetClientRect(hWnd,&rect);
DrawText(hdc,TEXT("Hello,Windows 2000!"),-1,&rect,
DT_SINGLELINE|DT_CENTER|DT_VCENTER);
EndPaint(hWnd,&ps);
return 0;
case WM_DESTROY:
PostQuitMessage(0);
return 0;
}
return DefWindowProc(hWnd,message,wParam,lParam);
}
VB如何读取txt数据绘制曲线?
Dim g As Graphics = PictureBox1.CreateGraphics()Dim pen As New Pen(Color.Black, 1)Dim xMin As Double = 0 Dim xMax As Double = 0.1 Dim yMin As Double = 0 Dim yMax As Double = 1000 '读取数据 Dim data() As String = IO.File.ReadAllLines("data.txt")Dim xy(data.Len...
想在VB中根据数据库的数据画曲线变化图,如何画?用什么方法
绘制曲线,就是根据函数关系:y = f(x),采用描点法,在某一区域范围内,根据x计算y,然后用 PSet (x,y)实现曲线的绘制。
VB6.0怎样用记事本里的数据画曲线图?
Print #1, text1.Text MsgBox "保存完毕!"用txt数据画曲线图需要参考你txt文件格式,不提供出文件格式没办法处理。
vb.net读取txt的数据作图问题
1,这一类随时间而变化的曲线图,通常把横轴作为时间,把纵轴作为相应的值,在这里就是密度值。2,点的集合就是线;一组时间、密度值,对应一个点,把点连接起来就构成了线。二、在VB.NET中作图,需要知道并解决几个问题:1,与VB6一样,VB.NET中默认的坐标系统,左上角为坐标原点,X轴的正向为...
VB中把用txtclick存好的数据再读回来并画成图
这个Split(zj)等于没用啊,要指定分隔符才能把字符串分割为数组啊(不过貌似你的数据文件中每行只有一个数据,用得着分割吗?)另外这个s数组是动态数组,使用前要用redim重定义才能使用,那么s(i)有从何而来?split函数的输出值是字符串,而s数组是双精度值,这个也是错的。总之好多问题,你把On ...
求助:如何在VB中将datagrid中的数据做成曲线
1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项,选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1 中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库,在...
如何把实时数据在VB中用曲线图显示
VB可通过Timer控件的Timer事件中使用Line方法或PSet 方法绘制线条、色彩实现实时显示采集数据的曲线。 Line方法,在对象上画直线和矩形。 PSet 方法,将对象上的点设置为指定颜色。 以下是一段工控程序的使用Line方法的代码: Option Explicit Dim quitflag As Boolean Dim cmdXianshiFlag As Boolean Dim cmdTestFlag As...
vb编程把txt文件转成cad
1、首先用excel打开txt文件格式的坐标数据。2、其次在C列输入公式。3、然后复制C列。4、最后打开CAD点pline命令后,点右键、点粘贴,绘制完毕。
用VB读取txt中的数据并用SW处理
003, 0.005 Part.InsertCurveFilePoint 0.003, 0.005, 0.007 Part.InsertCurveFileEnd End Sub 看看这段程序能够帮助你解决吗?数字与你的不一样。你的点最后几个是一样的,就随便写了几个,数字与数字之间要逗号。在记事本中最好不要出现科学记数法,在记事本中的1在程序中就是0.001了 ...
用vb6.0在指定txt文件中提取记录并绘图
手边没有VB6,大致思路是:定义坐标平面,提取数据,画点,连线 form1.width=5000 form1.height=5000 form1.scale (-10,40)-(40,-10)form1.autoredraw=true '提取数据到数组in( , ),因为不知道你的外部文件是怎样储存的,所以不写 line (0,40)-(0,-10)line (-10,0)-(40,0)form1....