QB, помогите кому не влом! |
crash77
Unregistered
| Здарасте срочно нужно сделать графическую программу в QB ПОЖАЛУЙСТА ПОМОГИТЕ ЧЕМ МОЖЕТЕ, ВОТ КАРТИНКА КОТОРУЮ НАДО ПЕРЕВЕСТИ В ПРОГРМАННЫЙ РЕЖИМ, http://WWW.WORLD-HACK.NAROD.RU/312.jpgА ВОТ ЧАСТЬ КОДА... QUOTE Cls Const pi = 3.141593 Screen 9 Line (200, 50)-(280, 10), 2 Line (200, 50)-(220, 70), 2, B Line (200, 70)-(180, 145), 2 Circle (180, 170), 25, 2, , 2 Circle (235, 195), 55, 2, pi, 3 * pi / 2 Circle (255.5, 233), 21, 2 Line (245, 223)-(270, 243), 2, B Line (277, 233)-(360, 233), 2 Circle (401, 233), 21, 2 Line (390.5, 233)-(415, 243), 2, B Circle (422, 195), 55, 2, 3 * pi / 2 Circle (477, 170), 25, 2, , , 2 Line (457, 70)-(477, 145), 2
заранее благодарен! |
|
| |
15.02.2006 - 18:34 |
ZaHack
Большой Брат
Группа: Заблокированные Сообщений: 1.252 Регистрация: 24.01.2006 Из: Where The Eagles Fly Пользователь №: 333
Респектов: 117
| А зачем именно в КуБейсике? В делфи я тебе за 3 минуты эту картинку в бинарник вставлю. | |
| |
15.02.2006 - 18:44 |
crash77
Unregistered
| ну понимаешь в колледже надо обязательно в QB помогите кто нить плиз! |
|
| |
15.02.2006 - 22:32 |
Love.sys
Коксохим
Группа: Наши Люди Сообщений: 1.341 Регистрация: 23.08.2005 Пользователь №: 12.345
Респектов: 120
| Могу выложить в аттач туторы по этому языку. Надо? | |
| |
15.02.2006 - 23:53 |
crash77
Unregistered
| ну давай, все = если кто - нить может помочь, то помогите плиз! |
|
| |
16.02.2006 - 0:04 |
Love.sys
Коксохим
Группа: Наши Люди Сообщений: 1.341 Регистрация: 23.08.2005 Пользователь №: 12.345
Респектов: 120
| НЕ, аттач сдесь недоступен, выкладываю на рапиду: Пользуйся на здоровье. Всего 111 кб, ! | |
| |
16.02.2006 - 0:17 |
crash77
Unregistered
| спсибо... попробую разобараться со своей траблой с помощью книги... Добавлено:спсибо... попробую разобараться со своей траблой с помощью книги... |
|
| |
20.02.2006 - 17:41 |
crash77
Unregistered
| Гражданинспасибо те большое я за эту работу получмл 5, прафда не успел отчет написать , да это ладно, на следущей паре напишу кому надо вот исходник этой картинки QUOTE Cls Const pi = 3.141593 Screen 9 Line (200, 50)-(330, 5), 14 Line (200, 50)-(220, 70), 12, B Line (200, 70)-(180, 145), 14 Circle (180, 170), 25, 12, , , 2 Circle (235, 195), 55, 14, pi, 3 * pi / 2 Circle (255.5, 233), 21, 12 Line (245, 223)-(270, 243), 12, B Line (277, 233)-(380, 233), 14 Circle (401, 233), 21, 12 Line (390, 222)-(415, 243), 12, B Circle (422, 195), 55, 14, 3 * pi / 2 Circle (477, 170), 25, 12, , , 2 Line (457, 70)-(477, 145), 14 Line (436, 50)-(457, 70), 12, B Line (457, 50)-(331, 5), 14 Circle (331, 35), 30, 12, , , 2 Line (325, 10)-(339, 60), 12, B Line (220, 50)-(310, 60), 14 Line (436, 50)-(352, 60), 14 Line (352, 60)-(444, 90), 14 Line (310, 60)-(210, 90), 14 Circle (220, 103), 20, 7 Line (200, 103)-(200, 195), 14 Circle (438, 105), 20, 7 Line (458, 103)-(458, 195), 14 Line (200, 195)-(458, 215), 14, B Circle (220, 103), 15, 6 Circle (220, 103), 10, 15 Circle (438, 105), 15, 6 Circle (438, 105), 10, 15 Line (200, 195)-(236, 215), 10 Line (236, 215)-(290, 195), 10 Line (300, 195)-(344, 215), 10 Line (344, 215)-(380, 195), 10 Line (380, 195)-(416, 215), 10 Line (416, 215)-(458, 195), 10 Circle (243, 60), 110, 2, 3 * pi / 2, 0 Circle (260, 80), 110, 2, 3 * pi / 2, 0 Line (352, 60)-(370, 80), 2 Line (243, 141)-(260, 161), 2 Circle (418, 60), 110, 2, pi, 3 * pi / 2 Circle (397, 80), 110, 2, pi, 3 * pi / 2 Line (310, 60)-(287, 80), 2 Line (418, 141)-(397, 161), 2 LOCATE 20, 30.5 Print "ThIs PiCtUrE By [CRASH]" LOCATE 13, 32 Print "sOfTorOOm.NeT-fOrEvEr" LOCATE 22, 30.5 Print "Спасибо модератору под ником Гражданин"
|
|
| |
|
|