Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ########################### Table1 1 #####################################
- Sub Table1()
- If option 1 = 10 or option 2 = 10 or option 3 = 10 or option 4 = 10 Then Result = RESULT 1
- ElseIf option 5 = 0 Then show Table 2
- End If
- End sub
- ########################### Table1 2 #####################################
- Sub Table 2()
- Collect Score and Then go to table 3
- End sub
- ########################### Table1 3 #####################################
- Sub Table 3()
- Collect Score and Then go to table 4
- End sub
- ########################### Table1 4 #####################################
- Sub Table 4()
- Collect Score and Then go to table 5
- End sub
- ########################### Table1 5 #####################################
- Sub Table1 5()
- If choix = oui go to table A
- ElseIf choix = non Then go to table B
- End If
- End sub
- ########################### Table1 A #####################################
- Sub Table1 A()
- If choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table3 >= 8 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table4 =< 7 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 < 4 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 Then Result = RESULT 2A
- ElseIf choix = Non Then go to Table A2
- End If
- End sub
- ########################### Table1 A2 #####################################
- Sub Table1 A2()
- If choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table3 >= 8 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table4 =< 7 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 < 4 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 23
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table3 >= 8 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table4 =< 7 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 < 4 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 = 0 Then Result = RESULT 3A
- End If
- End sub
- ########################### Table1 B #####################################
- Sub Table1 B()
- If choix = oui Then go to table B1
- ElseIf choix = non Then go to table B2
- End If
- End sub
- ########################### Table1 B1 #####################################
- Sub Table1 B1()
- If choix = oui Then go to table B1A
- ElseIf choix = non Then go to table B1B
- End If
- End sub
- ########################### Table1 B1A #####################################
- Sub Table1 B1A()
- If choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 2B
- ElseIf choix = Non and score of Table3 >= 8 Then Result = RESULT 2B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table4 =< 7 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table3 < 4 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table3 = 0 Then Result = RESULT 2A
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 33
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table3 >= 8 Then Result = RESULT 3B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 3A
- ElseIf choix = Oui and score of Table4 =< 7 Then Result = RESULT 3A
- ElseIf choix = Oui and score of Table3 < 4 Then Result = RESULT 3A
- ElseIf choix = Oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 3A
- ElseIf choix = Oui and score of Table3 = 0 Then Result = RESULT 3A
- End If
- End sub
- ########################### Table1 B1B #####################################
- Sub Table1 B1B()
- If choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 43
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table3 >= 8 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table4 =< 7 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 < 4 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 = 0 Then Result = RESULT 4A
- ElseIf choix = Non Then go to Table B1BB
- End If
- End sub
- ########################### Table1 B1BB #####################################
- Sub Table1 B1BB()
- If choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 43
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table3 >= 8 Then Result = RESULT 4B
- ElseIf choix = Oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table4 =< 7 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 < 4 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 4A
- ElseIf choix = Oui and score of Table3 = 0 Then Result = RESULT 4A
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 53
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table3 >= 8 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table4 =< 7 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 < 4 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 = 0 Then Result = RESULT 5A
- End If
- End sub
- ########################### Table1 B2 #####################################
- Sub Table1 B2()
- If choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 53
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 5B
- ElseIf choix = Non and score of Table3 >= 8 Then Result = RESULT 5B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table4 =< 7 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 < 4 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 5A
- ElseIf choix = Non and score of Table3 = 0 Then Result = RESULT 5A
- ElseIf choix = Oui Then go to Table B2B
- End If
- End sub
- ########################### Table1 B2B #####################################
- Sub Table1 B2B()
- If choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 2B
- ElseIf choix = oui and score of Table3 >= 8 Then Result = RESULT 2B
- ElseIf choix = oui and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table4 =< 7 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 < 4 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 2A
- ElseIf choix = oui and score of Table3 = 0 Then Result = RESULT 2A
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 >= 5 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 >= 8 and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 >= 5 Then Result = RESULT 23
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" and score of Table4 Like"[3-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 >= 8 and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[6-32]" and score of Table4 Like"[2-35]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 Like"[2-32]" and score of Table4 >= 7 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 >= 3 and score of Table3 Like"[4-32]" Then Result = RESULT 3B
- ElseIf choix = Non and score of Table3 >= 8 Then Result = RESULT 3B
- ElseIf choix = Non and score of Table2 Like"[1-3]" and score of Table3 =< 4 and score of Table4 =< 3 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table4 =< 7 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 < 4 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 = 0 and score of Table4 = 0 Then Result = RESULT 3A
- ElseIf choix = Non and score of Table3 = 0 Then Result = RESULT 3A
- End If
- End sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement