Skip to content

Instantly share code, notes, and snippets.

🙂

たま吉さん(Tamakichi-San) Tamakichi

🙂
Block or report user

Report or block Tamakichi

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@Tamakichi
Tamakichi / MML_Play.ino
Last active May 19, 2019
MML演奏サンプル
View MML_Play.ino
//
// MML演奏サンプル
//
#include "MML.h"
#include "TimerEvent.h"
#include "src/LIB/sound.h"
TimerEvent ticker; // タイマー割り込み管理
MML mml; // MML文演奏管理
@Tamakichi
Tamakichi / CardKeyBoard_PS2.ino
Last active Mar 7, 2019
CardKeyBoard PS/2インタフェースバージョン
View CardKeyBoard_PS2.ino
#include <Adafruit_NeoPixel.h>
#include <SoftwareSerial.h>
#include <ps2dev.h>
#define KB_CLK A4 // PS/2 CLK IchigoJamのKBD1に接続
#define KB_DATA A5 // PS/2 DATA IchigoJamのKBD2に接続
#define PIN 13
#define NUMPIXELS 1
Adafruit_NeoPixel pixels = Adafruit_NeoPixel(NUMPIXELS, PIN, NEO_GRB + NEO_KHZ800);
@Tamakichi
Tamakichi / SG90.BAS
Created Feb 24, 2019
豊四季タイニーBASIC for STM32 サーボ―モータの制御サンプルプログラム
View SG90.BAS
10 'サーボ―モータの制御
20 'TOWER PRO SG90を使ったデモ
30 'PWM 50Hz 0.5ms:-90°~ 2.4ms:+90°
40 '配線 VCC(赤) => 5V
50 'GND(茶) => GND
60 'PWM(橙) => PA8
70 '
80 GPIO PA8,PWM:'PWM(5Vトレラントピン)
90 INPUT "角度(-90 ~ 90):",D
100 IF (D<-90) OR (D>90) ?"正しい数値を入力して下さい":GOTO 90
@Tamakichi
Tamakichi / osiro.bas
Created Feb 12, 2019
ArduinoBASIC_STM32
View osiro.bas
10 CLS
20 DIM rb(80): s=1
30 FOR i=1 TO 80: rb(i)=10: NEXT i
40 A=ANALOGRD(1)/50: IF a>22 THEN a=22
50 rb(s)=a: s=s+1: IF s>80 THEN s=1
60 GOSUB 200
70 PAUSE 20
80 GOTO 40
200 REM 表示更新
210 CLS
@Tamakichi
Tamakichi / ishi.bas
Last active Feb 12, 2019
ArduinoBASIC_STM32 石取りゲーム
View ishi.bas
1 REM 石取りゲーム
10 PRINT "石の数?";: INPUT n: IF n<1 THEN GOTO 10
20 PRINT "1回に取れる最大の石の数?";: INPUT m: IF m<1 THEN GOTO 20
30 PRINT "あなたは先手(1)、後手(2)?";: INPUT t
40 IF t<>1 AND t<>2 THEN GOTO 30
50 ns=n: t=t-1
60 GOSUB 500: REM 石の状態表示
70 IF t MOD 2=1 THEN GOSUB 300: REM コンピュータ
80 IF t MOD 2=0 THEN GOSUB 400: REM 人間
90 t=t+1: n=n-x
@Tamakichi
Tamakichi / Lチカ.BAS
Created Feb 3, 2019
ArduinoBASIC Lチカサンプル
View Lチカ.BAS
10 pc13=32
20 PINMODE pc13,1
30 PIN pc13,1
40 PAUSE 500
50 PIN pc13,0
60 PAUSE 500
70 GOTO 30
@Tamakichi
Tamakichi / stm32_jpeg_tft.ino
Created Nov 18, 2018
Arduino STM32 Blue Pill+TFT((ILI9341 SPI)でJPEG画像表示
View stm32_jpeg_tft.ino
//
// Arduino STM32 TFT(ILI9341) SPI接続 jpeg画像表示サンプル
//
// 参考にしたサイト
// 元にしたスケッチ
// ・楽しくやろう。 ESP8266でJPEG画像をTFT LCDに表示する
// https://blog.boochow.com/article/427690966.html
// ライブラリ
// ・MakotoKurauchi/JPEGDecoder
// https://github.com/MakotoKurauchi/JPEGDecoder
@Tamakichi
Tamakichi / HARUHI.BAS
Created Sep 14, 2018
PLAYコマンドサンプル
View HARUHI.BAS
1 'haruhi
10 PLAY "?T150o5V10a8aa8aL8ag4fga2raa4aa4ab-4ab->c4.r":?
20 PLAY "?c<b-4af4.>cc<b-4af4.>cc<b-4ag4f4grb-rbrb+4.":?
30 PLAY "?aa4aa4ag4fga2raaaaa4ab-4ab->c4.r":?
40 PLAY "?cL4<b-a8f.>cd<a8gf.b-b-b-L8b-b+b-4ag4.":?
50 PLAY "?fga-4a-g4f1&ffgL4a-a-8gf.r":?
60 PLAY "?bb8>e<b-L8bb-r4bb-r4bb-b":?
@Tamakichi
Tamakichi / TONE.adoc
Created Sep 6, 2018
asciiDocサンプル
View TONE.adoc

TONE 単音出力

【書式】

@Tamakichi
Tamakichi / AM2320.BAS
Created Aug 11, 2018
豊四季TinyBASIC for Arduino 湿温度センサー AM2320サンプルプログラム
View AM2320.BAS
10 'AM2320
20 CLS
30 A=$5C
40 B=MEM
50 POKE B,$03,$00,$04
60 W=I2CW(A,B,0,B,0)
70 R=I2CR(A,B,3,B+3,8)
80 IF R ?"ERROR":GOTO 60
90 H=PEEK(B+5)*256+PEEK(B+6)
100 T=PEEK(B+7)*256+PEEK(B+8)
You can’t perform that action at this time.