Russian English
   Basic.net
Среда, 23.09.2020, 03:58
Меню сайта
Категории раздела
Basic [44]
Помощь [0]
Облако тегов
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа
Главная » Статьи » Basic

Готовые коды для Small Basic
Share |
Список готовых программных кодов для Small Basic.

1. Код простой программы "Time Now". Она показывает текущие время, год, месяц, число, час, минуту, секунду и даже миллисекунду.

Code
Start:
TextWindow.Title=("Time Now 1.0")
TextWindow.ForegroundColor="red"
TextWindow.WriteLine ("(С) Павел Смирнов, 2010")
TextWindow.ForegroundColor="green"
TextWindow.Write ("Год:")
TextWindow.WriteLine (Clock.Year)
TextWindow.Write ("Месяц:")
TextWindow.WriteLine (Clock.Month)
TextWindow.Write ("Сегодня:")
TextWindow.WriteLine (Clock.Day)
TextWindow.Write ("Часов:")
TextWindow.WriteLine (Clock.Hour)
TextWindow.Write ("Минут:")
TextWindow.WriteLine (Clock.Minute)
TextWindow.Write ("Секунд:")
TextWindow.WriteLine (Clock.Second)
TextWindow.Write ("Миллисекунд:")
TextWindow.WriteLine (Clock.Millisecond)
TextWindow.ForegroundColor="white"
TextWindow.WriteLine ("Нажмите любую клавшу, что бы обновить время.")
TextWindow.PauseWithoutMessage()
TextWindow.Clear()
Goto Start


2. Программа для перевода градусов из Фаренгейта в Цельсии.

Code
TextWindow.Write("Enter temperature in Fahrenheit: ")
fahr = TextWindow.ReadNumber()
celsius = 5 * (fahr - 32) / 9
TextWindow.WriteLine("Temperature in Celsius is " + celsius)

3. Программа-приветствие. В зависимости от времени говорит "Доброе утро!" или "Добрый вечер!".

Code
If (Clock.Hour < 12) Then
TextWindow.WriteLine("Good Morning World")
EndIf
If (Clock.Hour >= 12) Then
TextWindow.WriteLine("Good Evening World")
EndIf


4. Программа выводит на экран замысловатую фигуру.

Code
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = "LightBlue"
GraphicsWindow.Width = 200
GraphicsWindow.Height = 200
For i = 1 To 100 Step 5
GraphicsWindow.DrawRectangle(100 - i, 100 - i, i * 2, i * 2)
EndFor


5. Программа с использованием инструмента Turtle, рисует дерево.

Code
angle = 30
delta = 10
distance = 60
Turtle.Speed = 9
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.PenColor = "LightGreen"
DrawTree()
Sub DrawTree
If (distance > 0) Then
Turtle.Move(distance)
Turtle.Turn(angle)
Stack.PushValue("distance", distance)
distance = distance - delta
DrawTree()
Turtle.Turn(-angle * 2)
DrawTree()
Turtle.Turn(angle)
distance = Stack.PopValue("distance")
Turtle.Move(-distance)
EndIf
EndSub


6. Программа с использованием функции синхронизации с сайтом Flickr. Осуществляет поиск картинок на указанные ключивые слова и рандомно выбирает одну.

Code
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.MouseDown = OnMouseDown
Sub OnMouseDown
pic = Flickr.GetRandomPicture("mountains, river")
GraphicsWindow.DrawResizedImage(pic, 0, 0, 640, 480)
EndSub

7. Наконец, программный код игры. Цель - не позволить мячику пролететь мимо платформы. Вы можете усовершенствовать её, добавить систему очков и разные уровни.

Code
GraphicsWindow.BackgroundColor = "DarkBlue"
paddle = Shapes.AddRectangle(120, 12)
ball = Shapes.AddEllipse(16, 16)
GraphicsWindow.MouseMove = OnMouseMove
x = 0
y = 0
deltaX = 1
deltaY = 1
RunLoop:
x = x + deltaX
y = y + deltaY
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x >= gw - 16 or x <= 0) Then
deltaX = -deltaX
EndIf
If (y <= 0) Then
deltaY = -deltaY
EndIf
padX = Shapes.GetLeft (paddle)
If (y = gh - 28 and x >= padX and x <= padX + 120) Then
deltaY = -deltaY
EndIf
Shapes.Move(ball, x, y)
Program.Delay(5)
If (y < gh) Then
Goto RunLoop
EndIf
GraphicsWindow.ShowMessage("You Lose", "Paddle")
Sub OnMouseMove
paddleX = GraphicsWindow.MouseX
Shapes.Move(paddle, paddleX - 60, GraphicsWindow.Height - 12)
EndSub
Категория: Basic | Добавил: Admin (04.12.2010)
Просмотров: 25341 | Комментарии: 2 | Рейтинг: 4.1/7
Всего комментариев: 1
1 Виктор   (10.12.2013 09:06) [Материал]
Скажите как сделать в этой игре чтобы против тебя ирал компьютер?
Вот в этой игре чтобы на противоположной стороне играл компьютер ?скинте сразу готовый код
Вот код этой игры для котоорой надо сделать это!
GraphicsWindow.BackgroundColor = "DarkBlue"
paddle = Shapes.AddRectangle(120, 12)
ball = Shapes.AddEllipse(16, 16)
GraphicsWindow.MouseMove = OnMouseMove
x = 0
y = 0
deltaX = 1
deltaY = 1
RunLoop:
x = x + deltaX
y = y + deltaY
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x >= gw - 16 or x <= 0) Then
deltaX = -deltaX
EndIf
If (y <= 0) Then
deltaY = -deltaY
EndIf
padX = Shapes.GetLeft (paddle)
If (y = gh - 28 and x >= padX and x <= padX + 120) Then
deltaY = -deltaY
EndIf
Shapes.Move(ball, x, y)
Program.Delay(5)
If (y < gh) Then
Goto RunLoop
EndIf
GraphicsWindow.ShowMessage("You Lose", "Paddle")
Sub OnMouseMove
paddleX = GraphicsWindow.MouseX
Shapes.Move(paddle, paddleX - 60, GraphicsWindow.Height - 12)
EndSub

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Какую версию Basic вы предпочитаете?
Всего ответов: 2028

© Basic.ucoz.net, 2020