スポンサーリンク

抽選機を作りひなフェスユニットを作成した

ハロプロひなフェス, ハロプロ

スポンサーリンク
1名無し募集中。。。2025/03/18(火) 14:04:24.20
プログラムで抽選機を作った

初日 ソロ 上村麗菜
トリオ 平井美葉 後藤花  為永幸音
カルテット 川名凜 土居楓奏 井上玲音 山﨑愛生

2日目 ソロ 前田こころ
デュオ 北原もも 牧野真莉愛
クインテット 橋田歩果 小野田華凜 井上春華 羽賀朱音 豫風瑠乃

3日目 ソロ 川嶋美楓
デュオ 広本瑠璃 島川波菜
クインテット 吉田姫杷 広本瑠璃 小野田紗栞 石井泉羽 伊勢鈴蘭

4日目 ソロ 斉藤円香 
トリオ 里吉うたの 生田衣梨奈 工藤由愛
カルテット 筒井澪心 段原瑠々 松永里愛 西田汐里

2名無し募集中。。。2025/03/18(火) 14:05:25.24
伊勢当選の運をこっちで使ってしまって泣ける
来年もダメだな
4名無し募集中。。。2025/03/18(火) 14:06:33.23
>>1
これが現実と比較して違和感がないならば
ひなフェスの抽選は忖度ではなく
ガチという結論になる
5名無し募集中。。。2025/03/18(火) 14:09:25.50
なんか生々しくてワロタ
6名無し募集中。。。2025/03/18(火) 14:09:46.25
ここでも羽賀入ってくるのかよ
7名無し募集中。。。2025/03/18(火) 14:11:19.76
厳正に抽選した証拠がない
10名無し募集中。。。2025/03/18(火) 14:14:14.47
>>7 コードの一部

Sub RandomNumbersToColumns()
Dim numbers(1 To 68) As Integer
Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim rndIndex As Integer

For i = 1 To 68
numbers(i) = i
Next i

Randomize
For i = 68 To 2 Step -1
rndIndex = Int(Rnd * i) + 1
temp = numbers(i)
numbers(i) = numbers(rndIndex)
numbers(rndIndex) = temp
Next i

For i = 1 To 32
Cells(1, i).Value = numbers(i)
Next i
End Sub

8名無し募集中。。。2025/03/18(火) 14:12:51.97
れらが当たるとほのが当たらない世界
9名無し募集中。。。2025/03/18(火) 14:13:58.92
人間が乱数見るとどうしても意味を見出しちゃうからな
恐らく公正なんだろう
11名無し募集中。。。2025/03/18(火) 14:17:28.57
こういう実証実験は面白い

スポンサーリンク


12名無し募集中。。。2025/03/18(火) 14:18:57.93
羽賀が強すぎて草
神に選ばれし女
13名無し募集中。。。2025/03/18(火) 14:20:30.46
乱数のシーディングしてないな
14名無し募集中。。。2025/03/18(火) 14:23:00.60
ひなフェス抽選ユニットジェネレータってありそうでなかったな
15名無し募集中。。。2025/03/18(火) 14:23:22.95
>>1
4日目のカルテットがエグいな
16名無し募集中。。。2025/03/18(火) 14:23:44.40
>>1が抽選しても当たる羽賀よ
17名無し募集中。。。2025/03/18(火) 14:33:22.18
広本が重複してる
18名無し募集中。。。2025/03/18(火) 14:34:05.10
ああ本当だな
直して再抽選してみて
19名無し募集中。。。2025/03/18(火) 14:50:34.14
新井式廻轉抽籤器
20名無し募集中。。。2025/03/18(火) 14:53:43.86
即ちガラポン
21名無し募集中。。。2025/03/18(火) 15:07:23.73
>>1
4日目カルテットの贅沢感というか無駄遣い感というか
22名無し募集中。。。2025/03/18(火) 15:09:34.03
凡庸なプロデューサーは
2日目デュオにGAMをやらせる

スポンサーリンク


23名無し募集中。。。2025/03/18(火) 15:17:00.75
>>1
るるれいゆめりあいみっぷるってwwやりすぎだろwww
24名無し募集中。。。2025/03/18(火) 15:46:27.01
これプログラム作らなくても初日ソロ~トリオ~カルテットみたいにメンバー無作為に選んで埋めていっても公正さは保たれるよね
抽選王とかでやってみるか
25究極完全体グレートモス ◆iQsoG48/SPVe 2025/03/18(火) 15:59:21.38
>>1
すまんがこっちのほうがみたい
こっちだったら30日夜参加したぞ
26名無し募集中。。。2025/03/18(火) 16:17:58.55
俺がくじ引きした場合

初日 ソロ 松本わかな
トリオ 生田衣梨奈 後藤花 小林萌花
カルテット 工藤由愛 里吉うたの 八木栞 上村麗菜

2日目 ソロ 高瀬くるみ
デュオ 橋田歩果 羽賀朱音
クインテット 弓桁朱琴 平山遊季 遠藤彩加里 筒井澪心 相馬優芽

3日目 ソロ 石井泉羽
デュオ 豫風瑠乃 広本瑠璃
クインテット 山﨑愛生 川名凜 下井谷幸穂 江端妃咲 前田こころ 

4日目 ソロ 江口紗耶
トリオ 窪田七海 為永幸音 小野田紗栞
カルテット 牧野真莉愛 横山玲奈 石山咲良 中山夏月姫 

30究極完全体グレートモス ◆iQsoG48/SPVe 2025/03/18(火) 16:54:35.31
>>26
伊勢ここでも入ってないのかよ
かわいそすぎるな
33名無し募集中。。。2025/03/18(火) 17:32:30.30
>>26







27名無し募集中。。。2025/03/18(火) 16:23:22.00
また羽賀が入っている
28名無し募集中。。。2025/03/18(火) 16:25:16.01
だれがやっても入ってくるのかもな
29名無し募集中。。。2025/03/18(火) 16:51:48.96
羽賀強すぎて大草原
31名無し募集中。。。2025/03/18(火) 17:03:28.68
BASICわろた
32名無し募集中。。。2025/03/18(火) 17:27:30.06
俺もやってみたがねちん追い出しに成功したぞ
全員分引くのはめんどくさかったので枠に入れていく仕組みで

1-1 小林萌花
米村姫良々 橋田歩果 川嶋美楓
植村葉純 斉藤円香 島川波菜 豫風瑠乃

1-2 秋山眞緒
松永里愛 下井谷幸穂
高瀬くるみ 相馬優芽 橋迫鈴 吉田姫杷 前田こころ

2-1 北原もも
西田汐里 中山夏月姫
河西結心 横山玲奈 有澤一華 小野田紗栞 山﨑愛生

2-2 伊勢鈴蘭
岡村美波 上村麗菜 石井泉羽
生田衣梨奈 後藤花 川名凜 松原ユリヤ

モ3ア5ジ3つ5ビ5オ4ロ7

34名無し募集中。。。2025/03/18(火) 17:32:52.03
羽賀が出てこなくなるまで何回回したんだよ
35名無し募集中。。。2025/03/18(火) 18:01:27.22
なんかガチだからこそのしょうもなさなのかもしれん
36名無し募集中。。。2025/03/18(火) 18:32:04.97
ついに羽賀がヤラセじゃないことが証明されてしまったのか…

引用元:https://kizuna.5ch.net/test/read.cgi/morningcoffee/1742274264

スポンサーリンク