dj1711572002

//AD7194  M5Atom SPI test
//2020.08.16  Shinshu-Makers

#include <M5StickC.h>
#include <SPI.h>

int i=0,j=0;
int MA=10;
uint8_t data0,data1,data2;
uint8_t recvdata;

dj1711572002

#include <M5StickC.h>
//#include <M5Stack.h>
#include <esp_now.h>
#include <WiFi.h>
int i,j,k,n,m;
int t,t_1;
volatile int stime=0,stime_1=0;

volatile int  rt0=0,rt1=0,rt2=0;
esp_now_peer_info_t slave;

dj1711572002

#include <M5StickC.h>
#include <BluetoothSerial.h>
#include <esp_now.h>
#include <WiFi.h>

//====IMU=============
float accX = 0.0F;
float accY = 0.0F;
float accZ = 0.0F;
 int i,j;

dj1711572002

//AD7194  M5Atom SPI test
//2020.08.16  Shinshu-Makers

#include <M5StickC.h>
#include <SPI.h>
#include <esp_now.h>
#include <WiFi.h>

int i=0,j=0,k=0;
int MA=10;

dj1711572002

Imports ImagingSolution 'ImagingSolution.Matクラス用
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '========matA====================
        Dim matA(2, 2) As Double
        matA(0, 0) = 1
        matA(0, 1) = 2
        matA(0, 2) = 3
        matA(1, 0) = 4
        matA(1, 1) = 5

dj1711572002

'Seril Port Recieve Sample Program 
'Form1 Object must create ,Button1,2 & TextBox 1-10 & ListBox1


Imports System.IO.Ports


Public Class Form1
    Delegate Sub DataDelegate(ByVal sdata As String)
'=========Class内で共通に使う変数はここで宣言すること======

dj1711572002

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


Imports System.IO.Ports

Public Class Form1
    Delegate Sub DataDelegate(ByVal sdata As String)
    '=========Available Parameters  in thie Calss================= 
    Dim dataAry(600000, 7) As Long

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)