FAQ | Points | Add... | Recent posts | Search | Register | Log in


SummerTime - odliczanie do wybranej daty


Post new topic  Reply to topic      Main Page -> Forum Index -> Computer Programs -> SummerTime - odliczanie do wybranej daty
Author
Message
wiceq
Poziom 12
Poziom 12


Joined: 20 May 2007
Posts: 104
Location: Warszawa

Post#1 Post from the author of the topic 27 Oct 2009 18:47   

SummerTime - odliczanie do wybranej daty


Witam,
Kolejny program spod mojego "znaku".
Program służy do odliczania ilości dni do wybranej daty z kalendarza (najczęściej będzie to chyba koniec roku szkolnego :) ).
Dodaję instalator i plik .exe tak, żeby każdy mógł korzystać tak jak chce.

Oraz kod programu:
Quote:
Public Class Form1
Private Sub ZakończToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZakończToolStripMenuItem.Click
End
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
About.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dni, robocze, tyg As Single
dni = DateDiff(DateInterval.Day, Now, DateTimePicker1.Value)
TextBox3.Text = dni
tyg = dni / 7
robocze = -Int(-tyg * 5)
TextBox4.Text = robocze
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
About.Show()
End Sub
Private Sub KontaktToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontaktToolStripMenuItem.Click
kont.Show()
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
DateTimePicker1.MinDate = Now
End Sub
End Class

Quote:
Public Class kont

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.SelectAll()
TextBox1.Copy()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.SelectAll()
TextBox2.Copy()
End Sub
End Class

Quote:
Public NotInheritable Class About

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
End Class




SummerTime.exe
 Description:
 n/a

Download
 Filename:  SummerTime.exe
 Contents:  
 Filesize:  31.5 KB
 Punkty:  0


SummerTime 1.0.1.rar
 Description:
 n/a

Download
 Filename:  SummerTime 1.0.1.rar
 Contents:  
 Filesize:  205.01 KB
 Punkty:  0

Back to top
   
Post new topic  Reply to topic      Main Page -> Forum Index -> Computer Programs -> SummerTime - odliczanie do wybranej daty
Page 1 of 1
Similar topics
Skrót do wybranej strony www w wybranej przeglądarce (6)
HTML - przeładowywanie wybranej ramki (2)
Jakiego programu uzyc do wyłaczenia komputera o wybranej ... (7)
Jak wyłączyć aktualizację wybranej poprawki Windows XP (1)
Instalacja windows 98 na wybranej partycji czy to możliwe? (7)
Konfiguracja strony dla wybranej domeny hostingu (6)
Priv.ovh.org - reklama zamiast wybranej strony. (1)

Page generation time: 0.074 seconds


FAQ || Administrator || Moderators || Widgets and banners || Contact
elektroda.pl topic RSS feed