พึ่งเคยใช้งานครั้งแรกโปรดอ่านที่นี่! howtouse!
x
  • Register
หางานด้าน IT อยู่เหรอ?

เกมทายตัวเลข Visual Basic 6.0 ทำยังไงค่ะ??

+1 vote
เกมทายตัวเลข :(

   ให้โปรแกรมทำการสุ่มตัวเลขมา1จำนวน โดยให้สุ่มระหว่าง 0-10 (มีผู้เล่น 2 คน) จากนั้นให้ผู้เล่น 1คนทายว่าเป็นตัวเลขอะไร ถ้าถูกเกมจบ แต่ถ้าไม่ถูกให้โปรแกรมแจ้งว่าตัวเลขที่ผู้เล่นทายมีค่ามาก หรือน้อยกว่าตัวเลขที่สุ่ม มาได้ และให้คนที่สองทาย ถ้าผิดก็สลับกันทายจนกว่าจะถูก และเก็บสถิติไปจนกว่าจะเลิก
ถามเมื่อ Jul 30, 2012 in VB 6.0 โดย Dung Ding 1 (103 คะแนน)
   

2 Answers

0 votes
เอ่อ ๆ คือผมไม่ค่อยเข้าใจคำถามสักเท่าไหร่

แต่จะลองอธิบายในแบบที่ผมเข้าใจให้นะครับ

1.กำหนดตัวแปรมาครับอย่างเช่น renum เพื่อเก็บตัวที่เราจะมันมาสุ่มไว้(แต่ไม่ต้องแสดง)

2.รับค่าจะ textbox อ่ะนะครับว่าค่ามันเท่ากัยเท่าไหร่แล้วเอามาเปรียบเทียบกับ renum หามีค่าต่างกันเท่าไหร่ก็ใส่คำสั่งเงื่อนไขเข้าไปอ่ะครับ น่าจะประมาณนี้

 

ผิดพลาดยังไงก็ขออภัยนะครับ
ตอบเมื่อ Jul 30, 2012 โดย สิงห์เบียร์ 'ฮั๊ยย๊ะ (108 คะแนน)
ที่มันไม่ได้ก็คือเงื่อนไขอ่ะแหละค่ะ :(
น้องลองเอาโค้ดให้ดูไหมค่ะ แต่ไม่ค่อยดีเท่าไหร่น่ะค่ะ
Option Explicit

Private Sub cmdStart_Click()
If Text1.Text = "" And Text2.Text = "" Then
    MsgBox "กรุณาป้อนตัวเลข", vbOKOnly
  End If
  Text7.Text = ""
    Randomize
    Timer1.Enabled = True
    cmdStart.Enabled = False
    cmdStop.Enabled = True
  
    Do While Timer1.Enabled
        DoEvents
        Timer1_Timer
    Loop
  Dim ans As Integer
  ans = Int(Rnd() * 10)
  Text7.Text = ans
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
    cmdStart.Enabled = True
    cmdStop.Enabled = False
If Text1.Text = Text7.Text Then
                Text3.Text = Val(Text3.Text) + 1
        Else
Text5.Text = Val(Text5.Text) + 1
        End If
        If Text2.Text = Text7.Text Then
                Text4.Text = Val(Text4.Text) + 1
        Else
                Text6.Text = Val(Text6.Text) + 1
        End If
    If Text1.Text = Text7.Text Or Text2.Text = Text7.Text Then
                        MsgBox ("Game Over")
                        Unload Me
    End If
End Sub
Private Sub Command1_Click()
Form3.Hide
End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

    Timer1.Interval = 10
    Timer1.Enabled = False
    
    cmdStart.Enabled = True
    cmdStop.Enabled = False
End Sub
(โค้ดไม่ค่อยได้เรื่องน่ะค่ะ :) )
0 votes
ดูจาก code งงครับ

รบกวนช่วยบอกว่ามีกี่ form แต่ละ form มีจุดประสงค์หลักๆอย่าไงรบ้าง

แล้วก็ code นี้มาจาก form ไหม มี object (พวก textbox) ที่สำคัญอะไรบ้าง ชื่ออะไร เป้าหมายของแต่ละตัวครับ
ตอบเมื่อ Aug 2, 2012 โดย mix5003 (715 คะแนน)
ได้แล้วค่ะ ขอบคุณมากค่ะ

Related questions

+1 vote
2 คำตอบ
335 views ถามเมื่อ Jun 12, 2012 in Ubuntu โดย Go2Kn0W (111 คะแนน)
0 votes
0 คำตอบ
71 views ถามเมื่อ Feb 24, 2014 in VB 6.0 โดย indy (110 คะแนน)
...