Search - vb val

Search - vb val - List

[Communication] vb-chuankou DL : 0: rivate Sub cmdSend_Click() Dim sj() As Byte Dim sj_Txt As String Dim i As Integer sj_Txt = "800A00113135323634389794" sj_Txt="00FFWW0D006501" & hex(deltapre*i/n+m_OldPre) & "42" Text1 = sj_Txt ReDim sj(Len(sj_Txt) / 2 - 1) For i = 0 To Len(sj_Txt) - 1 Step 2 sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2)) Next MSComm1.Output = sj-rivate Sub cmdSend_Click () Dim sj () As Byte Dim sj_Txt As String Dim i As Integer sj_Txt = " 800A00113135323634389794" ' sj_Txt = " 00FFWW0D006501" & hex (deltapre* i/n+ m_OldPre) & " 42" Text1 = sj_Txt ReDim sj (Len (sj_Txt)/2- 1) For i = 0 To Len (sj_Txt)- 1 Step 2 sj (i/2) = Val (" & H" & Mid (sj_Txt, i+ 1, 2)) Next MSComm1. Output = sj
Update : 2025-02-19 Size : 1kb Publisher : 穆
[Algorithm] gsxqf DL : 0: vb编写的高斯消去法，通用函数，如有不好的地方，还请指教！-Dim a(), b(), n, k, l 定义必须的通用变量 Private Sub Command1_Click() If k = n Then Command1.Enabled = False Text2.Enabled = False Else k = k+ 1 Text2 = "" End If End Sub Private Sub Command2_Click() If l = n Then Text3.Enabled = False Else l = l+ 1 Text2 = "" Text3 = "" Command1.Enabled = True Text2.Enabled = True End If End Sub Private Sub Command3_Click() 求解方程组 Dim m() ReDim m(1 To n, 1 To n) For i = 1 To n- 1 For j = i+ 1 To n m(j, i) = a(j, i)/a(i, i) End Sub Private Sub Form_Activate() k = 1 l = 1 Picture1.Print "系数" End Sub Private Sub Text1_Change() 指定方程组元数 n = Val(Text1) ReDim a(1 To n, 1 To n) ReDim b(1 To n) End Sub Private Sub Text2_Change() 给方程组各系数Aij赋值 a(k, l) = Val(Text2) Picture1.Print a(k, l) & "," End Sub Private Sub Text3_Change() 给方程组系数Bi赋值 b(l) = Val(Text3) Picture1.Print b(l) & "," End Sub
Update : 2025-02-19 Size : 2kb Publisher : chubby
[Graph program] vbprint DL : 0: vb使用脚本打印， ladprintdetail.sresourceno = Me.VSFlexGrid1.TextMatrix(i, 1) ladprintdetail.spname = Me.VSFlexGrid1.TextMatrix(i, 2) ladprintdetail.specialname = Me.VSFlexGrid1.TextMatrix(i, 3) ladprintdetail.smetailname = Me.VSFlexGrid1.TextMatrix(i, 4) ladprintdetail.sfactory = Me.VSFlexGrid1.TextMatrix(i, 5) ladprintdetail.fweight = Val(Me.VSFlexGrid1.TextMatrix(i, 6)) ladprintdetail.icount = Val(Me.VSFlexGrid1.TextMatrix(i, 7)) ladprintdetail.ffweight = Val(Me.VSFlexGrid1.TextMatrix(i, 8)) ladprintdetail.ifcount = Val(Me.VSFlexGrid1.TextMatrix(i, 9-print with script
Update : 2025-02-19 Size : 34kb Publisher : 陈凯
[Windows Develop] vbxiazai DL : 0: 使用VB WebBrowser获取到网站内容，一个利用 “绿色下载吧” 网站做成的脚本程序，程序还没成熟，时不时有点出错，但还是能运行，本源码不再更新。感谢作者发布，仅供学习参考。If 判断 = 0 Then 　　搜索列表源码　　一共页数 = Val(一共的页数(列表源码)) 　　目前页数 = Val(目前的页数(列表源码-Use VB WebBrowser get to the site content, one use of "green download it" website made script, the program is not mature, occasionally a little mistake, but still able to run, the source is no longer updated. Thanks to the author published reference for the study. If judged = 0 Then Search Source A total number of pages = Val (total number of pages (list source)) Currently Pages = Val (current number of pages (list source))
Update : 2025-02-19 Size : 28kb Publisher : bpudn27
[MiddleWare] vb-pdf DL : 0: 把form1中的 Private Sub Form_Load() 改为 Public Sub Form_Load() 在Form2中：Call Form1.Form_Load private sub command1_click() dim max for i = 1 to 3 n=val(inputbox("输入第" & i & "个数")) if n>max then max =n end if next print "三个数中最大的数是" & max-In the form1 Private Sub Form_Load () to Public Sub Form_Load () in Form2 in: Call Form1.Form_Load private sub command1_click () dim max for i = 1 to 3 n = val (inputbox (" Enter the first" & i & " Number" )) if n> max then max = n end if next print " The maximum number of three numbers is" & max
Update : 2025-02-19 Size : 11.16mb Publisher : le
[Windows Develop] eyecheck DL : 0: 小眼Check复选框控件VB源码，一个漂亮的Check控件，能响应鼠标经过和离开事件，把鼠标点选的操作方式变为当下流行的左右拨动式，类似很多智能手机上的开关功能，Val=1代表False，Val=2代表True，只提供了一个Click事件，有其他需要的可以自己添加。-Slim Check check box control VB source code, a beautiful Check control, can respond to mouse over and leave events, the left and right toggle mouse click operation becomes popular, similar to the switch function of many intelligent mobile phone, Val=1 False, Val=2 True, provides only a Click event, there are other needs, can add their own.
Update : 2025-02-19 Size : 35kb Publisher : wpudn31
[Com Port] VB与OMRON PLC通讯源码 DL : 0: 这是VB和欧姆龙通讯源码经典的例子, Lettura_Dm = False ricez_ok = -1: timeout = False trasm = "@00RD" trasm = trasm + Right$(Str$(10000 + dm!), 4) trasm = trasm + "0001" trasm = trasm + bcc(trasm) + Chr$(42) + Chr$(13) Omron!Comm1.Output = trasm conta = 0 Do conta = conta + 1 If conta > 1200 Then timeout = True: Exit Do Loop Until Omron!Comm1.InBufferCount >= 15 a = Omron!Comm1.Input If Not timeout Then fcs = Mid$(a, (Len(a) - 3), 2) trasm = Left$(a, (Len(a) - 4)) If fcs <> bcc(trasm) Then timeout = -1 Exit Function End If valore = Mid$(a, 8, 4) V = Val("&H" + valore) Lettura_Dm = True End If ricez_ok = 0 Omron!Comm1.InBufferCount = 0 End Function(This is a VB to omron Lettura_Dm = False ricez_ok = -1: timeout = False trasm = "@00RD" trasm = trasm + Right$(Str$(10000 + dm!), 4) trasm = trasm + "0001" trasm = trasm + bcc(trasm) + Chr$(42) + Chr$(13) Omron!Comm1.Output = trasm conta = 0 Do conta = conta + 1 If conta > 1200 Then timeout = True: Exit Do Loop Until Omron!Comm1.InBufferCount >= 15 a = Omron!Comm1.Input If Not timeout Then fcs = Mid$(a, (Len(a) - 3), 2) trasm = Left$(a, (Len(a) - 4)) If fcs <> bcc(trasm) Then timeout = -1 Exit Function End If valore = Mid$(a, 8, 4) V = Val("&H" + valore) Lettura_Dm = True End If ricez_ok = 0 Omron!Comm1.InBufferCount = 0 End Function)
Update : 2025-02-19 Size : 3kb Publisher : 铭铭之中