⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 game.vb

📁 Bug Game in Visual C++
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        Me.life1.Location = New System.Drawing.Point(744, 504)
        Me.life1.Name = "life1"
        Me.life1.Size = New System.Drawing.Size(48, 80)
        Me.life1.TabIndex = 14
        Me.life1.TabStop = False
        '
        'life2
        '
        Me.life2.Image = CType(resources.GetObject("life2.Image"), System.Drawing.Image)
        Me.life2.Location = New System.Drawing.Point(832, 504)
        Me.life2.Name = "life2"
        Me.life2.Size = New System.Drawing.Size(48, 80)
        Me.life2.TabIndex = 15
        Me.life2.TabStop = False
        '
        'life3
        '
        Me.life3.Image = CType(resources.GetObject("life3.Image"), System.Drawing.Image)
        Me.life3.Location = New System.Drawing.Point(912, 504)
        Me.life3.Name = "life3"
        Me.life3.Size = New System.Drawing.Size(48, 80)
        Me.life3.TabIndex = 16
        Me.life3.TabStop = False
        '
        'lblscore
        '
        Me.lblscore.Font = New System.Drawing.Font("Monotype Corsiva", 48.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblscore.ForeColor = System.Drawing.Color.Blue
        Me.lblscore.Location = New System.Drawing.Point(824, 216)
        Me.lblscore.Name = "lblscore"
        Me.lblscore.Size = New System.Drawing.Size(120, 72)
        Me.lblscore.TabIndex = 17
        '
        'LblQuestion
        '
        Me.LblQuestion.Font = New System.Drawing.Font("Monotype Corsiva", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LblQuestion.ForeColor = System.Drawing.Color.Red
        Me.LblQuestion.Location = New System.Drawing.Point(544, 16)
        Me.LblQuestion.Name = "LblQuestion"
        Me.LblQuestion.Size = New System.Drawing.Size(408, 72)
        Me.LblQuestion.TabIndex = 18
        '
        'lifegone
        '
        Me.lifegone.Image = CType(resources.GetObject("lifegone.Image"), System.Drawing.Image)
        Me.lifegone.Location = New System.Drawing.Point(680, 504)
        Me.lifegone.Name = "lifegone"
        Me.lifegone.Size = New System.Drawing.Size(48, 80)
        Me.lifegone.TabIndex = 19
        Me.lifegone.TabStop = False
        Me.lifegone.Visible = False
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Monotype Corsiva", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.ForeColor = System.Drawing.Color.Red
        Me.Label10.Location = New System.Drawing.Point(592, 584)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(160, 56)
        Me.Label10.TabIndex = 20
        Me.Label10.Text = "Level "
        '
        'lbllevel
        '
        Me.lbllevel.Font = New System.Drawing.Font("Monotype Corsiva", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbllevel.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte))
        Me.lbllevel.Location = New System.Drawing.Point(752, 584)
        Me.lbllevel.Name = "lbllevel"
        Me.lbllevel.Size = New System.Drawing.Size(80, 56)
        Me.lbllevel.TabIndex = 21
        Me.lbllevel.Text = "1"
        '
        'Label11
        '
        Me.Label11.BackColor = System.Drawing.Color.Black
        Me.Label11.Font = New System.Drawing.Font("Bernard MT Condensed", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.ForeColor = System.Drawing.Color.Red
        Me.Label11.Location = New System.Drawing.Point(468, 302)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(32, 64)
        Me.Label11.TabIndex = 22
        Me.Label11.Text = "3"
        Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label12
        '
        Me.Label12.BackColor = System.Drawing.Color.Black
        Me.Label12.Font = New System.Drawing.Font("Bernard MT Condensed", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.ForeColor = System.Drawing.Color.Red
        Me.Label12.Location = New System.Drawing.Point(560, 184)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(32, 64)
        Me.Label12.TabIndex = 23
        Me.Label12.Text = "4"
        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Timer4
        '
        Me.Timer4.Interval = 1000
        '
        'lblsec
        '
        Me.lblsec.Font = New System.Drawing.Font("Monotype Corsiva", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblsec.ForeColor = System.Drawing.Color.Blue
        Me.lblsec.Location = New System.Drawing.Point(664, 184)
        Me.lblsec.Name = "lblsec"
        Me.lblsec.Size = New System.Drawing.Size(120, 64)
        Me.lblsec.TabIndex = 24
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Answer, Levelnum, [Number], Question FROM Questions"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Questions(Answer, Levelnum, Question) VALUES (?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Answer", System.Data.OleDb.OleDbType.VarWChar, 50, "Answer"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Levelnum", System.Data.OleDb.OleDbType.VarWChar, 50, "Levelnum"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Question", System.Data.OleDb.OleDbType.VarWChar, 50, "Question"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Questions SET Answer = ?, Levelnum = ?, Question = ? WHERE ([Number] = ?) " & _
        "AND (Answer = ? OR ? IS NULL AND Answer IS NULL) AND (Levelnum = ? OR ? IS NULL " & _
        "AND Levelnum IS NULL) AND (Question = ? OR ? IS NULL AND Question IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Answer", System.Data.OleDb.OleDbType.VarWChar, 50, "Answer"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Levelnum", System.Data.OleDb.OleDbType.VarWChar, 50, "Levelnum"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Question", System.Data.OleDb.OleDbType.VarWChar, 50, "Question"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Number", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Answer", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Answer", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Answer1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Answer", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Levelnum", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Levelnum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Levelnum1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Levelnum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Question", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Question", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Question1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Question", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Questions WHERE ([Number] = ?) AND (Answer = ? OR ? IS NULL AND Answe" & _
        "r IS NULL) AND (Levelnum = ? OR ? IS NULL AND Levelnum IS NULL) AND (Question = " & _
        "? OR ? IS NULL AND Question IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Number", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Answer", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Answer", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Answer1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Answer", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Levelnum", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Levelnum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Levelnum1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Levelnum", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Question", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Question", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Question1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Question", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Data Source=""C:\questions.mdb"";Jet OLEDB:Engine Type=5;Provider=""M" & _
        "icrosoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist s" & _
        "ecurity info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt D" & _
        "atabase=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale" & _
        " on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;J" & _
        "et OLEDB:Global Bulk Transactions=1"
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Questions", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Answer", "Answer"), New System.Data.Common.DataColumnMapping("Levelnum", "Levelnum"), New System.Data.Common.DataColumnMapping("Number", "Number"), New System.Data.Common.DataColumnMapping("Question", "Question")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.Black
        Me.ClientSize = New System.Drawing.Size(968, 669)
        Me.Controls.Add(Me.lblsec)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.lbllevel)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.lifegone)
        Me.Controls.Add(Me.LblQuestion)
        Me.Controls.Add(Me.lblscore)
        Me.Controls.Add(Me.life3)
        Me.Controls.Add(Me.life2)
        Me.Controls.Add(Me.life1)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.lblanswer)
        Me.Controls.Add(Me.label7)
        Me.Controls.Add(Me.bullet)
        Me.Controls.Add(Me.PictureBox3)
        Me.Controls.Add(Me.PictureBox2)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.PictureBox1)
        Me.Name = "Form1"
        Me.Text = "Space Math"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region



    Dim counter As Integer = 1
    Dim direction As Integer
    Dim score As Integer
    Dim dt As New DataTable
    Dim random As Integer
    Dim lifecounter As Integer
    Dim strsql As String
    Dim speed As Integer = 10
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If counter = 20 Then
            Me.PictureBox1.Image = Me.PictureBox2.Image
        End If
        If counter = 40 Then
            Me.PictureBox1.Image = Me.PictureBox3.Image
            counter = 0
        End If
        Select Case direction
            Case 1
                Me.PictureBox1.Left -= 5
            Case 2
                Me.PictureBox1.Top -= 5
                If Me.PictureBox1.Top < 550 Then
                    Me.PictureBox1.Top = 550
                End If
            Case 3
                Me.PictureBox1.Left += 5
            Case 4
                Me.PictureBox1.Top += 5
                If Me.PictureBox1.Top > 600 Then
                    Me.PictureBox1.Top = 600
                End If
        End Select
        counter += 1
    End Sub


    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Me.Text = e.KeyCode
        Me.Timer1.Interval = 10
        Select Case e.KeyCode
            Case 37
                direction = 1
                Me.Timer1.Enabled = True
            Case 38
                direction = 2
                Me.Timer1.Enabled = True
            Case 39
                direction = 3
                Me.Timer1.Enabled = True
            Case 40
                direction = 4
                Me.Timer1.Enabled = True
            Case 13
                If Me.lblanswer.Text = answer Then
                    score += 1
                    If score = 10 Then
                        strsql = "select * from questions where LevelNum='2'"
                        Me.OleDbConnection1.Open()
                        Me.OleDbDataAdapter1.SelectCommand = New OleDb.OleDbCommand(strsql, Me.OleDbConnection1)
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -