请高手来注释一下VB代码,急!!
不能复制太多,就一段一段来,还请网友耐心一些PublicEN_flagAsBooleanPublicset_valueAsVariantPublicset_midAsVa...
不能复制太多,就一段一段来,还请网友耐心一些
Public EN_flag As Boolean
Public set_value As Variant
Public set_mid As Variant
Public receive_data As String
Private Sub Combo1_Change()
Dim prcom As Integer
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
middle = Combo1.ListIndex
prcom = middle
If (prcom = 0) Then
MSComm1.CommPort = 1
ElseIf (prcom = 1) Then
MSComm1.CommPort = 2
ElseIf (prcom = 2) Then
MSComm1.CommPort = 3
ElseIf (prcom = 3) Then
MSComm1.CommPort = 4
ElseIf (prcom = 4) Then
MSComm1.CommPort = 5
End If
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.Handshaking = 1
MSComm1.InBufferSize = 24 '初始化串口
MSComm1.InBufferCount = 0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
End Sub 展开
Public EN_flag As Boolean
Public set_value As Variant
Public set_mid As Variant
Public receive_data As String
Private Sub Combo1_Change()
Dim prcom As Integer
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
middle = Combo1.ListIndex
prcom = middle
If (prcom = 0) Then
MSComm1.CommPort = 1
ElseIf (prcom = 1) Then
MSComm1.CommPort = 2
ElseIf (prcom = 2) Then
MSComm1.CommPort = 3
ElseIf (prcom = 3) Then
MSComm1.CommPort = 4
ElseIf (prcom = 4) Then
MSComm1.CommPort = 5
End If
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.Handshaking = 1
MSComm1.InBufferSize = 24 '初始化串口
MSComm1.InBufferCount = 0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
End Sub 展开
3个回答
2015-05-25
展开全部
乳腺发炎时有炎症的一边的奶是不能给孩子吃的,因为细菌会通过奶而进入孩子的体内,引起孩子感染。如果还有什么疑问你可以在线咨询我。
病情分析:
乳腺炎初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。
指导意见:
乳腺炎基本上发病最高的是哺乳期的妇女,若服用口服药物的话,就会对用母乳喂养婴儿有所影响。若不治疗,对于哺乳期的妇女生活也会带来很大的困扰。一般此时都会建议采取中医药乳腺安康外治的疗法,因为中药乳腺安康大多都为植物药提取,并且外用不会对患者的身体内部有任何的影响,也能保证婴儿的喂养问题
病情分析:
哺乳期确实很容易患上乳腺炎.
指导意见:
1.换其它抗生素.但必须隔奶几天.
2.期间.要用热毛巾敷乳房.并挤奶,特别要把硬块挤软直至完全吸收.
3.隔奶期间.小孩可以喝接近母乳的配方奶..
4.今后哺乳时要特别注意..养成好的习惯.不要让孩子含着奶头睡觉.不要孩子一哭就喂奶.这些都会导致乳腺炎的再次发生...
病情分析:
您好! 乳腺炎有两大类。1.急性单纯乳腺炎。初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。这种单纯性的乳腺炎通过几次按摩就可以避免打吊针的痛苦了。 2.急性化脓性乳腺炎。局部皮肤红、肿、热、痛,出现较明显的硬结,触痛更加,同时可出现寒战、高热、头痛、无力、脉快等全身虚状。此时腋下可出现肿大的淋巴结,有触痛,化验血白细胞计到升高,严重时可合并败血症。这种情况必须去医院打消炎针,等炎症消后再做疏通,
指导意见:
有乳腺炎的一侧就不要在喂奶,建议您平时多注意。1、避免乳汁淤积。 2、防止乳头损伤,有损伤时要及时治疗。 3、不要给孩子养成含乳头睡觉的习惯。 很多母亲在给孩子喂养母乳的时候,总是习惯于让孩子含着乳头睡觉,这是导致哺乳妇女乳腺炎的重要原因! 4、多吃粗粮。祝您早日康复!
病情分析:
乳腺炎初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。
指导意见:
乳腺炎基本上发病最高的是哺乳期的妇女,若服用口服药物的话,就会对用母乳喂养婴儿有所影响。若不治疗,对于哺乳期的妇女生活也会带来很大的困扰。一般此时都会建议采取中医药乳腺安康外治的疗法,因为中药乳腺安康大多都为植物药提取,并且外用不会对患者的身体内部有任何的影响,也能保证婴儿的喂养问题
病情分析:
哺乳期确实很容易患上乳腺炎.
指导意见:
1.换其它抗生素.但必须隔奶几天.
2.期间.要用热毛巾敷乳房.并挤奶,特别要把硬块挤软直至完全吸收.
3.隔奶期间.小孩可以喝接近母乳的配方奶..
4.今后哺乳时要特别注意..养成好的习惯.不要让孩子含着奶头睡觉.不要孩子一哭就喂奶.这些都会导致乳腺炎的再次发生...
病情分析:
您好! 乳腺炎有两大类。1.急性单纯乳腺炎。初期主要是乳房的胀痛,局部皮温高、压痛,出现边界不清的硬结,有触痛。这种单纯性的乳腺炎通过几次按摩就可以避免打吊针的痛苦了。 2.急性化脓性乳腺炎。局部皮肤红、肿、热、痛,出现较明显的硬结,触痛更加,同时可出现寒战、高热、头痛、无力、脉快等全身虚状。此时腋下可出现肿大的淋巴结,有触痛,化验血白细胞计到升高,严重时可合并败血症。这种情况必须去医院打消炎针,等炎症消后再做疏通,
指导意见:
有乳腺炎的一侧就不要在喂奶,建议您平时多注意。1、避免乳汁淤积。 2、防止乳头损伤,有损伤时要及时治疗。 3、不要给孩子养成含乳头睡觉的习惯。 很多母亲在给孩子喂养母乳的时候,总是习惯于让孩子含着乳头睡觉,这是导致哺乳妇女乳腺炎的重要原因! 4、多吃粗粮。祝您早日康复!
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
Public EN_flag As Boolean '公有的EN_flag 为 布尔值
Public set_value As Variant '公有的设定_值 为 变量
Public set_mid As Variant '公有的设定_mid 为 变量
Public receive_data As String '公有的receive_data 为 字符串
Private Sub Combo1_Change() '私有的子程序 Combo1_Change()
Dim prcom As Integer '定义变量 prcom 为 整型值
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '如果 MSComm1的PortOpen=True 则执行 MSComm1的PortOpen=False
'
middle = Combo1.ListIndex 'middle= Combo1的ListIndex
prcom = middle 'prcom=middle
'
If (prcom = 0) Then '如果 (prcom=0) 则执行
MSComm1.CommPort = 1 ' MSComm1的CommPort=1
ElseIf (prcom = 1) Then '否则如果(prcom=1) 则执行
MSComm1.CommPort = 2 ' MSComm1的CommPort=2
ElseIf (prcom = 2) Then '否则如果(prcom=2) 则执行
MSComm1.CommPort = 3 ' MSComm1的CommPort=3
ElseIf (prcom = 3) Then '否则如果(prcom=3) 则执行
MSComm1.CommPort = 4 ' MSComm1的CommPort=4
ElseIf (prcom = 4) Then '否则如果(prcom=4) 则执行
MSComm1.CommPort = 5 ' MSComm1的CommPort=5
End If 'If判断过程结束
'
MSComm1.Settings = "9600,N,8,1" ' MSComm1的Settings="9600,N,8,1"
MSComm1.InputLen = 0 ' MSComm1的InputLen=0
MSComm1.RThreshold = 1 ' MSComm1的RThreshold=1
MSComm1.Handshaking = 1 ' MSComm1的Handshaking=1
MSComm1.InBufferSize = 24 '初始化串口 ' MSComm1的InBufferSize=24'初始化串口
MSComm1.InBufferCount = 0 ' MSComm1的InBufferCount=0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '如果 MSComm1的PortOpen=False 则执行 MSComm1的PortOpen=True
End Sub '子程序结束
Public set_value As Variant '公有的设定_值 为 变量
Public set_mid As Variant '公有的设定_mid 为 变量
Public receive_data As String '公有的receive_data 为 字符串
Private Sub Combo1_Change() '私有的子程序 Combo1_Change()
Dim prcom As Integer '定义变量 prcom 为 整型值
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False '如果 MSComm1的PortOpen=True 则执行 MSComm1的PortOpen=False
'
middle = Combo1.ListIndex 'middle= Combo1的ListIndex
prcom = middle 'prcom=middle
'
If (prcom = 0) Then '如果 (prcom=0) 则执行
MSComm1.CommPort = 1 ' MSComm1的CommPort=1
ElseIf (prcom = 1) Then '否则如果(prcom=1) 则执行
MSComm1.CommPort = 2 ' MSComm1的CommPort=2
ElseIf (prcom = 2) Then '否则如果(prcom=2) 则执行
MSComm1.CommPort = 3 ' MSComm1的CommPort=3
ElseIf (prcom = 3) Then '否则如果(prcom=3) 则执行
MSComm1.CommPort = 4 ' MSComm1的CommPort=4
ElseIf (prcom = 4) Then '否则如果(prcom=4) 则执行
MSComm1.CommPort = 5 ' MSComm1的CommPort=5
End If 'If判断过程结束
'
MSComm1.Settings = "9600,N,8,1" ' MSComm1的Settings="9600,N,8,1"
MSComm1.InputLen = 0 ' MSComm1的InputLen=0
MSComm1.RThreshold = 1 ' MSComm1的RThreshold=1
MSComm1.Handshaking = 1 ' MSComm1的Handshaking=1
MSComm1.InBufferSize = 24 '初始化串口 ' MSComm1的InBufferSize=24'初始化串口
MSComm1.InBufferCount = 0 ' MSComm1的InBufferCount=0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '如果 MSComm1的PortOpen=False 则执行 MSComm1的PortOpen=True
End Sub '子程序结束
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这就是 MSComm1控件 选择端口代码,以及初始端口的参数。
追问
能不能加个好友呢,我这里代码比较长,显示字符过多。不过都比较简单,是关于VB建立可视化界面的,我是小白,不太会,q1036992723,谢谢了!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询