VB palīdzību

[Cleong]

i WAN zināt, ka kods i rakstīt labi vai ne?
i WAN parādīt vērtības sūtīt pa PICmicroC (ASCII kods)
no pic produkcija ir A'A "uz A'P"

/ / / /
Variants Nepārprotama

"Deklarēt mainīgos lielumus
Dim n kā Integer
Tuvās ostas Kā Integer

Private Sub clear_Click ()
Beigas

Beigās Sub

Private Sub Form_Load ()
MSComm1.Settings = "9600, N, 8,1"
MSComm1.Handshaking = comNone
MSComm1.RThreshold = 1
MSComm1.SThreshold = 0
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.InputMode = MSCommLib.InputModeConstants.comInputModeText
"Nelietojiet sajaukt ar baitu bloki, darbojas tikai ar vienkāršiem datiem (rakstzīmes AZ un numurus)
MSComm1.InputLen = 0
"Lasīt visu gaida datus, kad com.Input lieto
MSComm1.NullDiscard = False
"Don't atbrīvoties nulls, 0x00 ir noderīgs baits

Beigās Sub

Private Sub Timer1_Timer ()
lbldate.Caption = formāts (Tagad, "dd / mm / gggg)
lbltime.Caption = formāts (Tagad, "hh: mm: ss AM / PM)
Beigās Sub

Private Sub Timer7_Timer ()
lblinput.Caption = INP (osta)

Ja lblinput.Caption = 41 Pēc tam
lblSig.Caption = "Temperaure = 23'C"

Beigas Ja

Ja lblinput.Caption = 42 Pēc tam
lblSig.Caption = "Temperaure = 24'C"

Beigas Ja

Ja lblinput.Caption = & H43 tam
lblSig.Caption = "Temperaure = 25'C"

Beigas Ja

Ja lblinput.Caption = & H44 tam
lblSig.Caption = "Temperaure = 26'C"

Beigas Ja

Ja lblinput.Caption = & H45 tam
lblSig.Caption = "Temperaure = 27'C"

Beigas Ja

Ja lblinput.Caption = & H46 tam
lblSig.Caption = "Temperaure = 28'C"

Beigas Ja

Ja lblinput.Caption = & H47 tam
lblSig.Caption = "Temperaure = 29'C"

Beigas Ja

Ja lblinput.Caption = & H48 tam
lblSig.Caption = "Temperaure = 30'C"

Beigas Ja

Ja lblinput.Caption = & H49 tam
lblSig.Caption = "Temperaure = 31'C"

Beigas Ja

Ja lblinput.Caption = & H4A tam
lblSig.Caption = "Temperaure = 32'C"

Beigas Ja

Ja lblinput.Caption = & H4B tam
lblSig.Caption = "Temperaure = 33'C"

Beigas Ja

Ja lblinput.Caption = & H4C tam
lblSig.Caption = "Temperaure = 34'C"

Beigas Ja

Ja lblinput.Caption = & H4D tam
lblSig.Caption = "Temperaure = 35'C"

Beigas Ja

Ja lblinput.Caption = & H4E tam
lblSig.Caption = "Temperaure = 36'C"

Beigas Ja

Ja lblinput.Caption = & H4F tam
lblSig.Caption = "Temperaure = 37'C"

Beigas Ja

Ja lblinput.Caption = & H50 tam
lblSig.Caption = "???"

Beigas Ja
Beigās Sub