Mesaj Panosu









VB6 Kronometre örnek

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/Programlar (Visual Basic 6.0/Net )

Yeni Başlık Gönder
Cevap Gönder   

« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj

Üye
Üye
Durum:Offline
Üye No: 44654
Kayıt: 20.09.2016
Puan: 7
Mesajlar: 4
Şehir: istanbul

MesajTarih: 20/9/2016, 13:39    Mesaj konusu: VB6 Kronometre örnek Alıntıyla Cevap Gönder




Merhaba Arkadaşlar;

Örnekte çok basit bir kronometre var. Timer ve saat uygulamasına Öğretici olsun diye hazırlamıştım.


[Linki görmek için üye olmanız gerekmektedir]

 !  .
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder
Müteşekkir Olan Üyeler
1 bu mesaj sahibine müteşekkir oldular.

Etkin Üye
Etkin Üye
Durum:Offline
Üye No: 39631
Kayıt: 08.12.2015
Puan: 27
Mesajlar: 452
Şehir: ordu

MesajTarih: 20/9/2016, 21:01    Mesaj konusu: Alıntıyla Cevap Gönder



dostum harika bir ornek olmus da 50 mb'lik müzk dosyasını niye koydun .Smile
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder

Etkin Üye
Etkin Üye
Durum:Offline
Üye No: 8
Kayıt: 14.10.2006
Puan: 0
Mesajlar: 1163
Şehir: tokat

MesajTarih: 20/9/2016, 21:29    Mesaj konusu: Alıntıyla Cevap Gönder



kronometre kod . (denemedim ama hata vermedi. .)

Kod:
'3 tane text box yapın
'1 tane label yapın
' 1 tane timer yapın
'4 tane command button yapın kodu pasteleyin.
 
Dim Hours As Integer
Dim Minutes As Integer
Dim Seconds As Integer
Dim Time As Date
Private Sub Mydisplay()
'mydisplay programın can damarı
    Hours = Val(Text1.Text)
    Minutes = Val(Text2.Text)
    Seconds = Val(Text3.Text)
    Time = TimeSerial(Hours, Minutes, Seconds)
    Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
End Sub
 
 
Private Sub Command1_Click()
    Timer1.Enabled = True
    Command3.Enabled = False
End Sub
 
Private Sub Command2_Click()
    Timer1.Enabled = False
    Command3.Enabled = True
End Sub
 
Private Sub Command3_Click()
    Hours = 0
    Minutes = 0
    Seconds = 0
    Time = 0
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text1.SetFocus
End Sub
 
Private Sub Command4_Click()
    End
End Sub
 
Private Sub Form_Load()
'Formu ortalamak için
Form1.Top = (Screen.Height - Form1.Height) / 2
Form1.Left = (Screen.Width - Form1.Width) / 2
'Timer'ın intervalı
    Timer1.Interval = 1000
    Hours = 0
    Minutes = 0
    Seconds = 0
    Time = 0
End Sub
 
Private Sub Text1_Change()
Mydisplay
End Sub
 
Private Sub Text2_Change()
Mydisplay
End Sub
 
Private Sub Text3_Change()
Mydisplay
End Sub
 
Private Sub Timer1_Timer()
Timer1.Enabled = False
    If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")) <> "00:00:00" Then 'Counter to continue loop until 0
        Time = DateAdd("s", -1, Time)
        Label1.Visible = False
        Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
        Label1.Visible = True
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
        Beep
        Beep
        Command3.Enabled = True
    End If
End Sub
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder

Üye
Üye
Durum:Offline
Üye No: 44654
Kayıt: 20.09.2016
Puan: 7
Mesajlar: 4
Şehir: istanbul

MesajTarih: 22/9/2016, 11:44    Mesaj konusu: Alıntıyla Cevap Gönder



Arkadaşlar;
mp3 dosyası projede unutulup kalmış. başka bir projemde alarm için kullanmıştım.
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder
Mesajları göster:   


Yeni Başlık Gönder    Mesaj için teşekkür et
Cevap Gönder   

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/Programlar (Visual Basic 6.0/Net )



Forum Seçin:  
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu foruma eklenti gönderemezsiniz
Bu forumdan eklenti indiremezsiniz

Bookmark this page to Facebook Bookmark this page to Twitter Bookmark this page to GoogleBookmark this page to Delicious Bookmark this page to Digg Bookmark this page to Blogmarks Bookmark this page to Blinklist Bookmark this page to Furl Bookmark this page to linkaGoGo Bookmark this page to Reddit Bookmark this page to Simpy Bookmark this page to Technorati Bookmark this page to Spurl Bookmark this page to Yahoo!


Benzer Başlıklar
Başlık Yazar Forum Cevap Son Mesajlar
Yeni mesaj yok Önemli: örnek asansör projesi huso Asansör Sistemleri/Projeleri 8 24/4/2018, 23:16 Son gönderilen mesajlar
derbederr60
Yeni mesaj yok Önemli: Catia Örnek Parçalar silistre Çizimleriniz(catia) 13 15/5/2014, 01:49 Son gönderilen mesajlar
igiyondal
Yeni mesaj yok Önemli: örnek çizimler autocad 2D ve 3D ersin472131 Çizimleriniz(sadece makineciler,autocad) 1 2/9/2011, 11:17 Son gönderilen mesajlar
miramax
Yeni mesaj yok Önemli: UYGULANMIŞ ÖRNEK PLC PROGRAMLARI isuldur PLC Sistemleri(Siemens,S7-200,HMI,Scada,simülatörler.vb) 0 11/5/2008, 18:25 Son gönderilen mesajlar
isuldur
Yeni mesaj yok Önemli: Topsolid'de Yapılmış Örnek Çalışmalar huso Topsolid 2 28/5/2014, 21:15 Son gönderilen mesajlar
fthzngn
Bu başlık kilitlenmiştir; cevap yazamaz, mesajları değiştiremezsiniz Önemli: Catia örnek parçalar -2 (catpart) silistre Çizimleriniz(catia) 9 19/1/2010, 07:51 Son gönderilen mesajlar
huso
Yeni mesaj yok Önemli: Matlab de yazılmış 34 tane örnek huso Matlab/Mathematica 5 20/11/2012, 20:11 Son gönderilen mesajlar
svegar
Yeni mesaj yok Önemli: CATIA V5 anlatım dosyalar, örnek çalı... 3aaa Catia 169 30/8/2018, 19:11 Son gönderilen mesajlar
selpak37
Yeni mesaj yok PIC ile Kronometre tasarımı isuldur Mikrodenetleyiciler (PIC,intel,8051,arm,68xx,atmel..vb) 0 23/2/2009, 14:33 Son gönderilen mesajlar
isuldur
Yeni mesaj yok PIC kronometre ve geri sayım devresi isuldur Mikrodenetleyiciler (PIC,intel,8051,arm,68xx,atmel..vb) 0 29/5/2009, 02:32 Son gönderilen mesajlar
isuldur


Kod Çalışma Süresi = 0.0899 saniye, SQL Sorgu Adedi = 25, GZIP = Kapalı Hata denetimi = Kapalı,
Powered by phpBB



Pano Güvenliği

142091 Saldırı girişimi engellendi