|
|
|
новичок
      
участник
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 - сободная энциклопедия
|
|
|
|
|
Supreme Being
модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240,
Visits: 65 445
|
|
|
|
|
|
Supreme 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
|
|
|
|
|
Supreme Being
      
модератор
Last Login: 29.10.2007 14:45
Сообщ.: 1 833,
Visits: 16 863
|
|
| А для сортировки используй любой элементарный способ, к примеру, двумерный массив и метод пузырька (в твоем случае скорость некритична). Кроме того, по поводу шифрования - посмотри пространство имен System.Security.Cryptography.
|
|
|
|
|
новичок
      
участник
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 - сободная энциклопедия
|
|
|
|
|
Supreme 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.
|
|
|
|