Visual Basic 6の基礎 - 変数 - 版の履歴

Wiki: /* 動的配列 */

2025-01-23T07:50:03Z

動的配列

@@ 97行目: / 97行目: @@
   ' 配列のサイズ変更 (既存データを保持)
   ReDim Preserve arrDynamic(30)
   </syntaxhighlight>
 <br><br>

Wiki: /* 概要 */

2025-01-23T07:39:51Z

概要

@@ 1行目: / 1行目: @@
 == 概要 ==
+変数は、プログラム内でデータを一時的に格納するためのメモリ領域である。<br>
 <br><br>

Wiki: ページの作成:「== 概要 ==

== Option Explicit == `Option Explicit`を使用する場合、全ての変数を明示的に宣言する必要がある。
これにより、タイプミスによるバグを防ぐことができる。

== 基本的なデータ型 == 各変数は、`Dim`キーワードを使用して宣言する。
変数名の後に`As` <データ型>を指定して、変数の型を定義する。
<…」

2025-01-23T07:26:12Z

ページの作成:「== 概要 == == Option Explicit == <code>Option Explicit</code>を使用する場合、全ての変数を明示的に宣言する必要がある。 これにより、タイプミスによるバグを防ぐことができる。 == 基本的なデータ型 == 各変数は、<code>Dim</code>キーワードを使用して宣言する。 変数名の後に<code>As</code> <データ型>を指定して、変数の型を定義する。 <…」

新規ページ

== 概要 ==

 

== Option Explicit ==
<code>Option Explicit</code>を使用する場合、全ての変数を明示的に宣言する必要がある。 
これにより、タイプミスによるバグを防ぐことができる。 
 

== 基本的なデータ型 ==
各変数は、<code>Dim</code>キーワードを使用して宣言する。 
変数名の後に<code>As</code> <データ型>を指定して、変数の型を定義する。 
 
整数型には範囲があり、その範囲を超えるとオーバーフローエラーが発生する。 
 
<syntaxhighlight lang="vb">
Option Explicit ' 変数の明示的な宣言を強制

' 変数の定義
Dim intNumber As Integer '整数型 (-32,768 ～ 32,767)
Dim lngNumber As Long '長整数型 (-2,147,483,648 ～ 2,147,483,647)
Dim sngNumber As Single '単精度浮動小数点型
Dim dblNumber As Double '倍精度浮動小数点型
Dim strText As String '文字列型
Dim blnFlag As Boolean '論理型 (True / False)

' 値の代入
intNumber = 100
lngNumber = 1000000
sngNumber = 3.14
dblNumber = 3.14159
strText = "サンプルテキスト"
blnFlag = True
</syntaxhighlight>
 

== 配列 ==
Visual Basic 6の配列には、固定長配列と動的配列の2種類がある。 
 
Visual Basic 6の配列は、0から始まる。 
 
==== 固定長配列 ====
固定長配列は宣言時にサイズを指定するため、後でサイズを変更することはできない。 
 
<syntaxhighlight lang="vb">
' 固定長配列
Dim arrFixed(5) As String '6要素の配列（0～5）

' 配列への値の代入
For i = 0 To 5
arrFixed(i) = "要素" & i
Next i
</syntaxhighlight>
 
==== 動的配列 ====
動的配列は<code>ReDim</code>キーワードを使用して、サイズを変更することができる。 
 
また、<code>Preserve</code>キーワードを使用する時、既存のデータを保持したままサイズを変更できる。 
 
<syntaxhighlight lang="vb">
' 動的配列
Dim arrDynamic() As Integer
Dim i As Integer

' 動的配列のサイズ設定
ReDim arrDynamic(10)

' 配列のサイズ変更 (既存データは消去)
ReDim arrDynamic(20)

' 配列のサイズ変更 (既存データを保持)
ReDim Preserve arrDynamic(30)
</syntaxhighlight>
 

== 日付 / 時刻の変数 ==
日付 / 時刻を扱うための専用データ型である。 
 
日付 / 時刻関数 
* Now
*: 現在の日時を取得
* Date
*: 現在の日付を取得
* Time
*: 現在の時刻を取得
* DateAdd
*: 日付の加算 / 減算
* DateDiff
*: 日付の差分計算
* Format
*: 日付 / 時刻の書式設定
 
フォーマット文字列の主な指定子 
* yyyy
*: 4桁の年
* mm
*: 月
* dd
*: 日
* hh
*: 時
* nn
*: 分
* ss
*: 秒
 
<syntaxhighlight lang="vb">
Dim dtNow As Date
Dim dtCustom As Date

dtNow = Now ' 現在の日時を取得
dtCustom = #1/23/2025 14:30:00# ' 特定の日時を指定

' 日付/時刻のフォーマット
Debug.Print "現在: " & Format(dtNow, "yyyy/mm/dd hh:nn:ss")
Debug.Print "指定日時: " & Format(dtCustom, "yyyy/mm/dd hh:nn:ss")
</syntaxhighlight>
 

== バリアント型 ==
Variant型は、あらゆる型のデータを格納できる汎用データ型である。 
 
型変換が自動的に行われるため、異なる型のデータを扱う場合に便利である。 
ただし、メモリ使用量が多い、型の安全性が低い、実行速度が遅い等のデメリットもある。 
 
<syntaxhighlight lang="vb">
Dim varData As Variant

' 数値として使用
varData = 100 ' 自動的に数値型として解釈
Debug.Print varData + 50 ' 数値計算が可能

' 文字列として使用
varData = "テスト" ' 自動的に文字列型として解釈
Debug.Print varData & "文字列" ' 文字列連結が可能

' 日付として使用
varData = #1/23/2025# ' 自動的に日付型として解釈
</syntaxhighlight>
 

== オブジェクト変数 ==
オブジェクト変数は、<code>Set</code>キーワードを使用して値を代入する。 
オブジェクトのインスタンスを生成する場合は、<code>New</code>キーワードを使用する。 
 
オブジェクト変数は、使用後に<code>Nothing</code>を代入して解放することが推奨される。 
 
また、<code>CreateObject</code>関数を使用してActiveXオブジェクトを生成することもできる。 
 
コレクションやディクショナリは、データを効率的に管理するために使用される。 
 
<syntaxhighlight lang="vb">
Dim objForm As Form
Dim objControl As Control
Dim colItems As Collection
Dim dicData As Dictionary

' フォームのインスタンス作成
Set objForm = New Form1

' コレクションの使用
Set colItems = New Collection
colItems.Add "項目1"
colItems.Add "項目2"

' ディクショナリ (連想配列) の使用
Set dicData = CreateObject("Scripting.Dictionary")
dicData.Add "key1", "値1"
dicData.Add "key2", "値2"

'参照の解放
Set objForm = Nothing
Set colItems = Nothing
Set dicData = Nothing
</syntaxhighlight>
 

== 変数のスコープ ==
変数のスコープは、宣言の場所と使用するキーワードによって決まる。 
 
* Private変数
*: 同じモジュール内でのみアクセス可能である。
* Public変数
*: プロジェクト内のどこからでもアクセス可能である。
* Static変数
*: プロシージャが終了しても値が保持される。
* ローカル変数
*: プロシージャ内でのみ有効である。
 
<syntaxhighlight lang="vb">
' モジュールレベル変数
Private m_strGlobalVar As String
Public g_strPublicVar As String

Private Sub ScopeExample()
' ローカル変数
Dim strLocalVar As String
Static strStaticVar As String '静的変数

' プロシージャ内でのみ有効
strLocalVar = "ローカル変数"

' 値が保持される
strStaticVar = "静的変数"

' モジュール内でアクセス可能
m_strGlobalVar = "プライベート変数"

' 他のモジュールからもアクセス可能
g_strPublicVar = "パブリック変数"
End Sub
</syntaxhighlight>
 

== 列挙型 ==
列挙型 (Enum) は、関連する定数値をグループ化して名前を付ける機能である。 
 
<syntaxhighlight lang="vb">
Private Enum ColorType
Red = 1
Blue = 2
Green = 3
End Enum

Private Sub EnumExample()
Dim myColor As ColorType

myColor = Blue

Select Case myColor
Case Red
Debug.Print "赤が選択されました"
Case Blue
Debug.Print "青が選択されました"
Case Green
Debug.Print "緑が選択されました"
End Select
End Sub
</syntaxhighlight>
 

== 型変換 ==
* CInt関数
*: 整数型に変換
* CLng関数
*: 長整数型に変換
* CSng関数
*: 単精度浮動小数点型に変換
* CDbl関数
*: 倍精度浮動小数点型に変換
* CStr関数
*: 文字列型に変換
* CBool関数
*: 論理型に変換
* CDate関数
*: 日付型に変換
 
※注意 
変換時にデータが範囲外の場合はエラーが発生する。 
数値から文字列への変換は、<code>Str</code>関数と<code>CStr</code>関数で動作が異なる。 
 
また、変換前にデータの妥当性の確認を行うことが推奨される。 
 
<syntaxhighlight lang="vb">
Dim strNumber As String
Dim intValue As Integer
Dim dblValue As Double

strNumber = "123"
intValue = CInt(strNumber) ' 文字列から整数へ
dblValue = CDbl("123.45") ' 文字列から倍精度へ

Debug.Print Str(intValue) ' 数値から文字列へ
Debug.Print CStr(dblValue) ' 数値から文字列へ
</syntaxhighlight>
 

{{#seo:
|title={{PAGENAME}} : Exploring Electronics and SUSE Linux | MochiuWiki
|keywords=MochiuWiki,Mochiu,Wiki,Mochiu Wiki,Electric Circuit,Electric,pcb,Mathematics,AVR,TI,STMicro,AVR,ATmega,MSP430,STM,Arduino,Xilinx,FPGA,Verilog,HDL,PinePhone,Pine Phone,Raspberry,Raspberry Pi,C,C++,C#,Qt,Qml,MFC,Shell,Bash,Zsh,Fish,SUSE,SLE,Suse Enterprise,Suse Linux,openSUSE,open SUSE,Leap,Linux,uCLnux,Podman,電気回路,電子回路,基板,プリント基板
|description={{PAGENAME}} - 電子回路とSUSE Linuxに関する情報 | This page is {{PAGENAME}} in our wiki about electronic circuits and SUSE Linux
|image=/resources/assets/MochiuLogo_Single_Blue.png
}}

__FORCETOC__
[[カテゴリ:その他]]