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

[larboss]

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

[larboss]

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

[Гость]

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

[larboss]

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

[Alex ilmarranen]

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

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

[larboss]

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

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

[Alex ilmarranen]

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

[larboss]

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

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

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

[Alex ilmarranen]

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

[larboss]

Кури…

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

[Alex ilmarranen]

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

[larboss]

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

Вот :

Код: Выделить всё

;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

[Alex ilmarranen]

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

[larboss]

Ну я подразумевалъ исходникъ

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

[Alex ilmarranen]

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

[Anri]

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

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

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

/ПыСы: приведённые выше линки - веб приложения написанные ради развлечения, а так я дома традиционно не пишу ни чего - за-дол-ба-ло/

[larboss]

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

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

[Anri]

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

хм.. "там" - это где? в интернете?
т.е. оно там само появляется? Бог это всё делает что-ли?.. новый виртуальный мир для программеров?

[larboss]

в интернете?

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

[Anri]

зато при этом всегда есть возможность иметь локальный IIS со всемы вытекающими .