デジタル時計(タイマ)

今日は、Visual Basicで作成したシンプルで使いやすい。ネットデジタル時計を表示する。 我々は、ラベルとタイマーを使ってこれを行います。

フォームは、次の画像のそれに類似しているはずです>

時間だけが表示されますこの例では、より多くの重要性を与えるためにコントロールのラベルのフォントを変更します。 私はTahomaフォントサイズ28を使用しています。

現在のタイマコンポーネントのプロパティをみましょう。 TimerコンポーネントのTickイベントのコードを実行するには、これがTrueにEnableプロパティを持っている必要があります。 そして、我々はすべてのn個の目盛りを実行するためのコードを入力します。 nのティック数をミリ秒単位で示されたプロパティとの間隔です。 我々は、1000チックでプロパティを置くのであれば、コードは1秒ごとに実行されます。

今のコードは非常に簡単です見てみましょう。

 Timer1_Tickます。Private Sub(System.ObjectとしてByValを送信、_
いるSystem.EventArgsとしてByVal e)はTimer1.Tickを処理します。
 Label1.Text = Date.Now.ToLongTimeString
 End Subの

それだけで(F5)アプリケーションを実行するために残り、下図に示すように、我々はデジタル時計があります>

このブログの定期的な読者であれば、すべてのコード例は、常に非常に単純であることを意味していること、およびこれらの例から、向上させる補完し、アプリケーションで使用するためにそれらを適応させる可能性を持っていることを知っています。

いつものように、私はそれが役に立つことを願って。

"デジタル時計(タイマ)"〜34の応答

  1. Bitacoras.comは 言う:

    情報Bitacoras.com ...

    Bitacoras.comのレート:私は、Visual Basicで作成したシンプルで使いやすいネットデジタル時計を表示したい今日。 我々は、ラベルとタイマーを使ってこれを行います。 フォームには、次の私のようになります。....

  2. fastmonroは言う:

    タイマーは、簡単な方法を必要とされていません。
    プライベートサブをForm1_Load(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルMyBase.Load

    Me.Label1.Text =フォーマット(今、 "HH:MM:SS TT")
    End Subの

    • エリシャは言います:

      fastmonro:

      入力のおかげで、それはフォーム(あなたがそれのLoadイベントから呼び出すように)ロードされたときにそれにあなたがすべてのラベルに "見せる"ことです。 私は時計の機能を実現することを伝える、または"すべての時間を"現在の時刻を表示してみましょう時間は成分rを必要としますが、クロックにされていません...あなたが1つだけの時間を表示するとき。

  3. アレックスは言う:

    あなたの貢献は非常に良い! おめでとう!

  4. Laharlは言う:

    優れた貢献の弟が、私は見つける唯一の問題は、それだけで私はC#であることを行ったフォームのLoadイベントで、同じを置く時計を表示するためにいくつかの時間を待って実行している間に充電を行わないということです私が使用できるほとんどです
    プライベートvoid timer1_Tick(オブジェクト送信者、EventArgs e)
    {
    DateTime.Now.ToShortTimeString Label.Text =();
    }

    プライベートボイドをForm1_Load(オブジェクト送信者、EventArgs e)
    {
    DateTime.Now.ToShortTimeString Label.Text =();
    }
    そしてもう一つは、誰がファイルを保存したり開いタイトルバーに、いくつかの方法を試してみましたが、VBやC#であるかどうか、それを実行する方法を見つけることができませんの名前を表示する方法を知っています。

    salu2

    • batero_loco_xxxは言う:

      あなたは正しいですが、あなたはクロックティックコード(覚えている負荷後毎に1秒以上1秒です)私が言うと、あなたエンQUボールが自分自身のためにはるかに簡単にトリックを教えを実行したときに第二のを待たなければQUのetienesです。フォーム内の​​クロックの刻みを入れ、同じコードは次のようにフォームをロードします。

      プライベートサブをForm1_Load ....

      Me.Label12.Text =フォーマット(今、 "HH:MM:SS TT")
      End Subの

      そしてちょうどあなたのジレンマ

      よろしく

  5. ジョンは言う:

    エリセオ....ただ.......あなたはタイマーで右だでプログラミングを手がける人たちに、シンプルで良い説明、これらのコードであなたを助けるためにも感謝実現するために非常に必要である..

    ありがとうございます。

  6. こんにちはは言う:

    十分な供給!

  7. ヘーノホは言う:

    私は解決策を良いように

  8. ダニーロ氏は述べています:

    友人はタイマーティックのコードを見ませんか? 助けてください

  9. Neobonesは言う:

    こんにちは、私はタイマーを使用して、上で述べたように、Enableプロパティは現在、qはTrueに移動し、ベール= 1000 ....持って...あなたは、二重のオブジェクトをクリックすると、Timer1のTickイベントにそれらを取る...のようにコードを置く...

    パブリッククラスfrmPrincipal
    Tiempo_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTiempo.Tick
    txtHora.Text =フォーマット(今、 "HH:MM:SS TT")
    txtFecha.Text = Date.Now.Date
    End Subの
    エンドクラス

    私の場合IO私はオブジェクトの名前の代わりに、私は入れてTimer1の時間を変更...
    Q私は、彼らが新たなプログラマを支援願っています。

  10. AlvaroPucelaは言う:

    Cojonudaは、あなたの役割はNeobones! 偉大なクソされています。

  11. ストリートは言う:

    良い友達は、私が言うように、私は何回か試してみましたが、プログラムを実行するクロックは、私が作ることが毎秒更新された実行しようとしている更新され、1000場所の間隔プロパティが更新されません。 。
    私は助けることができると思います。
    ご挨拶。

    • batero_loco_xxxは言う:

      私はあなたが言及推測するが、それは、クロックのイベントダニ用に書かれたロジックのコードをhabras? それはこれです

      Timer1_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTimer1.Tick
      Label12.Text =フォーマット(今、 "HH:MM:SS TT")
      End Subの

  12. フレディは言う:

    TA SISASのBN YOPコードとTOYジャスト学習とNA ... TIMER ASERLEのSISASを作成する方法を知りたい...

  13. 履歴書は言う:

    ここに何かもう少し手の込んだ
    Public Class Form1の
    整数としてDimカウント
    プライベートサブをForm1_Load(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルMyBase.Load
    Me.Textは= "時間インジケータ"
    Me.Label1.BorderStyle = BorderStyle.FixedSingle
    Me.Label1.TextAlign =をContentAlignment.MiddleCenter
    Me.Label1.Text = ""
    Me.Label1.BackColor =はColor.Black
    Me.Label1.ForeColor =をColor.Red
    Me.Label1.Visible = Falseの場合
    Me.Timer1.Interval = 1000
    = TrueをMe.Timer1.Enabled
    BackColorプロパティ=はColor.White
    End Subの
    HoraToolStripMenuitem_clickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルHoraToolStripMenuItem.Click
    カウンタ= 1
    End Subの
    FechaToolStripMenuItem_clickます。Private Sub(ByValをsendeているSystem.EventArgsとして、オブジェクトとしては、ByVal e)のハンドルFechaToolStripMenuItem.Click
    カウンタ= 2
    End Subの
    Timer1_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTimer1.Tick
    Me.Label1.Visible = Trueに
    カウンタ= 1その後、Label1.Text = TimeString場合
    カウンタ= 2そして、Label1.Text = My.Computer.Clock.LocalTime.Date.ToString場合
    End Subの
    エンドクラス

  14. ビクターコルドバは言う:

    入力のおかげで、完璧に動作します :D 私はされているこれで多くのターンを有し、かつ、これらのいくつかの行を修正しました...おかげで再び!

  15. グスタボは言う:

    希望の階へはエレベーターを動かすための方法、特にタイマーでより多くの演習を送って希望

    ありがとうございます。

  16. アンジェロ氏は述べています:

    時計はちょうどあなたがTimer.Startフォーム()を配置する必要があります開始するには、例のように正しい

    ご挨拶。

  17. カダージュは言った:

    噴火湾タイマーしかしそれはリソース(プロセッサRAM等に応じて...)最適化するためのいくつかの他の方法を移動する方法を確認するには、タスクマネージャを見れば? いくつかのMe.Refresh?

  18. マシンは言った:

    Hijesは私のトラブルのうち冷却

    私は、データベース·アクセスのフィールドをDOND純粋に観想的な販売を前に現金をカットする方法について質問があります
    monto_ventaです。
    何か例がありましたら感謝する

  19. リンは言う:

    私は彼らの貢献はプローブ2 XQ C上記の優れた例ですsystems'mは私の練習のためにシステムを行う工学の学生ですと、これは基本的な真実であるが、これらのケースのいずれかC CPUオフ、彼に。

    プライベートサブをForm1_Load(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルMyBase.Load

    Me.Label1.Text =フォーマット(今、 "HH:MM:SS TT")
    End Subの

    ちょうど私は更新されません一定の時間を与える

    Timer1_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTimer1.Tick

    LHora.Text = Date.Now.ToLongTimeString

    End Subの

    このプロパティは、タイマーが本当のほとんどの真と1000の範囲でなければなりません、それがあればすべて完璧に動作します

  20. ジョンは言う:

    こんにちは、としてではなくWebサイト上のWebフォームのクロックが、私はそれを見ることはできませんが、イベントがtimer.startは存在しません置く。

    • エリシャは言います:

      問題は、コントロールのイベントは、サーバー側で実行し、そのためにあなたは、ページ全体をリロードrequesを行う必要が発生するということです...実際には、クライアント側で行う必要があります。

      AJAXやjQueryを使ってJAVA(ジャバスクリプト)を試してみてください。

  21. pedroxは言う:

    grasiasすべてが、私は助けが必要
    誰もが私を助けてください知っていれば私はこのすべてを行う必要がありますが、C#では、私は新しいprogramdoです。

  22. AloneBoyは言う:

    こんにちは私はまた新しいプログラミングだと誰もがあなたがクリックを与えるときにフォームQ Qを作る方法を知っているかどうか知りたかったのは、Linux openSUSE 11.3を、Windowsだけでなく透明になります

  23. ロレーヌは言う:

    輸入ClassLibrary1
    Public Class Form1の
    プライベートサブをForm1_Load(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルMyBase.Load
    Time.Start()
    End Subの
    Time_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTime.Tick
    新しいClass1の薄暗い時間など
    Horas.hora Label.Text =()
    '時間()
    End Subの
    "ます。Private Sub時間()
    =今 'Label.Text
    ''します。MessageBox.Show( "時間を置く")
    'End Subの
    エンドクラス

  24. Miauuuは言う:

    ヒアズ·ザット·PASSABAのコードを探して...ちょうどタイマーのコード...いくつかのアレンジをつかむと、MEは完璧に働いた... MIGUELITOに感謝...

  25. OUMは言う:

    前のコードのおかげで私は私に適応することができました。
    funcinó私はそうするようにオペレーティングシステムに応じて変更時間を取得することがコード..
    プライベートサブをForm1_Load(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルMyBase.Load

    lblHora.Text = Date.Now.ToLongTimeString
    Timer1.Start()

    End Subの

    Timer1_Tickます。Private Sub(ているSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信者)ハンドルTimer1.Tick
    lblHora.Text = Date.Now.ToLongTimeString
    End Subの

  26. !Juanmaは言う:

    といくつかのサンプルおよびnone arribaa funcionaa私を取る! 私はこのために非常に悪いだと思う:S私は画面上に時計がKEを必要とするので、後者oseaaから何かのようになります! DD ayudenmeee午前0時00分00秒:

  27. Jdiazは言う:

    私は1から10までのレベルとツアーと、再び起動した後、インターフェースされている今まで、私はタイマーで、私は私がエレベーターを制御するためにそれらを使用する必要があります見てきたように研究されているため、すべてのハイ1から10とは、まだ私は助けるか、または少なくとも、事前に感謝を説明することができるので、誰かが何かに取り組む必要があったていない場合は、ボタンを操作する方法を発見していないすべきではありません。

  28. キャシーは言う:

    実行時に、私はタイマーを作るように私にリストボックス内の単語を示します。

  29. ハビエル氏は述べています:

    私がvb.net 2005でWindowsのヘルプを呼び出すことができますように

  30. 良いと言う:

    MsgBoxには、(TIMEOFDAY)

コメント