Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1 
VERSION 5.00
2 
Begin VB.Form inpout32
3 
   Caption         =   "Form1"
4 
   ClientHeight    =   4710
5 
   ClientLeft      =   915
6 
   ClientTop       =   1410
7 
   ClientWidth     =   4770
8 
   LinkTopic       =   "Form1"
9 
   PaletteMode     =   1  'UseZOrder
10 
   ScaleHeight     =   4710
11 
   ScaleWidth      =   4770
12 
   Begin VB.Timer Timer2
13 
      Left            =   2400
14 
      Top             =   3480
15 
   End
16 
   Begin VB.HScrollBar HScroll1
17 
      Height          =   375
18 
      Left            =   240
19 
      Max             =   500
20 
      TabIndex        =   17
21 
      Top             =   3000
22 
      Value           =   5
23 
      Width           =   1695
24 
   End
25 
   Begin VB.Timer Timer1
26 
      Left            =   360
27 
      Top             =   3480
28 
   End
29 
   Begin VB.CommandButton Command11
30 
      Caption         =   "8"
31 
      Height          =   195
32 
      Left            =   4320
33 
      TabIndex        =   16
34 
      Top             =   2280
35 
      Width           =   135
36 
   End
37 
   Begin VB.CommandButton Command10
38 
      Caption         =   "7"
39 
      Height          =   195
40 
      Left            =   4080
41 
      TabIndex        =   15
42 
      Top             =   2280
43 
      Width           =   135
44 
   End
45 
   Begin VB.CommandButton Command9
46 
      Caption         =   "6"
47 
      Height          =   195
48 
      Left            =   3840
49 
      TabIndex        =   14
50 
      Top             =   2280
51 
      Width           =   135
52 
   End
53 
   Begin VB.CommandButton Command8
54 
      Caption         =   "5"
55 
      Height          =   195
56 
      Left            =   3600
57 
      TabIndex        =   13
58 
      Top             =   2280
59 
      Width           =   135
60 
   End
61 
   Begin VB.CommandButton Command7
62 
      Caption         =   "4"
63 
      Height          =   195
64 
      Left            =   3240
65 
      TabIndex        =   12
66 
      Top             =   2280
67 
      Width           =   135
68 
   End
69 
   Begin VB.CommandButton Command6
70 
      Caption         =   "3"
71 
      Height          =   195
72 
      Left            =   3000
73 
      TabIndex        =   11
74 
      Top             =   2280
75 
      Width           =   135
76 
   End
77 
   Begin VB.CommandButton Command5
78 
      Caption         =   "2"
79 
      Height          =   195
80 
      Left            =   2760
81 
      TabIndex        =   10
82 
      Top             =   2280
83 
      Width           =   135
84 
   End
85 
   Begin VB.CommandButton Command4
86 
      Caption         =   "1"
87 
      Height          =   195
88 
      Left            =   2520
89 
      TabIndex        =   9
90 
      Top             =   2280
91 
      Width           =   135
92 
   End
93 
   Begin VB.TextBox Text13
94 
      Height          =   285
95 
      Left            =   3240
96 
      TabIndex        =   4
97 
      Top             =   1680
98 
      Width           =   495
99 
   End
100 
   Begin VB.TextBox Text12
101 
      Height          =   285
102 
      Left            =   3240
103 
      TabIndex        =   3
104 
      Top             =   1200
105 
      Width           =   495
106 
   End
107 
   Begin VB.TextBox Text10
108 
      Height          =   285
109 
      Left            =   3240
110 
      TabIndex        =   2
111 
      Top             =   240
112 
      Width           =   495
113 
   End
114 
   Begin VB.TextBox Text11
115 
      Height          =   285
116 
      Left            =   3240
117 
      TabIndex        =   1
118 
      Top             =   720
119 
      Width           =   495
120 
   End
121 
   Begin VB.Timer Timer_input
122 
      Left            =   1680
123 
      Top             =   120
124 
   End
125 
   Begin VB.TextBox Text1
126 
      Height          =   372
127 
      Left            =   960
128 
      TabIndex        =   0
129 
      Top             =   120
130 
      Width           =   615
131 
   End
132 
   Begin VB.Label Label13
133 
      Caption         =   "13"
134 
      Height          =   375
135 
      Left            =   3840
136 
      TabIndex        =   8
137 
      Top             =   1680
138 
      Width           =   375
139 
   End
140 
   Begin VB.Label Label3
141 
      Caption         =   "12"
142 
      Height          =   375
143 
      Left            =   3840
144 
      TabIndex        =   7
145 
      Top             =   1200
146 
      Width           =   375
147 
   End
148 
   Begin VB.Label Label2
149 
      Caption         =   "10"
150 
      Height          =   375
151 
      Left            =   3840
152 
      TabIndex        =   6
153 
      Top             =   240
154 
      Width           =   375
155 
   End
156 
   Begin VB.Label Label1
157 
      Caption         =   "11"
158 
      Height          =   255
159 
      Left            =   3840
160 
      TabIndex        =   5
161 
      Top             =   720
162 
      Width           =   255
163 
   End
164 
End
165 
Attribute VB_Name = "inpout32"
166 
Attribute VB_GlobalNameSpace = False
167 
Attribute VB_Creatable = False
168 
Attribute VB_PredeclaredId = True
169 
Attribute VB_Exposed = False
170 
Dim pocitadlo
171 
Dim stare_cislo
172 
 
173 
Private Sub Command10_Click()
174 
out &H40
175 
End Sub
176 
 
177 
Private Sub Command11_Click()
178 
out &H80
179 
End Sub
180 
 
181 
Private Sub Command2_Click()
182 
out &HFF
183 
Timer1.Enabled = True
184 
End Sub
185 
 
186 
Private Sub Command3_Click()
187 
out 3
188 
Timer1.Enabled = True
189 
End Sub
190 
 
191 
Private Sub Command4_Click()
192 
out &H1
193 
End Sub
194 
 
195 
Private Sub Command5_Click()
196 
out &H2
197 
End Sub
198 
 
199 
Private Sub Command6_Click()
200 
out &H4
201 
End Sub
202 
 
203 
Private Sub Command7_Click()
204 
out &H8
205 
End Sub
206 
 
207 
Private Sub Command8_Click()
208 
out &H10
209 
End Sub
210 
 
211 
Private Sub Command9_Click()
212 
out &H20
213 
End Sub
214 
 
215 
Private Sub Form_Load()
216 
Timer_input.Interval = 100
217 
Timer_input.Enabled = True
218 
stare_cislo = HScroll1.Value
219 
End Sub
220 
 
221 
Private Sub HScroll1_Change()
222 
If HScroll1.Value < stare_cislo Then
223 
Timer1.Interval = 1
224 
Timer1.Enabled = True
225 
End If
226 
If HScroll1.Value > stare_cislo Then
227 
Timer2.Interval = 1
228 
Timer2.Enabled = True
229 
End If
230 
stare_cislo = HScroll1.Value
231 
End Sub
232 
 
233 
Private Sub Timer_input_Timer()
234 
Text1.Text = inp
235 
Text10.Text = inp10
236 
Text11.Text = inp11
237 
Text12.Text = inp12
238 
Text13.Text = inp13
239 
End Sub
240 
 
241 
Private Sub Timer1_Timer()
242 
Select Case pocitadlo
243 
Case 1
244 
Call Command8_Click
245 
Case 2
246 
Call Command10_Click
247 
Case 3
248 
Call Command9_Click
249 
Case 4
250 
Call Command11_Click
251 
Timer1.Enabled = False
252 
pocitadlo = 0
253 
End Select
254 
pocitadlo = pocitadlo + 1
255 
End Sub
256 
 
257 
Private Sub Timer2_Timer()
258 
Select Case pocitadlo
259 
Case 1
260 
Call Command11_Click
261 
Case 2
262 
Call Command9_Click
263 
Case 3
264 
Call Command10_Click
265 
Case 4
266 
Call Command8_Click
267 
Timer2.Enabled = False
268 
pocitadlo = 0
269 
End Select
270 
pocitadlo = pocitadlo + 1
271 
End Sub