用vb程序设计一个电子时钟

label字体什么的自己改吧，主要功能实现了

Private Sub Form_Load()

Timer1Enabled = True

Timer1Interval = 1000

Timer2Enabled = False

Timer2Interval = 500

End Sub

Private Sub Timer1_Timer()

Label1Caption = Time

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

If Not IsDate(Text1Text) Then

MsgBox "时间格式错误，正确应为HH:MM:SS"

Else

Text1Locked = True

Timer2Enabled = True

End If

End If

End Sub

Private Sub Timer2_Timer()

Dim lTime As Integer

Static LblColor As Boolean

lTime = DateDiff("s", Time, Text1Text)

If lTime <= 0 Then

If LblColor = True Then

Label1BackColor = vbRed

LblColor = False

Else

Label1BackColor = vbWhite

LblColor = True

End If

End If

End Sub

1修改

Private Sub Form1_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

Timer1Interval = 1000 ‘每1秒响应一次

Timer1Enabled = True

End Sub

2添加Timer事件函数

Private Sub Timer1_Timer()

dtsys = DateTimeNow

If dtsys = dtseted Then

MessageBoxShow("ok")

End If

End Sub

闹钟在编程思维上有两部分：计时和报警

大体思路如下：

用一个timer，每秒钟检测系统时间，用now()。（如果你只想精确到分钟就每分钟检测一次，看你需要了）

当系统时间等于设定值时，用msgbox提醒用户时间已到

如果msgbox不够明显，可以用“Shell AppPath & "\程序名1EXE"启动一个音乐播放器，播放事先设置好的音乐，或实现你自己想要的效果。

你好:

这个问题比较简单,只需要一个timer控件,一个textbox 一个label,一个按钮!

首先textbox作为设置时间用的,输入你想定的时刻,注意格式 00:00:00之类的,要看你取的系统时间格式

点按钮,让时间显示在label里,

然后让timer一直监视系统的时间,并和label的时间作比较, 当两时间吻合的时候,就处理你想做的事情(打开一个程序,放音乐,或者关机之类的),这样 一个简单的闹钟旧出来了^_^

呵呵 主你成功,有什么问题直接问!

不能手术治疗啊慢性支气管炎的可能啊,有炎症还是应该加上抗生素口服药物不见效的,建议输液抗炎治疗为好 因为还是输液血药浓度更高见效更快更好啊在当地医生指导下使用有痰的加上鲜竹沥口服试试 喘得厉害还应该平喘治疗和抗过敏治疗,缺氧症状明显还需要吸氧治疗,而且急性期最好是住院治疗啊平常注意防止受凉感冒啊 一定要禁烟 ,冬天最好是戴口罩啊夏季避免使用蚊香啊平常可以口服蜂蜜有很好的提高免疫力和止咳润肺的作用

气管炎治疗（一）控制感染 视感染的主要致病菌和严重程度或根据病原菌药敏选用抗生素轻者可口服,较重病人用肌注或静脉滴注抗生素常用的有青霉素G,红霉素,氨基甙类,喹诺酮类,头孢菌素类抗生素等,能单独应用窄谱抗生素应尽量避免使用广谱抗生素,以免二重感染或产生耐药菌（二）祛痰,镇咳 对急性发作期患者在抗感染治疗的同时,应用祛痰,镇咳药物,以改善症状迁延期病人尤应坚持用药,以求消除症状常用药物有氯化铵合剂,溴已新,维静宁等中成药止咳也有一定效果对老年体弱无力咳痰者或痰量较多者,应以祛痰为主,协助排痰,畅通呼吸道应避免应用强的镇咳剂,如可待因等以免抑制中枢及加重呼吸道阻塞和炎症,导致病情便化（三）解痉,平喘 常选用氨茶碱,特布他林（terbutaline）等口服或用沙丁胺醇等吸入剂若气道舒张剂使用后气道仍有持续阻塞,可使用皮质激素,泼尼松20－40mg/d（四）气雾疗法 气雾湿化吸入或加复方安息香酊,可稀释气管内的分泌物,有利排痰如痰液粘稠不易咳出,目前超声雾化吸入有一定帮助,亦可加入抗生素及痰液稀释剂

像你妈这种情况多半是慢性支气管炎,往往合并肺气肿肺心病病程多年,经久不愈这种慢性病往往三分靠治疗,七分靠保养手术是有指标的,未达指标盲目手术对患者有害无益也就是说除非万不得与,是不需手术的手术对60岁的患者伤害是巨大的

慢性支气管炎是因为长期的物理化学性刺激,反复感染等综合因素引起的气管支气管粘膜及周围组织的慢性非特异性炎症临床上以咳嗽,咳痰,喘息及反复发作的慢性过程为特征病情进展的话可以并发慢阻肺,慢性肺源性心脏病等严重影响劳动好和身体健康

慢性支气管炎以长期的反复逐渐加重的咳嗽为主,多咳白色泡沫样谈偶带血丝,反复感染为主这种病手术治疗我还没听说过,书本上也没查到过,一般是急性期治疗以控制感染祛痰止咳解痉平喘为主,控制感染用抗生素治疗,病情缓解的可以口服药物控制,这种病季节性加重,在好发时期,缓解期的时候定期服用预防性药物,病情发展较快或肺功能损害的患者,酌情用副作用小的抗菌谱较广的四环素,新诺明等,以提高机体的免疫力预防慢性支气管炎的急性发作也可以试试中医预防为主

这种病多由感染,理化因素,过敏气候有关,所以加强体育锻炼和耐寒锻炼,提高抗病能力,寒冷季节注意保暖,防止感冒吸烟者注意戒烟,改善环境卫生,空气污染的地方有过敏源的尽量少去适当劳动如果是在农村,冬天炉子不要放在屋里,改善居住环境

逐个回答你的问题

1）仅慢性支气管炎一般不会有你说的的这么严重,最好到医院系统检查一下看是否合并有肺气肿,肺心证,高血压等其他疾病,主要检查项目包括血尿常规,血糖,血脂,血压,胸部X光片,心电图,肺功能和血气分析等,明确病情后才能谈到治疗的问题

2）至于你说的手术,因为慢支是弥漫性病变,是不能手术的,仅有少数合并支扩等疾病的有手术指证临床上还是以保守治疗为主主要包括抗感染,止咳平喘,降压保护心脏,吸氧等

3）生活上除要注意保暖,加强营养和常规治疗外,如有条件可在家适当吸氧,可有效改善症状

你好,不知道你的母亲这些症状有多长时间了,有没有合并肺气肿,建议去医院查一个肺功能,看是否是慢性阻塞性肺疾病目前西医主要是急性期抗炎,解痉,平喘,配以雾化理疗,效果尚可,但是一旦停药,症状再次出现建议你中西医结合治疗,到当地的中医院中药汤剂联合治疗,同时中医对这种疾病的认识还有洞病夏治,效果还是不错的,配合药物贴膜中医认为本病属于中医学的“咳嗽”,“痰饮”,“咳喘”范畴本病的发生与发展常与外邪的反复侵袭,肺,脾,肾三脏功能失调密切相关急性发作期,大多因肺气虚弱,卫外不固外邪入侵,以致咳嗽反复发作；或因久咳不已,反复发作,或因年老体虚,肺脾肾气虚,水津不布,痰饮内停,阻遏于肺,引起长期咳喘,或因吸烟,饮酒等因素伤及于肺,进而形成本病病变经久不愈,则肺脾损及于肾,故病情严重者常伴有气喘不能平卧,动则尤甚等肾不纳气之候

中医辨证分型

肺燥感寒

症状咳嗽阵作,痰少,形寒,饮食减少,口燥不欲饮,舌苔薄白,脉象小滑

治法散寒清肺,顺气化痰

风热袭肺

症状咳嗽夜间喘甚,吐黄痰,身体疼痛,纳呆,大便两日未下,舌苔黄腻,脉象浮数

治法宣肺解表,泄热定喘

痰热雍肺

症状咳嗽不能平卧,烦躁咽痛口渴,咯白痰,舌红,脉弦滑

治法清热化痰,宣肺定喘

痰湿化燥

症状咳嗽痰多,黄白相间,咽红微感不适,大便偏干,小便多,舌苔薄黄腻,脉滑数

治法清燥化痰,宣通肺气

冬季锻炼防气管炎

冬季锻炼尤其是在剧烈运动后半小时,易产生运动过敏症大约有6%～8%的运动员曾在冬季室外锻炼时发生过运动过敏老年人和妇女更易出现运动过敏反应

因为运动能使体内细胞摄氧量发生变化,寒冷空气刺激皮肤,皮肤感受器传导到下丘脑,受下丘脑支配的垂体会调节内分泌功能,使体内组织胺,内啡肽分泌增加而诱发过敏症

冬季天气剧烈变化时,可暂停室外锻炼2～3天,改为室内活动；运动前要充分做好准备活动,以提高机体对寒冷的适应能力；锻炼时要掌握好运动量,一般不宜剧烈运动；锻炼前1～2小时最好不要进食,这有利于减少运动过敏症的发生

慢性支气管炎（简称）是指气管,支气管粘膜及其周围组织的慢性非特异性炎症临床上以咳嗽,咳痰或伴有喘息及反复发作的慢性过程为特征病情若缓慢进展,常并发阻塞性肺气肿,甚至肺动脉高压,肺原性心脏病它是一种常见病,尤以老年人多见病因病因尚未完全清楚,一般将病因分为外因和内因两个方面

一,外因：　

1吸烟 2感染因素感染是慢支发生发展的重要因素,主要为病毒和细菌感染3理化因素如刺激性烟雾,粉尘,大气污染的慢性刺激,常为慢支的诱发病因之一

4气候寒冷常为慢支发作的重要原因和诱因

5过敏因素

二,内因：

1呼吸道局部防御及免疫功能减低2植物神经功能失调综合上述因素,当机体抵抗力减弱时,气道存在不同程度敏感性（易感性）的基础上,有一种或多种外因的存在,长期反复作用,可发展成为慢支症状多缓慢起病,病程较长,反复急性发作而加重主要症状有慢性咳嗽,咳痰,喘息开始症状轻微,如吸烟,接触有害气体,过度劳累,气候变化或变冷感冒后,则引起急性发作或加重或由上呼吸道感染迁延不愈,演变发展为慢支到夏天气候转暖时多可自然缓解

（一）咳嗽：支气管粘膜充血,水肿或分泌物积聚于支气管腔内均可引起咳嗽咳嗽严重程度视病情而定,一般晨间咳嗽较重,白天从较轻,晚间睡前有阵咳或排痰（二）咳痰：由于夜间睡眠后管腔内蓄积痰液,起床后或体位变动引起刺激排痰,常以清晨排痰较多,痰液一般为白色粘液或浆液泡沫性,偶可带血（三）喘息或气急：喘息性慢支有支气管痉挛,可引起喘息,常伴有哮鸣音早期无气急现象反复发作数年,并发阻塞性肺气肿时,可伴有轻重程度不等的气急,先有劳动或活动后气喘,严重时动则喘甚,生活难以自理

检查：

一,X线检查：早期可无异常晚期可见两肺纹理增粗,紊乱,呈网状或条索状,斑点状阴影,以下肺野较明显

二,呼吸功能检查：早期常无异常发展到气道狭窄或有阻塞时,就有阻塞性通气功能障碍的肺功能表现

三,血液检查：慢支急性发作期或并发肺部感染时,可见白细胞计数及中性粒细胞增多缓解期多无变化

四,痰液检查　

治疗：

针对慢支的病因,病期和反复发作的特点,采取防治结合的综合措施在急性发作期和慢性迁延期应以控制感染和祛痰,镇咳为主伴发喘息时,应予解痉平喘的治疗对临床缓解期宜加强锻炼,增强体质,提高机体抵抗力,预防复发为主应宣传,教育病人自觉戒烟,避免和减少各种诱发因素

一,急性发作期的治疗

（一）控制感染 视感染的主要致病菌和严重程度或根据病原菌药敏选用抗生素轻者可口服,较重病人用肌注或静脉滴注抗生素常用的有青霉素G,红霉素,氨基甙类,喹诺酮类,头孢菌素类抗生素等,能单独应用窄谱抗生素应尽量避免使用广谱抗生素,以免二重感染或产生耐药菌株

（二）祛痰,镇咳对急性发作期患者在抗感染治疗的同时,应用祛痰,镇咳药物,以改善症状迁延期病人尤应坚持用药,以求消除症状常用药物有氯化铵合剂,溴已新,维静宁等中成药止咳也有一定效果对老年体弱无力咳痰者或痰量较多者,应以祛痰为主,协助排痰,畅通呼吸道应避免应用强的镇咳剂,如可待因等以免抑制中枢及加重呼吸道阻塞和炎症,导致病情恶化

（三）解痉,平喘常选用氨茶碱,特布他林（terbutaline）等口服或用沙丁胺醇(salbutamol)等吸入剂若气道舒张剂使用后气道仍有持续阻塞,可使用皮质激素,泼尼松20－40mg/d

（四）气雾疗法 气雾湿化吸入或加复方安息香酊,可稀释气管内的分泌物,有利排痰如痰液粘稠不易咳出,目前超声雾化吸入有一定帮助,亦可加入抗生素及痰液稀释剂

二,缓解期治疗 加强锻炼,增强体质,提高免疫功能,气功亦有一定效果,加强个人卫生,避免各种诱发因素的接触和吸入耐寒锻炼能预防感冒

慢性支气管炎的饮食调理：

喝牛奶

患慢性支气管炎的抽烟者喝牛奶有益抽烟又喝牛奶的人,其患慢性支气管炎的几率比那些抽烟但不喝牛奶的人显著地降低许多如果你非得抽烟,那么别忘了喝牛奶

多喝蔬果汁

果菜汁对慢性支气管炎有较好疗效,它不仅能止咳化痰,而且还能补充维生素与矿物质,对疾病的康复非常有益你可以将生萝卜,鲜藕,梨子切碎绞汁,加蜂蜜调匀服用对慢性支气管炎的热咳,燥咳疗效显著多吃青菜每餐可适量多吃一些蔬菜和豆制品,如白萝卜,胡萝卜及绿叶蔬菜等清淡易消化的食物

多吃蔬菜

每餐可适量多吃一些蔬菜和豆制品,如白萝卜,胡萝卜及绿叶蔬菜等清淡易消化的食物

多吃止咳平喘食物多吃一些止咳,平喘,祛痰,温肺,健脾的食品,如白果,枇杷,柚于,北瓜,山药,栗子,百合,海带,紫菜等应避免的食物忌食生冷,过咸,辛辣,油腻及烟,酒等刺激性的物品,以免加重症状

不要急于进补

人参,鹿茸等补晶在急性发作期或痰多,舌苔腻时都不宜用,否则胸闷气急更甚,病情反而加重

饮食上应注意下列几个方面：

(1)食物宜清淡：新鲜蔬菜,如白菜,菠菜,油菜,萝卜,胡萝卜,西红柿,黄瓜,冬瓜等,不仅能补充多种维生素和无机盐的供给,而且具有清痰,去火,通便等功能；黄豆及豆制品含人体需要的优质蛋白,可补充慢性气管炎对机体造成的营养损耗,又无聚痰化火之弊端

(2)患者咳嗽日久不愈,耗伤正气,肺脾虚弱故平时多选用具有健脾,益肺,补肾,理气,化痰的食物,如猪,牛,羊肺脏及枇杷,橘子,梨,百合,大枣,莲子,杏仁,核桃,蜂蜜等,有助于增强体质,改善症状(3)忌食海腥油腻之品因“鱼生火,肉生痰”,故慢性支气管炎小儿,应少吃黄鱼,带鱼,虾,蟹,肥肉等,以免助火生痰(4)不吃刺激性食物：辣椒,胡椒,蒜,葱,韭菜等辛辣之物,均能刺激呼吸道使症状加重；菜肴调味也不宜过咸,过甜,冷热要适度用百部100克,蜂蜜500克,清水5000克,先用清水煎百部至1000毫升,滤去渣,再加蜂蜜慢火熬膏,饭后冲服,每次1～2汤匙,每天3次对治疗慢性支气管炎久咳不愈甚验

慢性支气管炎（chronic bronchitis）是由于感染或非感染因素引起气管,支气管粘膜及其周围组织的慢性非特异性炎症其病理特点是支气管腺体增生,粘液分泌增多临床出现有连续两年以上,每持续三个月以上的咳嗽,咳痰或气喘等症状早期症状轻微,多在冬季发作,春暖后缓解；晚期炎症加重,症状长年存在,不分季节疾病进展又可并发阻塞性肺气肿,肺源性心脏病,严重影响劳动力和健康

治疗

（一）预防为主　吸烟是引起慢性支气管炎的重要原因,烟雾对周围人群也会带来危害,应大力宣传吸烟的危害性,要教育青少年杜绝吸烟同时,针对慢性支气管炎的发病因素,加强个人卫生,包括体育,呼吸和耐寒锻炼,以增强体质,预防感冒改善环境卫生,处理“三废”,消除大气污染,以降低发病率

（二）缓解期的治疗 应以增强体质,提高抗病能力和预防复发为主采用气管炎菌苗,一般在发作季节前开始应用,每周皮下注射一次,剂量自01ml开始,每次递增01～02ml,直至05～10ml为维持量有效时应坚持使用1～2年核酪注射液（麻疹病毒疫苗的培养液）每周肌肉或皮下注射2次,每次2～4ml；或卡介苗素注射液每周肌肉注射3次,每次1ml（含卡介苗提取物于重05mg）,在发病季节前用药,可连用3个月,以减少感冒及慢性支气管炎的发作必思添（Biostim）（克雷白肺炎杆菌提取的糖蛋白）首次治疗8天,2mg/d,停服3周；第2次治疗8天,1mg/d,停服3周；第3次治疗8天,1mg/d,连续3个月为一疗程可预防慢性反复呼吸道感染

（三）急性发作期及慢性迁延期的治疗　应以控制感染和祛痰,镇咳为主；伴发喘息时,加用解痉平喘药物

⑴抗菌治疗：一般病例可按常见致病菌为用药依据可选用复方磺胺甲恶唑（SMZ）每次2片,每日2次；阿莫西林2～4g/d,分3～4次口服；氨苄西林2～4g/d,分4次口服；头孢氨苄2～4g/d,或头孢拉定1～2g/d,分4次口服；头孢呋辛1g/d或头孢克洛500mg～1g/d分2～3次口服亦可选择新一代大环内酯类抗生素如罗红霉素03g/d,分2次口服抗菌治疗疗程一般7～10天,反复感染病例可适当延长经治疗三天后,病情未见好转者,应根据痰细菌培养药物敏感试验的结果,选择抗生素

严重感染时,可选用氨苄西林,环丙沙星,氧氟沙星,阿米卡星（丁胺卡那霉素）,奈替米星（乙基西梭霉素）或头孢菌素类联合静脉滴注给药

⑵祛痰镇咳药　可给沐舒痰（盐酸溴环已胺醇）30mg,或化痰片（羧甲基半胱氨酸）500mg,每日3次口服溴己新（必嗽平）,氯化铵棕色合剂等均有一定祛痰作用当痰粘稠不易咳出时,可用枇杷叶蒸气吸入,或用超声雾化吸入,以稀释气道内分泌物

检查一下程序运行到ss = Shell(Label1Caption, 1) 时，Label1Caption是否是一个包括完整路径的文件名。可以用这句前面加一句：debugprint Label1Caption来检查。

以上就是关于用vb程序设计一个电子时钟全部的内容，包括:用vb程序设计一个电子时钟、用VB做一个简单闹钟程序，到时间无反应。有源代码，不知道哪里错了、vb制作闹钟要怎么做代码（会响和的可以设置时间的）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！