常連

### 実現したいこと
pci-1750でリレーを制御したい。手順すら分かっていないので手順が知りたいです。

### 発生している問題・分からないこと
visualstudioにてC#のソフトを作っているのですがpci-1750を動かすための方法が分かりません。ドライバーはインストールしているので何らかの方法でアクセスできるはずなのですがデバイス操作の知見が全くないため手順すら分かりません。



### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [x] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
C＃で開発できることは分かったのですが如何せん外国企業なので詳細な使い方が見つけられませんでした

### 補足
ソースコードの書き方の手前で詰まっているのでコードは掲載してません。

adovantechのpci-1750をC#から操作する方法が分からない

### 実現したいこと
My Projectの設定を変更したい
スプラッシュウィンドウを設定したい

### 発生している問題・分からないこと
Visual Studio2022でVB.NetのWindows Forms(.Net Framework4.8)アプリを開発しています

スプラッシュウィンドウを追加したところ
実行時にエラーが発生
スタートアップフォームが設定されていないというエラーが発生していました



### エラーメッセージ
```error
・カスタムツール My.ApplicationCodeGeneratorが失敗しました
・カスタム ツール エラー:ファイルの生成に失敗しました: XML ドキュメント (11,35) でエラーが発生しました。
```

### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
試したこと
- ソリューションをクリーンして再ビルド (ビルド → クリーン)
- カスタムツールの再実行 (Application.myapp を右クリック → 「カスタムツールの実行」)
これをやっても「カスタムツール My.ApplicationCodeGeneratorが失敗しました」となる
　　
- Visual Studio を再起動

- 試しに新規プロジェクトを作成して
My Projectの設定→アプリケーション→アプリケーションフレームワークを有効にするのチェックを触っても「カスタムツール My.ApplicationCodeGeneratorが失敗しました」が発生します






### 補足
Gitで変更のあったファイルを元に戻すと直ります
- ＊.vbproj
- Application.myapp
- Application.Designer.vb



vs2022で「カスタムツール My.ApplicationCodeGeneratorが失敗しました」が発生します

C#、visualstudio2017で開発しています。

```C#
public string[] ReturnSetting(string path) {
            //読み込むファイルパス
            string filePath = ConfigurationManager.AppSettings["SensorPath"] + path;
            //ファイル読み込み
            using (FileStream fs = new FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite))
            using (StreamReader sr = new StreamReader(fs)) {
                //指定されたcsvファイルを配列に格納して返す
                string[] cols = sr.ReadLine().Split(',');
                return cols;
            }
        }
```
この処理を実行させたとき、私のPCでは問題なく動作するのですが、ほかのPCで実行するとエラーメッセージ
「オブジェクト参照がオブジェクト インスタンスに設定されていません」
が発生してしまいます。　

このエラーについて調べたのですが、クラスを使用するときにnewしていなかったりすると発生する場合がある。とあったので、

stringj[] cols = sr.ReadLine().Split(',');

の前に

string[] cols = new string[4];
cols = sr.ReadLine().Split(',');

で実行してみましたがやはりエラーが発生してしまいました。

私のPCでは問題がないのになぜ、ほかのPCだとこのようなエラーが発生してしまうのでしょうか？

C# オブジェクト参照がオブジェクト インスタンスに設定されていません

### 前提・実現したいこと
こちらのサイトのExample1を実行させたいです。
http://web.wakayama-u.ac.jp/~wuhy/opencv.pdf

手順通りVisual StudioとOpenCVをインストールし、Example1というプロジェクトを作成し、
下記のソースファイル（Example1.c）をこのプロジェクト内に追加いたしました。

■各ディレクトリ
プロジェクトファイル→C:\Users\user\source\opencv\Example1
OpenCV→C:\Program Files (x86)\opencv
Visual Studio→C:\Program Files (x86)\Microsoft Visual Studio

### 該当のソースコード

```c
#include <stdio.h>
#include <stdlib.h>
// OpenCVのヘッダファイル
#include <cv.h>
#include <highgui.h>

int main(int argc, char **argv){
	IplImage *image; //画像を扱う構造体
	char *pixel;     //画素のポインタ
	int x,y,c;       //ループカウンタ
	
	//引数の個数チェック
	if(argc<3) {
		fgrintf(stderr,"usage:%s input output\n",argv[0]);
		exit(1);
	}
	
	//画像ファイルの読み込み
	image = cvLoadImage(argv[1],1);
	//画像を処理する
	for(y=0;y<image->height;y++)
		for(x=0;x<image->width;x++){
			
			// (x,y)の座標の画素のアドレスを計算
			pixel = image->imageData + y*image->widthStep + x*image->nChannels;
			
			// 各色成分に対して処理
			for(c=0;c<image->nChannels;c++)
				// 各色を反転
				pixel[c] = 255 - pixel[c];
				
		}
	
	// 処理した画像をファイルに書き込む
	cvSaveImage(argv[2],image);
	//画像の開放
	cvReleaseImage(&image);
	return 0;
}
```


実行するとエラーメッセージが出力されてしまいます。

![イメージ説明](0f9b4e2d5587f27cbe1228e17bd1f0c5.png)


一番上のエラーコード「E1696」で検索してみると、INCLUDE環境変数のパスが通ってないみたいなので、
下記のように構成プロパティからopencvのincludeディレクトリを手動で追加してみたのですが、

![イメージ説明](4b243c43c02af8ecd7bd7a3961fb4aa2.png)


![イメージ説明](5bae2e5dccbb92f42c14ed28e3fb2123.png)

余計にエラーメッセージが増えてしまいました。

パスの設定の仕方が間違っていますでしょうか。
どうか、ご教授のほどお願いします。


### 補足情報（FW/ツールのバージョンなど）
・Microsoft Visual Studio Community 2019
Version 16.5.4
・OpenCV 3.4.3

【Visual C++】「E1696	ソース ファイルを開けません」エラーによりサンプルコードが実行できない

### 質問内容
C#でテキストファイルをPrintPreviewDialogを使用して印刷するプログラムを組もうとしました。
色々なサイトを回って参考にしながら一旦完成したのですが、プレビュー画面にはテキストファイルの内容が複数ページで正常に表示されているのに、印刷ボタンを押して印刷（今回はPDFに出力）したところ、何も出力されず真っ白な画面1枚分しか出てきませんでした。

### 該当のソースコード
```C#
public partial class Form1 : Form
{
    const string FilePath = @"C:\DATA\Temp\TestFile.txt";
    const decimal Inch = (decimal)25.4;

    int PageMarginTop;
    int PageMarginBottm;
    int PageMarginLeft;
    int PageBottomPositionY;
    int TextHight;
    int TextMarginTop;
    int TextMarginBottom;

    Encoding ShiftJis = Encoding.GetEncoding(932);

    StreamReader sr;

    Font DefFont = new Font("ＭＳ ゴシック", 9);
    Brush DefBrush = new SolidBrush(Color.Black);

    public Form1()
    {
        InitializeComponent();

        PageMarginTop       = MmToInch(15);                    //上余白15mm
        PageMarginBottm     = MmToInch(15);                    //下余白15mm
        PageMarginLeft      = MmToInch(15);                    //左余白15mm
        PageBottomPositionY = MmToInch(297) - PageMarginBottm; //印刷範囲外となるY座標
        TextHight           = MmToInch(5);                     //テキストの高さ5mm
        TextMarginTop       = MmToInch((decimal)0.5);          //テキスト上の余白0.5mm
        TextMarginBottom    = MmToInch((decimal)0.5);          //テキスト下の余白0.5mm
    }

    private void button1_Click(object sender, EventArgs e)
    {
        PrintDocument PrtDoc = new PrintDocument();
        foreach (PaperSize ps in PrtDoc.PrinterSettings.PaperSizes)
        {
            if (ps.Kind == PaperKind.A4)
            {
                PrtDoc.DefaultPageSettings.PaperSize = ps;
                break;
            }
        }

        PrtDoc.DefaultPageSettings.Landscape = false;
        sr = new StreamReader(FilePath, ShiftJis);

        PrtDoc.PrintPage += new PrintPageEventHandler(DocWtr);

        PrintPreviewDialog ppd = new PrintPreviewDialog();
        ppd.Document = PrtDoc;
        ppd.PrintPreviewControl.Zoom = 0.75;
        ppd.ShowDialog();

        sr.Close();
    }

    private void DocWtr(object sender, PrintPageEventArgs e)
    {
        int NowPositionY = PageMarginTop;
        while (sr.Peek() >= 0)
        {
            string rec = sr.ReadLine();

            e.Graphics.DrawString(rec, DefFont, DefBrush, new PointF(PageMarginLeft, NowPositionY + TextMarginTop));
            NowPositionY = NowPositionY + TextMarginTop + TextHight + TextMarginBottom;

            if (NowPositionY >= PageBottomPositionY)
            {
                e.HasMorePages = true;
                break;
            }
            else
            {
                e.HasMorePages = false;
            }
        }
    }

    int MmToInch(decimal Mm)
    {
        decimal a = (Mm / Inch);
        int b = (int)(a * 100);

        return b;
    }
}
```
テスト用に使用したテキストファイルは別口で以下の記述で100行分作りました。
```C#
const string FilePath = @"C:\DATA\Temp\TestFile.txt";
	
if(!File.Exists(FilePath))
{
	StreamWriter sw = File.CreateText(FilePath);
	sw.Close();
}
	
using(StreamWriter sw = new StreamWriter(FilePath,false,ShiftJis))
{
    for (int i = 0; i < 100; i++)
       	sw.WriteLine($"テストデータ：{i:000}");
}
```
### 試したこと
上記のPrintPreviewDialogを使用した部分（51行目～54行目）をPageSetupDialogやPrintDialogに変更して試しに動かしたところ、どちらも正常にPDFに出力されました。
```C#
//ページ設定ダイアログ
PageSetupDialog psd = new PageSetupDialog();
psd.Document = PrtDoc;
if (psd.ShowDialog() == DialogResult.OK)
    PrtDoc.Print();

//プリンター選択ダイアログ
PrintDialog pd = new PrintDialog();
pd.Document = PrtDoc;
if (pd.ShowDialog() == DialogResult.OK)
    PrtDoc.Print();
```
### 補足情報（FW/ツールのバージョンなど）
・Visual Studio Community 2022 (64 ビット)
・.Net Framework 4.8


【C#】印刷プレビューには正常に表示されているのに印刷が出来ない

### 実現したいこと
別途説明するエクセルファイルをClosedXMLを使用して読み込めるようにしたい
エクセルがインストールされていない端末でもそれが可能な事

### 発生している問題・分からないこと
以下のスレッドの続きです。（見なくても、ここに必要要項は書きますが。）
https://teratail.com/questions/lmfwqvnb5lx442#reply-85ukqmng7vq6ft

ClosedXMLを使用してExcelファイルを読み込む時に、式が入ったセルでエラーになるので、上記のスレッドを立てました。
しかし、ClosedXMLやVBのソースではなく、Excelファイルが壊れていました。

なぜ、Excelファイルが壊れていると言えるのか
ClosedXMLからは読めないが、本物のエクセルでは読み込む事ができるので、本物のエクセルで再保存したところ正しく処理が行えた。

ClosedXMLの読込能力の低さを残念がる事もできますが、エクセルで再保存したものは正しく処理できたので、ファイル作成者が悪いという見方もできます。

そのファイル作成者は外ならぬClosedXMLライブラリでした。
ですので、今回は書き込み側中心の話になります。

### エラーメッセージ
```error
型 'System.StackOverflowException' のハンドルされていない例外が mscorlib.dll で発生しました

埋め込みドキュメント 'System.Globalization\CompareInfo.cs' を 'C:\Users\sys_developer\AppData\Local\Temp\.vsdbgsrc\82f5c4d99137273f37e4fbe578de1a03843e6011bebc9ed0966c7a983ed26386\CompareInfo.cs' に抽出しました
プログラム '[18536] WindowsApp1.exe' はコード 4294967295 (0xffffffff) で終了しました。
```

### 該当のソースコード

```Form1.vb
Imports System.IO
Imports System.Reflection
Imports ClosedXML.Excel
Imports DocumentFormat.OpenXml.Spreadsheet

Public Class Form1
 Const Temp1 As String = "d:\work\TEMP1.xlsx"
 Const Temp2 As String = "d:\work\TEMP2.xlsx"
 Dim DataTableDGView1 As New DataTable
 Dim ExcelResourceName As String = "WindowsApp1.TEST1.xlsx"

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  TabControl1.Dock = DockStyle.Fill
  DataGridView1.Dock = DockStyle.Fill
  DataGridView2.Dock = DockStyle.Fill
  Call DataTable1Set()
 End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim Eod As Integer
  Using ResourceStream As Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream(Me.ExcelResourceName)
   If ResourceStream Is Nothing Then
    MessageBox.Show("リソースが見つかりませんでした。")
    Exit Sub
   End If
   Using fileStream As FileStream = File.Create(Temp1)
    ResourceStream.CopyTo(fileStream)
   End Using
  End Using

  Using XLWorkbook1 = New XLWorkbook(Temp1)
   Dim WorksheetX = XLWorkbook1.Worksheet(1)
   Dim CntRow As Integer = 1
   For Each DataRow1 As DataRow In Me.DataTableDGView1.Rows
    CntRow += 1
    Dim CntCol As Integer = 1
    WorksheetX.Cell(CntRow, CntCol).Value = DataRow1("A-Item").ToString
    WorksheetX.Cell(CntRow, CntCol + 1).Value = DataRow1("B-Key").ToString
    WorksheetX.Cell(CntRow, CntCol + 2).Value = ExcelCellDate(DataRow1("C-Date").ToString)
    For For1 As Integer = 1 To 28
     WorksheetX.Cell(CntRow, CntCol + 2 + For1).Value = "Dummy" & For1.ToString(0)
    Next
    WorksheetX.Cell(CntRow, CntCol + 31).Value = DataRow1("AG-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 32).Value = ExcelCellDate(DataRow1("AH-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 33).Value = ExcelCellDate(DataRow1("AI-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 35).Value = ExcelCellDate(DataRow1("AK-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 36).Value = DataRow1("AL-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 37).Value = DataRow1("AM-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 38).Value = ExcelCellNumeric(DataRow1("AN-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 41).Value = ExcelCellNumeric(DataRow1("AQ-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 43).Value = ExcelCellNumeric(DataRow1("AS-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 44).Value = ExcelCellDate(DataRow1("AT-Date").ToString)
   Next
   Eod = CntRow
   XLWorkbook1.Save()
  End Using

  Call ExcelRemoveRows(Temp1, Eod + 1, 1000)
  Call ExcelSaveAs(Temp1, Temp2)
  MsgBox("Excelファイルへの書き込みが正常に完了しました。")
 End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  Call Put_DataGrid(Temp1)
 End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  Call Put_DataGrid(Temp2)
 End Sub

 Private Sub DataTable1Set()
  Me.DataTableDGView1 = New DataTable()
  With Me.DataTableDGView1.Columns
   .Add("A-Item", GetType(String))
   .Add("B-Key", GetType(String))
   .Add("C-Date", GetType(String))
   .Add("AG-String", GetType(String))
   .Add("AH-Date", GetType(String))
   .Add("AI-Date", GetType(String))
   .Add("AK-Date", GetType(String))
   .Add("AL-String", GetType(String))
   .Add("AM-String", GetType(String))
   .Add("AN-フラグ", GetType(String))
   .Add("AQ-フラグ", GetType(String))
   .Add("AS-フラグ", GetType(String))
   .Add("AT-Date", GetType(String))
  End With

  Dim Random1 As New Random()
  For Count1 As Integer = 1 To 255
   Dim RandomNumb As Integer = Random1.Next(0, 2)
   Dim NewRow1 As DataRow = Me.DataTableDGView1.NewRow()
   NewRow1("A-Item") = "あああ"
   NewRow1("B-Key") = "KEY" & Count1.ToString("0000000000")
   NewRow1("C-Date") = DateTime.Now.AddDays(Random1.Next(-50, 61)).ToString("yyyy/MM/dd")
   NewRow1("AG-String") = If(RandomNumb = 0, String.Empty, "AG" & RandomNumb.ToString)
   NewRow1("AH-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AI-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AK-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AL-String") = "AL" & (Random1.Next(-10, 10)).ToString
   NewRow1("AM-String") = "AM" & (Random1.Next(-10, 10)).ToString
   NewRow1("AN-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AQ-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AS-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AT-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   Me.DataTableDGView1.Rows.Add(NewRow1)
  Next
  DataGridView1.DataSource = Me.DataTableDGView1
 End Sub

 Private Function ExcelCellDate(inputDateTime As String) As String
  Try
   Return DateTime.Parse(inputDateTime).ToString("yyyy-MM-dd")
  Catch ex As Exception
   Debug.WriteLine($"エラー: {ex.Message}")
   Return String.Empty
  End Try
 End Function

 Private Function ExcelCellNumeric(numericValue As String) As Double
  Try
   If String.IsNullOrWhiteSpace(numericValue) Then Return 0.0
   Dim result As Double
   If Double.TryParse(numericValue, result) Then Return result
   Debug.WriteLine($"数値変換失敗: 入力値 '{numericValue}' は数値ではありません。")
   Return 0.0
  Catch ex As Exception
   Debug.WriteLine($"エラー発生: {ex.Message}")
   Return 0.0
  End Try
 End Function

 Private Sub ExcelRemoveRows(filePath As String, startRow As Integer, endRow As Integer)
  Debug.WriteLine($"ファイルパス: {filePath}, 削除範囲: {startRow} から {endRow}")
  Using XLWorkbook1 As New XLWorkbook(filePath)
   Dim IXLWorksheet1 As IXLWorksheet = XLWorkbook1.Worksheet("Sheet1")
   Dim delcnt = 0
   For rowIndex As Integer = endRow To startRow Step -1
    delcnt += 1
    IXLWorksheet1.Row(rowIndex).Delete()
    If delcnt >= 50 Then
     XLWorkbook1.Save()
     Application.DoEvents()
     Debug.WriteLine($"50件削除")
     delcnt = 0
    End If
   Next
   XLWorkbook1.Save()
   Debug.WriteLine($"削除完了")
  End Using
 End Sub

 Private Sub ExcelSaveAs(filePath1 As String, filePath2 As String)
  Using XLWorkbook1 As New XLWorkbook(filePath1)
   XLWorkbook1.SaveAs(filePath2)
   Debug.WriteLine($"保存しなおし完了")
  End Using
 End Sub

 Private Sub Put_DataGrid(TempFile As String)
  Dim DataTable1 = New DataTable

  'Headerのセット
  Using XLWorkbook1 As New XLWorkbook(TempFile)
   Dim Worksheet1 = XLWorkbook1.Worksheet(1)
   Dim lastColumn As Integer = Worksheet1.LastColumnUsed().ColumnNumber()
   For col As Integer = 1 To lastColumn
    Dim IXLCell1 As IXLCell = Worksheet1.Cell(1, col)
    Dim headerValue As String = If(IXLCell1.IsEmpty(), String.Empty, IXLCell1.GetValue(Of String)())
    DataTable1.Columns.Add(headerValue)
   Next
  End Using
  DataGridView2.DataSource = DataTable1

  'Bodyのデータは割愛
  MsgBox("Excelファイルへの読み込みが正常に完了しました。")
 End Sub
End Class
```

```TEST1.xlsx
ある程度負荷をかけないと落ちてくれないので、列はあまり減らしていない。
任意の場所で作成し、直下にアドしてビルドアクションを埋め込みリソースに変更する。

＜ヘッダ＞
A-Item
【式】="B-Key" & CHAR(10) & COUNTA(B2:B999) & "件"
C-Date
dummy1
dummy2
dummy3
dummy4
dummy5
dummy6
dummy7
dummy8
dummy9
dummy10
dummy11
dummy12
dummy13
dummy14
dummy15
dummy16
dummy17
dummy18
dummy19
dummy20
dummy21
dummy22
dummy23
dummy24
dummy25
dummy26
dummy27
dummy28
【式】="アラート３⇒" & CHAR(10) & COUNTIF(AF2:AF1000,"！") & "件"
AG-String
AH-Date
AI-Date
【式】="アラート１⇒" & CHAR(10) & COUNTIF(AJ2:AJ1000,"！") & "件"
AK-Date
AL-String
AM-String
AN-フラグ
AO-式
AP-式
AQ-フラグ
【式】="アラート２⇒" & CHAR(10) & COUNTIF(AR2:AR1000,"！") & "件"
AS-フラグ
AT-Date


＜ボディ＞
ボディに式があるのは下記の5項目、行2～1000まで埋まっているものとする。

アラート３⇒
=IF(C2+30<TODAY(), IF(LEN(TRIM(AG2)) < 1, TRIM("！"), TRIM("")), TRIM(""))

アラート１⇒
=IF(AK2+0<TODAY(), TRIM("！"), TRIM(""))

AO-式
=IF(TEXT(AS2, "0") <> TRIM("1"), IF(C2 + 7 * 2 < TODAY(), TRIM(1), TRIM(0)), TRIM(0))

AP-式
=IF(TRIM(AT2) = TRIM(""), IF(TRIM(AH2) = TRIM(""), 1, IF(AH2 > TODAY(), 1, 0)), IF(AT2 - 7 * 2 >= TODAY(), 1, 0))

アラート２⇒
=IF((TRIM(AP2) & TRIM(AQ2)) = TRIM("11"), TRIM(""), IF(TRIM(AO2) = "1", TRIM("！"), TRIM("")))

```

### 試したこと・調べたこと
- [ ] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
起動⇒ページ2にテストデータ
ボタン1⇒TEMP1、TEMP2が作成される
ボタン2⇒TEMP1から読み込めない
ボタン3⇒SaveAsで保存したTEMP2から読み込めない
その後
TEMP1を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる
TEMP2を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる


### 補足
■バージョン
vb 2022
.NET Framework 4.8
ClosedXML(0.104.2)


vbのClosedXMLを使用して出力したエクセルがClosedXMLでは読めない

Visual Studio 2010で作成したVB.NETのプログラムを、
違う端末のVisual Studio2017でデバッグ実行させた際に、「アプリケーションはブレークモードになっています」と表示されてデバッグできなくなっています。
[マイ コードのみを有効にする]のチェックは外しましたが状況は変わりませんでした。
コードがおかしいのでしょうか？
それともVisual Studioのバージョンが違いすぎるからでしょうか？
原因が分からず困っています。よろしくお願いします。

アプリケーションはブレークモードに...

### 前提・実現したいこと

C言語初心者で配列の勉強をしています。
Visual Studio 2019にて”デバッグの開始”を行ったところ
下記エラーが発生します。
エラーを解決する方法と、このようなエラーを発生させないためには
なにを勉強すればいいか教えて頂けないでしょうか。

### 発生している問題・エラーメッセージ

Run-Time Check Failure #2 - Stack around the variable 'a' was corrupted.

### 該当のソースコード

```ここに言語名を入力
#include<stdio.h>

#define N 20	/*要素の数*/

int main(void) {
	int a[N] = {1,5,4,9,23,16,2,13};
	int i, temp, flag;

	do
	{
		flag = 0;
		for (i = 0; i < N + 1; i++)
		{
			if (a[i] > a[i + 1])
			{
				temp = a[i];
				a[i] = a[i + 1];
				a[i + 1] = temp;
				flag = 1;

			}
		}
	
	} while (flag == 1);

	for (i = 0; i < N; i++)
	{
		printf("%d	", a[i]);
		printf("\n");
	}

	return 0;
	   
}

```

### 試したこと

webで調べたところ、スタック破壊が起きているような記載を見かけました。
そこで、defineのNを大きくしてみましたが（10とか）、解決しませんでした。
ちなみにpaizaのwebエディタで同様の記述を行ったところ、エラーが
出なかったのも腑に落ちず、VS2019の操作方法に誤りがあるのかも疑っています。


### 補足情報（FW/ツールのバージョンなど）

Visual Studio 2019