Ultimate Star Trek Trivia
Welcome to Ultimate Star Trek Trivia, the most advanced, versatile Star Trek trivia game in the world! Prepare yourself for a rich multimedia experience as you delve into the depths of fandom knowledge and immerse yourself in the most rewarding trivia experience ever created. Over 1,400 questions. Over 400 pictures. Dozens of sound and music clips from the weekly episodes and all nine movies! This program will provide Trekkers with endless hours of enjoyment as they explore the depths of their knowledge of Star Trek. This program was once sold as shareware. But in the spirit of the open source community, the source code and all multimedia content is being released to the public by the author. (Note this is a 5Mb download)
KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Upload
Function IsAlphaNumeric(sText)
'***************************************************************************
'Checks to see if sText is made up of only Alphabetic characters (A-Z) or
'Numbers. If it has any other characters, IsAlphaNumeric will be False.
'***************************************************************************
Dim nLen, nLoop, sTemp, sSingleCharacter
Dim bAlphaStatus
'***************************************************************************
'Default value
'***************************************************************************
bAlphaStatus = True
'***************************************************************************
'Gets length of the sText variable.
'***************************************************************************
sTemp = Trim(sText)
nLen = Len(sTemp)
'***************************************************************************
'If the length of sText is 0, then it is not AlphaNumeric and
'IsAlphaNumeric = False.
'***************************************************************************
If nLen = 0 then
bAlphaStatus = False
End If 'If nLen = 0 then
If nLen > 0 then
'***************************************************************************
'Convert sText to uppercase to make comparisons easier.
'***************************************************************************
sTemp = Ucase(sTemp)
'***************************************************************************
'Will loop nLen times. It will check each of the characters of sText against
'the comparison string (which is A-Z and 1-0). It will check it one
'character at a time (beginning with the farthest left character).If the
'Instr command shows a 0 (meaning it could not find a match), that character
'was not AlphaNumeric.
'***************************************************************************
For nLoop =1 to nLen
sSingleCharacter = Mid(sTemp,nLoop,1)
If Instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", sSingleCharacter)= 0 then
bAlphaStatus = False
Exit For
End If
Next
'***************************************************************************
'If sText managed to get through the above filters without changing
'IsAlphaNumeric to False, then IsAlphaNumeric is True.
'***************************************************************************
If bAlphaStatus <> False then
bAlphaStatus = True
End If
End If 'If nLen > 0 then
IsAlphaNumeric = bAlphaStatus
End Function