NOOB THREAD | |
skankerkid - Student ![]() |
if your a noob and not afraid to show it just say it here. hey its a free country. _______________ Shout out to DJ Sith cause he's my big bro. Shout out to Debbie because she's my sister in-law. Also it aint cool if aint skewed. |
Login and add your comment! |
Comments |
DJK - Student ![]() |
Quote: yes ![]() *Backs off quietly, than run* aaaaaaaaaaaaaaaaaarrrrrrrhhhhh!!!! |
Everybody - Student ![]() |
lol don't worry, i don't understand half of it either!![]() _______________ Signature, schmignature. |
Bail Hope of Belouve - Student |
yes ![]() _______________ Visit the Belouve Family Website! Quote: I try to have fun with my friends and try to make a difference as best I can. What does making a difference mean? Well, it can be as simple as saying hello, answering a question that seems obvious or heck, just talking. -- Vladarion
Want to know Vladarion? Read the Article about his life here. |
DJK - Student ![]() |
Am i the only one not understand a thing of that "code" thing? |
Bail Hope of Belouve - Student |
I do Visual Basic 6.0 I've been looking at your code... It's quite similar actually ![]() _______________ Visit the Belouve Family Website! Quote: I try to have fun with my friends and try to make a difference as best I can. What does making a difference mean? Well, it can be as simple as saying hello, answering a question that seems obvious or heck, just talking. -- Vladarion
Want to know Vladarion? Read the Article about his life here. |
Everybody - Student ![]() |
Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Button6 As System.Windows.Forms.Button Friend WithEvents Button7 As System.Windows.Forms.Button Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Button9 As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents Panel4 As System.Windows.Forms.Panel Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Button10 As System.Windows.Forms.Button Friend WithEvents Button11 As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Label1 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Button10 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'Label1 ' Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Label1.Font = New System.Drawing.Font("Times New Roman", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(8, 24) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(496, 56) Me.Label1.TabIndex = 0 Me.Label1.Text = "Tic-Tac-Toe" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Button1 ' Me.Button1.BackColor = System.Drawing.Color.DarkRed Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.ForeColor = System.Drawing.Color.Coral Me.Button1.Location = New System.Drawing.Point(40, 104) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(104, 104) Me.Button1.TabIndex = 1 Me.Button1.Text = "Button1" ' 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.DarkRed Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button2.ForeColor = System.Drawing.Color.Coral Me.Button2.Location = New System.Drawing.Point(192, 104) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(104, 104) Me.Button2.TabIndex = 2 Me.Button2.Text = "Button2" ' 'Button3 ' Me.Button3.BackColor = System.Drawing.Color.DarkRed Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button3.ForeColor = System.Drawing.Color.Coral Me.Button3.Location = New System.Drawing.Point(344, 104) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(104, 104) Me.Button3.TabIndex = 3 Me.Button3.Text = "Button3" ' 'Button4 ' Me.Button4.BackColor = System.Drawing.Color.DarkRed Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button4.ForeColor = System.Drawing.Color.Coral Me.Button4.Location = New System.Drawing.Point(40, 248) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(104, 104) Me.Button4.TabIndex = 4 Me.Button4.Text = "Button4" ' 'Button5 ' Me.Button5.BackColor = System.Drawing.Color.DarkRed Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button5.ForeColor = System.Drawing.Color.Coral Me.Button5.Location = New System.Drawing.Point(192, 248) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(104, 104) Me.Button5.TabIndex = 5 Me.Button5.Text = "Button5" ' 'Button6 ' Me.Button6.BackColor = System.Drawing.Color.DarkRed Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button6.ForeColor = System.Drawing.Color.Coral Me.Button6.Location = New System.Drawing.Point(344, 248) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(104, 104) Me.Button6.TabIndex = 6 Me.Button6.Text = "Button6" ' 'Button7 ' Me.Button7.BackColor = System.Drawing.Color.DarkRed Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button7.ForeColor = System.Drawing.Color.Coral Me.Button7.Location = New System.Drawing.Point(40, 392) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(104, 104) Me.Button7.TabIndex = 7 Me.Button7.Text = "Button7" ' 'Button8 ' Me.Button8.BackColor = System.Drawing.Color.DarkRed Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button8.ForeColor = System.Drawing.Color.Coral Me.Button8.Location = New System.Drawing.Point(192, 392) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(104, 104) Me.Button8.TabIndex = 8 Me.Button8.Text = "Button8" ' 'Button9 ' Me.Button9.BackColor = System.Drawing.Color.DarkRed Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button9.ForeColor = System.Drawing.Color.Coral Me.Button9.Location = New System.Drawing.Point(344, 392) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(104, 104) Me.Button9.TabIndex = 9 Me.Button9.Text = "Button9" ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.DarkBlue Me.Panel1.Location = New System.Drawing.Point(24, 216) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(440, 24) Me.Panel1.TabIndex = 10 ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.DarkBlue Me.Panel2.Location = New System.Drawing.Point(24, 360) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(440, 24) Me.Panel2.TabIndex = 11 ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.DarkBlue Me.Panel3.Location = New System.Drawing.Point(152, 88) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(30, 424) Me.Panel3.TabIndex = 12 ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.DarkBlue Me.Panel4.Location = New System.Drawing.Point(304, 88) Me.Panel4.Name = "Panel4" Me.Panel4.Size = New System.Drawing.Size(30, 424) Me.Panel4.TabIndex = 13 ' 'Label2 ' Me.Label2.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(32, 528) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(304, 23) Me.Label2.TabIndex = 14 Me.Label2.Text = "Label2" ' 'Button10 ' Me.Button10.Location = New System.Drawing.Point(344, 528) Me.Button10.Name = "Button10" Me.Button10.TabIndex = 15 Me.Button10.Text = "Restart" ' 'Button11 ' Me.Button11.Location = New System.Drawing.Point(432, 528) Me.Button11.Name = "Button11" Me.Button11.TabIndex = 16 Me.Button11.Text = "Quit" ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(32, 552) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(100, 16) Me.Label3.TabIndex = 17 Me.Label3.Text = "Made by Me, Sam!" ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(509, 576) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.Button11, Me.Button10, Me.Label2, Me.Panel3, Me.Panel1, Me.Button9, Me.Button8, Me.Button7, Me.Button6, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1, Me.Label1, Me.Panel2, Me.Panel4}) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Tic-Tac-Toe" Me.ResumeLayout(False) End Sub #End Region Dim Token As Char Dim Player As Integer Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load RestartGame() End Sub Private Sub Button1_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Button1.Text = Token Button1.Enabled = False CheckWinner() End Sub Private Sub Button2_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Button2.Text = Token Button2.Enabled = False CheckWinner() End Sub Private Sub Button3_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click Button3.Text = Token Button3.Enabled = False CheckWinner() End Sub Private Sub Button4_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click Button4.Text = Token Button4.Enabled = False CheckWinner() End Sub Private Sub Button5_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click Button5.Text = Token Button5.Enabled = False CheckWinner() End Sub Private Sub Button6_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click Button6.Text = Token Button6.Enabled = False CheckWinner() End Sub Private Sub Button7_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button7.Click Button7.Text = Token Button7.Enabled = False CheckWinner() End Sub Private Sub Button8_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button8.Click Button8.Text = Token Button8.Enabled = False CheckWinner() End Sub Private Sub Button9_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button9.Click Button9.Text = Token Button9.Enabled = False CheckWinner() End Sub Private Sub Button10_Click(ByVal Sender As System.Object, _ ByVal e As System.EventArgs) Handles Button10.Click 'This is called when the Restart button is pressed RestartGame() End Sub Private Sub Button11_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button11.Click 'this is called when the Quit button is pressed End End Sub Private Sub NextPlayer() If Player = 1 Then Token = "X" Player = 2 ElseIf Player = 2 Then Token = "0" Player = 1 End If Label2.Text = "Player " & Player & " : '" & Token & "'" End Sub Private Sub DisplayWinner() 'Display winner message Label2.Text = "Player '" & Token & "' & Token & " ' is the winner!" 'Disable all the buttons Button1.Enabled = False Button2.Enabled = False Button3.Enabled = False Button4.Enabled = False Button5.Enabled = False Button6.Enabled = False Button7.Enabled = False Button8.Enabled = False Button9.Enabled = False End Sub Private Sub CheckWinner() 'Check rows If Len(Button1.Text & Button2.Text & Button3.Text) > 0 And _ Button1.Text = Button2.Text And Button2.Text = Button3.Text Then Button1.BackColor = Color.Yellow Button2.BackColor = Color.Yellow Button3.BackColor = Color.Yellow DisplayWinner() ElseIf Len(Button4.Text & Button5.Text & Button6.Text) > 0 And _ Button4.Text = Button5.Text And Button5.Text = Button6.Text Then Button4.BackColor = Color.Yellow Button5.BackColor = Color.Yellow Button6.BackColor = Color.Yellow DisplayWinner() ElseIf Len(Button7.Text & Button8.Text & Button9.Text) > 0 And _ Button7.Text = Button8.Text And Button8.Text = Button9.Text Then Button7.BackColor = Color.Yellow Button8.BackColor = Color.Yellow Button9.BackColor = Color.Yellow DisplayWinner() 'Check Columns ElseIf Len(Button1.Text & Button4.Text & Button7.Text) > 0 And _ Button1.Text = Button4.Text And Button4.Text = Button7.Text Then Button1.BackColor = Color.Yellow Button4.BackColor = Color.Yellow Button7.BackColor = Color.Yellow DisplayWinner() ElseIf Len(Button2.Text & Button5.Text & Button8.Text) > 0 And _ Button2.Text = Button5.Text And Button5.Text = Button8.Text Then Button2.BackColor = Color.Yellow Button5.BackColor = Color.Yellow Button8.BackColor = Color.Yellow DisplayWinner() ElseIf Len(Button3.Text & Button6.Text & Button9.Text) > 0 And _ Button3.Text = Button6.Text And Button6.Text = Button9.Text Then Button3.BackColor = Color.Yellow Button6.BackColor = Color.Yellow Button9.BackColor = Color.Yellow DisplayWinner() 'Check Diagonals ElseIf Len(Button1.Text & Button5.Text & Button9.Text) > 0 And _ Button1.Text = Button5.Text And Button5.Text = Button9.Text Then Button1.BackColor = Color.Yellow Button5.BackColor = Color.Yellow Button9.BackColor = Color.Yellow DisplayWinner() ElseIf Len(Button3.Text & Button5.Text & Button7.Text) > 0 And _ Button3.Text = Button5.Text And Button5.Text = Button7.Text Then Button3.BackColor = Color.Yellow Button5.BackColor = Color.Yellow Button7.BackColor = Color.Yellow DisplayWinner() Else NextPlayer() End If End Sub Private Sub RestartGame() 're-enable the buttons Button1.Enabled = True Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True Button6.Enabled = True Button7.Enabled = True Button8.Enabled = True Button9.Enabled = True 'clear the buton labels Button1.Text = "" Button2.Text = "" Button3.Text = "" Button4.Text = "" Button5.Text = "" Button6.Text = "" Button7.Text = "" Button8.Text = "" Button9.Text = "" 'set the background colors Button1.BackColor = Color.DarkRed Button2.BackColor = Color.DarkRed Button3.BackColor = Color.DarkRed Button4.BackColor = Color.DarkRed Button5.BackColor = Color.DarkRed Button6.BackColor = Color.DarkRed Button7.BackColor = Color.DarkRed Button8.BackColor = Color.DarkRed Button9.BackColor = Color.DarkRed 'set up the new game Player = 2 Token = ("0" ![]() NextPlayer() End Sub End Class Aahhhhh, the n00bness of Visual Basic .NET I just learnt it! EVERYONE GET MICROSOFT VISUAL BASIC .NET PROGRAMMING FOR THE ABSOULTE BEGINNER! _______________ Signature, schmignature. |
Tido - Student ![]() |
wtf are you doing in the noob thread Mace?! get out dammit, you rawk waaay to much! |
Fate - Student ![]() |
0mph-gad! j00 phr34k1n n0065 1 r 73h 1337 h4X0r pwn3d guh-guh r0ph1m40 411 j00 6453 r 6310ng 70 m3!!!!111oneoneoneone ![]() ![]() ![]() Or if you want me to be really 1337 Binary: 00110000011011010111000001101000001011010110011101100001011001000010000100100000011010100011000000110000001000000111000001101000011100100011001100110100011010110011000101101110001000000110111000110000001100000011011000110101001000000011000100100000011100100010000000110111001100110110100000100000001100010011001100110011001101110010000001101000001101000101100000110000011100100010000001110000011101110110111000110011011001000010000001100111011101010110100000101101011001110111010101101000001000000111001000110000011100000110100000110001011011010011010000110000001000000011010000110001001100010010000001101010001100000011000000100000001101100011010000110101001100110010000001110010001000000011011000110011001100010011000001101110011001110010000000110111001100000010000001101101001100110010000100100001001000010010000100110001001100010011000101101111011011100110010101101111011011100110010101101111011011100110010101101111011011100110010100100000001110100100010000111010010001000011101001000100 Hex: 306D70682D67616421206A30302070687233346B316E206E30303635203120722037336820313333372068345830722070776E3364206775682D6775682072307068316D343020343131206A30302036343533207220363331306E67203730206D33212121213131316F6E656F6E656F6E656F6E65203A443A443A4400 Octal: 060155160150055147141144041040152060060040160150162063064153061156040156060060066065040061040162040067063150040061063063067040150064130060162040160167156063144040147165150055147165150040162060160150061155064060040064061061040152060060040066064065063040162040066063061060156147040067060040155063041041041041061061061157156145157156145157156145157156145040072104072104072104 _______________ I must not fear . Fear is the mind-killer. Fear is the little-death that brings total obliteration. I will face my fear . I will permit it to pass over me and through me. And when it has gone past I will turn the inner eye to see its path. Where the fear has gone there will be nothing. Only I will remain. Gom gom gom gom gom! This comment was edited by Fate on Jul 19 2004 04:46pm. |
Dan - Student |
I r teh n00b of all n00bs.![]() This comment was edited by Dan on Jul 19 2004 12:06pm. |
Antares - Student |
<--- this guy becomes a n00b the second you take his guns away from him ![]() *EDIT* And by the way... Quote: Count me in <- n00b LIES! ![]() _______________ "only two things are infinite: Human stupidity and the universe. And i'm not sure about the latter" Albert Einstein Proud padawan to Obi-Wan Kenobi, Brother to Tido, Setementor, Jalune and Jana-Johauna This comment was edited by Antares on Jul 19 2004 07:41am. |
Gradius - Ex-Student |
All n00bs | | | | V j/k ![]() _______________ - Proud padawan of Kueller. - We really are at the beginning of it all. The trick, of course, is to make sure we never find the end. - Bill Bryson, A Short History of Nearly Everything - <gen-e-sis-happy> Liek, you can train, liek, a n00b, but he'll just be a trained n00b... --> Wise words! - "daer SOE me likes your a company i am having your some money for letting me do stuff cos mes the best amd i do it all meself" - Slider This comment was edited by Gradius on Jul 19 2004 06:54am. |
Lian Del Rey - Student ![]() |
I'M A N00B!! No wait... No I'm not. Sorry. ![]() _______________ slorp |
Enwen - Ex-Student |
<--noob and proud of it ![]() _______________ http://www.petpics.net/dp/files/1-64.jpg |
Tido - Student ![]() |
Count me in <- n00b |
Login and add your comment! |