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