- 博客(29)
- 资源 (4)
- 问答 (1)
- 收藏
- 关注
RSS订阅
原创 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
1073
原创 deepin下python3安装mysqldb解决方案
deepin下python3安装mysqldb解决方案我试了许多方法没有成功sudo apt install python-mysqldb 只能安装到PYTHON2中 sudo pip search MySQL-python 提示安装PIP要升级，升级成PIP3也没有用 以上同样报错sudo apt install python3-mysqldb正在读取软件包列表... 完成正在分析软件包的依赖关系树 正在读取状态信息... 完成 下列软件包是自动安装的并..
2022-01-21 15:29:12
6582
4
原创 安装Miniconda3(conda)虚拟环境for linux
[root@VM-4-4-centos ~]# wget -c https://repo.continuum.io/miniconda/Miniconda3-latest-Linux-x86_64.sh--2021-11-17 14:38:41-- https://repo.continuum.io/miniconda/Miniconda3-latest-Linux-x86_64.shResolving repo.continuum.io (repo.continuum.io)... 104.18.2
2021-11-17 15:16:15
2624
原创 在LINUX上安装mysql8的最简单方法
复制的地址https://dev.mysql.com/get/mysql80-community-release-el7-3.noarch.rpm，把这个地址复制到Linux中进行下载然后命令列出ls加权限chmod a+x mysql80-community-release-el7-3.noarch.rpm执行rpm -ivh mysql80-community-release-el7-3.noarch.rpm去掉mariadb （我的是CentOS7) 所以我选择“Red Hat
2021-11-08 16:35:59
1563
原创 WARNING: You are using pip version 21.2.3； however, version 21.3.1 is available. 解决方法
python for windows10在安装第三方控件时出现的以下问题WARNING: You are using pip version 21.2.3; however, version 21.3.1 is available. 解决方法for windows10dos 下输入python -m pip install -U pipMicrosoft Windows [版本 10.0.18363.778](c) 2019 Microsoft Corporation。保留所有权利。C:
2021-11-06 11:35:07
10342
2
原创 Python加载窗体代码
if __name__=='__main__': import sys app=QtWidgets.QApplication(sys.argv) #外部参数列表 MainWindow=QtWidgets.QMainWindow() Ui= Ui_MainWindow()#需要接合的类定义Ui是ui_mainwindow Ui.setupUi(MainWindow) #接合语句 MainWindow.show() #显示 sys.exit(app.exec_()) #退出中使.
2021-01-29 10:25:39
459
原创 Unity 3D Start使用方法
// Initializes the target variable.// target is private and thus not editable in the Inspector// The ExampleClass starts with Awake. The GameObject class has activeSelf// set to false. When activeSelf is set to true the Start() and Update()// funct.
2021-01-26 20:38:22
921
原创 vb.net实现多图片自定义显示
vb.net实现多图片自定义显示UI图片框1计时器1按钮1文本框1Imports unity3d 是VB.NET使用nity3d制作调用3D时使用用的可以去代码如下Imports unity3dPublic Class Form1 Dim Nom As Integer '自动更换图片的名称 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load TextBox1.
2021-01-09 17:42:47
505
原创 三菱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
3437
原创 python+pycharm+QT5中文
python+pycharm+QT5中文都是有中文的在文件插件中找到中文插件安装，重新启动就好了，不过我感觉QT比VS差劲多了！ 比较粗， 不精细， 以上是个人感觉
2020-12-31 17:23:56
165
原创 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
3182
原创 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
1729
原创 vb.net使用DirectX入门知识
有关DirectX图形（DirectX 8的图形组件）的用法，由3部分组成的迷你系列中的第一部分。在这3篇文章中，我将介绍成为该领域的合格程序员所需的所有知识。虽然本系列文章不会涵盖所有方面的知识（这将需要3个以上的部分），但最终您将可以做大多数事情，而您做不到的任何事情都应该可以自己解决，或者阅读其他教程并轻松理解它们。有人可能会说您不能在Visual Basic中编写适当的3D游戏。我不是要争论这个问题，但是我现在要告诉您-完全有可能使用纯Visual Basic以全3D编写中度到高级的游戏-也许不是
2020-10-12 15:39:50
2055
1
原创 vb.net怎么调用DirectX
首先引用增加以下类空间Imports Microsoft.DirectXImports Microsoft.DirectX.Direct3D
2020-10-12 15:29:42
550
原创 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
399
原创 将十六进制转化为十进制 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
216
原创 [失败] 未能找到文件“***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
1405
1
原创 DEA通讯模块读取从机到PLC的数据如果返回数据有两位或多位怎么办
读取从机到PLC的数据如果返回数据有两位或多位怎么办？从说明书了解到 030048为读取互感器的数据，并且返回为2个数据WORD。这样我们得知读取就相当于是：从机到PLC ------那么我们增加任务就是从机到PLC双从上面得知 返回数据为2位 分别是 3456这里我们就得把它分开，从下面图片上可以看出34是一位，56是一位接下来从机数据就填写030048， 数据列表就填写3,4与5...
2020-01-19 11:58:16
744
原创 C#入门必知
我们以一个C#例子来说明一个 C# 程序主要包括以下部分：命名空间声明（Namespace declaration）一个 classClass 方法Class 属性一个 Main 方法语句（Statements）& 表达式（Expressions）注释让我们看一个可以打印出 “Hello World” 的简单的代码：实例using System;namespace ...
2020-01-19 11:55:19
271
原创 vb.net DateTimePicker1显示指定的时间
Sub dataPS() Dim month As String = dataoutput.int(0) Dim day As String = dataoutput.int(1) Dim hour As String = dataoutput.int(2) Dim minute As String = dataoutput....
2019-09-10 11:04:37
1974
原创 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
1512
原创 vb.net 使用BackgroundWorker 线程方法
PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickMe.BackgroundWorker1.RunWorkerAsync()Me.BackgroundWorker1.WorkerReportsProgress=TrueMe...
2019-09-04 09:38:18
3298
原创 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
1159
原创 vb.net弹出屏幕的大小显示
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click Dim a = Screen.PrimaryScreen.Bounds.Width.ToString Dim b = Screen.PrimaryScreen.B...
2019-08-20 09:05:29
319
原创 vb.net读写INI的方法
Private Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpRetur...
2019-08-19 10:30:03
1764
原创 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
1151
2
原创 无需编程PLC与PLC通讯实例方案
无需编程PLC与PLC通讯实例方案 三菱PLC与三菱PLC进行通讯或PLC与MODBUS通讯设备通讯怎么样才不用写程序？我们做一个工程中常会用到系统与系统之间数据进行传输，为了方便使用及灵活的后期服务，我们不可能使用PLC进行写梯形图及ST文本型的编程语言，那样后期与前期工作量太大。现在工程中采用Q系列PLC或L系列PLC与FX系列PLC进行系统联接通讯使用DEA-CON模块达到数据交...
2019-08-11 11:17:00
3078
DirectX 9 SDK 9.0 Download DirectX 9 SDK 下载
2020-10-12
MySQLdb在LInux下不能正常运行求解决
2021-11-17
TA创建的收藏夹 TA关注的收藏夹
TA关注的人