Overclock.net › Forums › Software, Programming and Coding › Coding and Programming › Visual Basic detects 1 error in the coding?
New Posts  All Forums:Forum Nav:

Visual Basic detects 1 error in the coding?

post #1 of 9
Thread Starter 
Check this coding

Module Module1

Sub Main()

End Sub

module module1 ()

Dim NewPhrase As String
Dim PhraseHasBeenSet As Boolean
Dim PhraseGuessed As Boolean
Dim Choice As Integer
Dim IndividualLettersArray(20) As Char
Dim GuessStatusArray(20) As Char
Dim LettersGuessedArray(26) As Char
Dim NextGuessedLetter As Char
Dim Index As Integer


Sub DisplayMenu()
Console.WriteLine("_______________________________ ___")
Console.WriteLine("")
Console.WriteLine("1. SETTER - Makes new word/phrase")
Console.WriteLine("2. USER – Next letter guess")
Console.WriteLine("3. USER - Guess the Word")
Console.WriteLine("4. Load from file")
Console.WriteLine("5. End")

End Sub

Sub Main()

PhraseHasBeenSet = False
Do
Call DisplayMenu()
Console.Write("Choice? ")
Choice = Console.ReadLine()

If Choice = 1 Then

NewPhrase = GetNewPhrase()
SetUpGuessStatusArray(NewPhrase, IndividualLettersArray, GuessStatusArray)
PhraseHasBeenSet = True
End If

If Choice = 2 Then
If PhraseHasBeenSet = True Then
DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
NextGuessedLetter = GetNextLetterGuess()
' is this letter present?
For Index = 1 To Len(NewPhrase)
If NextGuessedLetter = IndividualLettersArray(Index) Then
GuessStatusArray(Index) = NextGuessedLetter
End If
Next
DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
PhraseGuessed = AllLettersGuessedCorrectly(GuessStatusArray, NewPhrase, _
IndividualLettersArray)
If PhraseGuessed = True Then
Console.WriteLine("You have guessed correctly")
End If
Else
Console.WriteLine("The setter has not specified the word/phrase ..")
End If
End If




If Choice = 3 Then
checkwholeword()
End If

If Choice = 4 Then
readfromfile()
End If


If Choice = 5 And PhraseGuessed = False Then
Console.WriteLine("You have not completed this word/phrase...Press return to exit")
Console.ReadLine()
End If
Loop Until Choice = 5
End Sub
Public Sub readfromfile()
Dim c, position As Integer
Dim wordfound, filename As String
filename = CurDir() & "\\MyPhrases.txt"
fileopen(1, filename, OpenMode.Input
position = Int(Rnd() * 24)
For c = 1 To position
Input(1, wordfound)
Next
NewPhrase = wordfound

End Sub



Public Sub checkwholeword()

Dim checkwholeword As String

Console.WriteLine("have a go")
wordguess = Console.ReadLine()
If NewPhrase = wordguess Then
PhraseGuessed = True
Console.WriteLine("Well Done Hoorah!")
Console.ReadLine()


End If


End Sub
Function GetNewPhrase() As String
Dim PhraseOK As Boolean
Dim ThisNewPhrase As String
Do
Console.Write("Key in the new phrase … (letters and any Spaces) ") : ThisNewPhrase = Console.ReadLine()

If (Len(ThisNewPhrase) < 10) Then
PhraseOK = False
Console.WriteLine("Not enough letters ... ")
' possible futher validation check(s)
Else
PhraseOK = True
GetNewPhrase = ThisNewPhrase
End If
Loop Until PhraseOK = True
End Function






Sub SetUpGuessStatusArray(ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char, _
ByVal GuessStatusArray() As Char)
Dim Position As Integer
For Position = 1 To Len(NewPhrase)
IndividualLettersArray(Position) = Mid(NewPhrase, Position, 1)
If IndividualLettersArray(Position) = " " Then
GuessStatusArray(Position) = " "
Else
GuessStatusArray(Position) = "*"
End If
Next
End Sub



Sub DisplayCurrentStatus(ByVal PhraseLength As Byte, ByVal GuessStatusArray() As Char)
Dim Position As Integer
For Position = 1 To PhraseLength
Console.Write(GuessStatusArray(Position))
Next
Console.WriteLine()

Console.WriteLine("Excuse me sir/madam, you have guessed the following")
For Position = 1 To 26
Console.Write(LettersGuessedArray(Position))
Next
Console.WriteLine()


End Sub

Function GetNextLetterGuess() As Char
Dim position As Integer
Dim GuessedLetter As Char
Console.WriteLine()
Console.Write("Next guess ? ") : GuessedLetter = Console.ReadLine()
GetNextLetterGuess = GuessedLetter

End Function






Function AllLettersGuessedCorrectly(ByVal GuessStatusArray() As Char, _
ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char) As Boolean
Dim Position As Integer
Dim MissingLetter As Boolean
MissingLetter = False
Position = 1
Do
If GuessStatusArray(Position) <> IndividualLettersArray(Position) Then
MissingLetter = True
Else
Position = Position + 1
End If
Loop Until MissingLetter = True Or Position = Len(NewPhrase) + 1
If MissingLetter = False Then
AllLettersGuessedCorrectly = True
Else
AllLettersGuessedCorrectly = False
End If
End Function





End Module





End Module


The part in Bold text is the error. I've tried loads of stuff to shake the error away. Am sure it's just missing a tiny little tweak. Thank you.
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
post #2 of 9
What error is the compiler giving you?
Intellect v2
(9 items)
 
  
CPUMotherboardGraphicsRAM
Intel Core i7-6700K Processor ASUS ROG MAXIMUS VIII HERO LGA1151 DDR4 M.2 SAT... EVGA GTX 1080 SC ACX 3.0 Crucial Ballistix Sport 32GB DDR4 2400 MT/s (PC... 
CoolingKeyboardPowerCase
Noctua NH-D15 Das Keyboard 4 Professional (Brown) Corsair AX860 Fractal Design Define R5 
Mouse
MIONIX NAOS 7000 
  hide details  
Reply
Intellect v2
(9 items)
 
  
CPUMotherboardGraphicsRAM
Intel Core i7-6700K Processor ASUS ROG MAXIMUS VIII HERO LGA1151 DDR4 M.2 SAT... EVGA GTX 1080 SC ACX 3.0 Crucial Ballistix Sport 32GB DDR4 2400 MT/s (PC... 
CoolingKeyboardPowerCase
Noctua NH-D15 Das Keyboard 4 Professional (Brown) Corsair AX860 Fractal Design Define R5 
Mouse
MIONIX NAOS 7000 
  hide details  
Reply
post #3 of 9
I think you netted the module 1 inside the second module 1. Just remove the
"Sub Main()

End Sub

module module1 ()"

and one "End module" at the end should be fine.
Edited by linskingdom - 3/3/11 at 11:14am
post #4 of 9
Thread Starter 
Thanks i will give it a go.
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
post #5 of 9
Thread Starter 
This gave 12 errors. Could you edit the code and paste it back. I may have misunderstood your advice.

edit:

I've got the program to work.

with 4 warning though.



New code




Module Module1
Dim NewPhrase As String
Dim PhraseHasBeenSet As Boolean
Dim PhraseGuessed As Boolean
Dim Choice As Integer
Dim IndividualLettersArray(20) As Char
Dim GuessStatusArray(20) As Char
Dim LettersGuessedArray(26) As Char
Dim NextGuessedLetter As Char
Dim Index As Integer




Sub DisplayMenu()
Console.WriteLine("_______________________________ ___")
Console.WriteLine("")
Console.WriteLine("1. SETTER - Makes new word/phrase")
Console.WriteLine("2. USER – Next letter guess")
Console.WriteLine("3. USER - Guess the Word")
Console.WriteLine("4. Load from file")
Console.WriteLine("5. End")

End Sub


Sub Main()


PhraseHasBeenSet = False
Do
Call DisplayMenu()
Console.Write("Choice? ")
Choice = Console.ReadLine()

If Choice = 1 Then

NewPhrase = GetNewPhrase()
SetUpGuessStatusArray(NewPhrase, IndividualLettersArray, GuessStatusArray)
PhraseHasBeenSet = True
End If

If Choice = 2 Then
If PhraseHasBeenSet = True Then
DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
NextGuessedLetter = GetNextLetterGuess()
' is this letter present?
For Index = 1 To Len(NewPhrase)
If NextGuessedLetter = IndividualLettersArray(Index) Then
GuessStatusArray(Index) = NextGuessedLetter
End If
Next
DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
PhraseGuessed = AllLettersGuessedCorrectly(GuessStatusArray, NewPhrase, _
IndividualLettersArray)
If PhraseGuessed = True Then
Console.WriteLine("You have guessed correctly")
End If
Else
Console.WriteLine("The setter has not specified the word/phrase ..")
End If
End If




If Choice = 3 Then
Checkwholeword()
End If

If Choice = 4 Then
readfromfile()
End If


If Choice = 5 And PhraseGuessed = False Then
Console.WriteLine("You have not completed this word/phrase...Press return to exit")
Console.ReadLine()
End If
Loop Until Choice = 5
End Sub
Public Sub readfromfile()
Dim c, position As Integer
Dim wordfound, filename As String
filename = CurDir() & "\\MyPhrases.txt"
FileOpen(1, filename, OpenMode.Input)

position = Int(Rnd() * 24)
For c = 1 To position
Input(1, wordfound)
Next
NewPhrase = wordfound

End Sub



Public Sub checkwholeword()

Dim checkwholeword As String
Dim wordguess As String


Console.WriteLine("have a go")
wordguess = Console.ReadLine()
If NewPhrase = wordguess Then
PhraseGuessed = True
Console.WriteLine("Well Done Hoorah!")
Console.ReadLine()


End If


End Sub
Function GetNewPhrase() As String
Dim PhraseOK As Boolean
Dim ThisNewPhrase As String
Do
Console.Write("Key in the new phrase … (letters and any Spaces) ") : ThisNewPhrase = Console.ReadLine()

If (Len(ThisNewPhrase) < 10) Then
PhraseOK = False
Console.WriteLine("Not enough letters ... ")
' possible futher validation check(s)
Else
PhraseOK = True
GetNewPhrase = ThisNewPhrase
End If
Loop Until PhraseOK = True
End Function






Sub SetUpGuessStatusArray(ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char, _
ByVal GuessStatusArray() As Char)
Dim Position As Integer
For Position = 1 To Len(NewPhrase)
IndividualLettersArray(Position) = Mid(NewPhrase, Position, 1)
If IndividualLettersArray(Position) = " " Then
GuessStatusArray(Position) = " "
Else
GuessStatusArray(Position) = "*"
End If
Next
End Sub



Sub DisplayCurrentStatus(ByVal PhraseLength As Byte, ByVal GuessStatusArray() As Char)
Dim Position As Integer
For Position = 1 To PhraseLength
Console.Write(GuessStatusArray(Position))
Next
Console.WriteLine()

Console.WriteLine("Excuse me sir/madam, you have guessed the following")
For Position = 1 To 26
Console.Write(LettersGuessedArray(Position))
Next
Console.WriteLine()


End Sub

Function GetNextLetterGuess() As Char
Dim position As Integer
Dim GuessedLetter As Char
Console.WriteLine()
Console.Write("Next guess ? ") : GuessedLetter = Console.ReadLine()
GetNextLetterGuess = GuessedLetter

End Function






Function AllLettersGuessedCorrectly(ByVal GuessStatusArray() As Char, _
ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char) As Boolean
Dim Position As Integer
Dim MissingLetter As Boolean
MissingLetter = False
Position = 1
Do
If GuessStatusArray(Position) <> IndividualLettersArray(Position) Then
MissingLetter = True
Else
Position = Position + 1
End If
Loop Until MissingLetter = True Or Position = Len(NewPhrase) + 1
If MissingLetter = False Then
AllLettersGuessedCorrectly = True
Else
AllLettersGuessedCorrectly = False
End If
End Function





End Module






How can i get rid of the warning and improve the code?
Edited by BradleyW - 3/3/11 at 1:01pm
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
post #6 of 9
Fixed code as follows

You had a module in module, module can only occur at namespace level

remove it!

then you didn't Dim your wordguess As String

Code:
Module Module1

    Dim NewPhrase As String
    Dim PhraseHasBeenSet As Boolean
    Dim PhraseGuessed As Boolean
    Dim Choice As Integer
    Dim IndividualLettersArray(20) As Char
    Dim GuessStatusArray(20) As Char
    Dim LettersGuessedArray(26) As Char
    Dim NextGuessedLetter As Char
    Dim Index As Integer


    Sub DisplayMenu()
        Console.WriteLine("_______________________________ ___")
        Console.WriteLine("")
        Console.WriteLine("1. SETTER - Makes new word/phrase")
        Console.WriteLine("2. USER – Next letter guess")
        Console.WriteLine("3. USER - Guess the Word")
        Console.WriteLine("4. Load from file")
        Console.WriteLine("5. End")

    End Sub

    Sub Main()

        PhraseHasBeenSet = False
        Do
            Call DisplayMenu()
            Console.Write("Choice? ")
            Choice = Console.ReadLine()

            If Choice = 1 Then

                NewPhrase = GetNewPhrase()
                SetUpGuessStatusArray(NewPhrase, IndividualLettersArray, GuessStatusArray)
                PhraseHasBeenSet = True
            End If

            If Choice = 2 Then
                If PhraseHasBeenSet = True Then
                    DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
                    NextGuessedLetter = GetNextLetterGuess()
                    ' is this letter present? 
                    For Index = 1 To Len(NewPhrase)
                        If NextGuessedLetter = IndividualLettersArray(Index) Then
                            GuessStatusArray(Index) = NextGuessedLetter
                        End If
                    Next
                    DisplayCurrentStatus(Len(NewPhrase), GuessStatusArray)
                    PhraseGuessed = AllLettersGuessedCorrectly(GuessStatusArray, NewPhrase, _
                    IndividualLettersArray)
                    If PhraseGuessed = True Then
                        Console.WriteLine("You have guessed correctly")
                    End If
                Else
                    Console.WriteLine("The setter has not specified the word/phrase ..")
                End If
            End If




            If Choice = 3 Then
                checkwholeword()
            End If

            If Choice = 4 Then
                readfromfile()
            End If


            If Choice = 5 And PhraseGuessed = False Then
                Console.WriteLine("You have not completed this word/phrase...Press return to exit")
                Console.ReadLine()
            End If
        Loop Until Choice = 5
    End Sub
    Public Sub readfromfile()
        Dim c, position As Integer
        Dim wordfound, filename As String
        filename = CurDir() & "\\MyPhrases.txt"
        FileOpen(1, filename, OpenMode.Input)
        position = Int(Rnd() * 24)
        For c = 1 To position
            Input(1, wordfound)
        Next
        NewPhrase = wordfound

    End Sub



    Public Sub checkwholeword()

        Dim checkwholeword As String
        Dim wordguess As String

        Console.WriteLine("have a go")
        wordguess = Console.ReadLine()
        If NewPhrase = wordguess Then
            PhraseGuessed = True
            Console.WriteLine("Well Done Hoorah!")
            Console.ReadLine()


        End If


    End Sub
    Function GetNewPhrase() As String
        Dim PhraseOK As Boolean
        Dim ThisNewPhrase As String
        Do
            Console.Write("Key in the new phrase … (letters and any Spaces) ") : ThisNewPhrase = Console.ReadLine()

            If (Len(ThisNewPhrase) < 10) Then
                PhraseOK = False
                Console.WriteLine("Not enough letters ... ")
                ' possible futher validation check(s) 
            Else
                PhraseOK = True
                GetNewPhrase = ThisNewPhrase
            End If
        Loop Until PhraseOK = True
    End Function






    Sub SetUpGuessStatusArray(ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char, _
    ByVal GuessStatusArray() As Char)
        Dim Position As Integer
        For Position = 1 To Len(NewPhrase)
            IndividualLettersArray(Position) = Mid(NewPhrase, Position, 1)
            If IndividualLettersArray(Position) = " " Then
                GuessStatusArray(Position) = " "
            Else
                GuessStatusArray(Position) = "*"
            End If
        Next
    End Sub



    Sub DisplayCurrentStatus(ByVal PhraseLength As Byte, ByVal GuessStatusArray() As Char)
        Dim Position As Integer
        For Position = 1 To PhraseLength
            Console.Write(GuessStatusArray(Position))
        Next
        Console.WriteLine()

        Console.WriteLine("Excuse me sir/madam, you have guessed the following")
        For Position = 1 To 26
            Console.Write(LettersGuessedArray(Position))
        Next
        Console.WriteLine()


    End Sub

    Function GetNextLetterGuess() As Char
        Dim position As Integer
        Dim GuessedLetter As Char
        Console.WriteLine()
        Console.Write("Next guess ? ") : GuessedLetter = Console.ReadLine()
        GetNextLetterGuess = GuessedLetter

    End Function






    Function AllLettersGuessedCorrectly(ByVal GuessStatusArray() As Char, _
    ByVal NewPhrase As String, ByVal IndividualLettersArray() As Char) As Boolean
        Dim Position As Integer
        Dim MissingLetter As Boolean
        MissingLetter = False
        Position = 1
        Do
            If GuessStatusArray(Position) <> IndividualLettersArray(Position) Then
                MissingLetter = True
            Else
                Position = Position + 1
            End If
        Loop Until MissingLetter = True Or Position = Len(NewPhrase) + 1
        If MissingLetter = False Then
            AllLettersGuessedCorrectly = True
        Else
            AllLettersGuessedCorrectly = False
        End If
    End Function





End Module
VB Angers me so much
post #7 of 9
Thread Starter 
lol thanks for that but i have just done it lol. And yeah i declared wordguess. Only thing that anoys me is, its a game of hangman but every time you guess a letter, you have to reselect option 2 and it gets confusing for the user.

dim position as integer are not in use and checkwholeword and string is not in use causing 2 out of 4 warnings. Safe to delete?
Edited by BradleyW - 3/3/11 at 1:09pm
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
post #8 of 9
It is just a warning so don't worry about them for now. You can change the warning level in your project settings so limit to show them.
post #9 of 9
Thread Starter 
Well i removed 2 warning, but did control and z to put the changes i made back into place because they were causing no issues. Thank you anyway guys. My question above still stands though lol.
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
X79-GCN
(22 items)
 
  
CPUMotherboardGraphicsRAM
Intel 3930K 4.5GHz HT GIGABYTE GA-X79-UP4 AMD R9-290X GEil Evo Potenza DDR3 2400MHz CL10 (4x4GB) 
Hard DriveCoolingCoolingCooling
Samsung 840 Pro 120GB EK Supremacy (CPU) NF F12's P/P (360 Rad)  NF A14's (420 Rad)  
CoolingCoolingCoolingCooling
XSPC Chrome Compression Fittings EK RES X3 150 Primochill PremoFlex Advanced LRT Clear 1/2 ID EK-FC (R9 290X) 
CoolingCoolingCoolingOS
EK D5 Vario Top-X  Phobya G-Changer V2 360mm Phobya G-Changer V2 420mm Win 10 x64 Pro 
MonitorKeyboardPowerCase
BenQ XR3501 35" Curved Corsair Vengeance K90 Seasonic X-1250 Gold (v2) Corsair 900D 
MouseAudio
Logitech G400s Senn HD 598 
  hide details  
Reply
New Posts  All Forums:Forum Nav:
  Return Home
  Back to Forum: Coding and Programming
Overclock.net › Forums › Software, Programming and Coding › Coding and Programming › Visual Basic detects 1 error in the coding?