home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD838.psc / VBPrg / MemoryGame / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-13  |  33.6 KB  |  940 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Memory - 1999 by Swertvaegher Stephan"
  6.    ClientHeight    =   6720
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   8325
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   448
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   555
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Timer Timer5 
  17.       Enabled         =   0   'False
  18.       Interval        =   2000
  19.       Left            =   45
  20.       Top             =   3690
  21.    End
  22.    Begin VB.Timer Timer4 
  23.       Enabled         =   0   'False
  24.       Interval        =   2000
  25.       Left            =   45
  26.       Top             =   3195
  27.    End
  28.    Begin VB.Timer Timer3 
  29.       Enabled         =   0   'False
  30.       Interval        =   1000
  31.       Left            =   45
  32.       Top             =   2700
  33.    End
  34.    Begin VB.Timer Timer2 
  35.       Enabled         =   0   'False
  36.       Interval        =   1000
  37.       Left            =   45
  38.       Top             =   2205
  39.    End
  40.    Begin VB.Timer Timer1 
  41.       Enabled         =   0   'False
  42.       Interval        =   1000
  43.       Left            =   45
  44.       Top             =   1665
  45.    End
  46.    Begin VB.Frame Frame2 
  47.       BackColor       =   &H00000000&
  48.       Caption         =   "Score"
  49.       BeginProperty Font 
  50.          Name            =   "MS Sans Serif"
  51.          Size            =   12
  52.          Charset         =   0
  53.          Weight          =   700
  54.          Underline       =   -1  'True
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H0000FFFF&
  59.       Height          =   1365
  60.       Left            =   585
  61.       TabIndex        =   2
  62.       Top             =   5040
  63.       Width           =   7170
  64.       Begin VB.Label Label7 
  65.          BackStyle       =   0  'Transparent
  66.          Caption         =   "00"
  67.          BeginProperty Font 
  68.             Name            =   "MS Sans Serif"
  69.             Size            =   12
  70.             Charset         =   0
  71.             Weight          =   700
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          ForeColor       =   &H0080FFFF&
  77.          Height          =   285
  78.          Index           =   1
  79.          Left            =   5760
  80.          TabIndex        =   11
  81.          Top             =   810
  82.          Width           =   510
  83.       End
  84.       Begin VB.Label Label7 
  85.          BackStyle       =   0  'Transparent
  86.          Caption         =   "00"
  87.          BeginProperty Font 
  88.             Name            =   "MS Sans Serif"
  89.             Size            =   12
  90.             Charset         =   0
  91.             Weight          =   700
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          ForeColor       =   &H0080FFFF&
  97.          Height          =   285
  98.          Index           =   0
  99.          Left            =   5760
  100.          TabIndex        =   10
  101.          Top             =   405
  102.          Width           =   510
  103.       End
  104.       Begin VB.Label Label6 
  105.          BackStyle       =   0  'Transparent
  106.          Caption         =   "Pairs:"
  107.          BeginProperty Font 
  108.             Name            =   "MS Sans Serif"
  109.             Size            =   12
  110.             Charset         =   0
  111.             Weight          =   700
  112.             Underline       =   0   'False
  113.             Italic          =   0   'False
  114.             Strikethrough   =   0   'False
  115.          EndProperty
  116.          ForeColor       =   &H000000FF&
  117.          Height          =   285
  118.          Index           =   1
  119.          Left            =   4950
  120.          TabIndex        =   9
  121.          Top             =   810
  122.          Width           =   690
  123.       End
  124.       Begin VB.Label Label6 
  125.          BackStyle       =   0  'Transparent
  126.          Caption         =   "Pairs:"
  127.          BeginProperty Font 
  128.             Name            =   "MS Sans Serif"
  129.             Size            =   12
  130.             Charset         =   0
  131.             Weight          =   700
  132.             Underline       =   0   'False
  133.             Italic          =   0   'False
  134.             Strikethrough   =   0   'False
  135.          EndProperty
  136.          ForeColor       =   &H000000FF&
  137.          Height          =   285
  138.          Index           =   0
  139.          Left            =   4950
  140.          TabIndex        =   8
  141.          Top             =   405
  142.          Width           =   690
  143.       End
  144.       Begin VB.Label Label4 
  145.          Alignment       =   1  'Right Justify
  146.          BackColor       =   &H00000000&
  147.          Caption         =   "000"
  148.          BeginProperty Font 
  149.             Name            =   "MS Sans Serif"
  150.             Size            =   12
  151.             Charset         =   0
  152.             Weight          =   700
  153.             Underline       =   0   'False
  154.             Italic          =   0   'False
  155.             Strikethrough   =   0   'False
  156.          EndProperty
  157.          ForeColor       =   &H0000FFFF&
  158.          Height          =   285
  159.          Left            =   3105
  160.          TabIndex        =   6
  161.          Top             =   810
  162.          Width           =   750
  163.       End
  164.       Begin VB.Label Label3 
  165.          Alignment       =   1  'Right Justify
  166.          BackColor       =   &H00000000&
  167.          Caption         =   "000"
  168.          BeginProperty Font 
  169.             Name            =   "MS Sans Serif"
  170.             Size            =   12
  171.             Charset         =   0
  172.             Weight          =   700
  173.             Underline       =   0   'False
  174.             Italic          =   0   'False
  175.             Strikethrough   =   0   'False
  176.          EndProperty
  177.          ForeColor       =   &H0000FFFF&
  178.          Height          =   285
  179.          Left            =   3105
  180.          TabIndex        =   5
  181.          Top             =   405
  182.          Width           =   750
  183.       End
  184.       Begin VB.Label Label2 
  185.          Alignment       =   1  'Right Justify
  186.          BackColor       =   &H00000000&
  187.          Caption         =   "Computer points:"
  188.          BeginProperty Font 
  189.             Name            =   "MS Sans Serif"
  190.             Size            =   12
  191.             Charset         =   0
  192.             Weight          =   700
  193.             Underline       =   0   'False
  194.             Italic          =   0   'False
  195.             Strikethrough   =   0   'False
  196.          EndProperty
  197.          ForeColor       =   &H000000FF&
  198.          Height          =   285
  199.          Index           =   1
  200.          Left            =   675
  201.          TabIndex        =   4
  202.          Top             =   810
  203.          Width           =   2310
  204.       End
  205.       Begin VB.Label Label2 
  206.          Alignment       =   1  'Right Justify
  207.          BackColor       =   &H00000000&
  208.          Caption         =   "Player points:"
  209.          BeginProperty Font 
  210.             Name            =   "MS Sans Serif"
  211.             Size            =   12
  212.             Charset         =   0
  213.             Weight          =   700
  214.             Underline       =   0   'False
  215.             Italic          =   0   'False
  216.             Strikethrough   =   0   'False
  217.          EndProperty
  218.          ForeColor       =   &H000000FF&
  219.          Height          =   285
  220.          Index           =   0
  221.          Left            =   675
  222.          TabIndex        =   3
  223.          Top             =   405
  224.          Width           =   2310
  225.       End
  226.    End
  227.    Begin VB.Frame Frame1 
  228.       BackColor       =   &H00000000&
  229.       Caption         =   "Memory"
  230.       BeginProperty Font 
  231.          Name            =   "MS Sans Serif"
  232.          Size            =   13.5
  233.          Charset         =   0
  234.          Weight          =   700
  235.          Underline       =   0   'False
  236.          Italic          =   0   'False
  237.          Strikethrough   =   0   'False
  238.       EndProperty
  239.       ForeColor       =   &H0000C000&
  240.       Height          =   4470
  241.       Left            =   540
  242.       TabIndex        =   1
  243.       Top             =   45
  244.       Width           =   7170
  245.       Begin VB.Label Label5 
  246.          Alignment       =   2  'Center
  247.          BackColor       =   &H00000000&
  248.          Caption         =   "Start new game"
  249.          BeginProperty Font 
  250.             Name            =   "MS Sans Serif"
  251.             Size            =   18
  252.             Charset         =   0
  253.             Weight          =   700
  254.             Underline       =   0   'False
  255.             Italic          =   0   'False
  256.             Strikethrough   =   0   'False
  257.          EndProperty
  258.          ForeColor       =   &H000000FF&
  259.          Height          =   465
  260.          Left            =   1575
  261.          TabIndex        =   7
  262.          Top             =   2430
  263.          Visible         =   0   'False
  264.          Width           =   4020
  265.       End
  266.       Begin VB.Image Image2 
  267.          Height          =   600
  268.          Left            =   1665
  269.          Picture         =   "Form1.frx":030A
  270.          Top             =   945
  271.          Visible         =   0   'False
  272.          Width           =   3750
  273.       End
  274.       Begin VB.Image Image1 
  275.          Height          =   480
  276.          Index           =   0
  277.          Left            =   135
  278.          Top             =   315
  279.          Width           =   480
  280.       End
  281.    End
  282.    Begin MSComctlLib.ImageList ImageList1 
  283.       Left            =   135
  284.       Top             =   5985
  285.       _ExtentX        =   1005
  286.       _ExtentY        =   1005
  287.       BackColor       =   -2147483643
  288.       ImageWidth      =   32
  289.       ImageHeight     =   32
  290.       MaskColor       =   12632256
  291.       _Version        =   393216
  292.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  293.          NumListImages   =   90
  294.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.             Picture         =   "Form1.frx":1361
  296.             Key             =   ""
  297.          EndProperty
  298.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.             Picture         =   "Form1.frx":167D
  300.             Key             =   ""
  301.          EndProperty
  302.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.             Picture         =   "Form1.frx":1999
  304.             Key             =   ""
  305.          EndProperty
  306.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.             Picture         =   "Form1.frx":1CB5
  308.             Key             =   ""
  309.          EndProperty
  310.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.             Picture         =   "Form1.frx":1FD1
  312.             Key             =   ""
  313.          EndProperty
  314.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.             Picture         =   "Form1.frx":22ED
  316.             Key             =   ""
  317.          EndProperty
  318.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.             Picture         =   "Form1.frx":2609
  320.             Key             =   ""
  321.          EndProperty
  322.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.             Picture         =   "Form1.frx":2925
  324.             Key             =   ""
  325.          EndProperty
  326.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.             Picture         =   "Form1.frx":2C41
  328.             Key             =   ""
  329.          EndProperty
  330.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.             Picture         =   "Form1.frx":2F5D
  332.             Key             =   ""
  333.          EndProperty
  334.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.             Picture         =   "Form1.frx":3279
  336.             Key             =   ""
  337.          EndProperty
  338.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.             Picture         =   "Form1.frx":3595
  340.             Key             =   ""
  341.          EndProperty
  342.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.             Picture         =   "Form1.frx":38B1
  344.             Key             =   ""
  345.          EndProperty
  346.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.             Picture         =   "Form1.frx":3BCD
  348.             Key             =   ""
  349.          EndProperty
  350.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.             Picture         =   "Form1.frx":3EE9
  352.             Key             =   ""
  353.          EndProperty
  354.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.             Picture         =   "Form1.frx":4205
  356.             Key             =   ""
  357.          EndProperty
  358.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.             Picture         =   "Form1.frx":4521
  360.             Key             =   ""
  361.          EndProperty
  362.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.             Picture         =   "Form1.frx":483D
  364.             Key             =   ""
  365.          EndProperty
  366.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  367.             Picture         =   "Form1.frx":4B59
  368.             Key             =   ""
  369.          EndProperty
  370.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  371.             Picture         =   "Form1.frx":4E75
  372.             Key             =   ""
  373.          EndProperty
  374.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.             Picture         =   "Form1.frx":5191
  376.             Key             =   ""
  377.          EndProperty
  378.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.             Picture         =   "Form1.frx":54AD
  380.             Key             =   ""
  381.          EndProperty
  382.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  383.             Picture         =   "Form1.frx":57C9
  384.             Key             =   ""
  385.          EndProperty
  386.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.             Picture         =   "Form1.frx":5AE5
  388.             Key             =   ""
  389.          EndProperty
  390.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.             Picture         =   "Form1.frx":5E01
  392.             Key             =   ""
  393.          EndProperty
  394.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.             Picture         =   "Form1.frx":611D
  396.             Key             =   ""
  397.          EndProperty
  398.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.             Picture         =   "Form1.frx":6439
  400.             Key             =   ""
  401.          EndProperty
  402.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.             Picture         =   "Form1.frx":6755
  404.             Key             =   ""
  405.          EndProperty
  406.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  407.             Picture         =   "Form1.frx":6A71
  408.             Key             =   ""
  409.          EndProperty
  410.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  411.             Picture         =   "Form1.frx":6D8D
  412.             Key             =   ""
  413.          EndProperty
  414.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  415.             Picture         =   "Form1.frx":70A9
  416.             Key             =   ""
  417.          EndProperty
  418.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  419.             Picture         =   "Form1.frx":73C5
  420.             Key             =   ""
  421.          EndProperty
  422.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  423.             Picture         =   "Form1.frx":76E1
  424.             Key             =   ""
  425.          EndProperty
  426.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  427.             Picture         =   "Form1.frx":79FD
  428.             Key             =   ""
  429.          EndProperty
  430.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.             Picture         =   "Form1.frx":7D19
  432.             Key             =   ""
  433.          EndProperty
  434.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.             Picture         =   "Form1.frx":8035
  436.             Key             =   ""
  437.          EndProperty
  438.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.             Picture         =   "Form1.frx":8351
  440.             Key             =   ""
  441.          EndProperty
  442.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "Form1.frx":866D
  444.             Key             =   ""
  445.          EndProperty
  446.          BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.             Picture         =   "Form1.frx":8989
  448.             Key             =   ""
  449.          EndProperty
  450.          BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.             Picture         =   "Form1.frx":8CA5
  452.             Key             =   ""
  453.          EndProperty
  454.          BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.             Picture         =   "Form1.frx":8FC1
  456.             Key             =   ""
  457.          EndProperty
  458.          BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.             Picture         =   "Form1.frx":92DD
  460.             Key             =   ""
  461.          EndProperty
  462.          BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "Form1.frx":95F9
  464.             Key             =   ""
  465.          EndProperty
  466.          BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.             Picture         =   "Form1.frx":9915
  468.             Key             =   ""
  469.          EndProperty
  470.          BeginProperty ListImage45 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.             Picture         =   "Form1.frx":9C31
  472.             Key             =   ""
  473.          EndProperty
  474.          BeginProperty ListImage46 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.             Picture         =   "Form1.frx":9F4D
  476.             Key             =   ""
  477.          EndProperty
  478.          BeginProperty ListImage47 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.             Picture         =   "Form1.frx":A269
  480.             Key             =   ""
  481.          EndProperty
  482.          BeginProperty ListImage48 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.             Picture         =   "Form1.frx":A585
  484.             Key             =   ""
  485.          EndProperty
  486.          BeginProperty ListImage49 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.             Picture         =   "Form1.frx":A8A1
  488.             Key             =   ""
  489.          EndProperty
  490.          BeginProperty ListImage50 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.             Picture         =   "Form1.frx":ABBD
  492.             Key             =   ""
  493.          EndProperty
  494.          BeginProperty ListImage51 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.             Picture         =   "Form1.frx":AED9
  496.             Key             =   ""
  497.          EndProperty
  498.          BeginProperty ListImage52 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.             Picture         =   "Form1.frx":B1F5
  500.             Key             =   ""
  501.          EndProperty
  502.          BeginProperty ListImage53 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.             Picture         =   "Form1.frx":B511
  504.             Key             =   ""
  505.          EndProperty
  506.          BeginProperty ListImage54 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.             Picture         =   "Form1.frx":B82D
  508.             Key             =   ""
  509.          EndProperty
  510.          BeginProperty ListImage55 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.             Picture         =   "Form1.frx":BB49
  512.             Key             =   ""
  513.          EndProperty
  514.          BeginProperty ListImage56 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.             Picture         =   "Form1.frx":BE65
  516.             Key             =   ""
  517.          EndProperty
  518.          BeginProperty ListImage57 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.             Picture         =   "Form1.frx":C181
  520.             Key             =   ""
  521.          EndProperty
  522.          BeginProperty ListImage58 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.             Picture         =   "Form1.frx":C49D
  524.             Key             =   ""
  525.          EndProperty
  526.          BeginProperty ListImage59 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.             Picture         =   "Form1.frx":C7B9
  528.             Key             =   ""
  529.          EndProperty
  530.          BeginProperty ListImage60 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.             Picture         =   "Form1.frx":CAD5
  532.             Key             =   ""
  533.          EndProperty
  534.          BeginProperty ListImage61 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.             Picture         =   "Form1.frx":CDF1
  536.             Key             =   ""
  537.          EndProperty
  538.          BeginProperty ListImage62 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.             Picture         =   "Form1.frx":D10D
  540.             Key             =   ""
  541.          EndProperty
  542.          BeginProperty ListImage63 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.             Picture         =   "Form1.frx":D429
  544.             Key             =   ""
  545.          EndProperty
  546.          BeginProperty ListImage64 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.             Picture         =   "Form1.frx":D745
  548.             Key             =   ""
  549.          EndProperty
  550.          BeginProperty ListImage65 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.             Picture         =   "Form1.frx":DA61
  552.             Key             =   ""
  553.          EndProperty
  554.          BeginProperty ListImage66 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.             Picture         =   "Form1.frx":DD7D
  556.             Key             =   ""
  557.          EndProperty
  558.          BeginProperty ListImage67 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.             Picture         =   "Form1.frx":E099
  560.             Key             =   ""
  561.          EndProperty
  562.          BeginProperty ListImage68 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.             Picture         =   "Form1.frx":E3B5
  564.             Key             =   ""
  565.          EndProperty
  566.          BeginProperty ListImage69 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.             Picture         =   "Form1.frx":E6D1
  568.             Key             =   ""
  569.          EndProperty
  570.          BeginProperty ListImage70 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.             Picture         =   "Form1.frx":E9ED
  572.             Key             =   ""
  573.          EndProperty
  574.          BeginProperty ListImage71 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  575.             Picture         =   "Form1.frx":ED09
  576.             Key             =   ""
  577.          EndProperty
  578.          BeginProperty ListImage72 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  579.             Picture         =   "Form1.frx":F025
  580.             Key             =   ""
  581.          EndProperty
  582.          BeginProperty ListImage73 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  583.             Picture         =   "Form1.frx":F341
  584.             Key             =   ""
  585.          EndProperty
  586.          BeginProperty ListImage74 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  587.             Picture         =   "Form1.frx":F65D
  588.             Key             =   ""
  589.          EndProperty
  590.          BeginProperty ListImage75 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  591.             Picture         =   "Form1.frx":F979
  592.             Key             =   ""
  593.          EndProperty
  594.          BeginProperty ListImage76 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  595.             Picture         =   "Form1.frx":FC95
  596.             Key             =   ""
  597.          EndProperty
  598.          BeginProperty ListImage77 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  599.             Picture         =   "Form1.frx":FFB1
  600.             Key             =   ""
  601.          EndProperty
  602.          BeginProperty ListImage78 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  603.             Picture         =   "Form1.frx":102CD
  604.             Key             =   ""
  605.          EndProperty
  606.          BeginProperty ListImage79 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  607.             Picture         =   "Form1.frx":105E9
  608.             Key             =   ""
  609.          EndProperty
  610.          BeginProperty ListImage80 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  611.             Picture         =   "Form1.frx":10905
  612.             Key             =   ""
  613.          EndProperty
  614.          BeginProperty ListImage81 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  615.             Picture         =   "Form1.frx":10C21
  616.             Key             =   ""
  617.          EndProperty
  618.          BeginProperty ListImage82 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  619.             Picture         =   "Form1.frx":10F3D
  620.             Key             =   ""
  621.          EndProperty
  622.          BeginProperty ListImage83 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  623.             Picture         =   "Form1.frx":11259
  624.             Key             =   ""
  625.          EndProperty
  626.          BeginProperty ListImage84 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  627.             Picture         =   "Form1.frx":11575
  628.             Key             =   ""
  629.          EndProperty
  630.          BeginProperty ListImage85 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  631.             Picture         =   "Form1.frx":11891
  632.             Key             =   ""
  633.          EndProperty
  634.          BeginProperty ListImage86 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  635.             Picture         =   "Form1.frx":11BAD
  636.             Key             =   ""
  637.          EndProperty
  638.          BeginProperty ListImage87 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  639.             Picture         =   "Form1.frx":11EC9
  640.             Key             =   ""
  641.          EndProperty
  642.          BeginProperty ListImage88 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  643.             Picture         =   "Form1.frx":121E5
  644.             Key             =   ""
  645.          EndProperty
  646.          BeginProperty ListImage89 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  647.             Picture         =   "Form1.frx":12501
  648.             Key             =   ""
  649.          EndProperty
  650.          BeginProperty ListImage90 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  651.             Picture         =   "Form1.frx":1281D
  652.             Key             =   ""
  653.          EndProperty
  654.       EndProperty
  655.    End
  656.    Begin VB.Label Label1 
  657.       Alignment       =   2  'Center
  658.       BackColor       =   &H00000000&
  659.       Caption         =   "You are as powerfull as the computer !"
  660.       BeginProperty Font 
  661.          Name            =   "MS Sans Serif"
  662.          Size            =   12
  663.          Charset         =   0
  664.          Weight          =   700
  665.          Underline       =   0   'False
  666.          Italic          =   0   'False
  667.          Strikethrough   =   0   'False
  668.       EndProperty
  669.       ForeColor       =   &H000000FF&
  670.       Height          =   375
  671.       Left            =   1395
  672.       TabIndex        =   0
  673.       Top             =   4590
  674.       Width           =   5505
  675.    End
  676.    Begin VB.Menu mnuFile 
  677.       Caption         =   "File"
  678.       Begin VB.Menu mnuStart 
  679.          Caption         =   "Start new game"
  680.       End
  681.       Begin VB.Menu mnubar 
  682.          Caption         =   "-"
  683.       End
  684.       Begin VB.Menu mnuExit 
  685.          Caption         =   "Exit Game"
  686.       End
  687.    End
  688. Attribute VB_Name = "Form1"
  689. Attribute VB_GlobalNameSpace = False
  690. Attribute VB_Creatable = False
  691. Attribute VB_PredeclaredId = True
  692. Attribute VB_Exposed = False
  693. Dim X, xx, Y, Pic(59), Pic1(59), dummy, pp As Integer
  694. Dim PLcount, CPcount, PlPic(1), CpPic(1) As Integer
  695. Dim PlCor(1), CpCor(1) As Integer
  696. Dim PlPnt, CpPnt, CpPick, PlCards, CpCards, Cp As Integer
  697. Dim aa(4) As String
  698. Private Sub Form_Activate()
  699. Image2.Visible = False
  700. Label5.Visible = False
  701. SetImages
  702. PLcount = 0
  703. CPcount = 0
  704. PlPnt = 0
  705. CpPnt = 0
  706. PlCards = 0
  707. CpCards = 0
  708. Label7(0).Caption = "00"
  709. Label7(1).Caption = "00"
  710. Label3.Caption = "000"
  711. Label4.Caption = "000"
  712. Label1.Caption = "Player, pick two cards"
  713. For X = 0 To 59
  714. Image1(X).Visible = True
  715. Image1(X).Tag = ""
  716. Next X
  717. ' difficulty level
  718. For X = 0 To 4
  719.     If Form2.Option3(X).Value = True Then
  720.     Cp = (X * 5) + 2
  721.     Frame1.Caption = "Memory     Difficulty: " & aa(X)
  722.     End If
  723. Next X
  724. End Sub
  725. Private Sub Form_Load()
  726. aa(0) = "Easy"
  727. aa(1) = "Not so easy"
  728. aa(2) = "Heavy"
  729. aa(3) = "Impossible"
  730. aa(4) = "NUTS !"
  731. Form1.BackColor = &H0
  732. For X = 1 To 59
  733. Load Image1(X)
  734. Image1(X).Visible = True
  735. Next X
  736. For X = 0 To 9
  737. Image1(X).Top = 600
  738. Image1(X + 10).Top = Image1(X).Top + (40 * 15)
  739. Image1(X + 20).Top = Image1(X).Top + (80 * 15)
  740. Image1(X + 30).Top = Image1(X).Top + (120 * 15)
  741. Image1(X + 40).Top = Image1(X).Top + (160 * 15)
  742. Image1(X + 50).Top = Image1(X).Top + (200 * 15)
  743. Image1(X).Left = (X * 600) + (40 * 15)
  744. Image1(X + 10).Left = (X * 600) + (40 * 15)
  745. Image1(X + 20).Left = (X * 600) + (40 * 15)
  746. Image1(X + 30).Left = (X * 600) + (40 * 15)
  747. Image1(X + 40).Left = (X * 600) + (40 * 15)
  748. Image1(X + 50).Left = (X * 600) + (40 * 15)
  749. Next X
  750. End Sub
  751. Private Sub SetImages()
  752. For X = 0 To 29
  753. NotGood:
  754. Randomize
  755. Pic(X) = Int(Rnd * 30) + 1
  756. If X > 0 Then
  757.     For Y = 0 To X - 1
  758.     If Pic(Y) = Pic(X) Then
  759.     'Exit For
  760.     GoTo NotGood
  761.     End If
  762.     Next Y
  763. End If
  764. Pic1(X) = 255
  765. Next X
  766. For X = 30 To 59
  767. NotGood1:
  768. Randomize
  769. Pic(X) = Int(Rnd * 30) + 1
  770. If X > 30 Then
  771.     For Y = 30 To X - 1
  772.     If Pic(Y) = Pic(X) Then
  773.     'Exit For
  774.     GoTo NotGood1
  775.     End If
  776.     Next Y
  777. End If
  778. Pic1(X) = 255
  779. Next X
  780. For X = 0 To 59
  781. NotGood2:
  782. Randomize
  783. dummy = Int(Rnd * 60)
  784. If Pic1(dummy) <> 255 Then
  785. GoTo NotGood2
  786. End If
  787. Pic1(dummy) = Pic(X)
  788. Next X
  789. For X = 0 To 59
  790. If Form2.Option1(1).Value = True Then Pic1(X) = Pic1(X) + 30
  791. If Form2.Option1(2).Value = True Then Pic1(X) = Pic1(X) + 60
  792. Next X
  793. For X = 0 To 4
  794. If Form2.Option2(X).Value = True Then
  795. pp = X
  796. Exit For
  797. End If
  798. Next X
  799. For X = 0 To 59
  800. Image1(X).Picture = Form2.Image1(pp).Picture
  801. Next X
  802. End Sub
  803. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  804. End Sub
  805. Private Sub Image1_Click(Index As Integer) 'player picks
  806. If PLcount = 2 Then Exit Sub
  807. If Image1(Index).Tag = "1" Then Exit Sub
  808. Image1(Index).Picture = ImageList1.ListImages(Pic1(Index)).Picture
  809. PlPic(PLcount) = Pic1(Index)
  810. PlCor(PLcount) = Index
  811. Image1(Index).Tag = "1"
  812. PLcount = PLcount + 1
  813. If PLcount = 2 Then PlControl
  814. End Sub
  815. Private Sub PlControl()
  816. Image1(PlCor(0)).Tag = ""
  817. Image1(PlCor(1)).Tag = ""
  818. If PlPic(0) = PlPic(1) Then
  819. Label1.Caption = "They match !"
  820. Timer1.Enabled = True
  821. Label1.Caption = "They don't match..."
  822. Timer2.Enabled = True
  823. End If
  824. End Sub
  825. Private Sub Label5_Click()
  826. Form1.Enabled = False
  827. Form2.Show
  828. End Sub
  829. Private Sub mnuExit_Click()
  830. End Sub
  831. Private Sub mnuStart_Click()
  832. Form1.Enabled = False
  833. Form2.Show
  834. End Sub
  835. Private Sub Timer1_Timer() 'player match
  836. Timer1.Enabled = False
  837. Image1(PlCor(0)).Visible = False
  838. Image1(PlCor(1)).Visible = False
  839. PlPnt = PlPnt + 10
  840. PlCards = PlCards + 1
  841. Label7(0).Caption = Format(PlCards, "00")
  842. Label3.Caption = Format(PlPnt, "000")
  843. If PlPnt + CpPnt = 300 Then
  844. Image2.Visible = True
  845. Label5.Visible = True
  846.     If PlPnt = CpPnt Then
  847.     Label1.Caption = "You are as powerfull as the computer !"
  848.     End If
  849.     If PlPnt < CpPnt Then
  850.     Label1.Caption = "You lost the game !"
  851.     End If
  852.     If PlPnt > CpPnt Then
  853.     Label1.Caption = "Your victory !"
  854.     End If
  855. Label1.Caption = "Player, pick two cards"
  856. PLcount = 0
  857. End If
  858. End Sub
  859. Private Sub Timer2_Timer() 'player don't match
  860. Timer2.Enabled = False
  861. Image1(PlCor(0)).Picture = Form2.Image1(pp).Picture
  862. Image1(PlCor(1)).Picture = Form2.Image1(pp).Picture
  863. Label3.Caption = Format(PlPnt, "000")
  864. Label1.Caption = "Computer, pick two cards"
  865. Screen.MousePointer = 11: DoEvents
  866. Timer3.Enabled = True
  867. End Sub
  868. Private Sub Timer3_Timer() 'computer picks 2 cards
  869. Timer3.Enabled = False
  870. Again0:
  871. Randomize
  872. CpPick = Int(Rnd * 60)
  873. If Image1(CpPick).Visible = False Then GoTo Again0
  874. If Image1(CpPick).Tag = "1" Then GoTo Again0
  875. Image1(CpPick).Tag = "1"
  876. Image1(CpPick).Picture = ImageList1.ListImages(Pic1(CpPick)).Picture
  877. CpCor(0) = CpPick
  878. CpPic(0) = Pic1(CpPick)
  879. DoEvents
  880. For xx = 0 To Cp 'number of second picks
  881. Again1:
  882. Randomize
  883. CpPick = Int(Rnd * 60)
  884. If Image1(CpPick).Visible = False Then GoTo Again1
  885. If Image1(CpPick).Tag = "1" Then GoTo Again1
  886. Image1(CpPick).Tag = "1"
  887. CpCor(1) = CpPick
  888. CpPic(1) = Pic1(CpPick)
  889.     If CpPic(0) = CpPic(1) Then GoTo Further
  890. Image1(CpPick).Tag = ""
  891. Image1(CpPick) = Form2.Image1(pp).Picture
  892. Next xx
  893. Further:
  894. Image1(CpPick).Picture = ImageList1.ListImages(Pic1(CpPick)).Picture
  895. Image1(CpCor(0)).Tag = ""
  896. Image1(CpCor(1)).Tag = ""
  897. Screen.MousePointer = 1
  898. CpControl
  899. End Sub
  900. Private Sub CpControl()
  901. If CpPic(0) = CpPic(1) Then
  902. Label1.Caption = "They match !"
  903. Timer4.Enabled = True
  904. Label1.Caption = "They don't match..."
  905. Timer5.Enabled = True
  906. End If
  907. End Sub
  908. Private Sub Timer4_Timer() 'computer match
  909. Timer4.Enabled = False
  910. Image1(CpCor(0)).Visible = False
  911. Image1(CpCor(1)).Visible = False
  912. CpPnt = CpPnt + 10
  913. CpCards = CpCards + 1
  914. Label7(1).Caption = Format(CpCards, "00")
  915. Label4.Caption = Format(CpPnt, "000")
  916. If PlPnt + CpPnt = 300 Then
  917. Image2.Visible = True
  918. Label5.Visible = True
  919.     If PlPnt = CpPnt Then
  920.     Label1.Caption = "You are as powerfull as the player !"
  921.     End If
  922.     If PlPnt < CpPnt Then
  923.     Label1.Caption = "The computer did win the game !"
  924.     End If
  925.     If PlPnt > CpPnt Then
  926.     Label1.Caption = "The computer lost the game !"
  927.     End If
  928. Label1.Caption = "Computer, pick two cards"
  929. Timer3.Enabled = True
  930. End If
  931. End Sub
  932. Private Sub Timer5_Timer() 'computer no match
  933. Timer5.Enabled = False
  934. Image1(CpCor(0)).Picture = Form2.Image1(pp).Picture
  935. Image1(CpCor(1)).Picture = Form2.Image1(pp).Picture
  936. Label4.Caption = Format(CpPnt, "000")
  937. PLcount = 0
  938. Label1.Caption = "Player, pick two cards"
  939. End Sub
  940.