Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Küsürat Atma Vb

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
15
Cevap
0
Favori
528
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
Öne Çıkar
0 oy
Sayfa: 1
Giriş
Mesaj
  • Ben bir sayaç yaptım ama çıkan sonuçtan küşüratı atmak istiyorum ve - yi kaldırmak.
    Kod:
    ((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0).AddDays(((((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0)).TotalDays.ToString()).Split(",")(0) + 1)))).ToString())
    Sonuç:
    -15:05:08.0198847
    İstenen Sonuç:
    15:05:08
    Not: Sayaç geri sayım yapmaktadır!



    _____________________________
  • Amacın nedir tam olarak anlayamadım. Daha düzgün bi şekilde yazabilirsin bence
    _____________________________
  • Simple date formatter class ini kullan.
    _____________________________
  • amacım okulda tenefüse veya derse kaç ne kadar kaldığını hesaplayan bir program
    _____________________________
  • quote:

    Orijinalden alıntı: emre_ermag155

    amacım okulda tenefüse veya derse kaç ne kadar kaldığını hesaplayan bir program

    (Tenefüs-Now) Kardeşim bu yeterli. Zaten sürekli olarak Now değeri artacağından kendi kendine sayacaktır
    _____________________________
  • ama tarihi devre dışı bırakamadım
    _____________________________
  • emre_ermag155 E kullanıcısına yanıt
    Merhaba arkadaşım

    Şöyle bir önerim var: (Bu arada vb.net di inşallah.) 

     
          Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
       
              Dim difference As TimeSpan = New DateTime(2014, 9, 12, 23, 0, 0) - DateTime.Now 
              Dim hours = Math.Floor(difference.TotalHours) 
              Dim minutes = difference.Minutes 
              Dim seconds = difference.Seconds 
       
              Label1.Text = hours.ToString() & ":" & minutes.ToString() & ":" & seconds 
       
       
          End Sub 
       
          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
              Timer1.Enabled = True 
          End Sub


    Saygılarımla.
    Küsürat Atma Vb



    < Bu mesaj bu kişi tarafından değiştirildi alife -- 12 Eylül 2014; 22:05:37 >
    _____________________________




    • Yapay Zeka’dan İlgili Konular
    Birden fazla yere myp ek madde 1 ile yatay geçiş başvurusu yapan var mı? ve %30 ile ilgili bir soru
    geçen yıl açıldı
    Birden Çok Resmi Alt Alta Tek Bir Resim Dosyası Yapma?
    14 yıl önce açıldı
    Fiziki olarak kayıp karttaki bonus puanı kullanma (fikir fırtınası)
    6 yıl önce açıldı
    Daha Fazla Göster
  • alife kullanıcısına yanıt
    yazdığınız program anlık için geçerli ama örneğin bir hafta sonra çalışmaz
    _____________________________
  • quote:

    Orijinalden alıntı: emre_ermag155

    yazdığınız program anlık için geçerli ama örneğin bir hafta sonra çalışmaz


    Hocam tavsiyem bi gidip fonksiyon nedir sınıf nedir nesne nedir bunları öğrenmeniz
    _____________________________
  • siz benim en başta dediğim şekilde yapabilirmisiniz
    yazdığım koddaki hiç bir özelliği kaybetmemesi lazım bende bilirim iki satırda yazıp bırakmayı ama olmuyor işte bu kadar uzun olmasının sebebi bu ama bu eksiyi ve küsüratı çıkartamadım
    bide son yazdığınzla konunun alakasını çözemedim



    < Bu mesaj bu kişi tarafından değiştirildi emre_ermag155 -- 12 Eylül 2014; 23:40:24 >
    _____________________________
  • Merhaba arkadaşım
    Sen istiyorsun ki biri oturup programı yazsın
    Benim de canım sıkılıyordu oturdum yazdım

    Kısaca şöyle yaptım :
    xml içerisine haftanın 7 gününe ait olayları ,başlama ve bitiş saatlerini yazdım.

    program açıldığında bu xml i okuyor. Bulunduğun günü xml deki ile eşleştiriyor.
    (p.tesi haftanın 1. günü,Salı = 2,...)

    Bu okuduğunu ayrıca Olay class ından oluşan bir arraya atıyor ve bu array ile şu anı karşılaştırarak bir sonraki olaya ne kadar kaldığını bulabiliyorsun.

    Bu da olmadı dersen bu işi bırakacağım

    Sevgiler.

    Projeyi şuradan indirebilirsin:
    WindowsApplication2 
     
     https://yadi.sk/d/OaInHY7ybT9Eh


    XML içeriği: 
     
      <?xml version="1.0" encoding="utf-8" ?> 
      <okul> 
        <gun deger="1"> 
          <olay adi="1.Ders" baslamaSaati="09:00:00" bitisSaati="09:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="09:45:01" bitisSaati="10:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="10:00:01" bitisSaati="10:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="10:45:01" bitisSaati="11:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="11:00:01" bitisSaati="11:45:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="12:00:01" bitisSaati="13:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="13:00:01" bitisSaati="13:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="2"> 
          <olay adi="1.Ders" baslamaSaati="09:00:00" bitisSaati="09:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="09:45:01" bitisSaati="10:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="10:00:01" bitisSaati="10:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="10:45:01" bitisSaati="11:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="11:00:01" bitisSaati="11:45:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="12:00:01" bitisSaati="13:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="13:00:01" bitisSaati="13:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="3"> 
          <olay adi="1.Ders" baslamaSaati="09:00:00" bitisSaati="09:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="09:45:01" bitisSaati="10:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="10:00:01" bitisSaati="10:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="10:45:01" bitisSaati="11:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="11:00:01" bitisSaati="11:45:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="12:00:01" bitisSaati="13:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="13:00:01" bitisSaati="13:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="4"> 
          <olay adi="1.Ders" baslamaSaati="09:00:00" bitisSaati="09:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="09:45:01" bitisSaati="10:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="10:00:01" bitisSaati="10:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="10:45:01" bitisSaati="11:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="11:00:01" bitisSaati="11:45:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="12:00:01" bitisSaati="13:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="13:00:01" bitisSaati="13:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="5"> 
          <olay adi="1.Ders" baslamaSaati="09:00:00" bitisSaati="09:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="09:45:01" bitisSaati="10:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="10:00:01" bitisSaati="10:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="10:45:01" bitisSaati="11:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="11:00:01" bitisSaati="11:45:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="12:00:01" bitisSaati="13:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="13:00:01" bitisSaati="13:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="6"> 
          <olay adi="1.Ders" baslamaSaati="00:00:00" bitisSaati="00:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="00:45:01" bitisSaati="01:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="01:00:01" bitisSaati="01:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="01:45:01" bitisSaati="02:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="02:00:01" bitisSaati="02:22:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="02:22:01" bitisSaati="03:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="03:00:01" bitisSaati="03:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
        <gun deger="7"> 
          <olay adi="1.Ders" baslamaSaati="00:00:00" bitisSaati="00:45:00"></olay> 
          <olay adi="1.Teneffüs" baslamaSaati="00:45:01" bitisSaati="01:00:00"></olay> 
          <olay adi="2.Ders" baslamaSaati="01:00:01" bitisSaati="01:45:00"></olay> 
          <olay adi="2.Teneffüs" baslamaSaati="01:45:01" bitisSaati="02:00:00"></olay> 
          <olay adi="3.Ders" baslamaSaati="02:00:01" bitisSaati="02:22:00"></olay> 
          <olay adi="3.Teneffüs" baslamaSaati="02:22:01" bitisSaati="03:00:00"></olay> 
          <olay adi="4.Ders" baslamaSaati="03:00:01" bitisSaati="03:45:00"></olay> 
          <olay adi="4.Teneffüs" baslamaSaati="13:45:01" bitisSaati="14:00:00"></olay> 
          <olay adi="5.Ders" baslamaSaati="14:00:01" bitisSaati="15:00:00"></olay> 
        </gun> 
      </okul>


    VB.NET kodu: 

     
      Imports System.Xml 
      Public Class Form1 
          Dim olaylar As New List(Of Olay) 
          Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
              For Each obj As Olay In olaylar 
                  Dim baslamaAni As DateTime = New DateTime(Today.Year, Today.Month, Today.Day, obj.baslamaSaati.Substring(0, 2), obj.baslamaSaati.Substring(3, 2), obj.baslamaSaati.Substring(6, 2)) 
       
                  If baslamaAni > DateTime.Now Then 
                      TextBox1.Text = DateTime.Now.ToString() 
                      TextBox2.Text = obj.baslamaSaati 
                      TextBox3.Text = obj.adi 
                      Label2.Text = obj.adi & " için kalan zaman:" 
                      Dim difference As TimeSpan = baslamaAni - DateTime.Now 
                      TextBox4.Text = difference.ToString() 
                      Exit For 
                  End If 
       
       
                  'Response.Write(obj.Momentum.ToString() + "<br/>") 
              Next 
          End Sub 
       
          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
              Dim ds As New DataSet 
              Dim dt As DataTable 
              Dim dr As DataRow 
              Dim adiCol As DataColumn 
              Dim baslamaCol As DataColumn 
              Dim bitisCol As DataColumn 
       
              dt = New DataTable() 
              adiCol = New DataColumn("adi", Type.GetType("System.String")) 
              baslamaCol = New DataColumn("baslamaSaati", Type.GetType("System.String")) 
              bitisCol = New DataColumn("bitisSaati", Type.GetType("System.String")) 
       
              dt.Columns.Add(adiCol) 
              dt.Columns.Add(baslamaCol) 
              dt.Columns.Add(bitisCol) 
       
              Dim reader As XmlDocument 
              reader = New XmlDocument() 
              reader.Load(System.IO.Path.GetFullPath(Application.StartupPath & "\dersprogrami.xml")) 
              Dim m_nodelist As XmlNodeList 
              Dim m_node As XmlNode 
       
              m_nodelist = reader.SelectNodes("okul/gun") 
       
              For Each m_node In m_nodelist 
                  Dim haftaGunu = m_node.Attributes.GetNamedItem("deger").Value 
                  If Convert.ToInt32(haftaGunu) = Weekday(Now, FirstDayOfWeek.Monday) Then 
                      Dim m_nodelist1 As XmlNodeList 
                      Dim m_node1 As XmlNode 
       
                      m_nodelist1 = m_node.SelectNodes("olay") 
                      For Each m_node1 In m_nodelist1 
                          dr = dt.NewRow() 
                          dr("adi") = m_node1.Attributes.GetNamedItem("adi").Value 
                          dr("baslamaSaati") = m_node1.Attributes.GetNamedItem("baslamaSaati").Value 
                          dr("bitisSaati") = m_node1.Attributes.GetNamedItem("bitisSaati").Value 
                          olaylar.Add(New Olay() With {.adi = m_node1.Attributes.GetNamedItem("adi").Value, .baslamaSaati = m_node1.Attributes.GetNamedItem("baslamaSaati").Value, .bitisSaati = m_node1.Attributes.GetNamedItem("bitisSaati").Value}) 
                          dt.Rows.Add(dr) 
                      Next 
                  End If 
              Next 
              ds.Tables.Add(dt) 
              DataGridView1.DataSource = ds.Tables(0) 
              Timer1.Enabled = True 
          End Sub 
      End Class


    Olay.vb classı: 
     
      Public Class Olay 
          Public adi As String 
          Public baslamaSaati As String 
          Public bitisSaati As String 
      End Class

    Küsürat Atma Vb
    _____________________________




  • alife kullanıcısına yanıt
    bu kodlar ertesi güne kalan saati hesaplarken sorun çıkartıyor
    ben o yüzden o kadar karmaşık kod yazdım
    siz şöyle düşünün
    sizin elinizde şu var -15:05:08.0198847
    bunu öyle bir şekilde dönüştüreceksinizki
    bu sayı olacak
    bu 15:05:08
    _____________________________
  • emre_ermag155 E kullanıcısına yanıt
    Niye buna takıldın anlamadım ama... Bence bakış açını değiştirmelisin.

    Aşağıdaki inşallah işini görür : 

     
          Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
              Dim fark As String 
              fark = ((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0).AddDays(((((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0)).TotalDays.ToString()).Split(",")(0) + 1)))).ToString()) 
              TextBox1.Text = fark 
              TextBox2.Text = fark.Substring(1, fark.Length - fark.IndexOf(".")).Replace("-", "") 
          End Sub

    Küsürat Atma Vb
    _____________________________




  • alife kullanıcısına yanıt
    tessekürler
    ((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0).AddDays(((((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0)).TotalDays.ToString()).Split(",")(0) + 1)))).ToString()).Substring(1, ((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0).AddDays(((((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0)).TotalDays.ToString()).Split(",")(0) + 1)))).ToString()).Length - ((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0).AddDays(((((Date.Now - New DateTime(2014, 6, 25, 16, 10, 0)).TotalDays.ToString()).Split(",")(0) + 1)))).ToString()).IndexOf(".")).Replace("-", "")

    bu kadar uzun olsada oldu
    _____________________________
  • quote:

    Orijinalden alıntı: emre_ermag155

    bu kodlar ertesi güne kalan saati hesaplarken sorun çıkartıyor
    ben o yüzden o kadar karmaşık kod yazdım
    siz şöyle düşünün
    sizin elinizde şu var -15:05:08.0198847
    bunu öyle bir şekilde dönüştüreceksinizki
    bu sayı olacak
    bu 15:05:08

    bunu bukadar çokmu istiyorsun misal..:

    Convert.ToDateTime( "-15:05:08.0198847".Substring(1, 8) );

    < Bu ileti mini sürüm kullanılarak atıldı >
    _____________________________
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum