| voyage | Дата: Пятница, 23 Октября 2020, 07:07 | Сообщение # 1 | Тема: Small Basic |
|
уже был
Сейчас нет на сайте
| Попробуйте программу "Ковер"
Прикольно рисует ковры.
Если есть у кого желание видоизменить программу, выкладываем решения здесь. ( с разрешения администратора).
GraphicsWindow.Width = 1820
GraphicsWindow.Height = 980
GraphicsWindow.PenColor="Gray"
GraphicsWindow.DrawRectangle(1,1,1818,978)
GraphicsWindow.BrushColor="Black"
GraphicsWindow.FillRectangle(3,3,1815,975)
x=3
y=3
r=110
b=150
g=100
For i=1 To 100000000
c=Math.GetRandomNumber(100000)
If c<2 Then
r=Math.GetRandomNumber(255)
g=Math.GetRandomNumber(255)
b=Math.GetRandomNumber(255)
EndIf
Color=GraphicsWindow.GetColorFromRGB(r,g,b)
a=Math.GetRandomNumber(200)
a1=Math.GetRandomNumber(200)
If a<100 Then
a=-1
else
a=1
EndIf
If a1<100 Then
a1=-1
Else
a1=1
EndIf
x=x+a
y=y+a1
If x<3 Then
x=x+2
EndIf
If y<3 Then
y=y+2
EndIf
If x>1815 Then
x=x-2
EndIf
If y>975 Then
y=y-2
EndIf
x1= 1813 -x
y1= 983-y
x11=1813-y
y11=983-x
x2= 1813 -x
y2=y
x22=y
y22=983-x
x3=x
y3=983-y
x33=1813-y
y33=x
x4=912+x
y4=490+y
x5=912-x
y5=490-y
x6=912+x
y6=490-y
x7=912-x
y7=490+y
GraphicsWindow.SetPixel(x,y,color)
GraphicsWindow.SetPixel(y,x,color)
GraphicsWindow.SetPixel(x1,y1,color)
GraphicsWindow.SetPixel(x11,y11,color)
GraphicsWindow.SetPixel(x2,y2,color)
GraphicsWindow.SetPixel(x22,y22,color)
GraphicsWindow.SetPixel(x3,y3,color)
GraphicsWindow.SetPixel(x33,y33,color)
GraphicsWindow.SetPixel(x4,y4,color)
GraphicsWindow.SetPixel(x5,y5,color)
GraphicsWindow.SetPixel(x6,y6,color)
GraphicsWindow.SetPixel(x7,y7,color)
EndFor
Сообщение отредактировал voyage - Пятница, 23 Октября 2020, 16:36 |
|
|
| |
| voyage | Дата: Суббота, 13 Сентября 2014, 20:35 | Сообщение # 2 | Тема: Уроки по созданию браузерной игры |
|
уже был
Сейчас нет на сайте
| 1 шаг и сразу косяк. Вставил вfo SQL запрос в XAMPP, запустил и вот результат:
Ошибка
SQL запрос:
CREATE DATABASE testgame DEFAULT CHARACTER SET cp1251 COLLATE cp1251_general_ci;
Ответ MySQL: Документация
#1007 - Can't create database 'testgame'; database exists
Подскажите в чем беда?
Сообщение отредактировал voyage - Суббота, 13 Сентября 2014, 20:38 |
|
|
| |
