timer(loading)

どうやってTimerを使ってLoadingのスクリーンをコードしたら良いですか？

> 投稿者 lisa   (中学生)   投稿日時 2010/01/20 15:14:40  
> どうやってTimerを使ってLoadingのスクリーンをコードしたら良いですか？  

？？？？？

若い子の日本語って分からないなぁ。。。
Loading のスクリーンって何だろう。。。
最近、流行ってるもの？。。。

Loading って文字だけから連想されるのは、何かの読み込み中の
時の表示だけど。。。スクリーン。。。画面？
Loading 画面？
Timer 要らないんじゃないの？
コードも要らないんじゃないの？
フォームに"Loading"って書いて表示しておけば？

Loadingで連想する物．．．

Flashオブジェクトかな？
なんかの動画かな？

(削除されました)

Timer関数を使用してロード画面を作ることは出来ますが、あえてそうする必要がありますか？

コンポーネントのProgress Barコントロールを使用する方が、より良く見えるのか。

あえてすると仮定すると、次のような例が挙げ申し上げております。
'interval =ご希望の時間1 / 1000 sec。
Private sub Timer1（）
  form1.show
  timer1.enabled = False
End sub

これを希望するかどうかよく分からないです。?.

いろいろ、ご返答ありがとうございます。
アメリカの高校で、コンピュータープログラミングの授業をとっているのですが、全くの初心者で課題がうまくいかず、困っていて投稿させていただきました。
ドラッグドロップと、数字をランダムに使うというのと、Ｔｉｍｅｒそして、フォームの中に、フォームのインフォメーションをトランスファーするというようなことを、入れ込んだ簡単なゲームを作ってこないといけないということなのですが、どうしたらいいかわかりません。
つい、その部分だけ質問してしまいすみませんでした。よろしくお願いします。

さきほど、書き忘れましたが、Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０を使っています。

はい、「読み込み中」の画面です。

自分でできる事をやらないと、後々問題ばかり起こる事になりますよ。

例えば、プログラムができたとして、先生に提出したとします。
そこで先生が課題内容についての質問をしてくる場合があります。
その時、自分で作ったなら、どう考えてプログラムを作ったか
答えられるはずですよね。ここで答えられないと自分で作って
ないと判断され再提出になります。

>全くの初心者で課題がうまくいかず、困っていて投稿させていただきました。
まず、担任の先生に相談していないのであれば、全く解決しないでしょう。

初心者でも受けられる授業であるなら、授業中にヒントは出されているはず
です。出されていないなら先生の落ち度ですから、きちんと指導してもらう
必要がありますし、貴方が授業を聞いていなかったなら、聞きなおす必要が
あります。

どちらにしろ、現在の貴方の状態を先生に理解してもらう必要があります。
その上で80％自分で理解できて、もう少しというなら掲示板で質問するのも
意味があるでしょうが、課題が丸々分からないという状態で掲示板を利用
するのは間違っています。

スプラッシュウィンドウのことかな？

1.メインフォームを非表示状態で作成する。

2.メインフォームのコンストラクタでスプラッシュウィンドウを表示。

3.色々と準備処理

4.準備処理が終わったらスプラッシュウィンドウを非表示にして、メインフォームを表示する。

大体こんな感じかな。

ヴァンさん、ありがとうございます!明日、学校のマイドキュメントにセーブしている自分で作っているものをもって帰ってみます。（なぜか、このクラスの教科書とか、何も教室の外に持ち出してはいけないのですが）また、よろしくお願いします！

タイマーが、ずっとゼロのままなのは、何かが足りないということなのでしょうか？

V6は終了してますし。
VB2008とか使えんの？（笑）
新しいパソを買う。推奨。

ちなみに、専門学校では、常に最新を勉強するみたいにゃ～。
ITは常に進化してますから、古いものはドンドン無くなるにゃ～。

>タイマーが、ずっとゼロのままなのは、何かが足りないということなのでしょうか？ 

うん、何かが足りない。
何でしょうと聞かれても、他の人には答えられない。

ぼく。はネットで得た情報は、まったく信用しない。
10件ほど本屋を回ったが、Ｖ6の本は1冊も売っていないです。
それどころかＶＢ2005の本すら店頭から消えてます。
それがリアル。現実であると思います。
VB2008のコードでよければ多少、提供できます。
文字制限があるんで、この程度で良ければ。

Option Strict On

Public Class Form1

    'Ｇａｍｅコード途中制作 

    'PictureBox1をフォームに入れる 

    'Timer1とTimer2をフォームに入れる 

    'コードをすべて消してから、書き込む。 



    Dim font_1 As New Font("ms ui gothic", 30, FontStyle.Bold)

    Dim font_2 As New Font("ms ui gothic", 50, FontStyle.Italic)

    Dim my_gradient As New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(300, 350), Color.Blue, Color.Red)

    Dim score% = 0

    Dim score_ichi%

    Dim life_point% = 0



    Public Sub New()



        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        Me.Size = New Size(700, 700)

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.BackColor = Color.Blue

        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D

        Me.MaximizeBox = False : Me.MinimizeBox = False

        Me.Text = "ダイアモンド"

    End Sub



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With PictureBox1

            .Size = New Size(665, 645)

            .Location = New Point(10, 10)

            .BackColor = Color.Black

        End With

        Timer1.Interval = 100

        Timer1.Start()

        Timer2.Interval = 200

        Timer2.Start()

    End Sub



    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        Dim g As Graphics = e.Graphics

        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias

        g.FillRectangle(Brushes.Green, 460, 0, 205, 645)

        g.DrawLine(Pens.Yellow, 0, 500, 459, 500)

        g.FillEllipse(my_gradient, 550, 190 + life_point, 40, 400 - life_point)

        moji("Score", font_1, Brushes.Aqua, 500, 30, g)

        moji(CStr(score), font_1, Brushes.Yellow, score_ichi, 70, g)

        moji("★", font_1, Brushes.Pink, 542, 160 + life_point, g)

        If life_point > 399 Then

            moji("Game Over", font_2, Brushes.Red, 50, 250, g)

        End If

    End Sub



    Sub moji(ByVal a As String, ByVal b As Font, ByVal c As Brush, ByVal x As Integer, ByVal y As Integer, ByVal g As Graphics)

        g.DrawString(a, b, Brushes.White, x + 1, y + 1)

        g.DrawString(a, b, c, x, y)

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        score += 1

        score_ichi = 570 - ((CStr(score).Length - 1) * 20)

        PictureBox1.Invalidate()

    End Sub



    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        life_point += 1

        If life_point > 400 Then

            Timer1.Stop() : Timer2.Stop()

        End If

    End Sub

End Class

VB6で、タイマーコントロールを使うなら、

１．タイマーコントロールをフォームに貼る。
２．Intervalプロパティに、イベントを発生させる時間をミリ秒単位で指定する。
３．EnabledプロパティをTrueに設定。
４．貼りつけたタイマーコントロールをダブルクリックして、Timerイベントプロシージャを表示し、処理を記入。

こんな感じでスプラッシュウィンドウ的なことならできますね。

みなさん、いろいろと助けていただいてありがとうございます。
日本の専門学校だと新しいものをどんどんとりいれるのかもしれないのですが、
アメリカの公立のhIGH SCHOOLだからなのか、先生がそれしか教えられないのか、理由はわかりませんが、
VISUAL BASIC 6.0をつかっています。６．０と、２００８は、ぜんぜん違うものなのでしょうか？全くしろうとなので、そんなことも、よくわかりません。日系の本屋さんで２００８の参考書を買いましたが、これは、６．０には、使えないのでしょうか？

このサイトのTOPページから下にスクロールしていってください。
「授業」という項目の右がVisual Basic 2008、左がVisual Basic 6.0

[Wiki]で見れば、
http://ja.wikipedia.org/wiki/Microsoft_Visual_Basic
Visual Basic 6.0 って 1998年のものだからねぇ。。。
ファミコンとプレステぐらいの違いはあるんじゃない？

同じ言語なんだから、基本的な文法は同じです。
でもまぁ、そのままプログラムをコピペしてもエラーは
たくさん出るね。
東京弁と大阪弁くらいの違い？

色々皆さんに聞いて、やっているうちに、タイマーが動くようになりました。
ありがとうございます。

Ｖ6はファミコン....
。。。
...なるほど。