folder Tahribat.com Forumları
linefolder C#, Asp.Net, .Net Core
linefolder Vb 2008"De Kronometre Yapma.(Proje Linki İle Birlikte)



Vb 2008"De Kronometre Yapma.(Proje Linki İle Birlikte)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kafkefhacker
    kafkefhacker's avatar
    Kayıt Tarihi: 09/Aralık/2008
    Erkek

    vb'  ye  yeni başlayanlar i

    Gerekli olan tollbox   nesneleri:::5 adet label 1 adet timer 1 tane buton..(label lerin 2 tanesi  ":   :  "  yapmak için kulanılcak ..gerekli kodlar  aşağıdaki kodlardır..yapamazsanız proje linkinide veriyorum..

    Public Class Form1

    Private Sub cmdislem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdislem.Click

    If cmdislem.Text = "BaŸla" Then

    cmdislem.Text = "Dur"

    Timer1.Enabled = True

    ElseIf cmdislem.Text = "Dur" Then

    cmdislem.Text = "BaŸla"

    Timer1.Enabled = False

    End If

    End Sub

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

    If Val(lblbasamak3.Text) = 60 Then

    lblbasamak2.Text = Val(lblbasamak2.Text) + 1

    lblbasamak3.Text = 1

     

    Else

    lblbasamak3.Text = Val(lblbasamak3.Text) + 1

    If Val(lblbasamak2.Text) = 60 Then

    lblbasamak1.Text = Val(lblbasamak1.Text) + 1

    lblbasamak2.Text = 1

    End If

    End If

    End Sub

    proje  linki:::http://rapidshare.com/files/177285228/klorametre.rar  umarım beğenilir..


    Y4 S3V Y4 T3RK 33T.
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Imba
    Imba's avatar
    Kayıt Tarihi: 03/Haziran/2002
    Erkek
    helal olsun çok beğendim

    Kibar ve sertimdir, çok iyi dans ve ısrar ederim..
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kafkefhacker
    kafkefhacker's avatar
    Kayıt Tarihi: 09/Aralık/2008
    Erkek

    Beğendiğine sevindim:D:D:

     


    Y4 S3V Y4 T3RK 33T.
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek
    kronometre olmasın o :|

    screw you guys! i"m goin" hoooome!
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Imba
    Imba's avatar
    Kayıt Tarihi: 03/Haziran/2002
    Erkek
    Arkadaşım sende hep eleştiri hep eleştiri bak adama ne güzel program yapmış ha klor ha krono:D

    Kibar ve sertimdir, çok iyi dans ve ısrar ederim..
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek

    Alpn bunu yazdı:
    -----------------------------
    Arkadaşım sende hep eleştiri hep eleştiri bak adama ne güzel program yapmış ha klor ha krono:D
    -----------------------------

    haklsın bi daha olmaz abi :(

    :D 


    screw you guys! i"m goin" hoooome!
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NmC
    NmC's avatar
    Kayıt Tarihi: 23/Kasım/2008
    Erkek

    Enee kafkefhacker... Gene mi sen :D

    Bu akşam EP5 çıkıyo haberin olsun ;)


    There are 10 types of people in the world. Those who knows binary and those who dont...
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ricin
    ricin's avatar
    Kayıt Tarihi: 16/Mayıs/2007
    Erkek
    kafkefhacker bunu yazdı:
    -----------------------------

    vb'  ye  yeni başlayanlar i

    Gerekli olan tollbox   nesneleri:::5 adet label 1 adet timer 1 tane buton..(label lerin 2 tanesi  ":   :  "  yapmak için kulanılcak ..gerekli kodlar  aşağıdaki kodlardır..yapamazsanız proje linkinide veriyorum..

    Public Class Form1 Private Sub cmdislem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdislem.Click

    If cmdislem.Text = "BaŸla" Then

    cmdislem.Text = "Dur"

    Timer1.Enabled = True

    ElseIf cmdislem.Text = "Dur" Then

    cmdislem.Text = "BaŸla"

    Timer1.Enabled = False

    End If

    End Sub

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

    If Val(lblbasamak3.Text) = 60 Then

    lblbasamak2.Text = Val(lblbasamak2.Text) + 1

    lblbasamak3.Text = 1

     

    Else

    lblbasamak3.Text = Val(lblbasamak3.Text) + 1

    If Val(lblbasamak2.Text) = 60 Then

    lblbasamak1.Text = Val(lblbasamak1.Text) + 1

    lblbasamak2.Text = 1

    End If

    End If

    End Sub

    proje  linki:::http://rapidshare.com/files/177285228/klorametre.rar  umarım beğenilir..


    -----------------------------

     

    hacı program yazmadan çakıyorsan bana ulaş senle 1-2 proje yapalım...olurmu_?


    üniversite öğrencilerine devre tasarımı yapılır...! tekdag-elektronik.blogspot.com/
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    kafkefhacker
    kafkefhacker's avatar
    Kayıt Tarihi: 09/Aralık/2008
    Erkek

      ricin   yazılım  bölümüm az  çok  anlıyorum  ulaşırım ben sana...

     


    Y4 S3V Y4 T3RK 33T.
Toplam Hit: 2790 Toplam Mesaj: 9