home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / joystick / global.bas < prev    next >
BASIC Source File  |  1993-08-28  |  1KB  |  44 lines

  1. Type coords
  2.     x As Integer
  3.     y As Integer
  4. End Type
  5. Global winpoint As coords
  6. Global xmax As Integer
  7. Global xmin As Integer
  8. Global ymax As Integer
  9. Global ymin As Integer
  10. Global button_mark As Integer
  11. Global calx As Integer
  12. Global caly As Integer
  13. Global need_calibrate As Integer
  14. Global winxmax As Integer
  15. Global winxmin As Integer
  16. Global winymax As Integer
  17. Global winymin As Integer
  18. Global deltax As Single
  19. Global deltay As Single
  20.  
  21. Type pointapi
  22.     x As Integer
  23.     y As Integer
  24. End Type
  25.  
  26. Type target_data
  27.     x As Integer
  28.     y As Integer
  29.     dx As Integer
  30.     dy As Integer
  31.     dxm As Integer
  32.     color As Integer
  33.     kill_target As Integer
  34.     valid As Integer
  35. End Type
  36.  
  37. Declare Function getprivateprofileint Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  38. Declare Function writeprivateprofilestring Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, lpString As String, ByVal lplFileName As String) As Integer
  39. Declare Sub clienttoscreen Lib "User" (ByVal hWnd As Integer, lpPoint As pointapi)
  40. Declare Sub ScreenToClient Lib "User" (ByVal hWnd As Integer, lpPoint As pointapi)
  41. Declare Sub getcursorpos Lib "User" (lpPoint As pointapi)
  42. Declare Sub setcursorpos Lib "User" (ByVal x As Integer, ByVal y As Integer)
  43.  
  44.