File tree 7 files changed +470
-0
lines changed 7 files changed +470
-0
lines changed Original file line number Diff line number Diff line change
1
+ char MyChar;
2
+ bool SendVibration = false ;
3
+ int Counter;
4
+
5
+ void setup () {
6
+ pinMode (3 , OUTPUT);
7
+ Serial.begin (115200 );
8
+ Counter = 0 ;
9
+ }
10
+
11
+ void loop () {
12
+
13
+ if (SendVibration == true ) {
14
+ Counter+=1 ;
15
+ if (Counter > 10000 ) {
16
+ SendVibration = false ;
17
+ digitalWrite (3 , LOW);
18
+ Counter = 0 ;
19
+ }
20
+ }
21
+
22
+ if (Serial.available () > 0 ) {
23
+ MyChar = Serial.read ();
24
+ if (MyChar==' V' ) {
25
+ if (SendVibration == false ) digitalWrite (3 , HIGH);
26
+ SendVibration = true ;
27
+ Counter = 0 ;
28
+ }
29
+ }
30
+ }
Original file line number Diff line number Diff line change
1
+ -$A8
2
+ -$B-
3
+ -$C+
4
+ -$D+
5
+ -$E-
6
+ -$F-
7
+ -$G+
8
+ -$H+
9
+ -$I+
10
+ -$J-
11
+ -$K-
12
+ -$L+
13
+ -$M-
14
+ -$N+
15
+ -$O+
16
+ -$P+
17
+ -$Q-
18
+ -$R-
19
+ -$S-
20
+ -$T-
21
+ -$U-
22
+ -$V+
23
+ -$W-
24
+ -$X+
25
+ -$YD
26
+ -$Z1
27
+ -cg
28
+ -AWinTypes =Windows; WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29
+ -H+
30
+ -W+
31
+ -M
32
+ -$M16384,1048576
33
+ -K$00400000
34
+ -LE" c:\programs\borland\delphi7\Projects\Bpl"
35
+ -LN" c:\programs\borland\delphi7\Projects\Bpl"
36
+ -w-UNSAFE_TYPE
37
+ -w-UNSAFE_CODE
38
+ -w-UNSAFE_CAST
Original file line number Diff line number Diff line change
1
+ [FileVersion]
2
+ Version =7.0
3
+ [Compiler]
4
+ A =8
5
+ B =0
6
+ C =1
7
+ D =1
8
+ E =0
9
+ F =0
10
+ G =1
11
+ H =1
12
+ I =1
13
+ J =0
14
+ K =0
15
+ L =1
16
+ M =0
17
+ N =1
18
+ O =1
19
+ P =1
20
+ Q =0
21
+ R =0
22
+ S =0
23
+ T =0
24
+ U =0
25
+ V =1
26
+ W =0
27
+ X =1
28
+ Y =1
29
+ Z =1
30
+ ShowHints =1
31
+ ShowWarnings =1
32
+ UnitAliases =WinTypes =Windows; WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33
+ NamespacePrefix =
34
+ SymbolDeprecated =1
35
+ SymbolLibrary =1
36
+ SymbolPlatform =1
37
+ UnitLibrary =1
38
+ UnitPlatform =1
39
+ UnitDeprecated =1
40
+ HResultCompat =1
41
+ HidingMember =1
42
+ HiddenVirtual =1
43
+ Garbage =1
44
+ BoundsError =1
45
+ ZeroNilCompat =1
46
+ StringConstTruncated =1
47
+ ForLoopVarVarPar =1
48
+ TypedConstVarPar =1
49
+ AsgToTypedConst =1
50
+ CaseLabelRange =1
51
+ ForVariable =1
52
+ ConstructingAbstract =1
53
+ ComparisonFalse =1
54
+ ComparisonTrue =1
55
+ ComparingSignedUnsigned =1
56
+ CombiningSignedUnsigned =1
57
+ UnsupportedConstruct =1
58
+ FileOpen =1
59
+ FileOpenUnitSrc =1
60
+ BadGlobalSymbol =1
61
+ DuplicateConstructorDestructor =1
62
+ InvalidDirective =1
63
+ PackageNoLink =1
64
+ PackageThreadVar =1
65
+ ImplicitImport =1
66
+ HPPEMITIgnored =1
67
+ NoRetVal =1
68
+ UseBeforeDef =1
69
+ ForLoopVarUndef =1
70
+ UnitNameMismatch =1
71
+ NoCFGFileFound =1
72
+ MessageDirective =1
73
+ ImplicitVariants =1
74
+ UnicodeToLocale =1
75
+ LocaleToUnicode =1
76
+ ImagebaseMultiple =1
77
+ SuspiciousTypecast =1
78
+ PrivatePropAccessor =1
79
+ UnsafeType =0
80
+ UnsafeCode =0
81
+ UnsafeCast =0
82
+ [Linker]
83
+ MapFile =0
84
+ OutputObjs =0
85
+ ConsoleApp =1
86
+ DebugInfo =0
87
+ RemoteSymbols =0
88
+ MinStackSize =16384
89
+ MaxStackSize =1048576
90
+ ImageBase =4194304
91
+ ExeDescription =
92
+ [Directories]
93
+ OutputDir =
94
+ UnitOutputDir =
95
+ PackageDLLOutputDir =
96
+ PackageDCPOutputDir =
97
+ SearchPath =
98
+ Packages =
99
+ Conditionals =
100
+ DebugSourceDirs =
101
+ UsePackages =0
102
+ [Parameters]
103
+ RunParams =
104
+ HostApplication =
105
+ Launcher =
106
+ UseLauncher =0
107
+ DebugCWD =
108
+ [Language]
109
+ ActiveLang =
110
+ ProjectLang =
111
+ RootDir =
112
+ [Version Info]
113
+ IncludeVerInfo =0
114
+ AutoIncBuild =0
115
+ MajorVer =1
116
+ MinorVer =0
117
+ Release =0
118
+ Build =0
119
+ Debug =0
120
+ PreRelease =0
121
+ Special =0
122
+ Private =0
123
+ DLL =0
124
+ Locale =1049
125
+ CodePage =1251
126
+ [Version Info Keys]
127
+ CompanyName =
128
+ FileDescription =
129
+ FileVersion =1.0.0.0
130
+ InternalName =
131
+ LegalCopyright =
132
+ LegalTrademarks =
133
+ OriginalFilename =
134
+ ProductName =
135
+ ProductVersion =1.0.0.0
136
+ Comments =
You can’t perform that action at this time.
0 commit comments