Visual Basic 疑问

[复制链接]

回复 #19 Super-Tomato 的帖子

Anything~~!

2009-1-22 04:25 PM

你误解了吧,我是说他的code

private sub cmd1_click()

x = 50
y =val(txt1.text)

   if y = x then
            lbl1.caption="corret"
   elseif y <> x then
            lbl1.caption="wrong"
   end if
end sub

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

KenXML

2009-1-23 04:23 PM

who cann teach me vb ??

Super-Tomato

2009-1-23 05:23 PM

原帖由 Anything~~! 于 2009-1-22 04:25 PM 发表
你误解了吧,我是说他的code

private sub cmd1_click()

这是第一个button的功能，
我要做多一个button，功能是把x的数字换掉，每按一次就会变，然后第一个button的功能可以运作

那麼首先你是否學過 VB??? 你所創建的另外一個 button event 和第一個 button 的 event 有甚麼關係呢??

回复 #22 KenXML 的帖子

goodhermit95

2009-1-23 09:52 PM

我要学！教教我！我要做Dota外挂！我要做3D game!

Jay1515Jay

2009-1-24 11:58 PM

原帖由 KenXML 于 2009-1-23 04:23 PM 发表
who cann teach me vb ??

是给人教就会全部人都是programmer咯
要自己研究和找google d
新手不用人家教的不用很多方法
google就懂了

按这里看Google搜索技巧

[ 本帖最后由 Jay1515Jay 于 2009-1-25 12:04 AM 编辑 ]

毛毛小子

2009-1-26 08:32 PM

我想请教下：
怎样Convert celcius 去 fahrenheit

回复 #26 毛毛小子的帖子

goodhermit95

2009-1-26 08:39 PM

http://www.albireo.ch/temperatureconverter/formula.htm

if isnumeric(textbox1.text) and isnumeric(textbox2.text) Then
Dim C as integer = Textbox1.Text * 10 'Textbox1.Text as C , *10 to avoid have x.5
C=5/9(F-32)
label1.text = C 'f,label1.text as output

复制代码

回复 #27 goodhermit95 的帖子

毛毛小子

2009-1-27 01:08 AM

谢谢你~
我试试看先

毛毛小子

2009-1-28 06:22 PM

Dim Ftemp, Celsius As Single
      Dim strFTemp As String
      Dim Prompt As String = "Enter a Fahrenheit temperature."
      Do
         strFTemp = InputBox(Prompt, "Fahrenheit to celcius.")
         If strFTemp <> == Then
            Ftemp = CSng(strFTemp)
            Celsius = Int((Ftemp + 40) * 5 / 9 - 40)
            MsgBox(Celsius, , "Temperature in Celcius:")
         End If
      Loop While strFTemp <> ""

If strFTemp <> == Then 这行的==那里错，我放variable在==后面也错，删掉==也错。>"<