DH Anasayfa
İndirim Kodu
Ara
Popüler
Foruma Git
Hakkımızda
Destek
Mobil Sürüm
Standart Site Görünümü
Bu Konuda
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Arama butonu
Bağlan:
Facebook
Google+
Twitter
Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Küsürat Atma Vb
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
14
Cevap 500
Tıklama 0
Öne Çıkarma
Küsürat Atma Vb
Cevap Yaz
Konuya Özel
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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!



G
Guest-42B93504E
11 yıl
Binbaşı

Amacın nedir tam olarak anlayamadım. Daha düzgün bi şekilde yazabilirsin bence


Bu mesaja 2 cevap geldi.
M
Mephalay
11 yıl
Yarbay

Simple date formatter class ini kullan.



E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @greencraft
G
Guest-42B93504E
11 yıl
Binbaşı

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


Bu mesaja 1 cevap geldi.
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

ama tarihi devre dışı bırakamadım


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @greencraft
A
alife
11 yıl
Er

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.
< Resime gitmek için tıklayın >





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

Bu mesajda bahsedilenler: @emre_ermag155
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @alife
G
Guest-42B93504E
11 yıl
Binbaşı

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


Bu mesaja 1 cevap geldi.
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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 >
Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @greencraft
A
alife
11 yıl
Er

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

< Resime gitmek için tıklayın >


Bu mesaja 1 cevap geldi.
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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


Bu mesaja 2 cevap geldi.

Bu mesajda bahsedilenler: @alife
A
alife
11 yıl
Er

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

< Resime gitmek için tıklayın >


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @emre_ermag155
E
emre_ermag155
11 yıl
Yüzbaşı
Konu Sahibi

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




Bu mesajda bahsedilenler: @alife
L
lavara123
11 yıl
Yüzbaşı

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ı >
Cevap Yaz
Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Küsürat Atma Vb
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
App Store'danİndirin Google Play'denİndirin
Gizle ve güncelleme çıkana kadar tekrar gösterme.
DonanımHaber Forum - Mini Sürüm

Hakkımızda | Yukarı

Tam sürüm için tıklayınız
Version: 1.2.871
Donanım Sponsoru: incehesap.com