質問編集履歴
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,15 +1,41 @@
|
|
|
1
|
+
プログラムとしては自動券売機を作りたいと思ってます
|
|
2
|
+
______________________________
|
|
3
|
+
|
|
1
|
-
|
|
4
|
+
public structure DBField
|
|
2
5
|
Dim name As String
|
|
3
6
|
Dim price As integer
|
|
4
7
|
End structure
|
|
5
8
|
Dim h As DBField
|
|
6
9
|
|
|
7
10
|
という構造体をつくりました。
|
|
11
|
+
______________________________
|
|
8
12
|
|
|
13
|
+
そしてform_loadに
|
|
14
|
+
with h(0)
|
|
15
|
+
.name='コーラ'
|
|
16
|
+
.price=150
|
|
17
|
+
end with
|
|
9
18
|
|
|
19
|
+
...
|
|
20
|
+
|
|
21
|
+
with h(5)
|
|
22
|
+
.name='みかんじゅーす'
|
|
23
|
+
.price=100
|
|
24
|
+
end with
|
|
25
|
+
|
|
26
|
+
のように6個の情報をいれる？とします
|
|
27
|
+
______________________________
|
|
28
|
+
|
|
29
|
+
FormにButtonを１個配置して、それを押した時
|
|
30
|
+
構造体のなかにある6個のジュースのうち
|
|
31
|
+
3つをとりだして、Buttonの処理のなかで使いたいです
|
|
32
|
+
|
|
33
|
+
またそれを3つのうちランダムで出したいと考えてるので
|
|
34
|
+
配列に3つの情報をいれて、乱数を使いたいと思ってます
|
|
35
|
+
|
|
10
36
|
Buttonを押した時に構造体の中身にいれてる
|
|
11
37
|
nameとpriceを、Button内で作った配列に
|
|
12
38
|
代入することはできないんでしょうか。
|
|
13
|
-
|
|
39
|
+
_____________________________
|
|
14
40
|
|
|
15
41
|
わかりにくくてすいません。
|