Программирование мобильных устройств на платформе .NET Compact Framework

 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Adverb)
 InsertEnglishGermanWordPair(cmd, "never", "nie", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Adverb)
 'Добавить другие слова.

 'Предлоги
 InsertEnglishGermanWordPair(cmd, "at the", "am", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Preposition)

'Имена прилагательные
 InsertEnglishGermanWordPair(cmd, "invited", "eingeladen", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Verb)

 InsertEnglishGermanWordPair(cmd, "yellow", "gelbe", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Adjective)
 InsertEnglishGermanWordPair(cmd, "one", "eins", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Adjective)
 InsertEnglishGermanWordPair(cmd, "two", "zwei", _
 VocabularyWord.WordGender.notApplicable, _
 VocabularyWord.WordFunction.Adjective)

 'Имена существительные мужского рода
 InsertEnglishGermanWordPair(cmd, "Man", "Mann", _
 VocabularyWord.WordGender.Masculine, _
 VocabularyWord.WordFunction.Noun)
 InsertEnglishGermanWordPair(cmd, "Marketplace", "Marktplatz", _
 VocabularyWord.WordGender.Masculine, _
 VocabularyWord.WordFunction.Noun)
 InsertEnglishGermanWordPair(cmd, "Spoon", "Löffel", _
 VocabularyWord.WordGender.Masculine, _
 VocabularyWord.WordFunction.Noun)

 'Имена существительные женского рода
 InsertEnglishGermanWordPair(cmd, "Woman", "Frau", _
 VocabularyWord.WordGender.Feminine, _
 VocabularyWord.WordFunction.Noun)
 InsertEnglishGermanWordPair(cmd, "Clock", "Uhr", _
 VocabularyWord.WordGender.Feminine, _
 VocabularyWord.WordFunction.Noun)
 InsertEnglishGermanWordPair(cmd, "Cat", "Katze", _
 VocabularyWord.WordGender.Feminine, _
 VocabularyWord.KordFunction.Noun)

 'Имена существительные среднего рода
 InsertEnglishGermanWordPair(cmd, "Car", "Auto", _
 VocabularyWord.WordGender.Neuter, _
 VocabularyWord.WordFunction.Noun)
 InsertEnglishGermanWordPair(cmd, "Book", "Buch", _
 VocabularyWord.WordGender.Neuter, _
 VocabularyWord.WordFunction.Noun)
End Sub

'----------------------------
'Помещает слово в базу данных
'----------------------------
Private Shared Sub InsertEnglishGermanWordPair( _
 ByVal cmd As System.Data.SqlServerCe.SqlCeCommand, _
 ByVal englishWord As String, ByVal germanWord As String, _
 ByVal germanWordGender As VocabularyWord.WordGender, _
 ByVal wordFunction As VocabularyWord.WordFunction)
 cmd.CommandText = "INSERT INTO " + TRANSLATIONTABLE NAME + _
 "(" + TRANSLATIONTABLE_ENGLISH_COLUMN + ", " + _
 TRANSLATIONTABLE_GERMAN_COLUMN + ", " + _
 TRANSLATIONTABLE_GERMANGENDER_COLUMN + ", " + _
 TRANSLATIONTABLE_WORDFUNCTION_COLUMN + _
 ") VALUES ('" _
 + englishWord + "', '" + germanWord + "', '" _
 + System.Convert.ToString(CType(germanWordGender, Integer)) + "', '"
 + System.Convert.ToString(CType(wordFunction, Integer)) + "')"

 cmd.ExecuteNonQuery
End Sub
End Class

Листинг 14.7. Пример кода управления данными для GameData.cs

Option Strict On
'-----------------------------------------------------------------
'Код управления данными в памяти
'
'Этот код предназначен для управления представлением кода в памяти
'-----------------------------------------------------------------
Imports System

Friend Class GameData
'Массив списков для сохранения загружаемых данных
Private Shared m_vocabularyWords_All As _
 System.Collections.ArrayList
Private Shared m_vocabularyWords_Nouns As _
 System.Collections.ArrayList
Private Shared m_vocabularyWords Verbs As _
 System.Collections.ArrayList
Private Shared m_vocabularyWords_Adjectives As _
 System.Collections.ArrayList
Private Shared m_vocabularyWords Adverbs As _
 System.Collections.ArrayList
Private Shared m_vocabularyWords_Prepositions As _
 System.Collections.ArrayList