Skip to content

Instantly share code, notes, and snippets.

@dj1711572002
dj1711572002 / Matrix_Calculator_rev04.vb
Created Nov 12, 2020
Matrix_Calculator_rev04 Add Moore-Penrose inverse Calculation
View Matrix_Calculator_rev04.vb
Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Imports System.IO
Imports System.Math
Imports ImagingSolution 'ImagingSolution.Matクラス用
Public Class Form1
'===================DataGridView ==============
Public dgv() As DataGridView
@dj1711572002
dj1711572002 / Matrix_Calculator_rev03.vb
Created Nov 7, 2020
VB.NET Matrix_Calculator rev03 libraryChange TonoikeKotaro version
View Matrix_Calculator_rev03.vb
Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Imports System.IO
Imports System.Math
Imports ImagingSolution 'ImagingSolution.Matクラス用
Public Class Form1
'===================DataGridView ==============
Public dgv() As DataGridView
View Matrix_Calculator_rev02.vb
Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Imports System.IO
Imports ImagingSolution 'ImagingSolution.Matクラス用
Public Class Form1
Public i, j, k As Integer
'=================MATRIX A=================
Public matA_rowN As Integer
@dj1711572002
dj1711572002 / SCP_CrossTalk_Correction_rev00.vb
Last active Oct 29, 2020
VB.NET DataGridView test CSV file read
View SCP_CrossTalk_Correction_rev00.vb
Imports Microsoft.VisualBasic.FileIO
Imports System.Text
Imports System.IO
Public Class Form1
Public i, j, k As Integer
'=============CSV Save======================
Public file As System.IO.StreamWriter
Public file1 As System.IO.StreamWriter
@dj1711572002
dj1711572002 / Serial_Graphic_Monitor_rev074.vb
Created Oct 18, 2020
VB.NET Serial_Graphic_Monitor 2ports 16CH RealtimeGraph
View Serial_Graphic_Monitor_rev074.vb
'Seril Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.Drawing
Imports System.IO.Ports
Imports Microsoft.VisualBasic.FileIO
Imports System.IO
Imports System.Text
Imports System.Collections
@dj1711572002
dj1711572002 / M5Stick_Kihon_3Jiku_rev01.ino
Created Oct 11, 2020
M5StickC_3CH_ADC_BasicProgram
View M5Stick_Kihon_3Jiku_rev01.ino
#include <M5StickC.h>
int PINX=33;
int PINY =36;
int PINZ=32;
int red=26;
int mVX[100];
int mVx;
int mVy;
@dj1711572002
dj1711572002 / LSMFunction_BasicTest_rev00.vb
Created Oct 7, 2020
LeastSquareMethod Function for RealTime Data Logging
View LSMFunction_BasicTest_rev00.vb
Public Class Form1
'================main=======================
Public dataAry7CH() As Double = {157.33, 429.5, 678.75, 962, 677.5, 428.25, 170}
Public dataAry2CH() As Double = {1578.222, 1576.923, 1575.8115, 1574.635, 1575.747, 1577.0365, 1578.1495}
Public dataAry3CH() As Double = {1784.326, 1784.27125, 1784.0455, 1783.832, 1784.016375, 1784.15575, 1784.378}
Public dataAry4CH() As Double = {1649.395, 1649.197375, 1649.642, 1649.305, 1649.399875, 1649.4845, 1648.976}
Public i, j, k As Integer
'===============================================================
'Least Square Method Function Parameters
'===============================================================
@dj1711572002
dj1711572002 / Serial_Graphic_Monitor_rev062.vb
Created Sep 29, 2020
2SerialPorts_RealTime_dataReceiving ,10msec Sampling will need Hi-Peformace PC will recommend
View Serial_Graphic_Monitor_rev062.vb
'Seril Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.Drawing
Imports System.IO.Ports
Public Class Form1
Dim ReceivedData1 As String = " " '受信データ用変数を宣言します
Dim ReceivedData2 As String = " " '受信データ用変数を宣言します
Dim ReceivedData3 As String = " "
@dj1711572002
dj1711572002 / Serial_2Ports_Test_rev00.vb
Created Sep 28, 2020
Multi SerialPort basic Test pgm
View Serial_2Ports_Test_rev00.vb
'Seril Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.IO.Ports
Public Class Form1
Dim ReceivedDataTotal As String = ""
Dim ReceivedData1 As String = " " '受信データ用変数を宣言します
Dim ReceivedData2 As String = " " '受信データ用変数を宣言します
@dj1711572002
dj1711572002 / Form1.vb
Created Sep 26, 2020
Serial_Graphic_Monitor_rev050 USB Serial2Ports 16CH RealTimeGraphf Monitor
View Form1.vb
'Seril Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.Drawing
Imports System.IO.Ports
Public Class Form1
Dim ReceivedData1 As String = " " '受信データ用変数を宣言します
Dim ReceivedData2 As String = " " '受信データ用変数を宣言します
Dim ReceivedData3 As String = " "
You can’t perform that action at this time.