home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / sizeate / sizeate.txt < prev    next >
Encoding:
Text File  |  1994-11-14  |  2.8 KB  |  107 lines
  1. 'general部
  2. Option Explicit
  3. 'すべての変数を宣言するオプション
  4. Const MaxBast% = 110 'バストの最高値
  5. Const MinBast% = 80  'バストの最低値
  6. Const MaxWest% = 65  'ウエストの最高値
  7. Const MinWest% = 50  'ウエストの最低値
  8. Const MaxHippu% = 100 'ヒップの最高値
  9. Const MinHippu% = 80  'ヒップの最低値
  10. Dim H_Size(3) As Integer '正解サイズが納められる配列
  11. Dim MesageStr(4) As String 'メッセージ配列
  12.  
  13. '緊急非難ボタン
  14. Sub EndCom_Click ()
  15.   End '終了
  16. End Sub
  17.  
  18. 'フォームがロードされたとき
  19. Sub Form_Load ()
  20.   MesageStr(0) = "さあふりだしよ！頑張って！"
  21.   MesageStr(1) = "なかなかカンがいいわね！"
  22.   MesageStr(2) = "もうこれ以上はイケナイわ！"
  23.   MesageStr(3) = "いやーんそんなに見つめないで！"
  24.   'メッセージの代入
  25.   Me.Left = Screen.Width / 2 - Me.Width / 2 'ウインドウを出す左の位置
  26.   Me.Top = Screen.Height / 2 - Me.Height / 2'ウインドウを出す上の位置
  27.   SetStart '初期設定（プロシージャーを呼ぶ）
  28. End Sub
  29.  
  30. 'もう一回ボタン
  31. Sub NextCom_Click ()
  32.   SetStart '初期設定（プロシージャーを呼ぶ）
  33. End Sub
  34.  
  35. 'さあどうだボタン
  36. Sub OkCom_Click ()
  37.   Dim Hit As Integer, Brow As Integer'ヒットとブローの数
  38.   Dim I As Integer, J As Integer'汎用変数
  39.   Dim St As String 'メッセージに出す文字列
  40.   Hit = 0
  41.   Brow = 0
  42.   'ヒットとブローの初期化
  43.   For I = 0 To 2
  44.     If H_Size(I) = Val(MyText(I).Text) Then Hit = Hit + 1
  45.   Next I
  46.   'ヒットの数を数える
  47.   For I = 0 To 2
  48.     For J = 0 To 2
  49.       If H_Size(I) = Val(MyText(J).Text) Then
  50.         If I <> J Then
  51.           Brow = Brow + 1
  52.           Exit For
  53.         End If
  54.       End If
  55.     Next J
  56.   Next I
  57.   'ブローの数を数える
  58.   SetH_Photo Hit
  59.   For I = 0 To Hit
  60.     Beep
  61.   Next I
  62.   'ヒットの数でエッチレベルを決定、出力する、ベルも鳴らす
  63.   St = "ヒット:" & Trim$(Str$(Hit)) & ",ブロー:" & Trim$(Str$(Brow))
  64.   'ヒットとブローを文字列にして
  65.   St = St & Chr$(13) & Chr$(10) & MesageStr(Hit)
  66.   ComentLabel.Caption = St
  67.   'メッセージの出力
  68.   If Hit = 3 Then 'もし全部脱がせたら
  69.     For I = 0 To 10
  70.         Beep '喜びのベルがなる
  71.     Next I
  72.   End If
  73. End Sub
  74.  
  75. 'エッチ写真の出力
  76. Sub SetH_Photo (H_Lebel As Integer)
  77.   Dim I As Integer
  78.   For I = 0 To 3
  79.     If H_Lebel = I Then
  80.       MyImg(I).Visible = True
  81.       '指定のエッチレベルの写真を見えるようにする
  82.     Else
  83.       MyImg(I).Visible = False
  84.       '指定外の写真は見えないようにする
  85.     End If
  86.   Next I
  87. End Sub
  88.  
  89. '初期設定プロシージャー
  90. Sub SetStart ()
  91.   Dim I As Integer
  92.   Randomize  '乱数の初期化
  93.   H_Size(0) = Int((MaxBast - MinBast + 1) * Rnd + MinBast)
  94.   H_Size(1) = Int((MaxWest - MinWest + 1) * Rnd + MinWest)
  95.   H_Size(2) = Int((MaxHippu - MinHippu + 1) * Rnd + MinHippu)
  96.   '各正解サイズを乱数にて発生させて代入
  97.   For I = 0 To 2
  98.     MyText(I).Text = ""
  99.   Next I
  100.   '入力フィールドを空白にする
  101.   SetH_Photo 0
  102.   '写真を出す。最初は「エッチレベル」は0
  103.   ComentLabel.Caption = MesageStr(0)
  104.   '最初のメッセージ
  105. End Sub
  106.  
  107.