- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
Dim byteOut(64) As Byte
Dim i As Integer
Try
byteOut(0) = Len(outCName) + 5 'number bytes in output message
byteOut(1) = &H0 'should be 0 for NXT
byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
byteOut(3) = &H9 'Send Bluetooth
byteOut(4) = &H0 'Box Number - 1
byteOut(5) = Len(outCName) + 1 'message size with null terminator
For i = 1 To Len(outCName) 'copy bytes into output array
byteOut(i + 5) = Asc(Mid(outCName, i, 1))
Next
byteOut(Len(outCName) + 6) = &H0 'add null terminator
SerialPort1.Write(byteOut, 0, Len(outCName) + 7) 'send message
Catch ex As Exception
MsgBox(ex.ToString)
End Try
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Try
byteOut(0) = Len(outWState) + 5 'number bytes in output message
byteOut(1) = &H0 'should be 0 for NXT
byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
byteOut(3) = &H9 'Send Bluetooth
byteOut(4) = &H1 'Box Number - 1
byteOut(5) = Len(outWState) + 1 'message size with null terminator
For i = 1 To Len(outWState) 'copy bytes into output array
byteOut(i + 5) = Asc(Mid(outWState, i, 1))
Next
byteOut(Len(outWState) + 6) = &H0 'add null terminator
SerialPort1.Write(byteOut, 0, Len(outWState) + 7) 'send message
Catch ex As Exception
MsgBox(ex.ToString)
End Try
<..ещё один раз..>
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Try
byteOut(0) = Len(outWindC) + 5 'number bytes in output message
byteOut(1) = &H0 'should be 0 for NXT
byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
byteOut(3) = &H9 'Send Bluetooth
byteOut(4) = &H3 'Box Number - 1
byteOut(5) = Len(outWindC) + 1 'message size with null terminator
For i = 1 To Len(outWindC) 'copy bytes into output array
byteOut(i + 5) = Asc(Mid(outWindC, i, 1))
Next
byteOut(Len(outWindC) + 6) = &H0 'add null terminator
SerialPort1.Write(byteOut, 0, Len(outWindC) + 7) 'send message
Catch ex As Exception
MsgBox(ex.ToString)
End Try
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Try
byteOut(0) = Len(outHum) + 5 'number bytes in output message
byteOut(1) = &H0 'should be 0 for NXT
byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
byteOut(3) = &H9 'Send Bluetooth
byteOut(4) = &H4 'Box Number - 1
byteOut(5) = Len(outHum) + 1 'message size with null terminator
For i = 1 To Len(outHum) 'copy bytes into output array
byteOut(i + 5) = Asc(Mid(outHum, i, 1))
Next
byteOut(Len(outHum) + 6) = &H0 'add null terminator
SerialPort1.Write(byteOut, 0, Len(outHum) + 7) 'send message
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Говнокод почти трёхлетней давности. Понадобилось мне посмотреть, как я реализовывал "общение" по блютусу с Mindstorms NXT, и напоролся на вот это...
sayidandrtfm 04.06.2011 18:54 # −2
что к добру это привести не может. Hапример, одно из светил теории программирования Эдсгер Дейкстра
говорил, что "преподавателей, которые начинают обучение программированию с бейсика,
следует привлекать к уголовной ответственности"...
SmackMyBitchUp 04.06.2011 19:18 # −1
sayidandrtfm 04.06.2011 19:20 # +1
хрен редьки не слаще.
>отпишусь
сюда чтоле?
TarasB 05.06.2011 18:17 # 0
Hackeridze 05.06.2011 18:43 # +3
Govnocoder#0xFF 05.06.2011 20:19 # +2
bugmenot 04.06.2011 19:56 # +7
"I am 21 years old. I am a very talented computer programmer."
This is obvious 04.06.2011 20:59 # +1
оставлю это здесь
цитата
Govnocoder#0xFF 05.06.2011 12:32 # +1
bugmenot 05.06.2011 12:37 # −1
я тоже задумался, почему там эмфаза
думал, намёк на то, что пиндостан стал жертвой собственной миграционной политики
Govnocoder#0xFF 05.06.2011 12:31 # 0
Lure Of Chaos 05.06.2011 12:38 # 0
Govnocoder#0xFF 05.06.2011 13:14 # 0
Lure Of Chaos 05.06.2011 13:20 # 0
-у меня красный нос, бородаст, кто я, дети?" (ц)
Govnocoder#0xFF 05.06.2011 13:30 # 0
Lure Of Chaos 05.06.2011 13:32 # 0
Govnocoder#0xFF 05.06.2011 13:38 # 0
Lure Of Chaos 05.06.2011 13:39 # 0
Govnocoder#0xFF 05.06.2011 13:41 # 0
Lure Of Chaos 05.06.2011 13:43 # +1
Govnocoder#0xFF 05.06.2011 13:44 # 0
SmackMyBitchUp 05.06.2011 19:36 # 0
Lure Of Chaos 04.06.2011 20:52 # +4
Поэтому следует давать обучающимся и низкоуровневые знания, что бы у них не было пыховских иллюзий типа
"код из туториалов совершенен и универсален",
"задачу возможно решить лишь "в лоб" ",
"серверу не больно, будет тормозить - прикупим еще сервер помощнее",
"<это> используется везде - значит, это круто, и буду использовать только <это>",
"можно гадить (не использовать повторно объекты и не освобождать ресурсы) - все подотрет система вместе со сборщиком мусора",
"какая разница, стек или куча",
"оптимизация заключается в "экономии на спичках" ",
и т.д.
Nerd 04.06.2011 22:12 # 0
многие и этого не знают
Lure Of Chaos 04.06.2011 22:47 # 0
bugmenot 05.06.2011 12:13 # +1
Lure Of Chaos 05.06.2011 12:30 # 0
Nerd 05.06.2011 12:35 # 0
Lure Of Chaos 05.06.2011 12:39 # 0
bugmenot 05.06.2011 14:08 # +1
Lure Of Chaos 05.06.2011 14:09 # +1
3.14159265 09.06.2011 13:58 # 0
да к тому же и жирная
lucidfox 11.10.2011 11:37 # 0
guest8 09.04.2019 18:03 # −999