Skip to content

Instantly share code, notes, and snippets.

@dj1711572002
dj1711572002 / Core2_BuzzerTest00.ino
Created May 2, 2022 11:59
M5Stack Passive Buzzer UNIT
#include <Arduino.h>
#include<M5Core2.h>
#define buzzer_pin 26
int freq = 4000;//音の高さ
int ledChannel = 0;
int resolution = 10;
int vol=512;//Volume 0-1024(10it)
int i,j,k;
int t0,tb,tw;
uint8_t flags;
@dj1711572002
dj1711572002 / FP_BitmapGraph_Flow-Gravity_01.vb
Created November 20, 2021 03:05
VB.NET  RealTimeGraph ver2 Bitmap Copy Cursor and Graph Scrolling
'Serial Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.IO.Ports
Imports System.Drawing
Public Class Form1
Dim dArr(500000) As String
Dim arr1() As String
@dj1711572002
dj1711572002 / Matrix
Created November 3, 2021 04:20
VB.NET MTRIX Calcurator rev04 for Moore-Penrose Matrix Caluculation
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 / MovingBase_Survey_1Base3Rover_rev00.vb
Created September 15, 2021 20:42
VB.NET  GNSS_MovingBase_3PortReceiving_Monitor_Program(DataGridView Log to CSV file)_rev00
'Serial Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.IO.Ports
Public Class Form1
Dim relP As Double(,)
'Dim relPN As Double()
'Dim relPE As Double()
@dj1711572002
dj1711572002 / Form1_Serial_Recieve_dgvTable_00.vb
Created September 12, 2021 14:53
VB.NET Serial_Receiving_DataGridView Log
'Serial Port Recieve Sample Program
'Form1 Object must create ,button1,2 & textbox 1,2 
Imports System.IO.Ports
Public Class Form1
Dim dArr(500000) As String
Dim rn, rn_start, rn_pause As Integer
Dim sflag As Integer
@dj1711572002
dj1711572002 / M5Atom_ADS122U04_mbed-Ishoku_rev00.ino
Created September 7, 2021 11:13
M5Atom-ADS122U04 2CH Sampling Test program rev00
#include <M5Atom.h>
//----------------Texsus ADS122U04--------------------------
int DRDY = 23; //DataRdy Pin 23
double ft1, ft2;
int RREGwait;
int flipN;
uint8_t RR0, RR1, RR2, RR3, RR4;
uint8_t d0, d1, d2, d3, d4, d5, d6;
double data1ch, data2ch;
@dj1711572002
dj1711572002 / LPC1768_ADS122U04_2ch_01.c
Last active September 7, 2021 09:50
Texas ADC ADS122U04 2CH Sampling on mbed LPC1768
//----------------Texsus ADS122U04--------------------------
#include "mbed.h"
Serial pc(USBTX,USBRX);
Serial device(p9, p10);//p9TX p10RX
DigitalOut myled(LED1);
InterruptIn DRDY(p8);//DataRdy Pin
//DigitalIn DRDY(p8);//DataRdy Pin
Timer t;
double ft1,ft2;
int RREGwait;
@dj1711572002
dj1711572002 / LPC1768_ADS122U04_test_00.c
Last active September 7, 2021 09:44
TEXAS ADC ADS122U04 mbed LPC1768 1CH Sample Program
//----------------Texsus ADS122U04--------------------------
#include "mbed.h"
Serial pc(USBTX,USBRX);
Serial device(p9, p10);//p9TX p10RX
DigitalOut myled(LED1);
InterruptIn DRDY(p8);//DataRdy Pin
Timer t;
int RREGwait;
uint8_t RR0,RR1,RR2,RR3,RR4;
int DRDYflag=0;
@dj1711572002
dj1711572002 / UDPClient_ESP32_RTCM_BaselogDump_LogianaedOK_rev0309.ino
Created August 8, 2021 07:43
UbloxF9P MovingBaseMode Base Output Messages Acquisition
void loop() {
if (Serial2.available())
{
digitalWrite(2, HIGH);
f1data[k] = Serial2.read();
//Serial.print(f1data[k],HEX);
dumpflag=0;
if ( f1data[k] == 0xD3)// && f1data[k-4] == 0x00)// && f1data[k-2] == 0xFE && f1data[k-1] == 0x80 && f1data[k]==0x01)
@dj1711572002
dj1711572002 / M5Stack-ESP32_Serial1_2RX_5TX_Jikken1.ino
Created July 23, 2021 01:42
M5StackBasic Serial1 GPIO Test RX2 TX5
//HardwareSerial Serial2(2);//これは不要でいれるとエラーになる
#include <M5Stack.h>
void setup() {
// initialize both serial ports:
//Serial.begin(115200);
M5.begin();//この中でSerial(USB Serial)の115200宣言含む
//Serial2.begin(115200);
Serial1.begin(115200, SERIAL_8N1,2, 5);//GPIO2:RX ,GPIO5:TX
}