| 投稿日 | ： 2007/07/25(Wed) 12:29 |
| 投稿者 | ： tea |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: 前回の投稿では解決していませんでした・・・。 |
ふくさん、回答していただき本当にありがとうございます。
試行錯誤してみます。
またわからない事が出てきたら質問させていただきます。
> こんなかんじかな？
> これくらい判ってる！って怒られそうですが…
> 常連の皆様厳しい突っ込みはご勘弁を。
>
> さて、
> フォームにコマンドボタン３こ、ラベル、タイマーコントロール
> をおいてください。
>
> コマンドボタン１：時計スタート
> コマンドボタン２：ファール有
> コマンドボタン３：次のクウォターへ
>
> Option Explicit
> Private CntDown As Single
> Private CntBase As Single
>
> Private Sub Command1_Click()
> Command1.Enabled = False
> Timer1.Enabled = True
> End Sub
>
> Private Sub Command2_Click()
> Label1.Caption = "1.0"
> CntDown = 0
> CntBase = 1
> Command1.Enabled = True
> Command2.Enabled = False
> Command3.Enabled = False
> End Sub
>
> Private Sub Command3_Click()
> Call CntIni
> End Sub
>
> Private Sub Form_Load()
> Timer1.Enabled = False
> Timer1.Interval = 500
> Call CntIni
>
> End Sub
> Private Sub CntIni()
> Command1.Enabled = True
> Command2.Enabled = False
> Command3.Enabled = False
> CntBase = 10
> Label1.Caption = "10.0"
> End Sub
>
> Private Sub Timer1_Timer()
> Dim tmp As Single
>
> Timer1.Enabled = False
> CntDown = CntDown + 1
> tmp = CntBase - CntDown * 0.5
> Label1.Caption = Format$(tmp, "#0.0")
>
> If tmp <= 0 Then
> Command2.Enabled = True
> Command3.Enabled = True
> Exit Sub
> End If
>
> Timer1.Enabled = True
> End Sub