Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ time ] /
Makaleler-Article(s)
time ile ilgili toplam 7 makale bulundu ! (A total of 7 article(s) about time was(were) found in all of articles!)
| Article |
|---|
Delphide Progressbar Kullanımı
Merhaba arkadaşlar bu makalemizde delphide progressbar örneği yapacağız. Formumuza 1 adet Progressbar, 1 adet Label ve Timer ekleyelim. | C++ Çalışma Anında Access Database’de Tablo Oluşturmak
Merhaba arkadaşlar bu makalemizde C++ çalışma anında formumuzdaki butona tıklayarak Access veritabanında Employess adlı tablo oluşturacağız. Access veritabanına bağlanabilmeniz için Access DataBase Engine bileşeni gerekebilir. | Timer Kullanarak Geri Sayım Uygulaması Yapmak
Merhaba arkadaşlar bu makalemizde Timer kullanarak geri sayım uygulaması yapacağız. Formumuza Timer ve ayrıca 1 er adet TextBox, Label ve Button ekliyoruz. | Form Basliginda Tarih ve Saat Gösterimi
Merhaba arkadaslar bu makalemizde Delphi formumuzun basliginda tarih ve saat gösterecegiz. Formumuza 1 adet Timer ekleyecegiz. Ekledigimiz Timer1 in Timer kismina kodumuzu yazacagiz. | Timer Uygulaması
ConsoleApplication formu açın. Aşagıdaki
kodları yazın.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading;
namespace ConsoleApplication1
{
class Program
{
static void zaman(object durum)
{
Console.WriteLine("Zaman: {0}, Mesaj: {1}", DateTime.Now.ToLongTimeString(), durum.ToString());
}
static void Main(string[] args)
{
TimerCallback tc = new TimerCallback(zaman);
Timer timers = new Timer(tc,"Merhaba Dünya...Bahadır ŞAHİN",0,1000);
Console.WriteLine("Bitirmek için herhangi bir tuşa tıkla...");
Console.ReadLine();
}
}
}
//Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN | Geri Sayım-Timer Uygulaması
Bu makalemizde Rapidshare deki gibi geri sayım uygulaması yapacağız. Combobox nesnesinden seçilen dakika ve saniyeden geriye doğru saydıracağız. Ayrıca timer ın interval değerini, formun rengini vb... işlemleri çalışma anında yapabileceğiz. Aşağıdaki şekilleri inceleyin. Formunuza 1 adet Timer, 3 adet Label ve 4 adet Combobox nesnesi ekleyin.
Public Class Form1
Dim i As Integer = 5
Dim j As Integer = 59
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Text = "0" & i
Label2.Text = "00"
Label3.Text = ":"
cmb1.Text = "59"
cmb2.Text = "0"
cmb3.Text = "Timer Hızını Ayarla"
cmb1.Enabled = False
cmb2.Enabled = False
cmb3.Enabled = False
cmb4.Text = "Renk Ayarla"
With Me
.Text = "Geri Sayım"
.Location = New Point(250, 150)
.MaximizeBox = False
.MinimizeBox = False
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If j = 59 Then
i = i - 1
If i < 9 Then
Label1.Text = "0" & i
Else
Label1.Text = i
End If
ElseIf j = -1 Then
If i > 9 Then
i = i - 1
Label1.Text = i
j = 59
ElseIf i > 0 And i <= 9 Then
i = i - 1
Label1.Text = "0" & i
j = 59
ElseIf i <= 0 Then
j = 0
i = 0
Label3.Text = ":"
Timer1.Enabled = False
End If
End If
If Label3.Text = ":" Then
Label3.Text = ""
Else
Label3.Text = ":"
End If
If j > 9 Then
Label2.Text = j
Else
Label2.Text = "0" & j
End If
If i = 0 And j = 0 Then
Label3.Text = ":"
btnBaslat.Text = "Baslat"
Timer1.Enabled = False
MsgBox("Süre Bitti", MsgBoxStyle.OkOnly, "Bahadirsa Mesaj")
Exit Sub
End If
j = j - 1
End Sub
Private Sub btnBaslat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaslat.Click
If Timer1.Enabled = False Then
Timer1.Enabled = True
btnBaslat.Text = "Durdur"
Else
Timer1.Enabled = False
btnBaslat.Text = "Başlat"
End If
End Sub
Private Sub cbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbox1.CheckedChanged
Label3.Text = ":"
If cbox1.Checked Then
cmb1.Enabled = True
cmb2.Enabled = True
cmb3.Enabled = True
i = cmb1.Text
j = cmb2.Text
Label1.Text = i
If i <= 9 Then
Label1.Text = "0" & i
End If
If j > 9 Then
Label2.Text = j
Else
Label2.Text = "0" & j
End If
Else
i = 5
j = 0
Label1.Text = "0" & i
Label2.Text = "0" & j
Label3.Text = ":"
Timer1.Enabled = False
cmb1.Enabled = False
cmb2.Enabled = False
cmb3.Enabled = False
btnBaslat.Text = "Başlat"
End If
End Sub
Private Sub cmb3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb3.SelectedIndexChanged
Timer1.Interval = cmb3.Text
End Sub
Private Sub cmb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb1.SelectedIndexChanged
cbox1_CheckedChanged(sender, e)
End Sub
Private Sub cmb2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb2.SelectedIndexChanged
cbox1_CheckedChanged(sender, e)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb4.SelectedIndexChanged
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If cmb4.SelectedIndex = 0 Then
Label1.ForeColor = ColorDialog1.Color
Label2.ForeColor = ColorDialog1.Color
Label3.ForeColor = ColorDialog1.Color
ElseIf cmb4.SelectedIndex = 1 Then
Label1.BackColor = ColorDialog1.Color
Label2.BackColor = ColorDialog1.Color
Label3.BackColor = ColorDialog1.Color
ElseIf cmb4.SelectedIndex = 2 Then
Me.BackColor = ColorDialog1.Color
End If
End If
End Sub
End Class
Bir sonraki makalede buluşmak üzere...Bahadır | Ajax Timer Kontrolü
Bu makalemizde Asp.Net te ajax timer kontrolünün örneğini göreceğiz. Button un text in de 1 den 10 a kadar sayı saydırdıktan sonra, HyperLink imizi görünür yaparak, belirtiğimiz siteye link verdireceğiz. |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.