vb.net测量距离 vb测量程序设计

vb.net inputbox与msgbox的使用

虽然下面代码也用vb.net测量距离了两个inputbox函数vb.net测量距离，但是比vb.net测量距离你vb.net测量距离的应该也要简单点，仅供参考

Const a = 1.5

Dim v0 As String

Dim vt As String

Dim t As Long

Dim s As Double

Private Sub Form_Load()

v0 = InputBox("请输入初速度(m/s)", "数据输入框")

Text1.Text = v0

t = InputBox("请输入时间(s)", "数据输入框")

Text2.Text = t

vt = v0 + a * t

s = v0 * t + (1 / 2) * a * t ^ 2

End Sub

Private Sub Command1_Click()

MsgBox "距离是" s

End Sub

相关问答

Q1: 用VB.Net 编程时如何获得打印机的物理边距

网络上找到这个比较全面，你试一下，我记得以前也是这么设置的。

int GetDeviceCaps( HDC hdc, int nIndex);

其中，hdc用来指定设备环境句柄，nIndex用来指定要获取的参量索引，对于打印机而言，它常常需要下列的预定义值：

LOGPIXELSX 打印机水平分辨率

LOGPIXELSY 打印机垂直分辨率

PHYSICALWIDTH 打印纸的实际宽度

PHYSICALHEIGHT 打印纸的实际高度

PHYSICALOFFSETX 实际可打印区域的物理左边距

PHYSICALOFFSETY 实际可打印区域的物理上边距

下面的函数代码就是用来设置页边距，并且还计算页面的物理边距：

void CEx_Prn1View::SetPageMargin(CDC *pDC, CPrintInfo *pInfo, int l, int t, int r, int b)

// l, t, r, b分别表示左上右下边距, 单位为0.1mm

{

int nOldMode = pDC- GetMapMode();

pDC- SetMapMode(MM_LOMETRIC);

// 计算一个设备单位等于多少0.1mm

double scaleX = 254.0 / (double)GetDeviceCaps(

pDC- m_hAttribDC, LOGPIXELSX);

double scaleY = 254.0 / (double)GetDeviceCaps(

pDC- m_hAttribDC, LOGPIXELSY);

int x = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALOFFSETX);

int y = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALOFFSETY);

int w = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALWIDTH);

int h = GetDeviceCaps(pDC- m_hAttribDC,

PHYSICALHEIGHT);

int nPageWidth = (int)((double)w*scaleX + 0.5);

// 纸宽，单位0.1mm

int nPageHeight = (int)((double)h*scaleY + 0.5);

// 纸高，单位0.1mm

m_nPhyLeft = (int)((double)x*scaleX + 0.5);

// 物理左边距，单位0.1mm

m_nPhyTop = (int)((double)y*scaleY + 0.5);

// 物理上边距，单位0.1mm

pDC- DPtoLP(pInfo- m_rectDraw);

CRect rcTemp = pInfo- m_rectDraw;

rcTemp.NormalizeRect();

m_nPhyRight = nPageWidth - rcTemp.Width() -

m_nPhyLeft; // 物理右边距，单位0.1mm

m_nPhyBottom = nPageHeight - rcTemp.Height() -

m_nPhyTop; // 物理下边距，单位0.1mm

// 若边距小于物理边距，则调整它们

if (l m_nPhyLeft) l = m_nPhyLeft;

if (t m_nPhyTop) t = m_nPhyTop;

if (r m_nPhyRight) r = m_nPhyRight;

if (b m_nPhyBottom) b = m_nPhyBottom;

// 计算并调整pInfo- m_rectDraw的大小

pInfo- m_rectDraw.left = l - m_nPhyLeft;

pInfo- m_rectDraw.top = - t + m_nPhyTop;

pInfo- m_rectDraw.right -= r - m_nPhyRight;

pInfo- m_rectDraw.bottom += b - m_nPhyBottom;

pDC- LPtoDP(pInfo- m_rectDraw);

pDC- SetMapMode(nOldMode);

// 恢复原来的映射模式

}

Q2: vb 中 绘点， 确定点的位置 可以通过scale ,vb.net 怎么确定点在窗体中的位置？谢谢

vb.net有类似vb.net测量距离的方法vb.net测量距离，参考资料vb.net测量距离：

Q3: vb.net 制作行标尺

左边放一个专门放行数的listbox，根据右边的行数自动生成行号

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

Dim arr() = RichTextBox1.Text.Split(vbLf)

Dim str As String

str = ""

For i = 1 To arr.Length

str = str i vbCrLf

Next

RichTextBox2.Text = str

End Sub

接下来是两个listbox的同步滚动，可以参考这篇文章：

Q4: VB.Net如何测量含有中文的字符串长度

遍历每一个字符，看是全角还是半角的。半角的字符总数 +1，全角的字符总数 +2。

参考：

Public Function GetByteLength(ByVal value As String) As Long

 Dim i As Long = 0

 For Each c As Char In value

  If (c.ToString().Length = System.Text.Encoding.Default.GetByteCount(value.ToString())) Then

   i = i + 1

  End If

  i = i + 1

 Next

 Return i

End Function

关于vb.net测量距离和vb测量程序设计的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。