Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль

Показать сообщение отдельно
aptos
13 / 13 / 2
Регистрация: 04.06.2013
Сообщений: 156
24.04.2014, 19:39
Хорошо, но поздно (это про ориентацию). Я все координаты просто сделал гибкими, в зависимости от размеров текущего Activity, соответственно независимо от разрешения экрана и его ориентации все соответственно перестраивается

У меня тут проблемка появилась на ровном месте. Понадобился мне рандомный массив без повторяющихся элементов, массиву из кнопок значения задать. Написал алгоритм на VB6, все работает:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim i, j, rand(8)
 
Private Sub Form_Click()
Cls
Randomize
For i = 0 To 8
   rand(i) = Int(1 + Rnd * 9)
   For j = 0 To 7
      If rand(i) = rand(j) And i <> j Then
      i = i - 1
      Exit For
      End If
   Next
Next
 
For i = 0 To 8
Print rand(i)
Next
End Sub
А вот на Basic4android выдает ошибку ArrayIndexOfBoundsException. Код практически тот же, почему же не работает? Вот:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Buttons_Click
For i = 0 To 8
   rand(i) = Rnd(1,12)
   For j = 0 To 7
      If rand(i) = rand(j) AND i <> j Then
      i = i - 1
      j = 7
      End If
   Next
Next
For i=0 To 8
   Buttons(i).Text = rand(i)
Next
End Sub
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru