21.06.2007
|
#1 (permalink) |
|
Katılma Tarihi: Şub 2006
Nereden: Bursa/es-es
Yaş: 23
Mesajlar: 1,784
|
VB İle Dijital Saat(Resimli Ve Videolu Anlatım)
Vb ile dijital saat uygulamasında form load sistemini kullanıcaz...
sistemin çalışma mantığı ise program başlangıcında form sistemdeki saati bir kez okuyor,yazdığımız kodlar da gerekli işlemi yaparak labellere yazıyor... saat uygulamasında 3 adet label ile 1 adet timer nesnesine ihtiyacımız var... nesneleri resimdeki gibi yerleştiriyoruz...  şimdi kodları yazmaya geçelim...formumuzu çift tıklıyarak başlıyoruz... Dim saat, dakika, saniye 'saati dakikayı saniyeyi tanımlarken private sub form load ın ustunde olması bize tanımlamamızın her blokta yürütüleceğini gösterir... Private Sub Form_Load() Label1.Caption = Hour(Time) Label2.Caption = Minute(Time) Label3.Caption = Second(Time) saat = Hour(Time) dakika = Minute(Time) saniye = Second(Time) End Sub Private Sub Timer1_Timer() saniye = saniye + 1 If saniye = 60 Then saniye = 0 dakika = dakika + 1 If saniye = 60 Then dakika = 0 saat = saat + 1 If saat = 24 Then saat = 0 End If End If End If Label1.Caption = saat Label2.Caption = dakika Label3.Caption = saniye End Sub programımız bittikten sonra şu şekilde bir görüntüsü olacaktır...  programımız bitti... görsel olarak yine zayıf oldu ama kodlar doğru çalışıyor...görsel düzenlemesini de siz yapabilirsiniz... rar şifresi:staticiation Videoyu ve saati indirmek için tıkla Alıntı değildir!!! |
|
|
| Bu mesaj için staticiation kişisine teşekkür edenler: |
|
04.07.2007
|
#2 (permalink) |
|
Katılma Tarihi: Oca 2007
Nereden: ORDU MERKEZ
Yaş: 21
Mesajlar: 1
|
dostum saat ve tarih için daha kolay bi kod var bu kadar uzun bi koda gerek yok sanırım
timer'a yazıyoruz Label1.caption=Time bu kod direk saati veriyor time yerine date yazarsak tarihi gösteriyor timerin interval özelliği 1000 olmalı |
|
|
|
| Bu mesaj için breko52 kişisine teşekkür edenler: |
staticiation (05.07.2007)
|
 |
| Şu Anda Konuyu İnceleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir) | |
| Konu Araçları | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| GameCam Full Resimli Anlatım - Movie Maker Resimli Anlatım Ve Setuplar | genjoyko | Videolar | 1 | 24.03.2008 22:44 |
| Türev[Videolu Anlatım] | The Answer | Ödev | 2 | 19.05.2007 04:37 |
| Dik Üçgen[Videolu Anlatım] | The Answer | Ödev | 0 | 19.03.2007 16:53 |
| Bölünebilme[Videolu Anlatım] | The Answer | Ödev | 0 | 16.03.2007 20:12 |
| Dijital Saat | Caner (CK) | A-B-C-D-E | 0 | 30.03.2006 22:02 |
