成人免费AA片在线观看-成人免费a级毛片-成人免费a级毛片无码片2022-成人免费a级毛片无码网站入口-成人免费ā片在线观看-成人免费a视频

18063219
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看18063219的 主題 / 回貼
樓主  發表于: 2010-04-29 13:45
某程序的功能是a1<=q<a2,Shape1.FillColor = vbGreen;q<a4,Shape1.FillColor = vbRed
a2<=q<a3,Shape2.FillColor = vbGreen,Shape2.FillColor = vbGreen  ;q<a5,Shape2.FillColor = vbRed
a3<=q<15,Shape3.FillColor = vbGreen,Shape2.FillColor = vbGreen,Shape1.FillColor = vbGreen;q<a6,Shape3.FillColor = vbRed
我寫的程序存在的問題:shape1顯示正常,其余兩個顯示綠色沒問題,但若要顯示紅色不能顯示,任然是綠色,不發生變化。
Private Sub Command2_Click()
Const pi = 3.14159
Dim t As Single, y As Single, p As Single
Dim a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single, q As Single



a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
a3 = Val(Text3.Text)
a4 = Val(Text4.Text)
a5 = Val(Text5.Text)
a6 = Val(Text6.Text)
For t = 0 To 24 Step 0.0003
y = -2 * Sin(t * pi / 1.5) + 3

p = y / 5
Text8.Height = Text7.Height * (1 - p)
q = p * 15
Text9.Text = q
Shape1.Refresh
DoEvents
Select Case q


Case 0 To a4
Shape1.FillColor = vbRed
Case a1 To a2
Shape1.FillColor = vbGreen


Case a4 To a5
Shape2.FillColor = vbRed
Case a2 To a3
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


Case a5 To a6
Shape3.FillColor = vbRed
Case a3 To 15
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen


End Select
Next t
End Sub
[ 此帖被18063219在2010-04-29 20:41重新編輯 ]
sjm213
有小知識,無大學問。
級別: 論壇版主

精華主題: 7 篇
發帖數量: 5240 個
工控威望: 7464 點
下載積分: 159520 分
在線時間: 3188(小時)
注冊時間: 2007-11-21
最后登錄: 2025-02-10
查看sjm213的 主題 / 回貼
1樓  發表于: 2010-04-29 23:16
Select Case 結構在滿足第一個條件后就自動跳到End Select。
而你的幾個CASE中有重疊部分,所以只會前者有效。
你可以試一下IF …Then
ydp
級別: *
精華主題: * 篇
發帖數量: * 個
工控威望: * 點
下載積分: * 分
在線時間: (小時)
注冊時間: *
最后登錄: *
查看ydp的 主題 / 回貼
2樓  發表于: 2010-04-30 12:24
問題找到了,a1 = Val(Text1.Text),這樣的寫法,是取整數,而且 你設置的是有小數點
本帖最近評分記錄:
  • 下載積分:+1(vili) 熱心助人
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    3樓  發表于: 2010-04-30 12:25
    兩種解決問題,一就,你把所有數據都變大100倍,不要小數(好多似類的數量都是這樣數)
    本帖最近評分記錄:
  • 下載積分:+1(18063219)
  • 下載積分:+1(vili) 熱心助人
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    4樓  發表于: 2010-04-30 12:26
    另外一種就,你把字符串,轉為FU點數
    ydp
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看ydp的 主題 / 回貼
    5樓  發表于: 2010-04-30 12:33
    Dim a1 As Double
    Dim a2 As Double
    Dim K as double //定義水位
    a2 = CDbl(Text1.Text)
    a2 = CDbl(Text1.Text)
    k = CDbl(水位的字符串)
    if k <= a2 then
      Shape1.FillColor = vbRed
    end if
    if k >= a1 then
      Shape1.FillColor = vbGreen
    end if
    本帖最近評分記錄:
  • 下載積分:+1(vili) 熱心助人
    wang115828
    學習
    級別: 略有小成
    精華主題: 0
    發帖數量: 96 個
    工控威望: 259 點
    下載積分: 549 分
    在線時間: 49(小時)
    注冊時間: 2009-04-07
    最后登錄: 2024-07-25
    查看wang115828的 主題 / 回貼
    6樓  發表于: 2010-04-30 17:15
    學習了
    vili
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看vili的 主題 / 回貼
    7樓  發表于: 2010-05-02 07:53
    就例如,C水位,
    如果當前水位在13.5-14之間,你如何顯示??顯示綠色,還是紅色,這個在你上面的程序沒有處理。
    18063219
    級別: *
    精華主題: * 篇
    發帖數量: * 個
    工控威望: * 點
    下載積分: * 分
    在線時間: (小時)
    注冊時間: *
    最后登錄: *
    查看18063219的 主題 / 回貼
    8樓  發表于: 2010-05-06 08:54
    謝謝各位了,非常感謝

    成 人 免费 网站 | 久久性爱视频 | 国产成人精品视频ⅴa片软件竹菊 | 亚洲中久无码永久在线观看同 | 国产在线欧美日韩一区二区 | 国产日韩精品一区二区在线观看播放 | 岛国av无码免费无禁网站 | 国产精品午夜激爽毛片 | 亚洲国产精品一区第二页 | 国产激情视频一区二区三区 | 亚洲人成影院在线无码按摩店 | 爆乳熟妇一区二区三区霸乳 | 国产成人福利在线视频播放尤物 | a级毛片无码久久精品免费 老妇高潮潮喷到猛进猛出 亚洲国产精品久久久久久无码 | 久久久日韩精品一区二区三区 | 熟妇人妻无乱码中文字幕 | 狠狠色综合网站久久久久久久 | 久久香蕉精品视频 | 99热久久这里只精品国产www | 内射爽无广熟女亚洲 | 少妇高潮惨叫喷水正在播放 | 亚洲日韩中文字幕无码一区 | 少妇高潮惨叫久久久久久 | 最近2019中文字幕大全第二页 | 亚洲国产精华液网站w | 亚洲精品无码久久久久秋霞 | 亚洲欧美国产精品久久久久久久 | 少妇被又大又粗又爽毛片久久黑人 | 激情航班h版在线观看 | 中文字幕无码精品亚洲资源网久久 | 国产日韩欧美在线一区二区三区 | 日本最新免费二区三区 | 国产麻豆流白浆在线观看 | 国产精品第一国产精品 | 国产麻豆成人传媒免费观看 | 中国人妻被两个老外三p | 欧美内射深喉中文字幕 | 夜夜高潮夜夜爽夜夜爱爱一区 | 日日麻批免费40分钟无码 | 亚洲愉拍99热成人精品热久久 | 人妻少妇一区二区三区 |