basic - Фриланс

NOVITEK2012 · 01.05.2012, 03:28

нужен программист на бейсике
оплата сдельная
возможна частичная предоплата

2 по асму

3 по шарпу и висуал студио

Рико · 01.05.2012, 03:45

Первый и третий без проблемм, второй возможно. Вообщем пишите на почту, разберёмся

NOVITEK2012 · 01.05.2012, 04:33

vera_simonova_512@mail.ru

Anbor · 01.05.2012, 10:14

Barsp@yandex.ru ICQ 634-707-481

NOVITEK2012 · 02.05.2012, 13:04

SCREEN 12
XS = 640: : XF = 99: : PX = 0: : KY = 0
YS = 480: : YF = 99: : PY = 0: : KX = 0

C2 = 0
J1 = 1
L1 = XS - XF
L2 = YS - YF

DO

LINE (OX, OY)-(OX2, OY2), 0, BF
RX = PX + KX: : RY = PY + KY
RX2 = RX + XF: : RY2 = RY + YF
LINE (RX, RY)-(RX2, RY2), C2, BF
OX = RX: : OY = RY: : OX2 = RX2: : OY2 = RY2

GOSUB G1

LOOP UNTIL INKEY$ = "/"

END

G1:

IF P1 = 0 THEN
KX = KX + J1
IF KX > L1 THEN
KX = KX - J1
END IF
END IF

GOSUB SLP

RETURN

SLP:
FOR Q = 1 TO 1
LINE (0, 0)-(XS, YS), Q, BF
NEXT Q
RETURN

NOVITEK2012 · 02.05.2012, 13:07

допиши со мной этот код
подарю открытку с поздравлениями по почте
в конце недели подарок с меня
лучшему кто допишет
в какую угодно сторону этот кусок кода

NOVITEK2012 · 02.05.2012, 13:09

молоточек для шуточного кодинга

01.05.2012, 03:28	#1
NOVITEK2012 Пользователь Регистрация: 30.04.2012 Сообщений: 10	basic нужен программист на бейсике оплата сдельная возможна частичная предоплата 2 по асму 3 по шарпу и висуал студио

01.05.2012, 03:45	#2
Рико Пользователь Регистрация: 30.04.2012 Сообщений: 31	Первый и третий без проблемм, второй возможно. Вообщем пишите на почту, разберёмся ася- 391166346 почта- riko07@mail.ru skype- riko0760 Последний раз редактировалось Рико; 01.05.2012 в 03:54.

01.05.2012, 10:14	#4
Anbor Пользователь Регистрация: 30.08.2010 Сообщений: 10	Basic Barsp@yandex.ru ICQ 634-707-481

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Из Basic в C++	Mu$T@nG	Помощь студентам	2	15.07.2010 19:14
Basic	Елена lip	Помощь студентам	3	23.03.2010 16:43
Basic ;)	N!ckeL	Помощь студентам	1	10.04.2008 18:21

01.05.2012, 04:33	#3
NOVITEK2012 Пользователь Регистрация: 30.04.2012 Сообщений: 10	vera_simonova_512@mail.ru

02.05.2012, 13:04	#5
NOVITEK2012 Пользователь Регистрация: 30.04.2012 Сообщений: 10	SCREEN 12 XS = 640: : XF = 99: : PX = 0: : KY = 0 YS = 480: : YF = 99: : PY = 0: : KX = 0 C2 = 0 J1 = 1 L1 = XS - XF L2 = YS - YF DO LINE (OX, OY)-(OX2, OY2), 0, BF RX = PX + KX: : RY = PY + KY RX2 = RX + XF: : RY2 = RY + YF LINE (RX, RY)-(RX2, RY2), C2, BF OX = RX: : OY = RY: : OX2 = RX2: : OY2 = RY2 GOSUB G1 LOOP UNTIL INKEY$ = "/" END G1: IF P1 = 0 THEN KX = KX + J1 IF KX > L1 THEN KX = KX - J1 END IF END IF GOSUB SLP RETURN SLP: FOR Q = 1 TO 1 LINE (0, 0)-(XS, YS), Q, BF NEXT Q RETURN

02.05.2012, 13:07	#6
NOVITEK2012 Пользователь Регистрация: 30.04.2012 Сообщений: 10	допиши со мной этот код подарю открытку с поздравлениями по почте в конце недели подарок с меня лучшему кто допишет в какую угодно сторону этот кусок кода