长街听风旧巷--盖德问答-化工人互助问答社区

长街听风旧巷

影响力0.00

经验值0.00

粉丝12

技术员（储备干部）

关注已关注 私信

VB中创建超长时间计时器对象？ VB系统中提供了固有计时器 Timer控件，通过给计时器控件的Interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本文给出用Timer控件创建一个超长时间的计时器对象，并将其编译成ActiveX DLL部件，供其它应用程序调用，可实现最大限度地利用代码的可重用性。下面给出这个超长计时器对象的编程设计过程，供读者参考选用。 1．编写程序启动VB，新建一个ActiveX DLL工程，将工程命名为NewTimer，将类模块名Class1改名为LongTimer。在工程中添加一个窗体Form1，在窗体上加入一个Timer计时器控件Timer1。打开LongTimer类模块，尤肴缦鲁绦虼耄?br> Option Explicit Public Event Tick() '声明事件 Private nz As Integer Private cs As Integer Private m_Form As Form1 Private WithEvents m_Timer As Timer '声明对象类变量 '返回Enable属性值 Public Property Get Enabled() As Boolean Enabled = m_Timer.Enabled End Property '设置Enable属性值 Public Property Let Enabled(ByVal vNewValue As Boolean) m_Timer.Enabled = vNewValue End Property '返回Interval属性值 Public Property Get Interval() As Long Interval = m_Timer.Interval End Property '设置Interval属性值 Public Property Let Interval(ByVal vNewValue As Long) cs = 0 nz = vNewValue \ 65536 + 1 m_Timer.Interval = vNewValue \ nz End Property '类初始化事件 Private Sub CLASS_Initialize() Set m_Form = New Form1 Load m_Form Set m_Timer = m_Form.Timer1 End Sub '类终止事件 Private Sub CLASS_Terminate() Unload m_Form Set m_Timer = Nothing End Sub '产生Tick事件 Private Sub m_Timer_Timer() cs = cs + 1 If cs >= nz Then RaiseEvent Tick cs = 0 End If End Sub 窗体Form1只用来作计时器Timer1的载体，不用于显示。 2．测试 NewTimer.DLL 对ActiveX DLL部件进行测试，与标准的EXE程序一样，可分为单步运行或全运行。在写完所有程序代码后，建议用户先用Ctrl+F5进行全编译执行，发现检查NewTimer程序的语法错误。也可建立一个测试工程与NewTimer链接进行测试，针对由NewTimer类模块提供的每个属性和事件，添加测试代码来测试它们的属性和方法。按F8，进入单步运行状态，逐个语句察看对NewTimer类模块的调用情况。 3．编译NewTimer.DLL 完成测试，排除所有错误后，从“文件（F）”菜单中选择“生成NewTimer.dll（K)”命令，编译生成NewTimer.dll文件。编译成功后NewTimer.dll文件将自动注册到Windows注册表中， 4．引用NewTimer.DLL 引用ActiveX DLL部件同引用其他对象一样，从“工程（P）”菜单中选择“引用（N）”命令，打开引用窗口，从引用列表中选中NewTimer对象。如果是第一次引用NewTimer，则在引用窗体上单击“游览（B）”命令按钮，将NewTimer.DLL文件添加到可引用列表框中方可使用。 5．调用NewTimer.DLL 在应用程序中加入下述程序代码，实现参NewTimer.dll的调用： Option Explicit Dim WithEvents LongTimer1 As LongTimer Private Sub LongTimer1_Tick() Print "时间到，此处添加处理程序" End Sub Private Sub Command1_Click() LongTimer1.Interval = 12000 ‘两分钟 LongTimer1.Enabled = True End Sub Private Sub Form_Load() Set LongTimer1 = New LongTimer End Sub查看更多 0个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

技术求助：真的可以实现零排污吗? 最近几年总是听说某某工厂实现零排污，真的可以实现吗？那总会有除盐什么的剩下的浓水吧，都弄哪去了？是怎么处理的？查看更多 8个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

XXX市建设工程现场文明施工管理办法？ XXX市建设工程现场文明施工管理办法作者：颁布日期：执行日期：第一章、总则　　第一条、为加强本市建设工程现场文明施工的管理，维护市容整洁和城市安全，使文明施工规范化、标准化、制度化，根据国家建设部和省建委的有关规定，结合我市的实际情况，制定本办法。　　第二条、本办法适用于本市范围内房屋建设、土木工程、设备安装、市政道路、管线敷设等各项建设工程现场文明施工的管理。建设单位、施工单位和其他有关单位均应遵守本办法。　　第二章、现场文明施工设计　　第三条、施工总包单位在编制施工组织设计时，对文明施工必须进行设计，有关部门在审查施工组织设计时一并审查。　　第四条、文明施工设计内容：（一）施工现场平面布置图。包括临时设施、现场交通、现场作业区、施工设备及机具的布置、成品、半成品、原材料的堆放位置等。　　大型工程平面布置因施工期变动较大，可按基础、主体、装修三阶段进行施工平面图设计。　　（二）现场围栏的设计。　　（三）现场工程标志牌的设计。　　（四）临时建筑物、构筑物、硬地化、道路等单体设计。　　（五）现场污水处理排放设计。　　（六）粉尘、噪音控制措施。　　（七）施工区域内现有市政管网和周围的建、构筑物的保护。　　（八）现场卫生及安全保卫措施。　　（九）现场文明施工管理组织机构及责任人。　　第五条、施工单位根据文明施工设计编制文明施工增加费（包括工地围栏、硬地化、大临设施超标费、市政管线保护费及其它文明施工费等），该费用作为施工措施费（1号标书）组成部分列入工程总造价。　　第三章、现场文明施工的标准　　第六条、建设工程施工现场周边应设置连续、密闭的围栏。其标准如下：　　（一）在本市主要路段和市容景观道路及机场、码头、车站广场设置的围栏，其高度不得低于2.3米，使用的材料应保证围栏稳固、整齐、美观（主要用砌筑材料）；　　（二）在其他路段设置的围栏、其高度不得低于1.8米，使用的材料应保证围栏稳固、整齐、美观（不得使用铁皮瓦、石棉瓦）。　　（三）围栏外部应做简易装饰，色彩与周围环境协调。　　（四）场地出入口大门应庄重美观、门扇应做成密闭不透式。　　第七条、工程标牌（五牌一图）。施工现场应设置工程标牌，工程标牌为施工总平面布置图，工程概况牌、文明施工管理牌、组织网络牌、安全纪律牌、防火须知牌。工程概况牌设置在工地围栅的醒目位置上，载明项目名称、规模、开竣工日期、施工许可证号、建设单位、设计单位、质量、安全监督单位、施工单位、监理单位和联系电话等。　　第八条、临时建筑物、构筑物包括办公用房、宿舍、食堂、仓库、卫生间、淋浴室及消防用的砂、水池等。临时建筑物、构筑物，要求稳固、安全、整洁，并满足消防要求，禁止使用竹棚、石棉瓦、油毡搭建。　　现场设置集体宿舍时，应具备良好的防潮、通风、采光等性能，并与作业区隔离。人均床铺面积不小于2平方米，并进行适当的分隔。按设计架设用电线路，严禁任意拉线接电，严禁使用电炉和明火烧煮食物。　　第九条、成品、半成品及原材料的堆放。严格按施工组织设计中的平面布置图划定的位置堆放成品、半成品和原材料，所有材料应堆放整齐，不得侵占市政道路及公用设施。确需临时占用的，应由建设单位提出申请，由建设行政主管部门签署意见，经有关部门批准，并将批准号的标志悬挂在现场。　　第十条、现场场地及道路应硬地化。其厚度和强度应满足施工和行车需要。现场场地和道路要平坦、通畅、并设置相应的安全防护设施和安全标志。周边设排水沟，现场不允许有积水。　　第十一条、污水的处理和排放。场地内应设沉淀池和冲洗池，并做到：　　（一）所有的生活或其它污水必须分别处理后方能经排水渠排入市政排水管网或河流。　　（二）采用钻孔或其他施工产生的泥浆，未经沉淀不得排入市政排水管网或河流。废浆和淤泥应使用封闭的专用车辆进行运输。　　第十二条、粉尘控制：　　（一）由于其他原因而未做到的硬地化部位，要定期压实地面和洒水，减少灰尘对周围环境的污染。　　（二）禁止在施工现场焚烧有毒、有害和有恶臭气味的物质。　　（三）装卸有粉尘的材料时，应洒水湿润和在仓库内进行。　　（四）严禁向建筑物外抛掷垃圾。　　第十三条、工程开工前，施工单位会同建设单位对施工现场进行踏勘，对可能损坏的周围建筑物、构筑物、市政设施和管线制订相应的保护措施，保证施工安全进行。　　第十四条、运输车辆应做到：　　（一）运输车辆必须冲洗干净后方能离场上路行驶。　　（二）装运建筑材料、土石方、建筑垃圾及工程渣土的车辆，应采取有效措施，保证行驶途中不污染道路和环境。严格执行的若干规定。　　第十五条、噪音控制：　　（一）建成区内的新建项目，建设、设计、施工单位应采用低噪音的工艺和施工方法。　　（二）建筑施工作业的噪声可能超过建筑施工现场的噪声限值时，施工单位应在开工前向建设行政主管部门和环保部门申报，核准后方能开工；　　（三）在城市建成区内，禁止中午和夜间进行产生噪音的建筑施工作业（中午12时至下午2时，晚上11时至第二天早上7时）。由于施工不能中断的技术原因和其他特殊情况，确需中午或夜间连续施工作业的，应向建设行政主管部门和环保部门申请。　　第十六条、现场卫生：　　（一）明确施工现场各区域的卫生责任人。　　（二）食堂必须申领卫生许可证，并应符合卫生标准，生、熟食操作应分开，熟食操作时应有防蝇间或防蝇罩。禁止使用非食用塑料制品作熟食容器，炊事员和茶水工需持有效的健康证明上岗。　　（三）施工现场应设置卫生间，并有水源供冲洗，同时设简易化粪池或集粪池，加盖并定期喷药，每日有专人负责清洁。　　（四）设置足够的垃圾池和垃圾桶，定期搞好环境卫生、清理垃圾，施药除“四害”。　　（五）建筑垃圾必须集中堆放并及时清运。做到工完场清。　　（六）工地应设茶水亭和茶水桶，做到有盖、加锁和有标志。夏季施工应有防暑降温措施。　　第十七条、现场安全、保卫：　　（一）建立健全安全、保卫制度，落实治安、防火、计划生育管理责任人。　　（二）施工现场的管理人员、作业人员必须配佩工作卡。工作卡由总包单位制作，工作卡有本人相片、姓名、所属单位、工种或职务，管理人员和作业人员的标卡应分颜色区别。　　（三）建立来访登记制度，不准留宿家属及闲杂人员。　　（四）经常对工人进行法纪和文明教育，严禁在施工现场打架斗殴及进行黄、赌、毒等非法活动。　　第四章、文明施工的管理　　第十八条、市建设行政主管部门是现场文明施工的管理部门，各区建设行政主管部门在市建设行政主管部门指导下负责区属工程文明施工的管理。　　第十九条、市、区施工安全监督站按分工对在建项目实施安全监督的同时，实施文明施工监督。　　第二十条、建设单位应大力支持、配合施工单位搞好文明施工工作，并保证文明施工增加费按时到位。　　第二十一条、各施工单位按本规定组织文明施工，建立文明施工管理责任制，开展文明施工达标活动。　　第二十二条、市建设行政主管部门按本规定的标准进行量化管理，制定文明施工的评定标准。　　第二十三条、市、区安全监督机构根据评定标准，对工程项目组织检查，检查结果分为“文明施工不合格工地”、“文明施工合格工地”、“文明工地”。对“文明工地”颁发标志牌。　　第二十四条、市建设行政主管部门每年组织两次文明施工大检查，在“文明工地”的基础上，评选出市级“示范文明工地”。　　第二十五条、对安全检查不合格的工地，不得评为“文明工地”。文明施工不合格的工程项目，不得参加市优质样板工程评选。　　第二十六条、凡违反本办法的，由市、区建设行政主管部门视情节轻重，根据建设部第15号令《建设工程施工现场管理规定》给予警告、通报批评，责令限期改正，责令停止施工整顿，吊销施工许可证的处罚。　　第二十七条、本办法由XXX市建设局负责解释。　　第二十八条、本办法由起实行，原同时废止。查看更多 0个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

征集上市化肥企业？ 征集上市化肥企业： 1、北大荒；（下属浩良河化肥分公司，24万吨/年尿素，10万吨/年甲醇能力，德士古水煤浆制气。）查看更多 7个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

换热面积计算？条件：要求将35度水降至30度。流量100吨/小时；冷水温度16度，流量20吨/小时。采用螺旋板式换热器，如何求换热面积？请高手指点。此处 K 取 2000 Q 热 =CM Δt=4.18 KJ/kg . ℃*100*1000KG*5℃=2090000KJ/3600=580.6 KJ/S Q=KSΔtm —— S=580.6/2/5=58M2 Q 冷 =CMΔt=4.18*20*1000*9=752400 KJ/3600=209 KJ/S 100*5<20*x —— x>25 ，则 16+25=41 度。故不符合事实。若 x=9 —— 100*5/9=55 。故冷量流量应大于 60 吨 /H 。可以通过增加换热面积的方法降低流量吗？如何计算呢？查看更多 99个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

50%烧碱蒸发循环泵泵壳垫片？求助各位，我的50%烧碱蒸发循环泵泵壳垫片，自从换成国产石墨以及聚四氟乙烯垫片以来，也就用半个月左右开始微量泄露，特烦人，不知你们都用什么材质的垫片。泵子是装置配套的进口泵。能用EPDM材质加工的垫片吗？板换上用的是三元乙丙的查看更多 7个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

大唐呼伦贝尔化肥项目达产？ 2013年8月12日，大唐呼伦贝尔化肥项目日产尿素 1038吨，为设计值的103.8%，项目正式达产。据悉，该项目总投资19.4亿元，采用非熔渣—熔渣水煤浆分级气化工艺，生产18万吨/年合成氨及30万/年吨尿素。项目于2008年5月开工，2012年7月打通全流程。查看更多 4个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

为什么罐内油气浓度超过该油品爆炸下限的l0 %时,不应使 ...？ 为什么罐内油气浓度超过该油品爆炸下限的l0 %时,不应使用压缩空气进行清罐？道理和依据是什么？希望得到高手指教，先多谢晒。查看更多 6个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

尿液分析十二项试纸条！？亲们，有做尿液分析十二项试纸条研发的吗？？本人现在正做这方面工作，其中Glu项目中，抗VC性能比较差，大家有没有遇到这个问题！？有经验的大侠可否给些合理性建议？！谢谢！！以后，这方面大家可以多做交流的！查看更多 3个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

论农业面源污染及其防治对策？论农业面源污染及其防治对策摘要：农业的面源污染已经成为我国现代农业发展的瓶颈，其特点是不固定性、隐蔽性和复杂性，难以控制和治理。文章系统地阐述了农业面源污染的来源及其污染现状，并针对我国农业的发展趋势，提出促进公众参与、推行农业清洁生产、推广和创新可持续的农业技术、提高农业标准化水平、加强农业污染的综合防治与管理等面源污染的防治对策。关键词：面源污染；农业环境；环境管理 [ ]查看更多 0个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

请问各位大侠，sheer tube是什么意思挤压机里的？ 请问各位大侠，sheer tube是什么意思挤压机里的查看更多 10个回答 . 4人已关注

关注问题已关注 回答

登录后参与回答

求助中石化安庆或者湖北shell资料？ 哪位大侠有中石化安庆或者湖北shell的带工艺参数的工艺流程，或者操作规程？有的话上传分析或者发我邮箱 502045867@qq.com ，一定表示谢谢！查看更多 1个回答 . 2人已关注

关注问题已关注 回答

登录后参与回答

问个土问题？ 甲基乙基胺有没有手性?查看更多 2个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

关于许用应力与许用拉应力的关系？在HG21574-2008吊耳标准，在最后的计算上有个Q235A的许用拉应力为140.6Mpa，请问这个许用拉应力等于GB150上的Q235A的许用应力吗，他们两者间是什么联系？还有许用拉应力在哪里可以查到？谢谢了，急！查看更多 5个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

求助 GB5768-2009道路交通标志和标线？ 新建厂区较大，厂内道路要设置标志和划线，哪位有GB5768-2009《道路交通标志和标线》提供一下，谢谢！查看更多 3个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

事故池有没有必要设液位计？ 请教盖德，有人提出，关于化工厂的事故池应设液位计，大型事故池（带盖），容量是2万m³，有相关的标准规范规定吗？查看更多 10个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

河南地区哪些单醇企业造气工段做的不错? 各位盖德，请教一下。我们河南地区有哪些生产单醇的企业造气工段搞的不错的？最近我们厂准备大力整顿造气。需要到先进企业去学习先进的经验。呵呵。查看更多 2个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

尿素日本东洋喷射流化床蒸发造粒的操作要点是什么? 尿素日本东洋喷射流化床蒸发造粒的操作要点是什么？我们厂现在遇到了比较大的难题？造粒喷头投的时候蒸空度不好维持，哪位仁兄有高见，请赐教？查看更多 7个回答 . 3人已关注

关注问题已关注 回答

登录后参与回答

凝结水除铁新工艺：磁增益除铁装置？ 磁增益除铁装置技术资料查看更多 2个回答 . 1人已关注

关注问题已关注 回答

登录后参与回答

起吊口未设置围栏工作人员不慎坠落？起吊口未设置围栏工作人员不慎坠落某厂一工作人员在途经未设临时围栏的起吊口时，坠落身亡。简要经过某年 9月15日下午，某厂在机组保护和DCS改造工作结束后，剩余电缆已从工作现场运回检修楼，电缆需经检修楼地面上一起吊口吊入地下室。在起吊作业过程中，突然一人员从距起吊口3.4米的仓库中疾速走出，坠入未设临时围栏的起吊口（落差4米），抢救无效死亡。原因及暴露问题 1.距离仓库门口3.4米的起吊口打开后，未设临时围栏； 2.现场人员未起到看护作用。查看更多 5个回答 . 5人已关注

关注问题已关注 回答

登录后参与回答

上一页98 99 100 101 102 103 104 105 106 107 108下一页

简介

职业：佛山市金辉高科光电材料有限公司 - 技术员（储备干部）

学校：西华大学 - 理化学院

地区：四川省

个人简介：不达成功誓不休。查看更多

喜爱的版块返回首页

已连续签到天，累积获取个能量值

第1天
第2天
第3天
第4天
第5天
第6天
第7天