By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,045 Members | 1,305 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,045 IT Pros & Developers. It's quick & easy.

How to modify the if statement in VB 6.

P: 50
Hi, im newbie here.

I want to know how i gonna solve my problem in my system. My system is Profession Assessment System which will gonna solve the inputted answer of the examinee that will lead to the type of intelligence, explaination, capabilities and profession that he/she possesses.

These are the coding of my program;

Label12.Caption = Adodc1.Recordset.Fields("lin_ver")
Label13.Caption = Adodc1.Recordset.Fields("log_math")
Label14.Caption = Adodc1.Recordset.Fields("spa_vis")
Label15.Caption = Adodc1.Recordset.Fields("bod_kin")
Label16.Caption = Adodc1.Recordset.Fields("music")
Label17.Caption = Adodc1.Recordset.Fields("inter")
Label18.Caption = Adodc1.Recordset.Fields("intra")


'verbally/linguistic intelligence
If Val(Label12.Caption) > Val(Label13.Caption) Or Val(Label12.Caption) > Val(Label14.Caption) Or _
Val(Label12.Caption) > Val(Label15.Caption) Or Val(Label12.Caption) > Val(Label16.Caption) Or _
Val(Label12.Caption) > Val(Label17.Caption) Or Val(Label12.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label12.Caption)
Label4.Caption = "Verbal/Linguistic Intelligence(Word Smart)"
Label6.Caption = "Verval/Linguistic Intelligence relates to word and language, " & "" & _
"" & "we use this intelligence in listening, speaking, reading & writing. " & "" & _
"" & "(a)Thinks in words " & "" & _
"" & "(b)Highly developed auditory skills " & "" & _
"" & "(c)Play with sounds in laguage " & "" & _
"" & "(d)Great story tellers, tall tales, & jokes " & "" & _
"" & "(e)Love seeing,saying & hearing words " & "" & _
"" & "(f)Head are frequently stuck in a book " & "" & _
"" & "(g)Likes to write"
Label8.Caption = "Understanding order & meaning of words, " & "" & _
"" & "Convincing someone of a course of action, " & "" & _
"" & "Explaining,teaching, & learning, " & "" & _
"" & "Memory and recall, " & "" & _
"" & "Meta-linguistic analysis. "
Label10.Caption = "You can be a Teacher, Journalist, Writer, Lawyer, " & "" & _
"" & "and Translator"
'logical/mathematical intelligence
If Val(Label13.Caption) > Val(Label12.Caption) Or Val(Label13.Caption) > Val(Label14.Caption) Or _
Val(Label13.Caption) > Val(Label15.Caption) Or Val(Label13.Caption) > Val(Label16.Caption) Or _
Val(Label13.Caption) > Val(Label17.Caption) Or Val(Label13.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label13.Caption)
Label4.Caption = "Logical/Mathematical Intelligence(Number Smart)"
Label6.Caption = "Logical/Mathematical Intelligence deals w/ inductive reasoning, " & "" & _
"" & "numbers and relationships. It INVOLVES ABILITY TO RECOGNIZE PATTERNS,to work w/ " & "" & _
"" & "geometric shapes and to make connection between pieces of information. " & "" & _
"" & "(a)Thinks conceptually. " & "" & _
"" & "(b)Skilled in reasoning, logic, and problem solving " & "" & _
"" & "(c)Explores patterns, categories and relatioships " & "" & _
"" & "(d)Manipulates the environment to experiment in a controlled way " & "" & _
"" & "(e)Controls and wonders about the natural events"
Label8.Caption = "Abstract pattern recognition, " & "" & _
"" & "Inductive reasoning, " & "" & _
"" & "Deductive reasoning, " & "" & _
"" & "Discerning relationships and connections, " & "" & _
"" & "Performing complex calculation, " & "" & _
"" & "Scientific reasoning. "
Label10.Caption = "You can be a Scientist. Engineer, Computer Programmer, " & "" & _
"" & "and Accountant."
'spatial/visual intelligence
If Val(Label14.Caption) > Val(Label12.Caption) Or Val(Label14.Caption) > Val(Label13.Caption) Or _
Val(Label14.Caption) > Val(Label15.Caption) Or Val(Label14.Caption) > Val(Label16.Caption) Or _
Val(Label14.Caption) > Val(Label17.Caption) Or Val(Label14.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label14.Caption)
Label4.Caption = "Spatial/Visual Intelligence(Picture Smart)"
Label6.Caption = "Spatial/Visual Intelligence includes being able to visualize an object " & "" & _
"" & "and to create images. It deals w/ visual arts, navigation, architecture and certain games " & "" & _
"" & "such as chess. " & "" & _
"" & "(a)Thinks in images and pictures " & "" & _
"" & "(b)Clear visual images and representations " & "" & _
"" & "(c)Knows the location of everything " & "" & _
"" & "(d)Fascination w/ machines and contraptions" & "" & _
Label8.Caption = "Active imagination, " & _
"" & "Forming mental images, " & "" & _
"" & "Finding your way in space, " & "" & _
"" & "Image manipulations, " & "" & _
"" & "Graphic representation, " & "" & _
"" & "Recognizing relationships of objects in space, " & "" & _
"" & "Accurate perception from different angles. "
Label10.Caption = "You can be a Inventor, Architect, Engineer and Mechanic"
'bodily/kinesthetic intelligence
If Val(Label15.Caption) > Val(Label12.Caption) Or Val(Label15.Caption) > Val(Label13.Caption) Or _
Val(Label15.Caption) > Val(Label14.Caption) Or Val(Label15.Caption) > Val(Label16.Caption) Or _
Val(Label15.Caption) > Val(Label17.Caption) Or Val(Label15.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label15.Caption)
Label4.Caption = "Bodily/Kinesthetic Intelligence(Body Smart)"
Label6.Caption = "Bodily/Kinesthetic Intelligence is related to physical of the body " & "" & _
"" & "and how it functions. It includes the ability to use the body to express emotions, " & "" & _
"" & "to play a game, and to interpret and to invoke effective body language. " & "" & _
"" & "(a)Processes knowledge through bodily sensation " & "" & _
"" & "(b)Excellent fine-motor coordination " & "" & _
"" & "(c)Gut feelings about things " & "" & _
"" & "(d)Great in mimicking your best or worst qualities and mannerisms " & "" & _
"" & "(e)Needs to move around, often labeled hyperactive"
Label8.Caption = "Controls of Voluntary Movements, " & "" & _
"" & "Control of Programmed Movements, " & "" & _
"" & "Expanding awareness through the body connection, " & "" & _
"" & "Mimetic Abilities, " & "" & _
"" & "Improved body functioning. "
Label10.Caption = "You can be a Athlete, Dancer, Actor, Mime and Clown"
'musical/rhythmic intelligence
If Val(Label16.Caption) > Val(Label12.Caption) Or Val(Label16.Caption) > Val(Label13.Caption) Or _
Val(Label16.Caption) > Val(Label14.Caption) Or Val(Label16.Caption) > Val(Label15.Caption) Or _
Val(Label16.Caption) > Val(Label17.Caption) Or Val(Label16.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label16.Caption)
Label4.Caption = "Music/Rhythmic Intelligence(Music Smart)"
Label6.Caption = "Music/Rhythmic Intelligence includes the ability to recognize tonal patterns, " & "" & _
"" & "rhythms and beat. It includes sensitivity to environmental sounds, the human voice and " & "" & _
"" & "musical instrument. " & "" & _
"" & "(a)Thinks in sounds, rhythms and patterns " & "" & _
"" & "(b)Sings, hums, whistles to themselves " & "" & _
"" & "(c)Immediately responds to music " & "" & _
"" & "(d)Performs and appreciate music and leads in songs " & "" & _
"" & "(e)Sensitive to environmental sounds: crickets, bell, ambient music " & "" & _
"" & "(f)Strong opinions of other's music"
Label8.Caption = "Appreciation for the Structure of Music, " & "" & _
"" & "Schemes of Fames in the mind for hearing, " & "" & _
"" & "Sensitivity of sounds, " & "" & _
"" & "Recognition, Creation, and REproduction of Melody/Rhythm, " & "" & _
"" & "Sensing characteristic qualities of a tonic. "
Label10.Caption = "You can be a Choir, Orchestra, Band, Disc Jockey and Theatre"
'interpersonal intelligence
If Val(Label17.Caption) > Val(Label12.Caption) Or Val(Label17.Caption) > Val(Label13.Caption) Or _
Val(Label17.Caption) > Val(Label14.Caption) Or Val(Label17.Caption) > Val(Label15.Caption) Or _
Val(Label17.Caption) > Val(Label16.Caption) Or Val(Label17.Caption) > Val(Label18.Caption) Then
Label1.Caption = Val(Label17.Caption)
Label4.Caption = "Interpersonal Intelligence(People Smart)"
Label6.Caption = "Interpersonal Intelligence is used in person to person relationship. It includes " & "" & _
"" & "the ability to communicate with others and to have empathy for their feelings and beliefs. " & "" & _
"" & "(a)Thinks and processes by relating, cooperating, and communicating with others. " & "" & _
"" & "(b)Leaders among peers " & "" & _
"" & "(c)Uncanny ability to sense feelings and intentions of others " & "" & _
"" & "(d)Understands people, mediates conflict " & "" & _
"" & "(e)Organizer, Communicator at times manipulative " & "" & _
"" & "(f)Street smart, has many friends"
Label8.Caption = "Effective verbal/non-verbal communication, " & "" & _
"" & "Noticing and making distinctions among other individuals, " & "" & _
"" & "Sensitivity to other's moods, temperaments, motivation and feelings, " & "" & _
"" & "Working cooperative in a group, " & "" & _
"" & "Ability to discern other's underlying intentions and behavior, " & "" & _
"" & "Passing Over into the perspective of another, " & "" & _
"" & "Creating and maintaining synergy. "
Label10.Caption = "You can be a Counselor, Business people, Politician, Community Organizer"
'intrapersonal intelligence
If Val(Label18.Caption) > Val(Label12.Caption) Or Val(Label18.Caption) > Val(Label13.Caption) Or _
Val(Label18.Caption) > Val(Label14.Caption) Or Val(Label18.Caption) > Val(Label15.Caption) Or _
Val(Label18.Caption) > Val(Label16.Caption) Or Val(Label18.Caption) > Val(Label17.Caption) Then
Label1.Caption = Val(Label18.Caption)
Label4.Caption = "Intrapersonal Intelligence(Self Smart)"
Label6.Caption = "Intrapersoanl Intelligence is based on knowledge of the self. It includes " & "" & _
"" & "metacognition (thinking about thinking), emotional responses, self reflection, and an " & "" & _
"" & "awareness of metaphysical concepts " & "" & _
"" & "(a)Skilled inner focusing " & "" & _
"" & "(b)Displays a strong personality " & "" & _
"" & "(c)Deep awareness of inner feelings, dreams, and ideas " & "" & _
"" & "(d)Reflective and analytical " & "" & _
"" & "(e)Tends to shy away from team activities " & "" & _
"" & "(f)Recognizes self strengths and weaknesses " & "" & _
"" & "(g)Requires private space and time"
Label8.Caption = "Concentration of the mind, " & "" & _
"" & "Mindfulness, " & "" & _
"" & "Metacognition, " & "" & _
"" & "Awareness and expression of different feelings, " & "" & _
"" & "Higher order of thinking, " & "" & _
"" & "Transparent sense of self reasoning. "
Label10.Caption = "You can be a Philosopher, and Councilor"
End If
End If
End If
End If
End If
End If
End If
Sep 5 '07 #1
Share this Question
Share on Google+
4 Replies


debasisdas
Expert 5K+
P: 8,127
Please post your question in the Vb Forum.

Also use proper code tags for all your code.
Sep 5 '07 #2

Ganon11
Expert 2.5K+
P: 3,652
I've moved this thread to the VB forum.

MODERATOR NOTE: I tried adding [code] tags to the OP's post, but it seems to make the text disappear.
Sep 5 '07 #3

Ali Rizwan
100+
P: 927
Hi
Tell what the actual problem is?
Sep 5 '07 #4

Robbie
100+
P: 180
MODERATOR NOTE: I tried adding [code] tags to the OP's post, but it seems to make the text disappear.
That is definitely a bug of this forum. It happens when there is too much code, past a certain length (I don't know the exact length).
It's annoying, it's happened to me before when I tried to post a massive segment of code.
Sep 5 '07 #5

Post your reply

Sign in to post your reply or Sign up for a free account.