Список лучших результатов в игре
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



Список лучших результатов в игре Expand / Collapse
Автор
Сообщение
29.08.2006 3:00


новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 31.08.2006 20:55
Сообщ.: 4, Visits: 22
игра на VB .NET Compact Framework v.2 (для pocket pc)

Задача:
1) сохранить лучшие результаты (2 поля - имя и кол-во очков)
2) желательно в текстовом виде или *.ini, и закодированно (баз использования баз и не дать пользователю возможность редактировать список)

т.е. :
Считывать из файла
Сортировать по кол-ву очков
Записать в файл
Не плохо было бы закодировать и раскодировать, но не критично

в бейсике такое делал, а здесь не получается даже нормально работать с тхт файлами, мучаюсь который день

спасиб за любую идею / подсказку

=============================================
wiki.com.ua - сободная энциклопедия

Сообщ. #903478
29.08.2006 10:14
Supreme Being

Supreme Being

модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240, Visits: 65 445
С Compact Framework дела не имел и могу только дать ссылки на примеры от Microsoft:

1) .NET Compact Framework QuickStart Tutorial

2) Common Tasks QuickStart

Сообщ. #903492
29.08.2006 10:24


Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

модератор
Last Login: 29.10.2007 14:45
Сообщ.: 1 833, Visits: 16 863
С Compact Framework дело имел, в первую очередь с SQL Server CE, правда.

Но с файлами то все элементарно:

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sw As StreamWriter = File.CreateText("\My Documents\Test.txt")

sw.Write(TextBox1.Text)

sw.Close()

Dim sr As StreamReader = File.OpenText("\My documents\Test.txt")

TextBox2.Text = sr.ReadToEnd()

sr.Close()

End Sub

End Class

Сообщ. #903493
29.08.2006 10:31


Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

модератор
Last Login: 29.10.2007 14:45
Сообщ.: 1 833, Visits: 16 863
А для сортировки используй любой элементарный способ, к примеру, двумерный массив и метод пузырька (в твоем случае скорость некритична).

Кроме того, по поводу шифрования - посмотри пространство имен System.Security.Cryptography.

Сообщ. #903494
31.08.2006 9:32


новичок

новичокновичокновичокновичокновичокновичокновичокновичок

участник
Last Login: 31.08.2006 20:55
Сообщ.: 4, Visits: 22
все получилось кроме метода пузырька
кто подскажет как переделать в двумерный массив?

'Входные параметры:
'    Arr -   сортируемый массив.
'            Нумерация элементов от 0 до N-1
'    N   -   размер массива
'
'Выходные параметры:
'    Arr -   массив, упорядоченный по возрастанию.
'            Нумерация элементов от 0 до N-1
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub BubbleSort(ByRef Arr() As Double, ByRef N As Long)
    Dim I As Long
    Dim J As Long
    Dim Tmp As Double

    For i=0 To N-1 Step 1
        For j=0 To n-2-i Step 1
            If Arr(j)>Arr(j+1) then
                Tmp = Arr(j)
                Arr(j) = Arr(j+1)
                Arr(j+1) = Tmp
            End If
        Next j
    Next i
End Sub


=============================================
wiki.com.ua - сободная энциклопедия

Сообщ. #903640
31.08.2006 10:48


Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

модератор
Last Login: 29.10.2007 14:45
Сообщ.: 1 833, Visits: 16 863
Ну почитай про массивы то, ну. Добавь еще одну размерность.

Или сделай структуру с двумя полями - Cnt & UserName и сделай одномерный массив. Просто сравнивать будешь не  If Arr(j)>Arr(j+1), а If Arr(j).Cnt>Arr(j+1).Cnt.

Сообщ. #903648
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.
Модераторы: Alexey, boombastik, bazile, pl, Alexey Spirin

Время GMT +3:00, Сейчас 6:49