Какие программы пишем дома?

Assembler, Basic, Pascal/Delphi, Perl, PHP, JavaScript, HTML и т.д. Вопросы и помощь.

Какие программы пишем дома?

Непрочитанное сообщение larboss » 26 фев 2008, 15:51:41

Интерестно, кто сам что написал?
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 27 фев 2008, 14:45:13

Не давно закончил прогу для тестирования CPU-GPU. Выложу на файлообменник. LarGroupPTS называеться.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Гость » 27 фев 2008, 17:03:49

Моя игрушки пишетделает =любовь на GM
Гость
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 13:55:38

Выложил, я,свою прогу largrouppts. Качайте и критикуйте.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 15:46:57

1. Проблемы съ кодировкой в DOS
2. Ошибка Memory Acess Violation

Вердиктъ - гадость…
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 16:01:31

Alex ilmarranen писал(а):1. Проблемы съ кодировкой в DOS
2. Ошибка Memory Acess Violation


1. Программа тестирована была на Windows XP SP2.
2. Вы ввели верное разрешение? Надо, например, ввести : 1024, а в след вопросе 768.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 16:55:01

Что я могъ ввести %) Он мне запросы невнятные формулируетъ… что-то вроде ?????? ??????? ?? ??????
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 17:21:07

Alex ilmarranen писал(а):Что я могъ ввести %) Он мне запросы невнятные формулируетъ… что-то вроде ?????? ??????? ?? ??????


Это наверное у тебя нет шрифта Arial. Ладно, сделаю на английском.

Просто введи :
на 1 : 1024
на 2 : 768
на 3 : 3.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 17:23:20

Кури… Горе-программеръ… http://sailormoon.fludilka.ru/sailormoo ... shrift.php
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 17:27:04

Alex ilmarranen писал(а):Кури…


Я не курю. Это первая версия. В других я сделаю так, чтобы детализация была ваше.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 17:28:14

Дай кодъ полюбоваться…
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 17:35:17

Alex ilmarranen писал(а):Дай кодъ полюбоваться…


Вот :
Код: Выделить всё
;Lar Group Perfomance Test
;Spheres
; Copiright (C) 2003-2007 31 Dec

Global Version#=0.90

AppTitle "Perfomance Test by Lar Group. Version "+version#

Include "Language.h"

Graphics 640,480,16,2

font=LoadFont("Arial",24)
SetFont font

W=Input(txt(1))
H=Input(txt(2))
Detail_Cube_Q=Input(txt(3))

Select Detail_Cube_Q
Case 1
Detail_Cube=4
Case 2
Detail_Cube=8
Case 3
Detail_Cube=16
Default
Detail_Cube=4

End Select

EndGraphics

Graphics3D W,H,16,1
SetBuffer BackBuffer()

font=LoadFont("Arial",24)
SetFont font

SeedRnd MilliSecs()

;timer=CreateTimer(50)
Global fps1,frames1,lastcheck
;Options
Global MaxCubes=40
Global MaxRange=100
Global Speed#=0.0001

;Dim cubes(MaxCubes)
;Dim cubes2(MaxCubes)



Type Cubes
Field CX,CY,CZ
Field R,G,B
Field State
End Type

x#=1
y#=1
z#=1

camera=CreateCamera()
pivot=CreatePivot()

CameraClsColor camera,55,50,70

;light=CreateLight()

CameraRange camera,1,100

For A=1 To MaxCubes
cube.cubes= New cubes
CubeCX=Rnd(-(MaxRange/2),MaxRange/2)
CubeCY=Rnd(-(MaxRange/2),MaxRange/2)
CubeCZ=Rnd(-(MaxRange/2),MaxRange/2)
CubeR=Rnd(0,255)
CubeG=Rnd(0,255)
CubeB=Rnd(0,255)

Cubes=CreateSphere(Detail_Cube,Pivot)

PositionEntity cubes,CubeCX,CubeCY,CubeCZ
EntityColor cubes,CubeR,CubeG,CubeB

x=x+speed
y=y+speed
z=z+speed

If x>10 Then speed=-0.01
If x<0.5 Then speed=0.01

ScaleEntity cubes,x,y,z

Next




While Not KeyDown( 1 )

getfps

For cube.cubes= Each cubes

If fps1>10 Then
MaxCubes=Maxcubes+1

cube.cubes= New cubes
CubeCX=Rnd(-(MaxRange/2),MaxRange/2)
CubeCY=Rnd(-(MaxRange/2),MaxRange/2)
CubeCZ=Rnd(-(MaxRange/2),MaxRange/2)
CubeR=Rnd(0,255)
CubeG=Rnd(0,255)
CubeB=Rnd(0,255)
CubeState=1

Cubes=CreateSphere(Detail_Cube,Pivot)
PositionEntity cubes,CubeCX,CubeCY,CubeCZ
EntityColor cubes,CubeR,CubeG,CubeB

x=x+speed
y=y+speed
z=z+speed

If x>10 Then speed=-0.01
If x<0.5 Then speed=0.01

ScaleEntity cubes,x,y,z

End If

Next
 
If KeyDown(3)
MaxCubes=Maxcubes-1
CubeState=0
End If

TurnEntity pivot,.01,0,0

If KeyDown(57) Then SaveResults()

RenderWorld
UpdateWorld

Color 255,0,0
Text 0,0,"Lar Group Perfomance Test"+" Version "+Version
Color 0,255,0:Text 0,25,txt(4)+fps1:Color 255,0,0
Text 0,50,txt(5)+MaxCubes
Text 0,75,txt(6)+AvailVidMem()/1000000

;If KeyDown(1) Then Text W/2,H/2,txt(7),True,True:Delay 2500:End

Color 0,0,0

;WaitTimer timer

Flip

Wend

End

Function SaveResults()

File=WriteFile("Result.log")

WriteLine(file,"MaxCubes: "+MaxCubes)
WriteLine(file,"MaxRange: "+MaxRange)
WriteLine(file,"FPS: "+Fps1)

CloseFile(file)

End Function



Function GetFPS()
   Frames1 = Frames1 + 1
   
   If MilliSecs() > LastCheck+1000 Then
      LastCheck = MilliSecs()
      FPS1 = Frames1
      Frames1 = 0
   EndIf
   Return FPS1
End Function
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 17:41:10

%) Ну я подразумевалъ исходникъ… Ну ладно… Хоть въ тэгъ поставь… Глаза сломать можно…
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение larboss » 29 фев 2008, 17:43:19

Alex ilmarranen писал(а):Ну я подразумевалъ исходникъ


Это и есть исходник.
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Alex ilmarranen » 29 фев 2008, 17:52:51

Хыхъ… Файлегъ… Проектикъ погонять… Впрочемъ богъ съ нимъ…
Alex ilmarranen
 

Какие программы пишем дома?

Непрочитанное сообщение Anri » 13 мар 2008, 01:49:00

а мои произведения почти все в интернете :).
например:
http://www.apankov.com/Ocherk/default.a ... UMID=FFMM1
смотрим на фотки - пример использованиея GDI+
ну и само программирование - один aspx с парой десяткоф строк и построенный на XmlDocument обхекте и иже с ним.

онлайновый редактор (форматировалось только для IE, тестовая версия):
http://www.apankov.com/stihi/editor.ashx

не вижу причин писать настольные проги.. если есть интернет под рукой, то в него можно целиком и полностью перенести всё

/ПыСы: приведённые выше линки - веб приложения написанные ради развлечения, а так я дома традиционно не пишу ни чего - за-дол-ба-ло/
Давай с тобой поговорим, прости, не знаю, как зовут.
Но открывается другим, все то, что близким берегут.
Ты скажешь: "Все наоборот, согласно логике вещей",
Но это редкий поворот, а, может, нет его вообще.

(с) О.Митяев
Anri
Магистр
Магистр
 
Сообщения: 2137
Зарегистрирован: 05 июл 2006, 23:30:06
Откуда: Frankfurt am Main, Germany
Пол: Мужской

Какие программы пишем дома?

Непрочитанное сообщение larboss » 13 мар 2008, 15:55:41

Anri писал(а):не вижу причин писать настольные проги.. если есть интернет под рукой, то в него можно целиком и полностью перенести всё


Ну там нельзя программировать.*SARCASTIC*
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Anri » 17 мар 2008, 15:38:14

larboss писал(а):Ну там нельзя программировать

хм.. "там" - это где? в интернете?
т.е. оно там само появляется? Бог это всё делает что-ли?.. новый виртуальный мир для программеров?
Давай с тобой поговорим, прости, не знаю, как зовут.
Но открывается другим, все то, что близким берегут.
Ты скажешь: "Все наоборот, согласно логике вещей",
Но это редкий поворот, а, может, нет его вообще.

(с) О.Митяев
Anri
Магистр
Магистр
 
Сообщения: 2137
Зарегистрирован: 05 июл 2006, 23:30:06
Откуда: Frankfurt am Main, Germany
Пол: Мужской

Какие программы пишем дома?

Непрочитанное сообщение larboss » 17 мар 2008, 17:08:00

Anri писал(а):в интернете?


Да, именно в инете нельзя находиться:).
larboss
 

Какие программы пишем дома?

Непрочитанное сообщение Anri » 17 мар 2008, 17:18:28

зато при этом всегда есть возможность иметь локальный IIS со всемы вытекающими ;).
Давай с тобой поговорим, прости, не знаю, как зовут.
Но открывается другим, все то, что близким берегут.
Ты скажешь: "Все наоборот, согласно логике вещей",
Но это редкий поворот, а, может, нет его вообще.

(с) О.Митяев
Anri
Магистр
Магистр
 
Сообщения: 2137
Зарегистрирован: 05 июл 2006, 23:30:06
Откуда: Frankfurt am Main, Germany
Пол: Мужской


Вернуться в Программирование

Кто сейчас на форуме

Зарегистрированные пользователи: AhrefsBot [Bot], DotBot [Crawler], SEMrush [Бот], Trendiction [Бот], Яндекс [Бот]