Программирование мобильных устройств на платформе .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 _