Някои може ли да направи това на JS ot QB ?

[pesho]

Моля, някои може ли да направи това на JS ot QB ?
Ако го направи някои - "Щу ме паля свещ, по празници на именни дни и даже когато се заженя, ще му припаля, всяко четвърто дете на него ще кръщавам. Колкото по добре работи скрипта - толкоз по добре да му работи на чиляка #### работа докато я "фитва" : ) Ако пък го подобри - още по .... за дълго да му спори : )
Пак някои ако наспами темата ще го кълна да знай, после ##я си цял живот не може си опрай !


DIM num(10)

10
RANDOMIZE TIMER
a = INT(RND * 49) + 1
b = INT(RND * 49) + 1
c = INT(RND * 49) + 1
d = INT(RND * 49) + 1
e = INT(RND * 49) + 1
f = INT(RND * 49) + 1

IF a = b OR a = c OR a = d OR a = e OR a = f THEN
GOTO 10
ELSEIF b = c OR b = d OR b = e OR b = f THEN
GOTO 10
ELSEIF c = d OR c = e OR c = f THEN
GOTO 10
ELSEIF d = e OR d = f THEN
GOTO 10
ELSEIF e = f THEN
GOTO 10
END IF

num(1) = a
num(2) = b
num(3) = c
num(4) = d
num(5) = e
num(6) = f

FOR i = 1 TO 6
FOR i1 = 1 TO 6
IF num(i) > num(i1) THEN SWAP num(i), num(i1)
NEXT
NEXT

CLS
PRINT num(6); num(5); num(4); num(3); num(2); num(1)

 

[ЗеленияЧовек]

Re: Някои може ли да направи това на JS ot QB ?

Програмата генерира шест псевдослучайни уникални цели числа подредени в възходящ ред, ето същото на javascript:

Array.prototype.isPresent = function(val) {
        for(var i = 0; i < this.length; i++) {
                if(this[i] == val) {
                        return true;
                }
        }
        return false;
}

Array.prototype.randomUnique = function(n, min, max) {
        for(var i = 0; i < n; i++) {
                var rv = Math.floor((Math.random()*max))+min;
                if(!this.isPresent(rv)) {
                        this[i] = rv;
                } else {
                        --i;
                }
        }
}

Array.prototype.sortn = function() {
        return this.sort(function(a, b){return a-b;});
}

var nums = new Array();
nums.randomUnique(6, 1, 49);
document.write(nums.sortn());

 

[pesho]

Re: Някои може ли да направи това на JS ot QB ?

Мерси много ! Няма да забравим и за свещичката, пък знае ли човек, може и да има такова нещо "карма" или "добро" :R Както се вика - като одъртееш и станеш на 7-800 000 часа живот (Или милион с новите технологии ; ) ще можеш да погледнеш назад и да кажеш - ее добре ги оползотворих тия 10-20 часа в помагане на разни ### из форумите.
едит:
а Спамете си на воля вече, особено тия с проблем като моя, не забравяйте по едно tank you да кажете и вие : )