You are viewing our Forum Archives. To view or take place in current topics click here.
Any way I can condense this?
Posted:
Any way I can condense this?Posted:
Status: Offline
Joined: Apr 03, 201113Year Member
Posts: 772
Reputation Power: 30
Status: Offline
Joined: Apr 03, 201113Year Member
Posts: 772
Reputation Power: 30
Need to condense this, Help please
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 1
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 2
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 3
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 4
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 5
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 6
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 7
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 8
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 9
Else
If cmbYear.SelectedIndex = "1" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 10
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 11
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 12
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 13
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 14
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 15
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 16
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 17
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 18
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 19
Else
If cmbYear.SelectedIndex = "2" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 20
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 21
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 22
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 23
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 24
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 25
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 26
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 27
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 28
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 29
Else
If cmbYear.SelectedIndex = "3" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 30
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 31
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 32
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 33
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 34
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 35
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 36
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 37
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 38
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 39
Else
If cmbYear.SelectedIndex = "4" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 40
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 41
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 42
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 43
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 44
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 45
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 46
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 47
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 48
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 49
Else
If cmbYear.SelectedIndex = "5" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 50
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "1" Then
intTempID = 51
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "2" Then
intTempID = 52
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "3" Then
intTempID = 53
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "4" Then
intTempID = 54
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "1" And cmbID.SelectedIndex = "5" Then
intTempID = 55
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "1" Then
intTempID = 56
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "2" Then
intTempID = 57
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "3" Then
intTempID = 58
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "4" Then
intTempID = 59
Else
If cmbYear.SelectedIndex = "6" And cmbClass.SelectedIndex = "2" And cmbID.SelectedIndex = "5" Then
intTempID = 60
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
#2. Posted:
Status: Offline
Joined: Jan 01, 201113Year Member
Posts: 1,957
Reputation Power: 401
Status: Offline
Joined: Jan 01, 201113Year Member
Posts: 1,957
Reputation Power: 401
Select Case cmbClass.SelectedIndex
Case 1
intTempID = ((cmbYear.SelectedIndex * 2) - 2) * 5) + cmbID.SelectedIndex
Case 2
intTempID = ((cmbYear.SelectedIndex * 2) - 1) * 5) + cmbID.SelectedIndex
End Select
This should do it
- 2useful
- 0not useful
#3. Posted:
Status: Offline
Joined: Apr 03, 201113Year Member
Posts: 772
Reputation Power: 30
Status: Offline
Joined: Apr 03, 201113Year Member
Posts: 772
Reputation Power: 30
Cheers, that saved up a lot of space :L
- 0useful
- 0not useful
#4. Posted:
Status: Offline
Joined: Dec 23, 201013Year Member
Posts: 2,446
Reputation Power: 80
Imp wroteSelect Case cmbClass.SelectedIndex
Case 1
intTempID = ((cmbYear.SelectedIndex * 2) - 2) * 5) + cmbID.SelectedIndex
Case 2
intTempID = ((cmbYear.SelectedIndex * 2) - 1) * 5) + cmbID.SelectedIndex
End Select
This should do it
Now that is code optimization..
- 0useful
- 0not useful
You are viewing our Forum Archives. To view or take place in current topics click here.