dj1711572002

Module Stat00
    Function MovAve(ByRef dA(,) As Long, ByVal colN As Integer, ByVal MA As Integer, ByVal rowN As Integer) As Double()
        Dim i, j As Integer
        Dim dataSum() As Long
        Dim dSum As Long
        Dim dataA() As Double '= {0, 0, 0, 0, 0, 0, 0}
        'Debug.Print("====colN=" & CStr(colN) & "MA=" & CStr(MA) & "rowN=" & CStr(rowN))
        ReDim dataSum(colN + 1)
        ReDim dataA(colN + 1)

dj1711572002

'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 onetime As Integer = 1
    Delegate Sub DataDelegate(ByVal sdata As String)
    '=========Available Parameters  in thie Calss================= 

dj1711572002

'Seril Port Recieve Sample Program 
'Form1 Object must create ,button1,2 & textbox 1,2　

Imports System.Drawing
Imports System.IO.Ports

Public Class Form1

    Private onetime As Integer = 1
    Delegate Sub DataDelegate(ByVal sdata As String)

dj1711572002

'Seril Port Recieve Realtime Graphic Monitor rev1.0
'Shinshu-Makers  2020/09/07
'SerialPort1 property  COM10,115200
'data  7ch    "ch1_data,ch2_data,ch3_data,ch4_data,ch5\data,ch6_data,ch7_data vbcr"

Imports System.Drawing
Imports System.IO.Ports

Public Class Form1

dj1711572002

'Seril Port Recieve Sample Program 
'Form1 Object must create ,button1,2 & textbox 1,2　

Imports System.Drawing
Imports System.IO.Ports

Public Class Form1
    '==========LinearMode Parameteres==============

    Public cp1X As Integer(,)

dj1711572002

'Seril Port Recieve Sample Program 
' 4PORTS  Receive test OK
'Form1 Object must create ,Button1,2 & TexBox 1,2,3,4,5 ListBox1　


Imports System.IO.Ports

Public Class Form1
    Dim ReceivedDataTotal As String = ""
    Dim ReceivedData1 As String = " "        '受信データ用変数を宣言します

dj1711572002

// AD7194 EVAL Board mbed NUCLEO 432KC  SPIIF Program
// Differential 1Ch AIN1(+) AIN2(-)
//2019/03/23 Shinshu-Makers
#include "mbed.h"
SPI ad7194 (PA_7,PA_6,PA_5); //NUCLEO L432KC  MOSI, MISO, SCLK
DigitalOut CS(PA_4); // Chip select
//-----Timing In from F446ZE-----------------------
DigitalOut timing(PA_8);//Timing signal
DigitalOut rst(PB_5); //Reset signal
    int m;//data Counter

dj1711572002

//VB.NET MultiPort Receiving Test
//Nucleo F446ZE  slave

#include "mbed.h"
Serial pc(USBTX,USBRX);
Timer t;
InterruptIn  edge(PD_7);// L432KC timing input
InterruptIn  Crst(PG_3);//Reset soignal for counter
int i=0;
int m=0;

dj1711572002

'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

#include <M5StickC.h>
#include <BluetoothSerial.h>
#include <esp_now.h>
#include <WiFi.h>
int startPin=19;
int t,t_1;
int x=1;
int i=0;
int stime;
int rt1;