質問編集履歴
2
ソースコード挿入 必要ない変数削除 変数をわかりやすいものに変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,13 +20,123 @@
|
|
|
20
20
|
|
|
21
21
|
勉強中なので他にもいい方法があればご教示いただけますと幸いです。宜しくお願いいたします。
|
|
22
22
|
|
|
23
|
+
```VB.NET
|
|
24
|
+
|
|
25
|
+
Public Class Form3
|
|
26
|
+
|
|
27
|
+
Dim rand As New System.Random()
|
|
28
|
+
|
|
29
|
+
Dim cnt As Integer
|
|
30
|
+
|
|
31
|
+
Dim m As Integer
|
|
32
|
+
|
|
33
|
+
Dim i1 As Integer
|
|
34
|
+
|
|
35
|
+
Dim SSR As String() = {"SSR ゼウス", "SSR ヴァルキリー", "SSR パンドラ"}
|
|
36
|
+
|
|
37
|
+
Dim SR As String() = {"SR サキュバス", "SR スフィンクス", "SR マナ"}
|
|
38
|
+
|
|
39
|
+
Dim N As String() = {"N スライム", "N スライムベス", "N ももんじゃ"}
|
|
40
|
+
|
|
23
|
-
|
|
41
|
+
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
42
|
+
|
|
43
|
+
Label1.Text = "" '初期化ボタン
|
|
44
|
+
|
|
45
|
+
Me.Button1.Enabled = True
|
|
46
|
+
|
|
47
|
+
cnt = 0
|
|
48
|
+
|
|
49
|
+
End Sub
|
|
24
50
|
|
|
25
51
|
|
|
26
52
|
|
|
27
|
-
|
|
53
|
+
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
28
54
|
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
i1 = 0
|
|
58
|
+
|
|
59
|
+
m = rand.Next(0, 3)
|
|
60
|
+
|
|
61
|
+
i1 = rand.Next(0, 100)
|
|
62
|
+
|
|
63
|
+
If cnt <> 9 Then '最初の1～9連目はNからSSRを乱数で出力 SSR 3% SR 7% N 90%
|
|
64
|
+
|
|
65
|
+
For i = 0 To 100
|
|
66
|
+
|
|
67
|
+
If i = i1 And (i >= 0 And i < 3) Then
|
|
68
|
+
|
|
69
|
+
Label1.Text = Label1.Text + SSR(m) & vbCrLf '今現在は配列SSR,SR,Nに登録してあるモンスターの名前を出力
|
|
70
|
+
|
|
71
|
+
ElseIf i = i1 And (i >= 3 And i < 10) Then
|
|
72
|
+
|
|
29
|
-
|
|
73
|
+
Label1.Text = Label1.Text + SR(m) & vbCrLf
|
|
74
|
+
|
|
75
|
+
ElseIf i = i1 And (i >= 10 And i < 100) Then
|
|
76
|
+
|
|
77
|
+
Label1.Text = Label1.Text + N(m) & vbCrLf
|
|
78
|
+
|
|
79
|
+
End If
|
|
80
|
+
|
|
81
|
+
Next i
|
|
82
|
+
|
|
83
|
+
End If
|
|
84
|
+
|
|
85
|
+
If cnt = 9 Then '最後の10連目はSR以上確定 SSR 3% SR 97%
|
|
86
|
+
|
|
87
|
+
i1 = 0
|
|
88
|
+
|
|
89
|
+
m = rand.Next(0, 3)
|
|
90
|
+
|
|
91
|
+
i1 = rand.Next(0, 100)
|
|
92
|
+
|
|
93
|
+
For i = 0 To 100
|
|
94
|
+
|
|
95
|
+
If i = i1 And (i >= 0 And i < 3) Then
|
|
96
|
+
|
|
97
|
+
Label1.Text = Label1.Text + SSR(m) & vbCrLf
|
|
98
|
+
|
|
99
|
+
ElseIf i = i1 Then
|
|
100
|
+
|
|
101
|
+
Label1.Text = Label1.Text + SR(m) & vbCrLf
|
|
102
|
+
|
|
103
|
+
End If
|
|
104
|
+
|
|
105
|
+
Next i
|
|
106
|
+
|
|
107
|
+
Me.Button1.Enabled = False
|
|
108
|
+
|
|
109
|
+
End If
|
|
110
|
+
|
|
111
|
+
cnt = cnt + 1
|
|
112
|
+
|
|
113
|
+
End Sub
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
118
|
+
|
|
119
|
+
Label1.Text = ""
|
|
120
|
+
|
|
121
|
+
Me.Button1.Enabled = True
|
|
122
|
+
|
|
123
|
+
cnt = 0
|
|
124
|
+
|
|
125
|
+
End Sub
|
|
126
|
+
|
|
127
|
+
|
|
128
|
+
|
|
129
|
+
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
130
|
+
|
|
131
|
+
Me.Close() '閉じる
|
|
132
|
+
|
|
133
|
+
End Sub
|
|
134
|
+
|
|
135
|
+
|
|
136
|
+
|
|
137
|
+
End Class
|
|
138
|
+
|
|
139
|
+
```
|
|
30
140
|
|
|
31
141
|
今後種類を増やしますが、今のところこの配列から乱数でキャラクター名を出力しています。
|
|
32
142
|
|
1
ソースコード、その他説明の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -19,3 +19,15 @@
|
|
|
19
19
|
|
|
20
20
|
|
|
21
21
|
勉強中なので他にもいい方法があればご教示いただけますと幸いです。宜しくお願いいたします。
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
上が現在作っているガチャ部分のコードです。
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
今後種類を増やしますが、今のところこの配列から乱数でキャラクター名を出力しています。
|
|
32
|
+
|
|
33
|
+
乱数でSSRのゼウスが選ばれたときにどこかからゼウスの画像を持ってきて表示したいと考えています。配列を使えばできそうと考えましたが、どのようにSSR(0)が選ばれたときに該当画像を出力するかわかりませんでした。
|