tsunakan

Option Explicit

'BMPファイルの仕様
'18-21byteに横の画素数
'22-25byteに縦の画素数
Const WIDTH_POS As Long = 18
Const HEIGHT_POS As Long = 22

Sub ReadBMP()
    Dim openFileName As String      '開くファイル名

tsunakan

Option Explicit

Sub ReadBinary2()
    Dim myByte As Byte
    Dim myRange As Range
    Dim myFileName As String
    Dim r As Long
    Dim c As Long
    
    'セルのエラーを無視、セルの初期化

tsunakan

Option Explicit

Sub CSVAggregation()
    Dim Folder_Path As String
    Dim File_Path  As String
    Dim Aggregation_Book As Workbook
    Dim Copy_Sheet As Worksheet
    
    'フォルダを取得
    ChDir ThisWorkbook.Path & "\"

tsunakan

Option Explicit

'BMPファイルの仕様
'18-21byteに横の画素数
'22-25byteに縦の画素数
Const WIDTH_POS As Long = 18
Const HEIGHT_POS As Long = 22

Sub ToneMapping()
    Dim openFileName As String      '開くファイル名

tsunakan

#include <stdio.h> 
#include <string.h>

#define DIGIT 100

void AddBCD(char res[],char st[],char st2[]);
void ReverseDigit(char st[]);


int main (void)

tsunakan

Option Explicit

'BMPファイルの仕様
'18-21byteに横の画素数
'22-25byteに縦の画素数
Const WIDTH_POS As Long = 18
Const HEIGHT_POS As Long = 22

Sub ReadBMP()
    Dim openFileName As String      '開くファイル名