// Wire Slave Receiver 

 // by Nicholas Zambetti < 
   http://www.zambetti.com 
 
 
 > 


 // Demonstrates use of the Wire library 

 // Receives data as an I2C/TWI slave device 

 // Refer to the "Wire Master Writer" example for use with this 


 // Created 29 March 2006 


 // This example code is in the public domain. 



 #include 
 < 
 Wire 
 . 
 h 
 > 


 void 
 setup 
 ( 
 ) 
 { 

 Wire 
 . 
 begin 
 ( 
 8 
 ) 
 ; 
 // join i2c bus with address #8 

 Wire 
 . 
 onReceive 
 ( 
 receiveEvent 
 ) 
 ; 
 // register event 

  Serial 
 
 . 
 begin 
 ( 
 230400 
 ) 
 ; 
 // start serial for output 

 } 


 void 
 loop 
 ( 
 ) 
 { 

 delay 
 ( 
 100 
 ) 
 ; 

 } 


 // function that executes whenever data is received from master 

 // this function is registered as an event, see setup() 

 char 
 c 
 ; 

 int 
 x 
 , 
 y 
 ; 


 void 
 receiveEvent 
 ( 
 int 
 howMany 
 ) 
 { 

 while 
 ( 
 2 
 < 
 Wire 
 . 
 available 
 ( 
 ) 
 ) 
 { 
 // loop through all but the last 

 c 
 = 
 Wire 
 . 
 read 
 ( 
 ) 
 ; 
 // receive byte as a character 

 if 
 ( 
 c 
 == 
 '*' 
 ) 
 { 

 break 
 ; 

 } 

  Serial 
 
 . 
 print 
 ( 
 c 
 ) 
 ; 
 // print the character 

 } 

  Serial 
 
 . 
 print 
 ( 
 " is " 
 ) 
 ; 


 if 
 ( 
 c 
 == 
 '*' 
 ) 
 { 

 //debugRegPrint 

 x 
 = 
 Wire 
 . 
 read 
 ( 
 ) 
 ; 

 y 
 = 
 Wire 
 . 
 read 
 ( 
 ) 
 ; 
 // receive byte as an integer 

 x 
 = 
 256 
 * 
 y 
 + 
 x 
 ; 

  Serial 
 
 . 
 print 
 ( 
 "0x" 
 ) 
 ; 

  Serial 
 
 . 
 println 
 ( 
 x 
 , 
 HEX 
 ) 
 ; 
 // print the integer 


 } 
 else 
 { 

 //debugPrint 

 x 
 = 
 Wire 
 . 
 read 
 ( 
 ) 
 ; 

 y 
 = 
 Wire 
 . 
 read 
 ( 
 ) 
 ; 
 // receive byte as an integer 

 x 
 = 
 256 
 * 
 y 
 + 
 x 
 ; 

  Serial 
 
 . 
 println 
 ( 
 x 
 ) 
 ; 
 // print the integer 

 } 

 } 

 // Wire Master Writer 

 // by Nicholas Zambetti < 
   http://www.zambetti.com 
 
 
 > 


 // Demonstrates use of the Wire library 

 // Writes data to an I2C/TWI slave device 

 // Refer to the "Wire Slave Receiver" example for use with this 


 // Created 29 March 2006 


 // This example code is in the public domain. 



 #include 
 < 
 Wire 
 . 
 h 
 > 


 byte 
 x 
 [ 
 2 
 ] 
 ; 
 //for a serial number 

 const 
 int 
 startButton 
 = 
 7 
 ; 


 void 
 setup 
 ( 
 ) 
 { 

 Wire 
 . 
 begin 
 ( 
 ) 
 ; 
 // join i2c bus (address optional for master) 

 pinMode 
 ( 
 startButton 
 , 
 INPUT 
 ) 
 ; 

  Serial 
 
 . 
 print 
 ( 
 "startButton = " 
 ) 
 ; 

  Serial 
 
 . 
 println 
 ( 
 startButton 
 ) 
 ; 

  Serial 
 
 . 
 print 
 ( 
 "buttonState = " 
 ) 
 ; 

  Serial 
 
 . 
 println 
 ( 
 digitalRead 
 ( 
 startButton 
 ) 
 ) 
 ; 

 x 
 [ 
 0 
 ] 
 = 
 0 
 ; 

 x 
 [ 
 1 
 ] 
 = 
 0 
 ; 

 } 


 void 
 debugPrint 
 ( 
 char 
 thisStr 
 [ 
 ] 
 ) 
 { 

 Wire 
 . 
 beginTransmission 
 ( 
 8 
 ) 
 ; 
 // transmit to device #8 

 Wire 
 . 
 write 
 ( 
 thisStr 
 ) 
 ; 
 // sends charcters 

 Wire 
 . 
 write 
 ( 
 x 
 [ 
 0 
 ] 
 ) 
 ; 
 // sends one byte 

 Wire 
 . 
 write 
 ( 
 x 
 [ 
 1 
 ] 
 ) 
 ; 
 // sends one byte 

 Wire 
 . 
 endTransmission 
 ( 
 ) 
 ; 
 // stop transmitting 

 if 
 ( 
 x 
 [ 
 0 
 ] 
 == 
 255 
 ) 
 { 

 x 
 [ 
 1 
 ] 
 ++ 
 ; 

 } 

 x 
 [ 
 0 
 ] 
 ++ 
 ; 

 } 


 void 
 debugRegPrint 
 ( 
 char 
 thisStr 
 [ 
 ] 
 , 
 byte 
 regValue 
 ) 
 { 

 Wire 
 . 
 beginTransmission 
 ( 
 8 
 ) 
 ; 
 // transmit to device #8 

 Wire 
 . 
 write 
 ( 
 thisStr 
 ) 
 ; 
 // sends charcters 

 Wire 
 . 
 write 
 ( 
 regValue 
 ) 
 ; 
 // sends one byte 

 Wire 
 . 
 write 
 ( 
 0 
 ) 
 ; 
 // dummy byte（debugPrintと揃える為） 

 Wire 
 . 
 endTransmission 
 ( 
 ) 
 ; 
 // stop transmitting 

 } 


 void 
 debugIntPrint 
 ( 
 char 
 thisStr 
 [ 
 ] 
 , 
 int 
 variable 
 ) 
 { 

 Wire 
 . 
 beginTransmission 
 ( 
 8 
 ) 
 ; 
 // transmit to device #8 

 Wire 
 . 
 write 
 ( 
 thisStr 
 ) 
 ; 
 // sends charcters 

 Wire 
 . 
 write 
 ( 
 ( 
 byte 
 ) 
 variable 
 ) 
 ; 
 // sends low byte 

 Wire 
 . 
 write 
 ( 
 ( 
 byte 
 ) 
 ( 
 variable 
 >> 
 8 
 ) 
 ) 
 ; 
 // sends high byte 

 Wire 
 . 
 endTransmission 
 ( 
 ) 
 ; 
 // stop transmitting 

 } 


 void 
 breakPoint 
 ( 
 void 
 ) 
 { 

 while 
 ( 
 1 
 ) 
 { 

 if 
 ( 
 digitalRead 
 ( 
 startButton 
 ) 
 == 
 LOW 
 ) 
 { 

 delay 
 ( 
 500 
 ) 
 ; 
 //wait a finger to take off 

 break 
 ; 
 //when the startButton got pushed 

 } 

 } 

 } 


 void 
 loop 
 ( 
 ) 
 { 

 debugPrint 
 ( 
 "You can write keywords" 
 ) 
 ; 
 //ここは適当な文字列 

 debugRegPrint 
 ( 
 "TWBR*" 
 , 
 TWBR 
 ) 
 ; 
 //read TWBR reg.  レジスター名には*をつける 

 debugRegPrint 
 ( 
 "TWSR*" 
 , 
 TWSR 
 ) 
 ; 
 //read TWSR reg. 

 debugIntPrint 
 ( 
 "2byteReg*" 
 , 
 3841 
 ) 
 ; 
 //ex. 0xF01 

 debugIntPrint 
 ( 
 "Integer" 
 , 
 11000 
 ) 
 ; 
 //ex. 1100 

 breakPoint 
 ( 
 ) 
 ; 

 } 

 Option 
 Explicit 


 Private 
 Sub 
 btnDeleteBreakPoint_Click 
 ( 
 ) 


 End 
 Sub 


 Private 
 Sub 
 btnGetFilePath_Click 
 ( 
 ) 

 '参照ボタンがクリックされた 


 Dim 
 fType 
 , 
 prompt 
 As 
 String 

 Dim 
 fPath 
 As 
 Variant 

 Dim 
 ws 
 As 
 Worksheet 

 Set 
 ws 
 = 
 Worksheets 
 ( 
 "Sheet1" 
 ) 


 'ダイアログのタイトルを指定 

 prompt 
 = 
 "inoファイルを選択して下さい" 

 'ファイル参照ダイアログの表示 

 fPath 
 = 
 Application 
 . 
 GetOpenFilename 
 ( 
 fType 
 , 
 , 
 prompt 
 ) 


 If 
 fPath 
 = 
 False 
 Then 

 'ダイアログでキャンセルボタンが押された場合は処理を終了します 

 End 

 End 
 If 


 'TextBox1にファイル名をセット 

 TextBox1 
 . 
 Text 
 = 
 fPath 


 End 
 Sub 


 Private 
 Sub 
 btnAddDebugPoint_Click 
 ( 
 ) 

 'debugPrint(), debugRegPrint(),breakPoint()を追加する 

 'ファイルを開く 

 Dim 
 strBuf 
 As 
 String 

 Dim 
 strArray 
 ( 
 ) 
 As 
 String 

 Dim 
 pos 
 As 
 Integer 

 Dim 
 i 
 As 
 Long 



 Open 
 TextBox1 
 . 
 Text 
 For 
 Input 
 As 
 #1 

 Line 
 Input 
 #1 
 , 
 strBuf 


 'strBuf末尾にCRが含まれているかどうか判定 

 pos 
 = 
 1 

 pos 
 = 
 InStr 
 ( 
 pos 
 , 
 strBuf 
 , 
 vbLf 
 ) 


 If 
 pos 
 = 
 0 
 Then 

 '改行コードがCRLFの場合（切り出したstringには改行コードは含まれない為） 

 ReDim 
 Preserve 
 strArray 
 ( 
 0 
 ) 
 '既に１行読み込んでいる為 

 strArray 
 ( 
 0 
 ) 
 = 
 strBuf 

 i 
 = 
 1 

 Do 
 Until 
 EOF 
 ( 
 1 
 ) 

 Line 
 Input 
 #1 
 , 
 strBuf 
 ' ファイルから一行読み込み 

 ReDim 
 Preserve 
 strArray 
 ( 
 i 
 ) 
 ' 配列長を変更 

 strArray 
 ( 
 i 
 ) 
 = 
 strBuf 
 ' 配列の最終要素に読み込んだ値を代入 

 i 
 = 
 i 
 + 
 1 
 ' 配列の要素数を加算 

 Loop 

 Else 

 '改行コードがLFの場合（VBAはLFを改行と見做さないのでinoファイル全体が１つの文字列になる） 

 Dim 
 tmp 
 As 
 Variant 
 'LFコードでsplitして格納 

 tmp 
 = 
 Split 
 ( 
 strBuf 
 , 
 vbLf 
 ) 
 'strBufをLFコードで区切りtmpに格納 


 ReDim 
 Preserve 
 strArray 
 ( 
 UBound 
 ( 
 tmp 
 ) 
 ) 

 i 
 = 
 0 

 For 
 i 
 = 
 0 
 To 
 UBound 
 ( 
 tmp 
 ) 

 strArray 
 ( 
 i 
 ) 
 = 
 tmp 
 ( 
 i 
 ) 

 Next 
 i 

 End 
 If 


 Close 
 #1 



 Dim 
 j 
 As 
 Long 

 Dim 
 funcName 
 As 
 String 


 'strArray()の解析（関数名を取り出してdebugPrint文を追加） 

 For 
 i 
 = 
 0 
 To 
 20000 

 '' 
 { 
 'を含む行を見つける 

 pos 
 = 
 InStr 
 ( 
 1 
 , 
 strArray 
 ( 
 i 
 ) 
 , 
 "{" 
 ) 

 If 
 pos 
 = 
 0 
 Then 

 '何もしない 

 ElseIf 
 pos 
 >= 
 1 
 Then 

 funcName 
 = 
 "" 

 If 
 checkString 
 ( 
 strArray 
 , 
 i 
 , 
 funcName 
 ) 
 = 
 True 
 Then 

 '関数名の個所なのでdebugXXX()を挿入する 

 '次の行からdebugXXX文を３行追加し、新strArray配列を作る 

 ReDim 
 Preserve 
 strArray 
 ( 
 UBound 
 ( 
 strArray 
 ) 
 + 
 3 
 ) 
 '配列要素を+3する 

 For 
 j 
 = 
 UBound 
 ( 
 strArray 
 ) 
 To 
 i 
 + 
 3 
 Step 
 - 
 1 

 strArray 
 ( 
 j 
 ) 
 = 
 strArray 
 ( 
 j 
 - 
 3 
 ) 

 Next 
 j 

 strArray 
 ( 
 i 
 + 
 1 
 ) 
 = 
 "/***********/    //debugPrint(" 
 "" 
 & 
 funcName 
 & 
 "" 
 ");" 

 strArray 
 ( 
 i 
 + 
 2 
 ) 
 = 
 "/*  DEBUG  */    //debugRegPrint(" 
 "*" 
 ",);" 

 strArray 
 ( 
 i 
 + 
 3 
 ) 
 = 
 "/***********/    //breakPoint();" 

 i 
 = 
 i 
 + 
 4 

 Else 

 '関数名の個所ではなかったので何もしない 

 End 
 If 

 End 
 If 

 If 
 i 
 = 
 UBound 
 ( 
 strArray 
 ) 
 Then 

 Exit 
 For 

 End 
 If 

 Next 
 i 


 '新しくファイルを作成する 

 Open 
 Application 
 . 
 GetSaveAsFilename 
 ( 
 TextBox1 
 . 
 Text 
 ) 
 For 
 Output 
 As 
 #1 

 For 
 i 
 = 
 0 
 To 
 UBound 
 ( 
 strArray 
 ) 

 Print 
 #1 
 , 
 strArray 
 ( 
 i 
 ) 

 Next 
 i 

 Close 
 #1 


 End 
 Sub 


 Private 
 Function 
 checkString 
 ( 
 strArray 
 ( 
 ) 
 As 
 String 
 , 
 strPointer 
 As 
 Long 
 , 
 funcName 
 As 
 String 
 ) 
 As 
 Boolean 

 '関数名の個所かどうか判定する　関数名ならTrueを返す 

 Dim 
 pos 
 As 
 Integer 

 Dim 
 nameFlag 
 As 
 Boolean 

 nameFlag 
 = 
 True 


 pos 
 = 
 InStr 
 ( 
 1 
 , 
 LTrim 
 ( 
 strArray 
 ( 
 strPointer 
 ) 
 ) 
 , 
 "{" 
 ) 

 If 
 pos 
 = 
 1 
 Then 

 Call 
 getName 
 ( 
 Trim 
 ( 
 strArray 
 ( 
 strPointer 
 - 
 1 
 ) 
 ) 
 , 
 funcName 
 , 
 nameFlag 
 ) 

 ElseIf 
 pos 
 > 
 1 
 Then 

 Call 
 getName 
 ( 
 Trim 
 ( 
 strArray 
 ( 
 strPointer 
 ) 
 ) 
 , 
 funcName 
 , 
 nameFlag 
 ) 

 End 
 If 


 checkString 
 = 
 nameFlag 


 End 
 Function 


 Private 
 Sub 
 getName 
 ( 
 funcString 
 As 
 String 
 , 
 funcName 
 As 
 String 
 , 
 nameFlag 
 As 
 Boolean 
 ) 


 If 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "=" 
 ) 
 = 
 0 
 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "(" 
 ) 
 > 
 2 
 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "if" 
 ) 
 = 
 0 
 _ 

 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "switch" 
 ) 
 = 
 0 
 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "while" 
 ) 
 = 
 0 
 _ 

 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "for " 
 ) 
 = 
 0 
 And 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "for(" 
 ) 
 = 
 0 
 Then 


 '関数名である 

 Dim 
 tmp 
 As 
 Variant 

 If 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "//" 
 ) 
 > 
 0 
 Then 

 tmp 
 = 
 Split 
 ( 
 funcString 
 , 
 "//" 
 ) 

 funcString 
 = 
 Trim 
 ( 
 tmp 
 ( 
 0 
 ) 
 ) 

 End 
 If 


 If 
 InStr 
 ( 
 1 
 , 
 funcString 
 , 
 "{" 
 ) 
 = 
 0 
 Then 

 funcName 
 = 
 funcString 

 Else 

 tmp 
 = 
 Split 
 ( 
 funcString 
 , 
 "{" 
 ) 

 funcName 
 = 
 Trim 
 ( 
 tmp 
 ( 
 0 
 ) 
 ) 

 End 
 If 


 nameFlag 
 = 
 True 

 Else 

 '配列名である(または関数の引数だけの行もかな？) 

 nameFlag 
 = 
 False 

 End 
 If 


 End 
 Sub 


 Private 
 Sub 
 btnDeleteDebugPoint_Click 
 ( 
 ) 

 'debugPrint(), debugRegPrint(),breakPoint()を削除する 



 End 
 Sub 


 Private 
 Sub 
 TextBox1_Change 
 ( 
 ) 


 End 
 Sub 


 Private 
 Sub 
 UserForm_Click 
 ( 
 ) 

 '    UserForm1.Show (vbModeless) 

 End 
 Sub 

 Sub 
 Macro1 
 ( 
 ) 

 ' 

 ' Macro1 Macro 

 ' Arduino IDEのソースコードにデバッグ用のコードを挿入するマクロ。 

 ' 

 ' 


 UserForm1 
 . 
 Show 
 ( 
 vbModeless 
 ) 



 End 
 Sub