PowerPoint プレゼンテーション
|
|
- れれ しのしま
- 5 years ago
- Views:
Transcription
1 配列とコレクション
2 配列の使い方 固定配列 動的配列 コレクションの使い方 今日の目的
3 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long
4 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 配列の最小範囲と最大範囲を指定この場合は下記のような要素 arybuf(0), arybuf(1), arybuf(2) arybuf(3), arybuf(4), arybuf(5)
5 固定配列の宣言例 最小範囲を省略することもできる Dim arybuf(5) As Long
6 固定配列の宣言例 最小範囲を省略することもできる Option Base 1 Dim arybuf(5) As Long 1~5 になる Option Base 0 * 省略した場合と同じ動き Dim arybuf(5) As Long 0~5 になる
7 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 最小範囲と最大範囲は明示しとこう
8 固定配列の宣言例 Const lmax As Long = 5 Dim arybuf(0 To lmax) As Long 範囲には定数をしていできる ( 変数はダメ )
9 固定配列の使用例 Const lmax As Long = 5 Dim arybuf(0 To lmax) As Long Dim i As Long For i = LBound(aryBuf) To UBound(aryBuf) Debug.Print i & ":" & arybuf(i) Next i
10 固定配列の使用例 Const lmax As Long = 5 Dim arybuf(0 To lmax) As Long Dim i As Long For i = LBound(aryBuf) To UBound(aryBuf) Debug.Print i & ":" & arybuf(i) Next i LBound() は配列の下限を取得するこの場合は 0 がかえる
11 固定配列の使用例 Const lmax As Long = 5 Dim arybuf(0 To lmax) As Long Dim i As Long For i = LBound(aryBuf) To UBound(aryBuf) Debug.Print i & ":" & arybuf(i) Next i UBound() は配列の上限を取得するこの場合は 5 がかえる
12 固定配列の使用例 Const lmax As Long = 5 Dim arybuf(0 To lmax) As Long Dim i As Long For i = LBound(aryBuf) To UBound(aryBuf) Debug.Print i & ":" & arybuf(i) Next i
13 多次元配列の宣言例 Dim arybuf(0 To 5, 0 To 1) As String 次元をコンマで区切って宣言できる最高で 60 次元までできる
14 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i &, & j & ":" & arybuf(i, j) Next j Next i
15 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i &, & j & ":" & arybuf(i, j) Next j Next i LBound,UBound の第二引数に次元を指定することで その次元の下限 上限を取得できる
16 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i & ", & j & ":" & arybuf(i, j) Next j Next i 1 次元目の下限を求める 0 になる
17 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i & ", & j & ":" & arybuf(i, j) Next j Next i 1 次元目の上限を求める 5 になる
18 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i & ", & j & ":" & arybuf(i, j) Next j Next i 2 次元目の下限を求める 0 になる
19 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i & ", & j & ":" & arybuf(i, j) Next j Next i 2 次元目の上限を求める 1 になる
20 多次元配列の使用例 Dim arybuf(0 To 5, 0 To 1) As String Dim i As Long Dim j As Long For i = LBound(aryBuf, 1) To UBound(aryBuf, 1) For j = LBound(aryBuf, 2) To UBound(aryBuf, 2) Debug.Print i & ","; j & ":" & arybuf(i, j) Next j Next i
21 動的配列動的配列を宣言すると コードの実行中に配列の サイズを変更できる
22 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To lmax) As String
23 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To lmax) As String
24 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To lmax) As String
25 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To 0) As String arybuf(0) = ゆっくりしていってね ReDim arybuf(0 To lmax) As String
26 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To 0) As String arybuf(0) = ゆっくりしていってね ReDim arybuf(0 To lmax) As String
27 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To 0) As String arybuf(0) = ゆっくりしていってね ReDim Preserve arybuf(0 To lmax) As String
28 動的配列の例 Dim arybuf() As String lmax = 5 ' 動的配列では変数での範囲指定が可能 ReDim arybuf(0 To 0) As String arybuf(0) = ゆっくりしていってね ReDim Preserve arybuf(0 To lmax) As String
29 動的配列の例 Dim arybuf() As String ReDim arybuf(0 To 5, 0 To 1) As String arybuf(0, 0) = " オプーナ ザ ワゴン ReDim Preserve arybuf(0 To 6, 0 To 1) As String
30 動的配列の例 Dim arybuf() As String ReDim arybuf(0 To 5, 0 To 1) As String arybuf(0, 0) = " オプーナ ザ ワゴン ReDim Preserve arybuf(0 To 6, 0 To 1) As String
31 動的配列の例 Dim arybuf() As String ReDim arybuf(0 To 5, 0 To 1) As String arybuf(0, 0) = " オプーナ ザ ワゴン ReDim Preserve arybuf(0 To 5, 0 To 2) As String
32
33 動的配列の解放 Eraseステートメントを使用する Erase 動的配列 メモリの解放 配列を再度しようするには ReDim が必要 Erase 固定配列 要素の再初期化
34 Const lmax As Long = 5 Dim arydyn() As String Dim aryfix(0 To lmax) As String ReDim arydyn(0 To lmax) As String arydyn(0) = " オプーナ aryfix(0) = arydyn(0) ~ 略 ( 要素を埋めます ) ~ Debug.Assert false Erase aryfix Erase arydyn Debug.Assert false
35 Const lmax As Long = 5 Dim arydyn() As String Dim aryfix(0 To lmax) As String ReDim arydyn(0 To lmax) As String arydyn(0) = " オプーナ aryfix(0) = arydyn(0) ~ 略 ( 要素を埋めます ) ~ Debug.Assert false Erase aryfix Erase arydyn Debug.Assert false
36 Const lmax As Long = 5 Dim arydyn() As String Dim aryfix(0 To lmax) As String ReDim arydyn(0 To lmax) As String arydyn(0) = " オプーナ aryfix(0) = arydyn(0) ~ 略 ( 要素を埋めます ) ~ Debug.Assert false Erase aryfix Erase arydyn Debug.Assert false
37 Const lmax As Long = 5 Dim arydyn() As String Dim aryfix(0 To lmax) As String ReDim arydyn(0 To lmax) As String arydyn(0) = " オプーナ aryfix(0) = arydyn(0) ~ 略 ( 要素を埋めます ) ~ Debug.Assert false Erase aryfix Erase arydyn Debug.Assert false
38 Const lmax As Long = 5 Dim arydyn() As String Dim aryfix(0 To lmax) As String ReDim arydyn(0 To lmax) As String arydyn(0) = " オプーナ aryfix(0) = arydyn(0) ~ 略 ( 要素を埋めます ) ~ Debug.Assert false Erase aryfix Erase arydyn Debug.Assert false
39 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String Debug.Print LBound(aryDyn) ~ 略 ( 要素を埋めます ) ~ Erase arydyn Debug.Print LBound(aryDyn)
40 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String Debug.Print LBound(aryDyn) ~ 略 ( 要素を埋めます ) ~ Erase arydyn Debug.Print LBound(aryDyn)
41 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String Debug.Print LBound(aryDyn) ~ 略 ( 要素を埋めます ) ~ Erase arydyn Debug.Print LBound(aryDyn)
42 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String ~ 略 ( 要素を埋めます ) ~ Erase arydyn Debug.Print Lbound(aryDyn)
43 Private Function IsAllocatedArray (ByRef ary() As String) On Error GoTo ErrCatch: Dim i As Long i = LBound(ary) IsAllocatedArray = True Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext End If IsAllocatedArray= False End Function
44 Private Function IsArrocatedArray(ByRef ary() As String) On Error GoTo ErrCatch: Dim i As Long i = LBound(ary) IsArrocatedArray = True Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext End If IsArrocatedArray = False End Function
45 Private Function IsAllocatedArray (ByRef ary() As String) On Error GoTo ErrCatch: Dim i As Long i = LBound(ary) IsAllocatedArray= True Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext End If IsAllocatedArray = False End Function LBound がエラーではない = 配列として使用できる
46 Private Function IsAllocatedArray (ByRef ary() As String) On Error GoTo ErrCatch: Dim i As Long i = LBound(ary) IsAllocatedArray= True Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext End If IsAllocatedArray= False End Function LBound がエラー ErrCatch ラベルへ飛ぶ
47 Private Function IsAllocatedArray (ByRef ary() As String) On Error GoTo ErrCatch: インデックス範囲外の Dim i As Long エラーじゃなければ i = LBound(ary) そのエラーを再度発生させ IsArrocatedArray = True る Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext End If IsAllocatedArray = False End Function
48 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String ~ 略 ( 要素を埋めます ) ~ Debug.Print IsAllocatedArray (arydyn) Erase arydyn Debug.Print IsAllocatedArray (arydyn)
49 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String ~ 略 ( 要素を埋めます ) ~ Debug.Print IsAllocatedArray (arydyn) Erase arydyn Debug.Print IsAllocatedArray (arydyn)
50 Const lmax As Long = 5 Dim arydyn() As String ReDim arydyn(0 To lmax) As String ~ 略 ( 要素を埋めます ) ~ Debug.Print IsArrocatedArray(aryDyn) Erase arydyn Debug.Print IsArrocatedArray(aryDyn)
51 Const lmax As Long = 5 Dim arydynlng() As Long ReDim arydynlng(0 To lmax) As Long ~ 略 ( 要素を埋めます ) ~ Debug.Print IsAllocatedArray (arydynlng) Erase arydynlng Debug.Print IsAllocatedArray (arydynlng) 動的配列の型を変えると型の不一致エラーになる
52 Private Function IsAllocatedArray (ByRef ary As Variant) On Error GoTo ErrCatch: Dim i As Long i = LBound(ary) IsAllocatedArray= True Exit Function ErrCatch: If err.number <> 9 Then err.raise err.number, err.source, err.description, err.helpfile, err.helpcontext ary As Variant End If IsAllocatedArray= False End Function 引数の変更 ary() As String
53 Const lmax As Long = 5 Dim arydynlng() As Long ReDim arydynlng(0 To lmax) As Long ~ 略 ( 要素を埋めます ) ~ Debug.Print IsAllocatedArray (arydynlng) Erase arydynlng Debug.Print IsAllocatedArray (arydynlng) 引数を Variant にすると予定通り動作する
54
55 Variant 型に配列を格納 Dim arybuf(0 To 5) As String arybuf(0) = " オプーナ ザ ワゴン Dim v As Variant v = arybuf For i = LBound(v) To UBound(v) Debug.Print i & ":" & v(i) Next i Variant 型の変数に配列を代入すると 配列として普通に使えるようになります
56 配列の使い方 固定配列 動的配列 コレクションの使い方 今日の目的
57 コレクション 異なる型やオブジェクトを格納できる 各要素の追加 削除が容易 連想配列としても使用できる
58 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
59 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
60 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
61 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
62 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
63 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
64 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
65 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
66 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
67 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim vdata As Variant For Each vdata In cll Debug.Print TypeName(vData) & ":" & vdata Next Set cll = Nothing
68 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) バリアント型に一端格納しないパターンの例 Call cll.add(sheet1.cells(1, 1)) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
69 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
70 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
71 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.add( ゆっくりしていってね, Before:=1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing Before:=x とすることで要素 x の前に新しい要素を追加する
72 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.add( ゆっくりしていってね, Before:=1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
73 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.add( ゆっくりしていってね, After:=1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing After:=x とすることで要素 x の後に新しい要素を追加する
74 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.add( ゆっくりしていってね, After:=1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
75 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.remove( 1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing Remove メソッドを使用することで指定の要素を削除できる
76 Dim cll As New Collection Call cll.add(" オプーナ ") Call cll.add(#1/3/2008 3:32:00 AM#) Call cll.add(23432&) Call cll.add(sheet1.cells(1, 1)) Call cll.remove( 1 ) Dim i As Long For i = 1 To cll.count Debug.Print TypeName(cll.Item(i)) & ":" & cll.item(i) Next Set cll = Nothing
77 連想配列 String 型の一意のキーを指定して効果発動 プログラマはキーを元にデータの取得 削除ができる
78 Dim cll As New Collection Call cll.add(" カイジ ", " 顎 ") Debug.Print cll.item(" 顎 ") Set cll = Nothing
79 Dim cll As New Collection Call cll.add(" カイジ ", " 顎 ") Call cll.add( アカギ, 倍プッシュ ", before:=" 顎 ") Set cll = Nothing
80 Dim cll As New Collection Call cll.add(" カイジ ", " 顎 ") Call cll.add( アカギ, 倍プッシュ ", before:=" 顎 ") Call cll.add( 黒沢, 最強, after:= 倍プッシュ ") Set cll = Nothing
81 Dim cll As New Collection Call cll.add(" カイジ ", " 顎 ") Call cll.add( アカギ, 倍プッシュ ", before:=" 顎 ") Call cll.add( 黒沢, 最強, after:= 倍プッシュ ") Call cll.remove(" 最強 ") Set cll = Nothing
82 連想配列 String 型の一意のキーを指定して効果発動 プログラマはキーを元にデータの取得 削除ができる
83 Private Function HasCollectionKey(ByRef cll As Collection, _ ByVal keyname As String) As Boolean On Error GoTo ErrCatch Dim lret As Long lret = VarType(cll.Item(keyName)) HasCollectionKey = True Exit Function ErrCatch: If err.number <> 5 Then キーの存在チェック err.raise err.number, err.source, err.description, _ err.helpfile,err.helpcontext Exit Function End If HasCollectionKey = False End Function
84 Private Function HasCollectionKey(ByRef cll As Collection, _ ByVal keyname As String) As Boolean On Error GoTo ErrCatch Dim lret As Long lret = VarType(cll.Item(keyName)) HasCollectionKey = True Exit Function ErrCatch: If err.number <> 5 Then キーの存在チェック err.raise err.number, err.source, err.description, _ err.helpfile,err.helpcontext Exit Function End If HasCollectionKey = False End Function
85 Public Sub TestHasCollectionKey() Dim cll As New Collection ' キーのチェック Call cll.add(" アカギ ", " 倍プッシュ ") Debug.Print "True のはず ;" & HasCollectionKey(cll, " 倍プッシュ ") Debug.Print "False のはず ;" & HasCollectionKey(cll, " 最強 ") ' オブジェクトも検索可能 Call cll.add(sheet1, " シート 1") Debug.Print "True のはず ;" & HasCollectionKey(cll, " シート 1 ") Debug.Print "False のはず ;" & HasCollectionKey(cll, " シート 2 ") Set cll = Nothing End Sub
86 ExcelVBA006.xlsmの標準モジュール mdlarraysample サンプル 配列のサンプルプログラム mdlcollectionsample コレクションのサンプルプログラム
87 配列とコレクション
PowerPoint プレゼンテーション
プロシージャ プロシージャの種類 Subプロシージャ Functionプロシージャ Propertyプロシージャ Sub プロシージャ Subステートメント~ステートメントで囲まれる 実行はするけど 値は返さない 途中で抜けたいときは Exit Sub を行なう Public Sub はマクロの実行候補に表示される Sub プロシージャの例 Public Sub TestSubProc() Call
More informationPowerPoint プレゼンテーション
多分岐選択 条件式 If Then Else IIF Select Switch 今日の目的 Dim n As Long n = 10 If n = 10 Then 条件式 Debug.Print ゆっくりしていってね! End If 比較演算子 その他 よく使用する演算子 文字列型にたいする条件式 条件式 オブジェクト型 バリアント型に対する条件式 比較演算子 = 等しい 等しくない >=
More informationPowerPoint プレゼンテーション
ループ ループとは? ある条件を満たすまで 指定の命令を繰り返す Do... Loop For Next For Each Next While WEnd ループの種類 Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 Do Loop
More informationホームページ (URL) を開く 閉じる 益永八尋 VBA からホームページを開いたり 閉じたりします ホームページを開くはシート名 HP_Open で操作し ホームページを閉じるはシート名 "HP_Close" で操作します ホームページを開く方法はいくつかありますがここでは 1 例のみを表示します なお これは Web から入手したサンプルプログラムから使い勝手が良いように修正 追加したものです
More informationようこそゲストさんトップ最新の日記ユーザー登録ログインヘルプ CX's VBScript Diary <Visual Studio は VBScript 用の最強エデ VBScript 基礎文法最速マスター 11:50 VBScript の文法一覧です 他の言語をある程度
ようこそゲストさんトップ最新の日記ユーザー登録ログインヘルプ CX's VBScript Diary
More informationPowerPoint プレゼンテーション
定数と列挙型 定数と列挙型が なぜ必要か? 変更箇所を一箇所にまとめるため 意味をわかりやすくするため ゆっくりできない例 Dim buf( 10 ) as long Dim i as long For i = 0 to 10 buf(i) = i Next i ゆっくりできない例 Dim buf( 10 ) as long Dim i as long For i = 0 to 10 buf(i)
More informationPowerPoint プレゼンテーション
レッスン (1) あるワークシート中のあるセルを指定する Worksheets(" ワークシート名 ").Range(" セル ").Value ( 例 ) Worksheets(" データ収集 ").Range("A2").Value あるワークシートのセルから 別のワークシートのセルへ転記する Worksheets(" シート A").Range(" セル ").Value = Worksheets("
More information1/9 ページ VBA 基礎文法最速マスター VBA VBAの文法一覧です 他の言語をある程度知っている人はこれを読めばVBAの基礎をマスターしてVBAを書くことができるようになっています 簡易リファレンスとしても利用できると思いますので これは足りないと思うものがあれば教えてください 1. 基礎 Visual Basic Editor の起動 VBAはVisual Basic Editorで編集
More information.NETプログラマー早期育成ドリル ~VB編 付録 文法早見表~
.NET プログラマー早期育成ドリル VB 編 付録文法早見表 本資料は UUM01W:.NET プログラマー早期育成ドリル VB 編コードリーディング もしくは UUM02W:.NET プログラマー早期育成ドリル VB 編コードライティング を ご購入頂いた方にのみ提供される資料です 資料内容の転載はご遠慮下さい VB プログラミング文法早見表 < 基本文法 > 名前空間の定義 Namespace
More informationPowerPoint プレゼンテーション
演習課題レッスン (1) '(1) ワークシートどうしのやりとり ' ワークシート 請求書 1 から ワークシート データ収集 にデータを転記しましょう Sub example01() ' 請求書番号 ( 請求書 1のE2からデータ収集のA2へ ) Worksheets(" データ収集 ").Range("A2").Value = Worksheets(" 請求書 1").Range("E2").Value
More informationプレポスト【問題】
コース名 : 基礎から学ぶ!Excel VBA による業務の自動化 受講日 氏名 1 Excel VBA を使用するメリットとして誤っているものを 1 つ選びなさい 1. 手作業では手間のかかる作業も プログラムに記述した処理は一括して実行されるため 何段階ものメニュー操作を行う必要がなくなる 2. プログラムに書いた処理は記述どおりに実行されるため だれがいつ何回行っても確実な処理がなされ 誤動作を防ぐことができる
More informationコンピュータ概論
5.1 VBA VBA Check Point 1. 2. 5.1.1 ( bug : ) (debug) On Error On Error On Error GoTo line < line > 5.1.1 < line > Cells(i, j) i, j 5.1.1 MsgBox Err.Description Err1: GoTo 0 74 Visual Basic VBA VBA Project
More informationMicrosoft Word _VBAProg1.docx
1. VBA とマクロ 1.1 VBA とは VBA(Visual Basic for Applications) は 1997 年に Microsoft 社がマクロを作成するために開発された言語である Windows 対応のアプリケーションを開発するためのプログラミング言語 Visual Basic をもとにしているため 次のような特徴がある 1 VBA は Excel Word, Access,
More informationMicrosoft Word - ŁtŸ^‡S
付録 4 汎用版のニアミス判別ソフトウェアのソースコード汎用版のニアミス判別ソフトウェアのニアミス判別モジュールに関するソースコードを以下に示す. --------------------------------------------------------------------------------------------------------------------------------
More informationファイル操作-インターネットキャッシュ
ファイル操作 インターネット一時ファイルの保存場所 インターネットキャッシュ インターネット一時ファイルの保存場所は Internet Explorer の場合 下記の手順で確認する事が出来る 1.[ ツール ] [ インターネットオプション ] でインターネットオプション画面のダイアログを表示させる 2.[ 全般 ] タブで [ インターネット一時ファイル ] グループの [ 設定 ] をクリックすると
More informationLesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2
Excel2000VBA L e a r n i n g S c h o o l 1 Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 3 Module1:(General)- Public Sub () Dim WS As Object Dim DiffDate As Integer Dim MaxRows As Integer, CopyRows As Integer
More informationStep 1. Step 2. Step 3. Step 1. Step 2. Step 3. 1 2 3 ' Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset 'Connection 'Recordset ' cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &
More informationPowerPoint プレゼンテーション
全コース Web フォロー付!! Excel VBA 初心者の方から始められる入門コースから 基本文法が学べるベーシックや 高度なプログラミングが学べるスタンダードまでしっかりと学習できます!! 学習の流れ Excel VBA 入門 VBA 初心者の方 Excel の基本知識をお持ちの方 Excel VBA ベーシック 基本文法を理解し 読解 ( 編集 ) 能力を身につけたい方 Exce lvba
More informationsinfI2005_VBA.doc
sinfi2005_vba.doc MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 主なもの 型 型名 型宣言文字 長さ 内容 整数型 Integer % 2 バイト -32,768 32,767 長整数型 Long & 4 バイト -2,47,483,648 2,47,483,647 単精度浮動小数点数 Single 型!
More information1. 入力画面
指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する この様な場合に対応できるように汎用性の高いプログラムを作成した この場合に注意する必要があるのは
More informationICONファイルフォーマット
グラフィックス 画像フォーマットエンコーダパラメータ 様々なフォーマットで画像を保存 Bitmap クラスを用いる事でビットマップ JPEG GIF PNG 等様々なフォーマットの画像を読み込み操作する事が出来る 更に Bitmap クラスや Graphics コンテナを用いて描画処理等を施したイメージをファイルに保存する事も出来る 此の時 読み込めるフォーマット同様に保存するフォーマットを選択する事が出来る
More informationExcelVBA
EXCEL VBA REGLECASSE YU SATO 目次 はじめに 開発タブの表示 拡張子 VBEの起動と初期設定 モジュールの挿入 削除 プロジェクト モジュール プロシージャ 変数の宣言 (Dim) If~Then For~Next 応用 :If~ThenとFor~Next ボタンの作成 最後に Subプロシージャ 基本説明 セルの指定 (Range) 変数とデータ型 (String,Long)
More information1
VB 開発向け OCX プログラミング はじめに 本書は STARFAX Server SDK を利用したユーザープログラムの作成方法をご説明しています なお 本書は Visual Basic 6.0 を開発ツールとして STARFAX Server SDK OCX コントロールを使用してプログラムを作成する方を対象としています そして STARFAX Sercer SDK とユーザープログラムとのインターフェイスは
More informationCase 0 sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Case Else
Imports MySql.Data.MySqlClient Imports System.IO Public Class Form1 中間省略 Private Sub コマンドテストCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles コマンドテストCToolStripMenuItem.Click
More informationルーレットプログラム
ルーレットプログラム VB 2005 4 プログラムの概要 カジノの代表的なゲーム ルーレット を作成する 先ず GO! ボタンをクリックすると ルーレット盤上をボールが回転し 一定時間経過すると ボールが止まり 出目を表示するプログラムを作成する 出目を 1~16 大小 偶数奇数の内から予想して 予め設定した持ち点の範囲内で賭け点を決め 賭け点と出目に依り 1 点賭けの場合は 16 倍 其他は 2
More informationVBM01#解答解説# indd
業務を効率化! ExcelVBA 実践コースレポート問題集解答 解説 第 1 単位 VBM-01-1 1406 問 2~ 問 5の解答は グレーのあみかけで示しています 本レポート問題集では テキストで学習したなかでも 特に 実務でよく使われる項目や 注意が必要なポイントについて出題しています 誤った設問については 解答を確認する前に 再度プロシージャを実行してみてください エラーが発生する場合は
More informationデータアダプタ概要
データベース TableAdapter クエリを実行する方法 TableAdapter クエリは アプリケーションがデータベースに対して実行出来る SQL ステートメントやストアドプロシージャで TableAdapter で型指定されたメソッドと仕て公開される TableAdapter クエリは 所有るオブジェクトのメソッドと同様に 関連付けられたメソッドを呼び出す事に依り実行出来る TableAdapter
More informationJavaプログラミングⅠ
Java プログラミング Ⅰ 12 回目クラス 今日の講義で学ぶ内容 クラスとは クラスの宣言と利用 クラスの応用 クラス クラスとは 異なる複数の型の変数を内部にもつ型です 直観的に表現すると int 型や double 型は 1 1 つの値を管理できます int 型の変数 配列型は 2 5 8 6 3 7 同じ型の複数の変数を管理できます 配列型の変数 ( 配列変数 ) クラスは double
More informationDAOの利用
DAO VB2005 で DAO を使用して Excel のデータを取得 Visual Basic 6.0 Dim DB As DAO.Database Dim RS As DAO.Recordset Dim xlfilename As String Dim xlsheetname As String xlfilename = Form1.StatusBar1.Panels(12) & Dir(Form1.StatusBar1.Panels(12)
More information単語の比較とスペルチェック COMPARA Word のテキスト内にある単語を抽出し 異なり語のリストを作成するプログラムです また Word のテキスト内の単語 ( または単語リスト ) を 先に作成した単語リストと照合して その異同を確かめます フォーム 単語リスト単語集計同語検索異語検索同語リ
単語の比較とスペルチェック COMPARA Word のテキスト内にある単語を抽出し 異なり語のリストを作成するプログラムです また Word のテキスト内の単語 ( または単語リスト ) を 先に作成した単語リストと照合して その異同を確かめます フォーム 単語リスト単語集計同語検索異語検索同語リスト異語リスト和文大小文字区別新文書照合リスト実行 テキストまたはリストにある単語 ( 異なり語 )
More information1. 入力画面
指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する また 月に 1 回 毎週 1 回定期的または不定期的にある時刻になれば指定したプログラムを実行させる
More information94 expression True False expression FalseMSDN IsNumber WorksheetFunctionIsNumberexpression expression True Office support.office.com/ja-jp/ S
Excel VBA a Excel VBA VBA IsNumeric IsNumber SpecialCells SpecialCells MSDNMicrosoft Developer NetworkIsNumeric IsNumber SpecialCells IsNumeric VBA IsNumericexpression SpecialCells 94 expression True False
More informationPowerPoint プレゼンテーション
エクセルが自動化する マクロ VBA の魔法 4 大量ファイルを自動処理する! ブック & シートの処理入門 第 0 章 このコースの進め方 ゴール設定 サンプルマクロの体験 エクセル兄さんの マクロ VBA 講座シリーズでの位置づけ シリーズ 2,500 人以上が受講 ( 収録時点 ) 第 1 弾 超入門ショートマクロ編小さな作業を自動化 第 2 弾 脱入門請求書マクロ編一覧表 帳票作成 第 3
More informationブロック崩し風テニス
ぱっくんフィッシング VB 2005 13 プログラムの概要 パーティゲームとして良く知られた釣りゲームです マウスで釣り糸を操作して 開閉する魚の口に餌を垂らし 魚が餌を咥えると 釣り上げ 籠の中に入れます 直ぐに口を開けて 海に逃れる魚 中々餌を離さず 籠に入らない魚と 色々なバリエーションが楽しめます 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い
More information3,, となって欲しいのだが 実際の出力結果を確認すると両方の配列とも 10, 2, 3,, となってしまっている この結果は代入後の配列 a と b は同じものになっていることを示している つまり 代入演算子 = によるの代入は全要素のコピーではなく 先をコピーする ため 代入後の a と b は
配列 2 前回には 配列の基本的な使い方と拡張 for 文について学んだ 本日は配列に付いての追加の説明として 配列のコピー 文字列配列 ガーベジコレクション 多次元配列について学んでいく 配列のコピー配列を用意し その全ての要素を別の配列にコピーすることを考える まず 以下に間違った例を示していく プログラム例 1 public class Prog07_01 int[] a = 1, 2, 3,,
More informationPublic Class Class4SingleCall Inherits MarshalByRefObject Public Sub New() End Sub Public Function OneProc(ByVal The As A SC) As A SC Dim The As New A SC The.answer = The.index * 2 + 1000 Return The End
More informationバスケットボール
バスケットボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class Basketball にゅうりょく 1 ここに入力する!
More informationアプリケーション
アプリケーション開発 お絵かきソフト 目次 お絵かきソフトを作ってみよう... 3 絵を書く枠と場所表示を作る... 3 マウスの動きを見てみよう... 4 絵を書く準備をします... 5 絵を書くとはどういうことか... 5 では線画を描いてみよう... 6 マウスをドラッグしたときだけ線を引くように改造する... 8 お絵かきソフトを作ってみよう 今回は お絵かきソフトを作ってみましょう マウスを動かして線画を書いてみましょう
More informationMicrosoft PowerPoint - vp演習課題
演習課題 (1) 27 Nov., '18 katakan2hiragana.xlsm は, 下図のように 4~8 行目の B 列に漢字で表記した氏名,C 列にカタカナで表記したヨミガナ,D 列にひらがなで表記したよみがなを表示させることを意図している. このシートは, セル範囲 "B4:B8"( 図の赤枠内 ) に, キーボードから漢字で氏名を入力すると C 列にカタカナのヨミガナが自動的に表示されるようになっている.
More information連立方程式の解法
連立方程式の解法連立方程式をエクセルを用いて解く方法は以下の 2 種類が考えられます 1) エクセルの行列関数を用いる 2) VBA でヤコビ法やガウスザイデル法を用いる ここでは両方について説明します 1) エクセルの行列関数を用いる方法エクセルは表計算ですから行と列に並んだ数値を扱うのは得意です 連立方程式は次のように行列を用いて表すことができます 連立方程式が行列形式で表されることを考慮して解法を考えてみます
More informationMS-ExcelVBA 基礎 (Visual Basic for Application)
MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 ( 主なもの ) 型型名型宣言文字長さ内容整数型 Integer % バイト -, ~, 長整数型 Long & バイト -,,, ~,,, 単精度浮動小数点数型倍精度浮動小数点数型 Single! バイト負値 : -.0E ~ -.0E- 正値 :.0E- ~.0E Double
More informationTEXTOS-S: 検索 置換 連立検索置換式を使って 資料をマークし または変形します マークと 変形を同時にすることも可能です 検索式にはリテラル ( 文字列そのもの ) ワイルドカード 正規表現が選択できます 上のテキストボックスに検索式を直接書き込むときは [Ctrl]+[Enter] を押
TEXTOS-S: 検索 置換 連立検索置換式を使って 資料をマークし または変形します マークと 変形を同時にすることも可能です 検索式にはリテラル ( 文字列そのもの ) ワイルドカード 正規表現が選択できます 上のテキストボックスに検索式を直接書き込むときは [Ctrl]+[Enter] を押してください 特殊な文字を書き込むときは Word 文書からコピーするか または Word 文書として保存した検索式をインポートします
More informationVisual Basic 資料 電脳梁山泊烏賊塾 コレクション初期化子 コレクション初期化子 初めに.NET 版の Visual Basic では 其れ迄の Visual Basic 6.0 とは異なり 下記の例の様に変数宣言の構文に 初期値を代入する式が書ける様に成った 其の際 1 の様に単一の値
コレクション初期化子 コレクション初期化子 初めに.NET 版の Visual Basic では 其れ迄の Visual Basic 6.0 とは異なり 下記の例の様に変数宣言の構文に 初期値を代入する式が書ける様に成った 其の際 1 の様に単一の値 ( 此処では 10) を代入する丈でなく 2 の配列変数の宣言の様に ブレース { } の中にカンマ区切りで初期値のリストを記述し 配列の各要素に初期値を代入出来る様に成った
More information構造体
構造体 Byte 配列 構造体とコピーする方法 構造体とバイト配列の変換を行うには System.Runtime.InteropServices 名前空間をインポートして置くと便利で有る Imports System.Runtime.InteropServices using System.Runtime.InteropServices; 下記の 3 種類の構造体にバイト配列の値を格納した場合に付いて検証する
More informationuntitled
StiLL StiLL Excel VBA IT Excel2000 2003 StiLL StiLL! Excel2007 StiLL -- -- Excel!!!! DB CSV VBA VBA ' VBA Public Sub SampleProgramDAO1() Dim SheetName As String Dim strname As String SheetName = "Sheet2"
More informationAPI 連携方式 外部 DLL の呼び出し宣言 外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要 クラスの内部に以下のような外部 D
GS1-128 の描画 DLL について (ver. 2.2) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります 使用条件 プリンタの解像度 300dpi 以上 機能 バーコードの基本幅を 1 ドット単位で指定できる
More informationASP.NET 2.0 Provider Model 概要
ASP.NET 2.0 Provider Model 概要 Agenda ASP.NET 2.0 Provider Model とは カスタムプロバイダの実装 まとめ ASP.NET 2.0 Provider Model とは ASP.NET 2.0 のインフラストラクチャ データストアへのアクセスをアプリケーションロジックから分離 データストアの変更に柔軟に対応 Strategy パターン デザインパターンによる意識の共通化
More information1.dll の配置場所配布時はプログラムの実行フォルダーへ配置 2. 開発環境での使用 プロジェクトのプロパティーで [USBPIO.dll] を参照追加してください 開発環境 dll ファイルの場所 VB.Net Express Edition 境プロジェクトのフォルダ \bin\release VB.Netebugビルドの場合プロジェクトのフォルダ \bin\debug VB.Net Releaseビルドの場合プロジェクトのフォルダ
More informationLogisticaTRUCKServer-Ⅱ距離計算サーバ/Active-Xコントロール/クライアント 概略
- LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API.NET DLL WebForms ASP.NET サンフ ルフ ロク ラム - 1 - LogisticaTRUCKServer-Ⅱ 距離計算サーハ.NET DLL WebForm ASP.NET VisualBasic での利用方法 LogisticaTRUCKServer-Ⅱ 距離計算.NET
More informationMicrosoft PowerPoint - 09.pptx
情報処理 Ⅱ 第 9 回 2014 年 12 月 22 日 ( 月 ) 関数とは なぜ関数 関数の分類 自作関数 : 自分で定義する. ユーザ関数 ユーザ定義関数 などともいう. 本日のテーマ ライブラリ関数 : 出来合いのもの.printf など. なぜ関数を定義するのか? 処理を共通化 ( 一般化 ) する プログラムの見通しをよくする 機能分割 ( モジュール化, 再利用 ) 責任 ( あるいは不具合の発生源
More information第 3 回 Java 講座 今回の内容 今週の Java 講座はコレクション 拡張 for 文, ガベージコレクションについて扱う. 今週の Java 講座は一番内容が薄いも のになるだろう. コレクション コレクションとは大きさが決まっていない配列だと考えればよい. コレクションには List 先
第 3 回 Java 講座 今回の内容 今週の Java 講座はコレクション 拡張 for 文, ガベージコレクションについて扱う. 今週の Java 講座は一番内容が薄いも のになるだろう. コレクション コレクションとは大きさが決まっていない配列だと考えればよい. コレクションには List 先頭の要素要素から最後までが直線的に直結している構造 Set 同じものは含まないという構造. 要素間につながりはない
More informationD0050.PDF
Excel VBA 6 3 3 1 Excel BLOCKGAME.xls Excel 1 OK 2 StepA D B1 B4 C1 C2 StepA StepA Excel Workbook Open StepD BLOCKGAME.xls VBEditor ThisWorkbook 3 1 1 2 2 3 5 UserForm1 4 6 UsorForm2 StepB 3 StepC StepD
More informationファイル操作-バイナリファイル
ファイル操作 バイナリ ファイルを読み書きする バイナリファイル ( 即ちテキストファイル以外のファイル ) を読み書きするには FileStream クラス (System.IO 名前空間 ) を利用する FileStream クラスはファイル用のストリームをサポートするクラスで有り Stream クラス (System.IO 名前空間 ) の派生クラスの 1 つで有る 基本的には コンストラクタで指定したファイルのストリームに対して
More informationProg2_12th
2018 年 12 月 13 日 ( 木 ) 実施クラスの継承オブジェクト指向プログラミングの基本的な属性として, 親クラスのメンバを再利用, 拡張, または変更する子クラスを定義することが出来る メンバの再利用を継承と呼び, 継承元となるクラスを基底クラスと呼ぶ また, 基底クラスのメンバを継承するクラスを, 派生クラスと呼ぶ なお, メンバの中でコンストラクタは継承されない C# 言語では,Java
More informationCONTEC DIOプロバイダ ユーザーズガイド
DIO プロバイダユーザーズガイド - 1 - DIO プロバイダ CONTEC DIO ボード Version 1.1.2 ユーザーズガイド July 17, 2012 備考 ORiN2SDK2.0.14 以降, このプロバイダは CONTEC 社の API-DIO(WDM) を使用しています. 以前 までの API-DIO(98PC) を使用する場合は,DIO98 プロバイダを使用してください.
More informationデータベース1
データベース操作プログラム Ⅲ VB20 プログラムの概要 ACCESS 等のデータベースの操作に不慣れな者でも 簡単に使用する事が出来るようなデータベースアプリケーションを目指します 今回は データグリッドをクリックする事に依り 其のレコードのフィールドデータを個別にテキストボックスやコンボボックスに表示するを付加する 此の際 カテゴリ ID や著者 ID の様に人間に解り難いデータ形式では無く
More informationUIOUSBCOM.DLLコマンドリファレンス
UIOUSBCOM.DLL UIOUSBCOM.DLL Command Reference Rev A.1.0 2008/11/24 オールブルーシステム (All Blue System) ウェブページ : www.allbluesystem.com コンタクト :contact@allbluesystem.com 1 このマニュアルについて...3 1.1 著作権および登録商標...3 1.2
More information3D回転体プログラム
3D 回転体プログラム VB 2005 4 プログラムの概要 入力画面で マウスを用いて 側面より見た平面図を描きます マウスの左ボタンをクリックする事で連続線を描き 右ボタンをクリックすると新しい線を描く事が出来る 側面図が完成すると 回転の基本角度を設定して 確定ボタンをクリックすると 平面図を立体図に座標変換する 各軸の回転角度を設定して 表示ボタンをクリックすると 立体図が表示される 各軸の回転角度を変更して
More informationMicrosoft PowerPoint ppt
独習 Java ( 第 3 版 ) 6.7 変数の修飾子 6.8 コンストラクタの修飾子 6.9 メソッドの修飾子 6.10 Object クラスと Class クラス 6.7 変数の修飾子 (1/3) 変数宣言の直前に指定できる修飾子 全部で 7 種類ある キーワード final private protected public static transient volatile 意味定数として使える変数同じクラスのコードからしかアクセスできない変数サブクラスまたは同じパッケージ内のコードからしかアクセスできない変数他のクラスからアクセスできる変数インスタンス変数ではない変数クラスの永続的な状態の一部ではない変数不意に値が変更されることがある変数
More informationLogisticaTRUCKServer-Ⅱ距離計算サーバ/Active-Xコントロール/クライアント 概略
- LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API.NET DLL WindowsForm サンフ ルフ ロク ラム - 1 - LogisticaTRUCKServer-Ⅱ 距離計算サーハ.NET DLL WindowsForm VisualBasic での利用方法 LogisticaTRUCKServer-Ⅱ 距離計算.NET DLLのサンプルプログラムの参照サンフ
More informationGS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される
GS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります 使用条件 プリンタの解像度 300dpi 以上 機能 バーコードの基本幅を 1 ドット単位で指定できる
More information0
第 4 書データベース操作 i 4.1 データベースへの接続 (1) データベースチェックポイントの追加 データベースチェックポイントを追加します (2)ODBC による接続 ODBC を使用してデータベースへ接続します SQL 文を手作業で指定する場合 最大フェッチ行数を指定する場合はここで最大行数を指定します ii 接続文字列を作成します 作成ボタンクリック > データソース選択 > データベース接続
More information情報基礎A
情報基礎 A 第 10 週 プログラミング入門 マクロ基本文法 4 1 配列 FOR~NEXT 全眞嬉 東北大学情報科学研究科システム情報科学専攻情報システム評価学分野 http://www.dais.is.tohoku.ac.jp/~jinhee/jyoho-19.html 6 人分の合計を計算 2 socre(0) socre(1) socre(2) socre(3) socre(4) socre(5)
More informationVB実用⑦ エクセル操作Ⅰ
VB でエクセル操作 Ⅰ VB 2005 7 プログラムの概要 事務処理に於いて Microsoft 社のスプレッドシートソフトで有るエクセルは データベースソフトで有るアクセスと共に 業界標準 (De Facto Standard) で有ると謂う事が出来る 此処では 其のエクセルを Visual Basic から操作する方法を 重点的に学ぶ 今回は Visual Basic でエクセルを利用する基本と成るオブジェクト生成と
More informationハッシュテーブル
ハッシュテーブル ハッシュテーブル ( 連想配列 ) を使う ハッシュテーブルとは キー (key) と値 (value) のペアを保持して居るコレクションで有る 通常の配列がインデックス番号に依り各値 ( 各要素 ) にアクセス出来るのに比べて ハッシュテーブルでは インデックス番号の代わりにキーを用いて 其の各値にアクセスする事が出来る キーと 其のキーから連想される ( 対応付けられて居る )
More information(Microsoft Word \203v\203\215\203O\203\211\203~\203\223\203O)
21113 Visual Basic を利用したフリーソフト開発 要旨 各自でフリーソフトを作成 インターネット上に公開することを目的とし Visual Basic2008 2010 を使い簡単なアプリの作成に成功した 1. 目的情報化が進んだ現代において 社会に出ていくためにはパソコンの一つや二つ 軽く扱えなければならない さらに 資源の乏しい日本においては今後 情報技術の発展することが望ましいと考える
More informationデータベース1
データベース操作プログラム Ⅱ VB9 プログラムの概要 オブジェクト型の変数宣言を行い コード上で データベースに接続し SQL を発行する 今回は オブジェクト型の変数宣言に依り データベースと接続する為のオブジェクト 及び 検索文を発行した際にデータを格納するオブジェクトを コード上で生成してデータベースに接続し 各レコードのフィールド情報を取得して 其れをコンボボックスの項目に追加する 此れに依り
More informationランボール
ランボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class runball にゅうりょく 1 ここに入力する!
More information目次 更新履歴... 1 はじめに... 3 レコードセット?... 3 準備... 5 SQL でデータを取得する... 6 データのループ処理... 7 列の値を取得する... 7 対象行を変更する (MoveFirst, MoveNext, MovePrevious, MoveLast)...
レコードセット (ADODB.Recordset) の使い方 作成日 : 2018/02/05 作成者 : 西村 更新履歴 更新日 更新概要 作業者 2018/02/05 新規作成 西村 1 目次 更新履歴... 1 はじめに... 3 レコードセット?... 3 準備... 5 SQL でデータを取得する... 6 データのループ処理... 7 列の値を取得する... 7 対象行を変更する (MoveFirst,
More information正規表現応用
正規表現 正規表現を使って文字列が或る形式と一致するか調べる 指定された正規表現のパターンと一致する対象が入力文字列内で見付かるか何うかを調べるには Regex クラスの IsMatch メソッドを使用する 此処では IsMatch メソッドを使った例を幾つか紹介する 猶 正規表現のパターンと一致する個所を探し 見付かれば 其の箇所を抽出する方法は 正規表現を使って文字列を検索し 抽出する で紹介して居る
More informationD0120.PDF
12? 1940 Stanislaw Ulam John von Neumann Cellular Automaton 2 Cellular Automata 1 0 1 2 0 1 A 3 B 1 2 3 C 10 A B C 1 ExcelVBA 1 1 1 1 0 1 1 B7 BD7 road1 B8 BD31 board 0 Road1 50 board 0 1 0 1 Excel 2 2
More informationMicrosoft PowerPoint - prog03.ppt
プログラミング言語 3 第 03 回 (2007 年 10 月 08 日 ) 1 今日の配布物 片面の用紙 1 枚 今日の課題が書かれています 本日の出欠を兼ねています 2/33 今日やること http://www.tnlab.ice.uec.ac.jp/~s-okubo/class/java06/ にアクセスすると 教材があります 2007 年 10 月 08 日分と書いてある部分が 本日の教材です
More informationブロック パニック
ブロックパニック VB 2005 9 プログラムの概要 壁が迫り来る不思議な空間のオリジナルゲーム ブロックパニック を作成する スタートボタンをクリックし上下左右の矢印キーで白猿を移動させる スペースキーを押すと 向いて居る方向の壁が後退する 左右の壁が合わさると ゲームは終了する 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い 此処では ゲームプログラムを作成する事に依り
More informationJava 基礎問題ドリル ~ メソッドを理解する ~ 次のプログラムコードに 各設問の条件にあうメソッドを追加しなさい その後 そのメソッドが正しく動作することを検証するためのプログラムコードを main メソッドの中に追加しなさい public class Practice { // ここに各設問
Java 基礎問題ドリル ~ メソッドを理解する ~ 次のプログラムコードに 各設問の条件にあうメソッドを追加しなさい その後 そのメソッドが正しく動作することを検証するためのプログラムコードを main メソッドの中に追加しなさい public class Practice { // ここに各設問のメソッドを追加する public static void main(string[] args) {
More informationプロシード
プロシード VB 2005 14 きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこ 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.IO Imports System.Drawing.Drawing2D Public Class proceed
More information回文作成支援プログラム
スロットプログラム プログラムの概要 スタートボタンをクリックすると 3 個のピクチャーボックスの絵がランダムに変化する 次にストップボタンをクリックすると 3 個のピクチャーボックスの絵が止まり 3 個の絵柄が総て揃えば あたり 2 個の絵柄が揃えば おしい 総ての絵柄が異なれば はずれ と表示される 終了ボタンをクリックすると プログラムをメモリから消去して終了する 今回の課題項目 定数の宣言
More informationcp-7. 配列
cp-7. 配列 (C プログラムの書き方を, パソコン演習で学ぶシリーズ ) https://www.kkaneko.jp/cc/adp/index.html 金子邦彦 1 本日の内容 例題 1. 月の日数配列とは. 配列の宣言. 配列の添え字. 例題 2. ベクトルの内積例題 3. 合計点と平均点例題 4. 棒グラフを描く配列と繰り返し計算の関係例題 5. 行列の和 2 次元配列 2 今日の到達目標
More informationMicrosoft PowerPoint - ruby_instruction.ppt
Ruby 入門 流れ Ruby の文法 画面に出力 キーボードから入力 数値 文字列 変数 配列 ハッシュ 制御構造 ( 分岐 繰り返しなど ) if while case for each 関数 クラス Ruby とは プログラミング言語 インタプリタ言語 オブジェクト指向 国産 ウェブアプリケーションフレームワーク RubyOnRails で注目 弊社での Web アプリケーション開発に利用 画面に出力
More informationVB 資料 電脳梁山泊烏賊塾 音声認識 System.Speech の利用 System.Speech に依るディクテーション ( 音声を文字列化 ).NetFramework3.0 以上 (Visual Studio 2010 以降 ) では 標準で System.Speech が用意されて居るの
音声認識 System.Speech の利用 System.Speech に依るディクテーション ( 音声を文字列化 ).NetFramework3.0 以上 (Visual Studio 2010 以降 ) では 標準で System.Speech が用意されて居るので 此れを利用して音声認識を行うサンプルを紹介する 下記の様な Windows フォームアプリケーションを作成する エディタを起動すると
More information6.1 工 程 管 理 (ネットワーク 工 程 表 ) 159 VBA( 実 行 結 果 例 ) 出 力 結 果 シート 出 力 結 果 を 図 に 描 くと 下 図 のようになる. 図 6.3 ネットワーク 工 程 表 ( 出 力 結 果 より 作 図 )
158 第 6 章 施 工 管 理 エクセル 例 題 6-1 ネットワーク 工 程 表 の 作 成 図 6.2 に 示 すネットワーク 工 程 表 の 作 業 時 刻, 余 裕 時 間 等 を 計 算 し,クリティ カルパスを 求 める. 図 6.2 ネットワーク 工 程 表 VBA( 実 行 結 果 例 ) データ 入 力 シート * A~K の 各 作 業 の 開 始 ノード(イベント), 終
More information回文作成支援プログラム
回文作成支援プログラム VB1 プログラムの概要 原文を 1 字入力する度に 其の回文が順次表示される 即ち AB と入力すると ABA と表示され ABC と入力すると ABCBA と表示される 亦 消去ボタンをクリックすると 原文 及び 回文を消去する事も出来る 終了ボタンをクリックすると プログラムをメモリから消去して終了する 今回の課題項目 単純変数の宣言 (Dim) 標準コントロールの利用
More informationプロセス間通信
プロセス間通信 プロセス間通信 (SendMessage) プロセス間通信とは 同一コンピューター上で起動して居るアプリケーション間でデータを受け渡し度い事は時々有る Framework には リモート処理 と謂う方法でデータの受け渡しを行なう方法が有る 此処では 此の方法では無く 従来の方法の API を使用したプロセス間通信を紹介する 此の方法は 送信側は API の SendMessage で送り
More information承 認
取扱説明書 2012/7/26 岩通計測株式会社技術部 1. 概観 編 2. 機能 DM に新しく書込れた < 指定されたスクリーン > の指定名称の ch の波形を波形領域に格納します 確認のために 所定の csv ファイルに格納します VB.net 版では
More informationcsv csv
2009 1 9 2 1. 1 2. 2 2.1......................................... 2 2.2 csv.................................... 3 2.3 csv.................................. 3 3. 4 3.1.........................................
More informationMISAO with WPF
System.AddIn を利用した アプリケーション拡張 - アドインの開発 - JZ5( 松江祐輔 )@ わんくま http://katamari.jp http://katamari.wankuma.com 2008/9/13 What s System.AddIn System.AddIn 名前空間 Visual Studio Orcus から利用可能 アプリケーションに拡張機能を提 供 なんかいろいろ特長が?
More informationJavaプログラミングⅠ
Java プログラミング Ⅰ 11 回目多次元配列 今日の講義で学ぶ内容 2 次元配列とその使い方 不規則な 2 次元配列.length 修飾子 2 次元配列 1 次元配列配列要素が直線的に並ぶ配列です次のように考えると分かりやすいでしょう 2 次元配列配列要素が平面的に並ぶ配列です次のように考えると分かりやすいでしょう 2 次元以上の配列のことを多次元配列といいます 2 次元配列の利用 2 次元配列の利用手順配列変数の宣言
More information外周部だけ矩形配列
AUTODESK INVENTOR 概要 : API を使ったプログラムで Inventor のコマンドやマクロプログラムをメニューに登録する方法を紹介します レベル : 本資料は VBA を使った Inventor のカスタマイズについての知識がある方を対象としています サンプル VBA プロジェクト : サンプル VBA プロジェクトデータ (CREATE_UI.zip) をダウンロードし 適当なフォルダに解凍します
More informationExcel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一
Excel ダッシュボードのご紹介 株式会社アイエルアイ総合研究所内藤慶一 情報系システム開発 メンテナンス 開発イノベーション ビジネスダッシュボード by Excel 概要 実務業務 マネジメントの知識 技術 経験のノウハウ + 業務データ分析 の見える化 共有化 シミュレーションを可能とし ビジネスソリューションを推進する BI システムを実現します! Excel と StiLL + Xcelsius
More informationWith sqlda sqlda に SelectCommand を追加.SelectCommand = New MySqlCommand() With.SelectCommand.CommandType = CommandType.Text.CommandText = "select * from
Imports MySql.Data.MySqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label3.Text = "MySQL のデータ表示と更新のテストを行います メニューから行いたい処理を選択して実行してください
More informationii
Excel VBA VBA 2002 ii CONTENTS 1 2 3 4 5 6 7 8 9 10 1 2 2 EXVBA2_2002 1-2 1-2.xls 12 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS =
More informationチア ダンス
チアダンス きょうつうへんすうこうぞうたいせんげん 共通の変数や構造体を宣言する せんたくひょうじ 1. ソリューションエクスプローラで CheerDance.vb を選択し コードの表示をクリックする 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.IO Public Class frmmain 1 ここに入力する! End Class Private
More informationB 5 (2) VBA R / B 5 ( ) / 34
B 5 (2) VBAR / B 5 (2014 11 17 ) / 34 VBA VBA (Visual Basic for Applications) Visual Basic VBAVisual Basic Visual BasicC B 5 (2014 11 17 ) 1 / 34 VBA 2 Excel.xlsm 01 Sub test() 02 Dim tmp As Double 03
More informationJava知識テスト問題
Java 知識テスト SDAS プログラマ(Java 編 ) 運営事務局 このテストは J2EE プログラマとしての Java の知識を評価するものです 問題は 30 問, テスト時間は J2EE 知識テストとあわせて 90 分です 問題は全て択一式です 選択肢から 1 つだけ選択してください 資料の閲覧は禁止です テストが終わり次第 答案用紙を提出していただいてかまいません テスト終了後, 本テストの内容を他の方に話さないでください
More informationEXCEL VBA講座
EXCEL VBA 講座 sheet 振り分け 目次 sheets の中身をデータによって分類する... 3 全行ループを作る... 3 各市のシートの行数を覚えておく連想配列を作る... 3 各シートにオートフィルタを掛ける... 4 変更が目に見えると遅くなる... 5 これらの処理をボタンから呼び出す... 5 現在のシートを印刷する... 6 sheets の中身をデータによって分類する 前回の練習で
More informationファイル操作
ファイル操作 TextFieldParser オブジェクト ストリームの読込と書込 Microsoft.VisualBasic.FileIO 名前空間の TextFieldParser オブジェクトは 構造化テキストファイルの解析に使用するメソッドとプロパティを備えたオブジェクトで有る テキストファイルを TextFieldParser で解析するのは テキストファイルを反復処理するのと同じで有り
More information動的串刺し計算のコツ
動 的 串 刺 し 計 算 のコツ MENU > 動 的 串 刺 し 計 算 のコツ 複 数 シートにまたがるリスト 形 式 データの 動 的 串 刺 し 計 算 を 基 本 操 作 で 考 えてみました 項 目 による 統 合 機 能 を 利 用 します 項 目 動 的 串 刺 し 計 算 のイメージ 動 的 の 意 味 は? 標 準 の 項 目 による 統 合 の 結 果 と 問 題 点 項 目
More informationD0020.PDF
n 3 X n Y n = Z n 17 1995 300 n n 2 3 2 a b c c 2 a 2 b 2 600 2000 322 3 15 2 3 580 3 1 5 4 3 2 1 300 2 1 2 1 1 ExcelVBA 2 VBA 1 VBA 2 API Sleep ExcelVBA 2 100 60 80 50 ExcelVBA API Sleep 3 100 60 (80
More informationMicrosoft Word - HowToConvertIdwToDwg.doc
IDW から DWG 形式への保存方法 1. 準備 Inventor で図面化したドキュメント (idw) を DWG 形式に変換する手順について紹介します Inventor の コピーに名前を付けて保存 の機能だけでは 画層や寸法スタイル 文字スタイルの設定が 一般的に AutoCAD Mechanical( 以下 ACM) で使われる設定と異なるため そのままでは AutoCAD や ACM で編集するには不便です
More information2013 年 8 月 14 日 管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管
管理図作成マニュアル ( 案 ) 益永八尋 Ⅰ. プログラムの概要 品質管理において必要な QC7 道具の一つである管理図作成のプログラムを作成した このプログラムは 下記の管理図を作成するものである 1 BerX-R 管理図 2Me 管理図 3X 管理図 4np 管理図 5p 管理図 6c 管理図 7u 管理図 プログラム作成に使用した文献は [ 新版 ]QC 入門講座 7 管理図の作り方と活用
More informationJAVA入門
JAVA 入門 3 配列とコレクション 配列 1. 配列とは? 簡単 JAVA 説明 11 配列 同じ型の値を複数まとめて記憶する という機能を持つもの ということですが イメージとしては 同じ型の入れ物を複数用意する というイメージです int int int 簡単 JAVA 説明 11 配列の準備 2. 配列の準備 行うことは次の 2 つです 1 配列の宣言 2 配列要素の確保 簡単 JAVA
More information