E da jel ima smisla praviti ovo jel si sredio softver ili planiras?
Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i, j As Integer
i = 4
j = 0
If (X >= 720) And (X < 1695) And (Y > 720) And (Y < 2055) Then i = 2
If (X >= 2400) And (X < 3375) And (Y > 720) And (Y < 2055) Then i = 1
If (X >= 4080) And (X < 5055) And (Y > 720) And (Y < 2055) Then i = 0
If i <> 4 Then
If i = 2 And (Shape1(2).BackColor = RGB(255, 255, 255)) Then
Shape1(2).BackColor = RGB(255, 0, 0)
j = 1
End If
If i = 2 And j = 0 And (Shape1(2).BackColor = RGB(255, 0, 0)) Then
Shape1(2).BackColor = RGB(255, 255, 255)
j = 1
End If
If i = 1 And (Shape1(1).BackColor = RGB(255, 255, 255)) Then
Shape1(1).BackColor = RGB(255, 255, 0)
j = 1
End If
If i = 1 And j = 0 And (Shape1(1).BackColor = RGB(255, 255, 0)) Then
Shape1(1).BackColor = RGB(255, 255, 255)
j = 1
End If
If i = 0 And (Shape1(0).BackColor = RGB(255, 255, 255)) Then
Shape1(0).BackColor = RGB(0, 255, 0)
j = 1
End If
If i = 0 And j = 0 And (Shape1(0).BackColor = RGB(0, 255, 0)) Then
Shape1(0).BackColor = RGB(255, 255, 255)
j = 1
End If
End If
Broj = 0
For i = 0 To 2
j = 0
If (Shape1(i).BackColor <> RGB(255, 255, 255)) Then j = 1
Broj = Broj + 2 ^ i * j
Next i
Call Out(LPTadresa, Broj)
End Sub
_____________________________________________________
Private Sub Form_Load()
Anjan
LPTadresa = &H378
Call Out(LPTadresa, 0)
End Sub
.
.
Jel znas to da odradis?
Zanimljivi i korisne spravice za vas dom! Posetite
www.sniff.rs