Помощь
Отправлено 16 Февраль 2007 - 18:12
Цитата(Cartman @ 30.01.2007, 21:08) 
Ну че паделать =) Одна только вазможность не вбивать например
x as Stringer
a as Stringer
s as Stringer
d as Stringer
f as Stringer
g as Stringer
а сделать все это одной кнопкой - заслуживает внимание =)
Тут я написал рабочий калькуль за пару минут а там - воообще не написал =)
Да и тады на что подсесть? Чтобы по удобнее и с кряком =) (да и прямую сылку =) )
x as Stringer
a as Stringer
s as Stringer
d as Stringer
f as Stringer
g as Stringer
а сделать все это одной кнопкой - заслуживает внимание =)
Тут я написал рабочий калькуль за пару минут а там - воообще не написал =)
Да и тады на что подсесть? Чтобы по удобнее и с кряком =) (да и прямую сылку =) )
ы на Delphi такой кусок кода будет выглядить в одну строку
x,a,s,d,f,g : String
Basic
ХЫ : Ты написал сам или взял готовый исходник
?Кстати Delphi Умеет работать с LUA а Basic нет
Цитата
function decToHex(Dec, Length)
local B, K, Hex, I, D = 16, "0123456789ABCDEF", "", 0;
while Dec>0 do
I=I+1;
Dec, D = math.floor(Dec/B), math.fmod(Dec,B)+1;
Hex=string.sub(K,D,D)..Hex;
end
if( (Length ~= nil) and (string.len(Hex) < Length) ) then
local temp, i = Length-string.len(Hex), 1;
for i=1, temp, 1 do
Hex = "0"..Hex;
end
end
return Hex;
end
local B, K, Hex, I, D = 16, "0123456789ABCDEF", "", 0;
while Dec>0 do
I=I+1;
Dec, D = math.floor(Dec/B), math.fmod(Dec,B)+1;
Hex=string.sub(K,D,D)..Hex;
end
if( (Length ~= nil) and (string.len(Hex) < Length) ) then
local temp, i = Length-string.len(Hex), 1;
for i=1, temp, 1 do
Hex = "0"..Hex;
end
end
return Hex;
end
Конвертни эту функцию на Basic интересно посмотреть
2ermak - Что имеется ввиду
?
Сообщение отредактировал Maniak: 16 Февраль 2007 - 19:18
Отправлено 19 Март 2007 - 22:04
