Subversion Repositories svnkaklik

Rev

Go to most recent revision | 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 TimerY
13 
      Left            =   1680
14 
      Top             =   600
15 
   End
16 
   Begin VB.TextBox TextY
17 
      Height          =   375
18 
      Left            =   960
19 
      TabIndex        =   1
20 
      Text            =   "Y"
21 
      Top             =   600
22 
      Width           =   615
23 
   End
24 
   Begin VB.Timer TimerX
25 
      Left            =   1680
26 
      Top             =   120
27 
   End
28 
   Begin VB.TextBox TextX
29 
      Height          =   372
30 
      Left            =   960
31 
      TabIndex        =   0
32 
      Text            =   "X"
33 
      Top             =   120
34 
      Width           =   615
35 
   End
36 
End
37 
Attribute VB_Name = "inpout32"
38 
Attribute VB_GlobalNameSpace = False
39 
Attribute VB_Creatable = False
40 
Attribute VB_PredeclaredId = True
41 
Attribute VB_Exposed = False
42 
Dim pocitadlo
43 
 
44 
Private Sub Form_Load()
45 
TimerX.Interval = 500
46 
TimerX.Enabled = True
47 
TimerY.Interval = 500
48 
TimerY.Enabled = True
49 
End Sub
50 
 
51 
Private Sub TimerX_Timer()
52 
Dim vstup
53 
Output &H201, &HFF
54 
For n = 1 To 1000
55 
 pocitadlo = n
56 
 vstup = Input32(&H201) And 1
57 
 If vstup = 0 Then
58 
  GoTo ven
59 
 End If
60 
Next n
61 
ven:
62 
TextX.Text = pocitadlo
63 
End Sub
64 
 
65 
 
66 
Private Sub TimerY_Timer()
67 
Dim vstup
68 
Output &H201, &HFF
69 
For n = 1 To 1000
70 
 pocitadlo = n
71 
 vstup = Input32(&H201) And 2
72 
 If vstup = 0 Then
73 
  GoTo ven
74 
 End If
75 
Next n
76 
ven:
77 
TextY.Text = pocitadlo
78 
End Sub