Location:
Search - vb val
Search list
Description: 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
Platform: |
Size: 1024 |
Author: 穆 |
Hits:
Description: 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
Platform: |
Size: 2048 |
Author: chubby |
Hits:
Description: 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
Platform: |
Size: 34816 |
Author: 陈凯 |
Hits:
Description: 使用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))
Platform: |
Size: 28672 |
Author: bpudn27 |
Hits:
Description: 把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
Platform: |
Size: 11699200 |
Author: le |
Hits:
Description: 小眼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.
Platform: |
Size: 35840 |
Author: wpudn31 |
Hits:
Description: 这是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)
Platform: |
Size: 3072 |
Author: 铭铭之中 |
Hits: