工业自动化
B代码
这个作者很懒,什么都没留下…
展开
-
三菱PLC与欧姆龙PLC通讯
三菱PLC与欧姆龙PLC通讯,通过DEA通讯模块可以互相写入工具:欧姆龙PLC,三菱PLC,DEA通讯模块,DEA通讯模块软件方法:打开DEA通讯软件新建PLC到PLC再分别配置与PLC一至的通讯格式最后新建行三菱的D100到D109写入欧姆龙的D200到D209填入需要相互传送的数据寄存器最后上传DEA模块就可以了!这样就完成了三菱PLC与欧姆龙PLC通讯数据交换。...原创 2021-01-03 17:15:20 · 2936 阅读 · 0 评论 -
VB.NET发邮件
如果使用Imports Microsoft.Office.Interop.Outlook发邮件程序如下:Imports Microsoft.Office.Interop.Outlook Private Sub sendMail() Dim outObj As New Application Dim item As MailItem item = outObj.CreateItem(0) '设定收件人地址 ite原创 2020-12-14 15:57:16 · 2941 阅读 · 0 评论 -
vb.net产生随机数Random代码实例
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 随机数 Dim a As Random = New Random(55) Label1.Text = a.Next(10, 15) End Subvb.net产生随机数Random代码实例原创 2020-11-14 12:41:08 · 1589 阅读 · 0 评论 -
vb.net使用DirectX入门知识
有关DirectX图形(DirectX 8的图形组件)的用法,由3部分组成的迷你系列中的第一部分。在这3篇文章中,我将介绍成为该领域的合格程序员所需的所有知识。虽然本系列文章不会涵盖所有方面的知识(这将需要3个以上的部分),但最终您将可以做大多数事情,而您做不到的任何事情都应该可以自己解决,或者阅读其他教程并轻松理解它们。有人可能会说您不能在Visual Basic中编写适当的3D游戏。我不是要争论这个问题,但是我现在要告诉您-完全有可能使用纯Visual Basic以全3D编写中度到高级的游戏-也许不是原创 2020-10-12 15:39:50 · 1892 阅读 · 1 评论 -
vb.net怎么调用DirectX
首先引用增加以下类空间Imports Microsoft.DirectXImports Microsoft.DirectX.Direct3D原创 2020-10-12 15:29:42 · 499 阅读 · 0 评论 -
10进制长整数转2位16进制字符串
Function S2H2(Num As Long) As String '10进制长整数转2位16进制字符串Dim mynum As Stringmynum = Hex(Num)If Len(mynum) = 1 Then mynum = “0” + mynumS2H2 = mynumEnd Function原创 2020-07-16 09:47:53 · 367 阅读 · 0 评论 -
将十六进制转化为十进制 N位
’ 用途写入用:将十六进制转化为十进制 ,N位Function FHexToInt(ByVal str As String, ByRef outp() As Short) As StringDim aa, bb As IntegerDim cc As String = “”Dim dd As String = “”Dim a1 As String = “”aa = Len(str)For i = 1 To Len(str) Step 2a1 = Mid(str, aa - i, 2)dd原创 2020-07-16 09:46:15 · 190 阅读 · 0 评论 -
[失败] 未能找到文件“***AppData\Local\Temp\.NETFramework,Version=v4.0.AssemblyAttributes.vb”解决方法
很久没有打开VS进行写程序,今天突然打开就发现有问题了,报了一个错[失败] 未能找到文件[失败] 未能找到文件“***AppData\Local\Temp.NETFramework,Version=v4.0.AssemblyAttributes.vb”这个问题实际没有什么问题,直接关于闭VS,然后以管理员身份运行,再重新生成解决方案就可以了...原创 2020-04-09 12:27:03 · 1260 阅读 · 1 评论 -
DEA通讯模块读取从机到PLC的数据如果返回数据有两位或多位怎么办
读取从机到PLC的数据如果返回数据有两位或多位怎么办?从说明书了解到 030048为读取互感器的数据,并且返回为2个数据WORD。这样我们得知读取就相当于是:从机到PLC ------那么我们增加任务就是从机到PLC双从上面得知 返回数据为2位 分别是 3456这里我们就得把它分开,从下面图片上可以看出34是一位,56是一位接下来从机数据就填写030048, 数据列表就填写3,4与5...原创 2020-01-19 11:58:16 · 631 阅读 · 0 评论 -
C#入门必知
我们以一个C#例子来说明一个 C# 程序主要包括以下部分:命名空间声明(Namespace declaration)一个 classClass 方法Class 属性一个 Main 方法语句(Statements)& 表达式(Expressions)注释让我们看一个可以打印出 “Hello World” 的简单的代码:实例using System;namespace ...原创 2020-01-19 11:55:19 · 245 阅读 · 0 评论 -
VB.NET使用ReportViewer 报表利用代码更新报表显示,解决尚未为数据源“dataset1"提供数据源实例 vb.net 报表
Imports System.Data.SqlClientImports Microsoft.Reporting.WinFormsPublic Class datarc Public Rceb1TableAdapter As SqlDataAdapter '数据库声明使用字段 Public cn As SqlConnection '数据库声明使用字段' Public ...原创 2019-09-30 12:11:43 · 1016 阅读 · 0 评论 -
VB.NET文本框字母转大写
设点为 “Upper” 便可,输入小写时就自动转为大写了原创 2019-09-11 12:13:33 · 1169 阅读 · 0 评论 -
VB.NET 多线程使用DataGridView1更新UI,卡慢处理方法
VB.NET 多线程使用DataGridView1更新UI,卡慢处理方法,我弄了10多天都卡, 以为是线程写的有问题,用Thread of 一样卡后来调用了10多个线程一起操作DataGridView效果不是很好,后来发现处理方法如下:Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Hand...原创 2019-09-06 15:13:36 · 1439 阅读 · 0 评论 -
vb.net 使用BackgroundWorker 线程方法
PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickMe.BackgroundWorker1.RunWorkerAsync()Me.BackgroundWorker1.WorkerReportsProgress=TrueMe...原创 2019-09-04 09:38:18 · 3117 阅读 · 0 评论 -
vb.net 十进制转成2进制的过程不足补0且倒序输出
Public Function DEC_to_BIN(Dec As Long) As String '这里是将十进制转成2进制的过程 DEC_to_BIN = "" Dim a As String = "" Do While Dec > 0 a = Dec Mod 2 & a Dec ...原创 2019-08-30 22:06:23 · 1123 阅读 · 0 评论 -
无需编程PLC与PLC通讯实例方案
无需编程PLC与PLC通讯实例方案 三菱PLC与三菱PLC进行通讯或PLC与MODBUS通讯设备通讯怎么样才不用写程序?我们做一个工程中常会用到系统与系统之间数据进行传输,为了方便使用及灵活的后期服务,我们不可能使用PLC进行写梯形图及ST文本型的编程语言,那样后期与前期工作量太大。现在工程中采用Q系列PLC或L系列PLC与FX系列PLC进行系统联接通讯使用DEA-CON模块达到数据交...原创 2019-08-11 11:17:00 · 2855 阅读 · 0 评论 -
vb.net分隔字符串
Dim arr1 As String()arr1 = Me.TextBox1.Text.Split(",")MessageBox.Show(arr1(0) & “:” & arr1(1) & “:” & arr1(2))字样就可以完成原创 2019-08-19 10:26:22 · 1078 阅读 · 2 评论