PPT全屏时钟
PPT全屏演示时在屏幕上显示的时钟,安装后只要打开ppt即可自动启动该插件,同时如果使用触摸屏,担心误翻页,只需打开相应功能,同时还可以标注画线。
长峰网 alfeng.com
2012高考倒计时软件
当晨起的朝阳拂散睡意,你满怀自信地走入考场,可否想起300天前的今天在桌前挥洒的汗水与梦中不忘的愿望;当时间一分一秒流走,你是否想起300天来西窗的烛火映照在父母的两鬓青霜;倒计时开始的一刻,意味着热血充斥着信仰,在胸中奔涌流淌;倒计时开始的一刻,学弟学妹们,用热情踏上不远的征程,用青春见证梦想的美丽绽放~
高考是人生中至关重要的一关。面临高考,时间又显得是那样的宝贵。如何提醒学生珍惜宝贵的时间呢?《2012高考倒计时软件(多媒体教室高考倒计时)》由“长峰科技”专为高三师生(教室)开发,用于对指定时间进行倒数记时,倒计时可以精确到天、小时、分钟、秒,将它挂在电脑屏幕上(尤其是教室的过媒体),看着时间一分一秒地过去,刻提醒学生时间的紧迫,提醒考生珍惜时间,做好考前冲刺复习。
运行中界面,功能你可以看到了(图1)
嵌入桌面,不会遮挡其他应用程序窗体(图2)
开机自启动。
不影响桌面操作,看桌面右键菜单照常显示(图3)
生肖图标 日期时间 农历 节日 节气都可显示,同时也都可以通过修改配置文件隐藏(图4.5.6)
生肖图标随年份变,同时还可以自定义成自己的班徽或者企业标志
如果你愿意,可以通过修改配置文件自定随机显示励志语,激励学生,可以设置励志语轮换速度。(在安装目录下有一个“励志.txt”,可以把收集的励志语保存到里面)
主标题和副标题都可以自己设置,因此这个倒计时软件也就不仅仅应用与高考倒计时了,也可以做其他倒计时,普通的倒计时,下一次的奥运倒计时
倒计时时间可以自主设置,不过尽可能不要超过提前三年倒计时,比如今天2012-2-12,你尽量不要用这个程序计算2015年以后的事件,否则程序可能会不好看。
桌面右下角托盘图标可以控制程序。
落款灰色区域是自己的班名(河北武邑中学 0905)也可以是“六月之花这里绽放” “六月之花五班绽放”“梦想开始的地方”等个性化班名。
程序没有倒计时时间限制
有支持语音版的,每次启动自动播放“距2012年高考还有×××天”或者其他副标题和倒计时天的内容。语音播放倒计时程序,不过还得安装win语音库,软件太大,不值,新版去掉了,有需要的可以定制,或者直接录音也可以,只要你确定了倒计时内容就可以做了。
高三百日誓师马上开始了,把这个程序放到教室电脑上,让学生每天都倍受鼓舞吧!
软件持续更新,最新版本,关注www.alfeng.com或alfeng.com [ALFENG.COM]
定制各类教育教学软件,其他行业软件,专业设计制作毕业光盘,专业技术人员负责照片故事的串联构建,专业人员负责照片解说词的编写,专业的配音旁白,专业的美工技术,为你的班级留下最完美的记忆。
http://www.alfeng.com
全部显示,如果你选择了,每逢节日节气还会在农历下方显示节日,节气。
倒计时窗口不遮挡任何程序
鼠标在程序的任何部位点击右键,桌面菜单都能显示出来,就好像桌面背景一样,当然这绝对不是桌面壁纸,这是程序,看到那秒了吗?每一秒都在变化,如果是每秒变换壁纸,电脑你就用不成了,耗内存不说,但是桌面就闪不停,不停的刷新啊!!!该软件占内存很小,并且不会重复运行。
生肖图标和时间及农历都隐藏了。
励志语隐藏了。
精确的倒计时时间显示也隐藏了,这些你都也已任选。
托盘图标带有右键菜单,方便的控制程序
落款灰色区域是自己的班名(河北武邑中学 0905)也可以是“六月之花这里绽放” “六月之花五班绽放”“梦想开始的地方”等个性化班名。
长峰倒计时
【长峰倒计时软件安装程序】
【安装注意事项】
•如果安全软件弹出是否允许运行等请点击放行,主要有三部分:
• 1.注册字体需用vbs
• 2.加入开机启动需要允许放行
• 3.可能你在桌面解压,桌面运行程序需要安全软件同意
• 4.所有文件不能改名
• 5.在弹出的gkdjs.ini中设置参数
【软件说明】
修改安装目录下的gkdjs.ini可以改变计时参数
修改励志.txt可以修改或增加励志格言
文件位置很重要,选择你要安装到的目录
为了本软件的生存,请在每天唯一一次的广告弹出后点击一下,谢谢!
或者购买共享版
【计时器参数】
标题=高考倒计时
内容=2012年高考
班级=河北武邑中学 0905班
时间=2012/6/7 08:00:00
徽标=
显示日期和时间=是
显示节日和节气=是
显示生肖图标=是
显示励志标语=是
励志语时间间隔=30
显示精确倒计时=是
长峰科技
http://alfeng.com
Email:mytoday2004@163.com
QQ:360321969
http://phyedu.ys168.com
遥控解码通过电脑串口显示.rar
遥控解码通过电脑串口显示 ,单片机开发,此实验 采用11.0592MHZ晶振
程序下载到芯片后 在电脑上运行串口调试软件
选择好COM口号
设置波特率为57600 把HEX显示选项打钩 在接收框里 就可以看到结果了
把richtextbox中的文档显示到Picturebox中的代码
以前见到别人的程序把word内容显示后根本无法编辑,鼠标都点不动,后来spy++后才知是picture控件,于是就开始研究。把richtextbox中的文档显示到Picturebox中的代码
昨天一天就没有把它上传上来,一整天除了备课就是研究这一程序了,终于功夫不负有心人,以后如果你有文档不想被人使用,将资料保存到加密的数据库中,然后通过程序读到richtextbox中去,把richtextbox中的文档直接显示到Picturebox中,别人无法复制,无法修改,只能看,不能摸,b奥胡文档比较好的方法。(我没有做从数据库存储这一功能),只是把加密显示技术公开而已
vb 万年历代码
\'日期数据定义方法如下
\'前12个字节代表1-12月为大月或是小月,1为大月30天,0为小月29天,第13位为闰月的情况,1为大月30天,0为小月29天,第14位为闰月的月
\'份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来表示,即使用16进制。最后4位为当年农历新年-即农历1月1日所在公历
\'的日期,如0131代表1月31日。FunGetDate函数使用方式如下tYear为要输入的年,tMonth为月,tDay为
\'日期,YLyear是返回值,返加农历的年份,如甲子年,YLShuXing返回的是属象,如鼠。IsGetGongLi是设置是不是通过农历取公历值,如果是,
\'前三个返回相应的公历日期,而且返回值是一个公历日期。
\'by lichangfeng mytoday2004@163.com 2007.4.5 5:30
Function FunGetDate(tYear As Integer, tMonth As Integer, tDay As Integer, YLyear As String, YLShuXing As String, Optional IsGetGongLi As Boolean) As String
On Error Resume Next
Dim dateList(1900 To 2011) As String * 18
Dim conDate As Date, setDate As Date
Dim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integer
Dim RunYue As Boolean
If tYear > 2010 Or tYear < 1901 Then Exit Function \'如果不是有效有日期,退出
\'1900 to 2009
dateList(1900) = \"010010110110180131\"
dateList(1901) = \"010010101110000219\"
dateList(1902) = \"101001010111000208\"
dateList(1903) = \"010100100110150129\"
dateList(1904) = \"110100100110000216\"
dateList(1905) = \"110110010101000204\"
dateList(1906) = \"011010101010140125\"
dateList(1907) = \"010101101010000213\"
dateList(1908) = \"100110101101000202\"
dateList(1909) = \"010010101110120122\"
dateList(1910) = \"010010101110000210\"
dateList(1911) = \"101001001101160130\"
dateList(1912) = \"101001001101000218\"
dateList(1913) = \"110100100101000206\"
dateList(1914) = \"110101010100150126\"
dateList(1915) = \"101101010101000214\"
dateList(1916) = \"010101101010000204\"
dateList(1917) = \"100101101101020123\"
dateList(1918) = \"100101011011000211\"
dateList(1919) = \"010010011011170201\"
dateList(1920) = \"010010011011000220\"
dateList(1921) = \"101001001011000208\"
dateList(1922) = \"101100100101150128\"
dateList(1923) = \"011010100101000216\"
dateList(1924) = \"011011010100000205\"
dateList(1925) = \"101011011010140124\"
dateList(1926) = \"001010110110000213\"
dateList(1927) = \"100101010111000202\"
dateList(1928) = \"010010010111120123\"
dateList(1929) = \"010010010111000210\"
dateList(1930) = \"011001001011060130\"
dateList(1931) = \"110101001010000217\"
dateList(1932) = \"111010100101000206\"
dateList(1933) = \"011011010100150126\"
dateList(1934) = \"010110101101000214\"
dateList(1935) = \"001010110110000204\"
dateList(1936) = \"100100110111030124\"
dateList(1937) = \"100100101110000211\"
dateList(1938) = \"110010010110170131\"
dateList(1939) = \"110010010101000219\"
dateList(1940) = \"110101001010000208\"
dateList(1941) = \"110110100101060127\"
dateList(1942) = \"101101010101000215\"
dateList(1943) = \"010101101010000205\"
dateList(1944) = \"101010101101140125\"
dateList(1945) = \"001001011101000213\"
dateList(1946) = \"100100101101000202\"
dateList(1947) = \"110010010101120122\"
dateList(1948) = \"101010010101000210\"
dateList(1949) = \"101101001010170129\"
dateList(1950) = \"011011001010000217\"
dateList(1951) = \"101101010101000206\"
dateList(1952) = \"010101011010150127\"
dateList(1953) = \"010011011010000214\"
dateList(1954) = \"101001011011000203\"
dateList(1955) = \"010100101011130124\"
dateList(1956) = \"010100101011000212\"
dateList(1957) = \"101010010101080131\"
dateList(1958) = \"111010010101000218\"
dateList(1959) = \"011010101010000208\"
dateList(1960) = \"101011010101060128\"
dateList(1961) = \"101010110101000215\"
dateList(1962) = \"010010110110000205\"
dateList(1963) = \"101001010111040125\"
dateList(1964) = \"101001010111000213\"
dateList(1965) = \"010100100110000202\"
dateList(1966) = \"111010010011030121\"
dateList(1967) = \"110110010101000209\"
dateList(1968) = \"010110101010170130\"
dateList(1969) = \"010101101010000217\"
dateList(1970) = \"100101101101000206\"
dateList(1971) = \"010010101110150127\"
dateList(1972) = \"010010101101000215\"
dateList(1973) = \"101001001101000203\"
dateList(1974) = \"110100100110140123\"
dateList(1975) = \"110100100101000211\"
dateList(1976) = \"110101010010180131\"
dateList(1977) = \"101101010100000218\"
dateList(1978) = \"101101101010000207\"
dateList(1979) = \"100101101101060128\"
dateList(1980) = \"100101011011000216\"
dateList(1981) = \"010010011011000205\"
dateList(1982) = \"101001001011140125\"
dateList(1983) = \"101001001011000213\"
dateList(1984) = \"1011001001011A0202\"
dateList(1985) = \"011010100101000220\"
dateList(1986) = \"011011010100000209\"
dateList(1987) = \"101011011010060129\"
dateList(1988) = \"101010110110000217\"
dateList(1989) = \"100100110111000206\"
dateList(1990) = \"010010010111150127\"
dateList(1991) = \"010010010111000215\"
dateList(1992) = \"011001001011000204\"
dateList(1993) = \"011010100101030123\"
dateList(1994) = \"111010100101000210\"
dateList(1995) = \"011010110010180131\"
dateList(1996) = \"010110101100000219\"
dateList(1997) = \"101010110110000207\"
dateList(1998) = \"100100110110150128\"
dateList(1999) = \"100100101110000216\"
dateList(2000) = \"110010010110000205\"
dateList(2001) = \"110101001010140124\"
dateList(2002) = \"110101001010000212\"
dateList(2003) = \"110110100101000201\"
dateList(2004) = \"010110101010120122\"
dateList(2005) = \"010101101010000209\"
dateList(2006) = \"101010101101170129\"
dateList(2007) = \"001001011101000218\"
dateList(2008) = \"100100101101000207\"
dateList(2009) = \"110010010101150126\"
dateList(2010) = \"101010010101000214\"
dateList(2011) = \"101101001010000214\"
AddYear = tYear
RunYue = False
If IsGetGongLi Then
AddMonth = Val(Mid(dateList(AddYear), 15, 2))
AddDay = Val(Mid(dateList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
AddDay = tDay
For i = 1 To tMonth - 1
AddDay = AddDay + 29 + Val(Mid(dateList(tYear), i, 1))
Next i
\'MsgBox DateDiff(\"d\", conDate, Date)
setDate = DateAdd(\"d\", AddDay - 1, conDate)
FunGetDate = setDate
tYear = Year(setDate)
tMonth = Month(setDate)
tDay = Day(setDate)
Exit Function
End If
CHUSHIHUA:
AddMonth = Val(Mid(dateList(AddYear), 15, 2))
AddDay = Val(Mid(dateList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
setDate = DateSerial(tYear, tMonth, tDay)
getDay = DateDiff(\"d\", conDate, setDate)
If getDay < 0 Then AddYear = AddYear - 1: GoTo CHUSHIHUA
\' addday = NearDay
AddDay = 1: AddMonth = 1
For i = 1 To getDay
AddDay = AddDay + 1
If AddDay = 30 + Mid(dateList(AddYear), AddMonth, 1) Or (RunYue And AddDay = 30 + Mid(dateList(AddYear), 13, 1)) Then
If RunYue = False And AddMonth = Val(\"&H\" & Mid(dateList(AddYear), 14, 1)) Then
RunYue = True
Else
RunYue = False
AddMonth = AddMonth + 1
End If
AddDay = 1
End If
Next
md$ = \"初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十\"
dd$ = Mid(md$, (AddDay - 1) * 2 + 1, 2)
mm$ = Mid(\"正二三四五六七八九十寒腊\", AddMonth, 1) + \"月\"
YouGetDate = DateSerial(AddYear, AddMonth, AddDay)
tiangan$ = \"甲乙丙丁戊已庚辛壬癸\"
dizhi$ = \"子丑寅卯辰巳午未申酉戌亥\"
Dim ganzhi(0 To 59) As String * 2
For i = 0 To 59
ganzhi(i) = Mid(tiangan$, (i Mod 10) + 1, 1) + Mid(dizhi$, (i Mod 12) + 1, 1)
\'ff$ = ff$ + ganzhi(i)
Next i
\'MsgBox ff$, , Len(ff$)
YLyear = ganzhi((AddYear - 4) Mod 60)
shu$ = \"鼠牛虎兔龙蛇马羊猴鸡狗猪\"
YLShuXing = Mid(shu$, ((AddYear - 4) Mod 12) + 1, 1)
If RunYue Then mm$ = \"闰\" + mm$
FunGetDate = mm$ + dd$
End Function
\'添加三个combobox控件
\'四个标签\"年\"\"月\"\"日\",其中一个caption为空name 为lb作为显示日期的容器
Private Sub Combo1_Click()
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(Combo1.Text, Combo2.Text, Combo3.Text, yl, sx, yOn) & \" \" & yl & \" \" & sx
End Sub
Private Sub Combo2_Click()
com11 = Combo3.Text
Combo3.Clear
Select Case Combo2.Text
Case 1
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 2
If Combo1.Text Mod 4 <> 0 Then
For i = 1 To 28
Combo3.AddItem i, i - 1
Next
Else
For i = 1 To 29
Combo3.AddItem i, i - 1
Next
End If
Case 3
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 4
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 5
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 6
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 7
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 8
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 9
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 10
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 11
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 12
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
End Select
Combo3.Text = com11
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(com11), yl, sx, yOn) & \" \" & yl & \" \" & sx
End Sub
Private Sub Combo3_Click()
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(Combo3.Text), yl, sx, yOn) & \" \" & yl & \" \" & sx
End Sub
Private Sub Form_Load()
For i = 1900 To 2011
Combo1.AddItem i, i - 1900
Next
For i = 1 To 12
Combo2.AddItem i, i - 1
Next
Select Case Combo2.Text
Case 1
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 2
If Combo1.Text Mod 4 <> 0 Then
For i = 1 To 28
Combo3.AddItem i, i - 1
Next
Else
For i = 1 To 29
Combo3.AddItem i, i - 1
Next
End If
Case 3
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 4
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 5
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 6
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 7
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 8
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 9
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 10
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 11
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 12
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
End Select
Combo1.Text = Year(Now)
Combo2.Text = Month(Now)
Combo3.Text = Day(Now)
End Sub