PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)

Вопросы новичка (продолжение…)

Страница:   1 … 9 10 11 12 13 … 33  
Тема закрыта

Сообщений 301 страница 330 из 990

301

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56

Вот еще пример с использованием TransformSprite3D

Код:
; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=1849
; Author: kutta (updated to PB4 by ste123)
; Date: 28. July 2003
; OS: Windows
; Demo: Yes

Declare punkteberechnen()
Declare sortieren()
Declare linien ()
Declare texture ()

Global anzahl.l,spr.l,spr3d.l
anzahl=20

InitSprite()
InitSprite3D()
InitKeyboard()
OpenScreen(1024,768,32,"flat")
LoadFont(0,"comic sans ms",5)

;wьrfel objekt erschaffen
Structure wuerfel
  xpos.f[8]
  ypos.f[8]
  zpos.f[8]
  temxpos.f[8]
  temypos.f[8]
  temzpos.f[8]
  x2d.f[8]
  y2d.f[8]
  verx.f
  very.f
  verz.f
  con1.w[7]
  con2.w[7]
  con3.w[7]
  con4.w[7]
  breite.f
  laenge.f
  hoehe.f
  startposx.f
  startposy.f
  winkelx.f
  winkely.f
  winkelz.f
  zeigerx.f
  zeigery.f
  zeigerz.f
  speedx.f
  speedy.f
  speedz.f
  index.f
EndStructure

;wuerfel eckpunkte in die structure legen
Global Dim typ.wuerfel(anzahl)
For t=1 To anzahl
  typ(t)\index=t
  typ(t)\breite=80
  typ(t)\hoehe=80
  typ(t)\laenge=80
  typ(t)\xpos[0]=0
  typ(t)\ypos[0]=0
  typ(t)\zpos[0]=0
  typ(t)\xpos[1]=typ(t)\breite
  typ(t)\ypos[1]=0
  typ(t)\zpos[1]=0
  typ(t)\xpos[2]=typ(t)\breite
  typ(t)\ypos[2]=typ(t)\hoehe
  typ(t)\zpos[2]=0
  typ(t)\xpos[3]=0
  typ(t)\ypos[3]=typ(t)\hoehe
  typ(t)\zpos[3]=0
  typ(t)\xpos[4]=0
  typ(t)\ypos[4]=0
  typ(t)\zpos[4]=typ(t)\laenge
  typ(t)\xpos[5]=typ(t)\breite
  typ(t)\ypos[5]=0
  typ(t)\zpos[5]=typ(t)\laenge
  typ(t)\xpos[6]=typ(t)\breite
  typ(t)\ypos[6]=typ(t)\hoehe
  typ(t)\zpos[6]=typ(t)\laenge
  typ(t)\xpos[7]=0
  typ(t)\ypos[7]=typ(t)\hoehe
  typ(t)\zpos[7]=typ(t)\laenge
  typ(t)\startposx=Random(800)+100
  typ(t)\startposy=Random(600)+100
  typ(t)\speedx=Random((5)+1)/10
  typ(t)\speedy=Random((5)+1)/10
  typ(t)\speedz=Random((5)+1)/10
  typ(t)\zeigerx=Random(2)+1
  If typ(t)\zeigerx=0:typ(t)\zeigerx=2:EndIf
  typ(t)\zeigery=Random(2)+1
  If typ(t)\zeigery=0:typ(t)\zeigery=-2:EndIf
  typ(t)\zeigerz=Random((5)+1)/10
  If typ(t)\zeigerz=0:typ(t)\zeigerz=-0.2:EndIf
  typ(t)\verz=Random(100)-Random(4000)
Next

;3d sprite als lichtextur
spr.l = CreateSprite(#PB_Any,8,8,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(spr))
FrontColor( RGB(200,100,100) )
Box(0, 0, 8, 8)
StopDrawing()
CopySprite(spr,99,#PB_Sprite_Texture)
spr3d.l = CreateSprite3D(#PB_Any,99)

;3d sprites als seitenflдchen
For n=1 To 6;seiten
  StartDrawing(SpriteOutput(spr))
  FrontColor( RGB(0,0,55) )
  Box(0, 0, 8, 8)
  DrawingFont(FontID(0))
  DrawingMode(3)
  FrontColor( RGB(229,100,0) )
  ;DrawText(1,-1,Str(n))
  StopDrawing()
  CopySprite(spr,n,#PB_Sprite_Texture)
  CreateSprite3D(n,n)
Next

;quaderecken einlesen
For t=1 To anzahl
  Restore seiten:
  For n=1 To 6;seiten
    Read.w typ(t)\con1[n]
    Read.w typ(t)\con2[n]
    Read.w typ(t)\con3[n]
    Read.w typ(t)\con4[n]
  Next
  DataSection
  seiten:
  Data.w 0,1,2,3,  4,5,1,0,  5,4,7,6,  4,0,3,7, 1,5,6,2, 3,2,6,7
  EndDataSection
Next

;************************************************************************************************************************
;Haupschleife
Repeat
  ClearScreen( RGB(0,0,0) )
  ExamineKeyboard()
  punkteberechnen ()
  sortieren()
  linien()
  texture()
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
;*************************************************************************************************************************

Procedure punkteberechnen ()
  For t=1 To anzahl
    
    For v=0 To 7 ;eckpunkte transformieren
      ;nдchster winkelwert
      typ(t)\winkelx=typ(t)\winkelx+typ(t)\speedx
      If typ(t)\winkelx+typ(t)\speedx =>360.00 :typ(t)\winkelx=typ(t)\winkelx-360:EndIf
      typ(t)\winkely=typ(t)\winkely+typ(t)\speedy
      If typ(t)\winkely+typ(t)\speedy =>360.00 :typ(t)\winkely=typ(t)\winkely-360:EndIf
      typ(t)\winkelz=typ(t)\winkelz+typ(t)\speedz
      If typ(t)\winkelz+typ(t)\speedz =>360.00 :typ(t)\winkelz=typ(t)\winkelz-360:EndIf
      ;rotation
      typ(t)\temypos[v]= (((typ(t)\ypos[v]-typ(t)\hoehe/2) * Cos(typ(t)\winkelx*(2*3.14159265/360))) - ((typ(t)\zpos[v]-typ(t)\laenge/2) * Sin(typ(t)\winkelx*(2*3.14159265/360))))
      typ(t)\temzpos[v]= (((typ(t)\ypos[v]-typ(t)\hoehe/2) * Sin(typ(t)\winkelx*(2*3.14159265/360))) + ((typ(t)\zpos[v]-typ(t)\laenge/2) * Cos(typ(t)\winkelx*(2*3.14159265/360))))
      typ(t)\temxpos[v]= (((typ(t)\xpos[v]-typ(t)\breite/2) * Cos(typ(t)\winkely*(2*3.14159265/360))) - (typ(t)\temzpos[v] * Sin(typ(t)\winkely*(2*3.14159265/360))))
      typ(t)\temzpos[v] =(((typ(t)\xpos[v]-typ(t)\breite/2) * Sin(typ(t)\winkely*(2*3.14159265/360))) + (typ(t)\temzpos[v] * Cos(typ(t)\winkely*(2*3.14159265/360))))
      x=typ(t)\temxpos[v]
      typ(t)\temxpos[v]= ((typ(t)\temxpos[v] * Cos(typ(t)\winkelz*(2*3.14159265/360))) - (typ(t)\temypos[v] * Sin(typ(t)\winkelz*(2*3.14159265/360))))
      typ(t)\temypos[v]= ((x * Sin(typ(t)\winkelz*(2*3.14159265/360))) + (typ(t)\temypos[v] * Cos(typ(t)\winkelz*(2*3.14159265/360))))
      ;verschiebung z-achse
      If typ(t)\verz>220 Or typ(t)\verz<-4000:typ(t)\zeigerz=typ(t)\zeigerz*-1:EndIf
      typ(t)\verz=typ(t)\verz+typ(t)\zeigerz
      typ(t)\temzpos[v]=typ(t)\temzpos[v]+typ(t)\verz
      ;2d umsetzung
      typ(t)\x2d[v]= 500 * typ(t)\temxpos[v] / (400 - (typ(t)\temzpos[v]))
      typ(t)\y2d[v]= 500 * typ(t)\temypos[v] / (400 - (typ(t)\temzpos[v]))
    Next
    
    ;2d bewegung
    typ(t)\startposx=typ(t)\startposx+typ(t)\zeigerx
    typ(t)\startposy=typ(t)\startposy+typ(t)\zeigery
    If typ(t)\startposx>900 Or typ(t)\startposx<100:typ(t)\zeigerx=typ(t)\zeigerx*-1:EndIf
    If typ(t)\startposy>700 Or typ(t)\startposy<100:typ(t)\zeigery=typ(t)\zeigery*-1:EndIf
    ;z mittelwert sammeln
    typ(t)\index=(Round(typ(t)\temzpos[0],1)+Round(typ(t)\temzpos[6],1)+Round(typ(t)\temzpos[4],1)+Round(typ(t)\temzpos[2],1))/4
  Next
EndProcedure

Procedure sortieren();der wьrfel in z reinfolge ft.bubblesort(thx wichtel !)
  a.l
  b.l
  c.wuerfel
  For b=1 To anzahl-1
    For a=b To anzahl-1
      If  typ(b)\index>typ(a+1)\index
        CopyMemory(@typ(b),@c,SizeOf(wuerfel))
        CopyMemory(@typ(a+1),@typ(b),SizeOf(wuerfel))
        CopyMemory(@c,@typ(a+1),SizeOf(wuerfel))
      EndIf
    Next a
  Next b
EndProcedure

Procedure linien() ;drahtgitter
  StartDrawing(ScreenOutput())
  DrawingMode(1)
  For t=1 To anzahl
    
    For n=1 To 6
      con1=typ(t)\con1[n]
      con2=typ(t)\con2[n]
      con3=typ(t)\con3[n]
      con4=typ(t)\con4[n]
      FrontColor( RGB(0,0,155) )
      LineXY(typ(t)\x2d[con1]+typ(t)\startposx,typ(t)\y2d[con1]+typ(t)\startposy,typ(t)\x2d[con2]+typ(t)\startposx,typ(t)\y2d[con2]+typ(t)\startposy) ;eins
      LineXY(typ(t)\x2d[con2]+typ(t)\startposx,typ(t)\y2d[con2]+typ(t)\startposy,typ(t)\x2d[con3]+typ(t)\startposx,typ(t)\y2d[con3]+typ(t)\startposy) ;zwei
      LineXY(typ(t)\x2d[con3]+typ(t)\startposx,typ(t)\y2d[con3]+typ(t)\startposy,typ(t)\x2d[con4]+typ(t)\startposx,typ(t)\y2d[con4]+typ(t)\startposy) ;drei
      LineXY(typ(t)\x2d[con4]+typ(t)\startposx,typ(t)\y2d[con4]+typ(t)\startposy,typ(t)\x2d[con1]+typ(t)\startposx,typ(t)\y2d[con1]+typ(t)\startposy) ;vier
    Next
    
  Next
  StopDrawing()
EndProcedure

Procedure texture();3d sprites rauftransformen
  Start3D()
  ;Sprite3DBlendingMode(15,9)
  For t=1 To anzahl
    
    For n=1 To 6 ;seiten
      con1=typ(t)\con1[n]
      con2=typ(t)\con2[n]
      con3=typ(t)\con3[n]
      con4=typ(t)\con4[n]
      If typ(t)\x2d[con1]>typ(index)\x2d[con2]
        TransformSprite3D(n, typ(t)\x2d[con2], typ(t)\y2d[con2], typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4], typ(t)\x2d[con3], typ(t)\y2d[con3])
        TransformSprite3D(spr3d, typ(t)\x2d[con2], typ(t)\y2d[con2], typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4], typ(t)\x2d[con3], typ(t)\y2d[con3])
      EndIf
      If typ(t)\y2d[con4]<typ(t)\y2d[con2]
        TransformSprite3D(n, typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4], typ(t)\x2d[con3], typ(t)\y2d[con3], typ(t)\x2d[con2], typ(t)\y2d[con2])
        TransformSprite3D(spr3d, typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4], typ(t)\x2d[con3], typ(t)\y2d[con3], typ(t)\x2d[con2], typ(t)\y2d[con2])
      EndIf
      If typ(t)\y2d[con4]>typ(t)\y2d[con2]
        TransformSprite3D(n, typ(t)\x2d[con3], typ(t)\y2d[con3], typ(t)\x2d[con2], typ(t)\y2d[con2], typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4])
        TransformSprite3D(spr3d, typ(t)\x2d[con3], typ(t)\y2d[con3], typ(t)\x2d[con2], typ(t)\y2d[con2], typ(t)\x2d[con1], typ(t)\y2d[con1], typ(t)\x2d[con4], typ(t)\y2d[con4])
      EndIf
      mittelwert=(Round(typ(t)\x2d[con1],1)+Round(typ(t)\x2d[con2],1)+Round(typ(t)\x2d[con3],1)+Round(typ(t)\x2d[con4],1))/4
      DisplaySprite3D(n,typ(t)\startposx,typ(t)\startposy,255)
      DisplaySprite3D(spr3d,typ(t)\startposx,typ(t)\startposy,100+mittelwert*3/4);lichttextur
    Next
    
  Next
  Stop3D()
EndProcedure

0

302

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Пётр написал(а):

В КоАрхиве есть несколько примеров, вот один из них:

Супер, очень красиво!!! Команда получается мего полезная!!! Спасибо!!! :flag:

Во вкладке Инструменты\просмотр структур\константы, есть множество констант, которые можно использовать в PB, а есть ли где-нибудь описание, зачем каждая из них нужна, а то в справке вроде совершенно другие константы описаны…? И по встроенным интерфейсам и структурам, есть какая «справка»?:question:

Отредактировано Lucagin (13.02.2011 23:58:26)

0

303

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56

Там константы из библиотеки PB, пользовательских библиотек и подавляющее большинство - API константы. Последние можно "вбивать в " поисковик, скажем, гугл и искать инфу.
Например, #WM_MOUSEMOVE

Код:
И по встроенным интерфейсам и структурам, есть какая «справка»?

Если они из API операционки, то тоже ищем описание в гугле.
Например RECT

0

304

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Пётр написал(а):

Если они из API операционки, то тоже ищем описание в гугле.

Понял, Спасибо!!!

0

305

  • Автор: Илья
  • Активный участник
  • Зарегистрирован: 13.02.2011
  • Приглашений: 0
  • Сообщений: 80
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 6 часов
  • Последний визит:
    06.08.2011 00:08:38

А нет-ли в PB такой функции чтоб NOD (наименьший общий делитель) вычислять?

0

306

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Илья написал(а):

А нет-ли в PB такой функции чтоб NOD (наименьший общий делитель) вычислять?

Может быть  «наибольший общий делитель», а то наименьший всегда будет 1… :о) На 1-цу делятся все и из целых он явно будет наименьший…
Прямой функции вроде нет, но есть оператор %, который делит два числа и возвращает остаток от деления. Соответственно, если возвращает 0, то делится на цело, если не 0, то не делится на цело. Думаю логика понятна, а дальше уже не проблема написать твой расчет…

Вот один из способов посчитать:

Код:
a=500
b=2500
c=1720
d=30020

v=a
If v>=b : v=b
ElseIf v>=c : v=c  
ElseIf v>=d : v=d
EndIf 
  For NOD=v To 1 Step -1
    If a%NOD=0 And b%NOD=0 And c%NOD=0 And d%NOD=0
      Debug NOD
      Break      
    EndIf
  Next

Если значений гораздо больше, то можно создать массив по числу  значений и сравнивать уже не отдельные переменные, а члены массива. Я не уверен, что мой алгоритм наиболее рациональный. Вот пара ссылок, где вероятно считают более правильно…
"http://ru.wikipedia.org/wiki/Алгоритм_Евклида"
"http://otvety.google.ru/otvety/thread?tid=285af8feb08c1e79&table=%2Fotvety%2F"

Отредактировано Lucagin (14.02.2011 03:32:17)

0

307

  • Автор: Илья
  • Активный участник
  • Зарегистрирован: 13.02.2011
  • Приглашений: 0
  • Сообщений: 80
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 6 часов
  • Последний визит:
    06.08.2011 00:08:38

Ага, спасибо

0

308

  • Автор: Илья
  • Активный участник
  • Зарегистрирован: 13.02.2011
  • Приглашений: 0
  • Сообщений: 80
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 6 часов
  • Последний визит:
    06.08.2011 00:08:38
Код:
t$="2.6"
x.f=ValF(t$)
Debug t$
Debug x.f

здесь должно быть x.f равно t$
но это не так.
А почему, как уровнять?

0

309

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
Илья написал(а):

А почему, как уровнять?

Можно так, но это не будут чистые 2.6

Код:
t$="2.6"
x.d=ValD(t$)
Debug t$
Debug x

Дело в том, что данные хранятся не в десятичном представлени, а в двоичном, со всеми вытекающими....

0

310

  • Автор: Илья
  • Активный участник
  • Зарегистрирован: 13.02.2011
  • Приглашений: 0
  • Сообщений: 80
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 6 часов
  • Последний визит:
    06.08.2011 00:08:38

Можно так, но это не будут чистые 2.6

но результаты всёравно не равны...

t$=2.6
x.d=2.6000000000000001

Отредактировано Илья (15.02.2011 00:15:39)

0

311

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Илья написал(а):

но результаты всёравно не равны...
t$=2.6
x.d=2.6000000000000001

Для  программных вычислений они равны, а если ты хочешь чтобы они выводились одинаково, то можно сделать так:

Код:
t$="2.6"
x1.f=ValF(t$)
x2.d=ValD(t$)

Debug t$
Debug StrF(x1,1)
Debug StrD(x2,1)

Отредактировано Lucagin (15.02.2011 00:23:09)

0

312

  • Автор: Илья
  • Активный участник
  • Зарегистрирован: 13.02.2011
  • Приглашений: 0
  • Сообщений: 80
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 6 часов
  • Последний визит:
    06.08.2011 00:08:38
Lucagin написал(а):

Для  программных вычислений они равны, а если ты хочешь чтобы они выводились одинаково, то можно сделать так:

Понимаетели что, дело в том что я пишу программу в которой это t$ не жосткозаданое, а пользователь в начале программы сам вводит это t$. И он может ввести какое угодно число, допустим он жочет чтоб t$ была не 2.6, а 2.60. И тогда программа уже будет работать не правильно.

А мне нужно чтоб в x.d записыволось именно то, что я ввёл в t$.

0

313

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
Илья написал(а):

но результаты всёравно не равны

Я уже написал порчему

Пётр написал(а):

Дело в том, что данные хранятся не в десятичном представлени, а в двоичном, со всеми вытекающими

Это особенность всех компов.
Для них десятичная логика не является нативной, для них "родная" двоичная логика.

0

314

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Илья написал(а):

Понимаетели что, дело в том что я пишу программу в которой это t$ не жосткозаданое, а пользователь в начале программы сам вводит это t$. И он может ввести какое угодно число, допустим он жочет чтоб t$ была не 2.6, а 2.60. И тогда программа уже будет работать не правильно.
А мне нужно чтоб в x.d записыволось именно то, что я ввёл в t$.

Используй команды для работы со  строкой и анализируй введенное число-строку, т.е. сколько есть символов после символа «точка» или сколько нулей, если их надо отбросить, и потом в команде Result$ = StrD(Value.d [, NbDecimal]) , значение NbDecimal установи  то, которое ты определишь при анализе строки введеной пользователем…
Вот здесь Вопросы новичка (продолжение…)  (пост 294), Пётр приводил пример, как отбрасывать ненужные нули, при анализе строки…

Отредактировано Lucagin (15.02.2011 00:43:15)

0

315

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40

Пётр, подскажи пожалуйста, если делать лабиринт с использованием спрайтов, то какой алгоритм положить в основу непроницаемости стенки лабиринта для спрайта-курсора??? Анализ цвета линии  рядом со спрайтом или сами стенки лабиринта рисовать из спрайтов (тонкие линии в каждом квадрате поля), и анализировать их пересечение???
Если помнишь, когда делал анализ цвета в окне, курсор «просачивался» сквозь линию даже толщиной  в 5-ть пикселей, не получится ли при использовании режима «OpenScreen» и спрайт-курсора  таже история??? :question:

0

316

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
Lucagin написал(а):

какой алгоритм положить в основу непроницаемости стенки лабиринта

Где-то (массив, динамический список) должны храниться координаты стенок лабиринта. Их нужно сравнивать с текущим положением курсора.

0

317

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Пётр написал(а):

Где-то (массив, динамический список) должны храниться координаты стенок лабиринта. Их нужно сравнивать с текущим положением курсора.

Xм, а я при построении лабиринта, в массив запоминал X1Y1иX2Y2 тех стенок квадратов поля, где стенки нет, потом из заранее нарисованного поля квадратов убирал ненужные стенки..
А тут мне получается надо наоборот сгенерировать новый массив, где запоминать координаты каждого пикселя видимой стенки в каждом квадрате и потом при изменении X И Y курсора-спрайта каждый раз пробегать всё это множество значений координат пикселей стенок?
А думаешь если просто смотреть цвет вокруг курсора-спрайта, то опять получатся проход сквозь стенку???
В принципе,  массив с координатами пикселей видимых стенок, можно составить, применив команду Point() для всего поля лабиринта, при условии что цвет стенок будет уникален, и потом при перемещении курсора, каждый раз пробегать этот массив, другое, на сколько все это быстро получится…???

Отредактировано Lucagin (15.02.2011 20:43:20)

0

318

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
Lucagin написал(а):

А думаешь если просто смотреть цвет вокруг курсора-спрайта, то опять получатся проход сквозь стенку???

Надо пробовать.

Lucagin написал(а):

В принципе,  массив с координатами пикселей видимых стенок, можно составить, применив команду Point() для всего поля лабиринта, при условии что цвет стенок будет уникален, и потом при перемещении курсора, каждый раз пробегать этот массив, другое, на сколько все это быстро получится…???

Перебор массива производится довольно быстро.

0

319

  • Автор: Lucagin
  • Активный участник
  • Зарегистрирован: 07.12.2010
  • Приглашений: 0
  • Сообщений: 272
  • Уважение: [+1/-0]
  • Позитив: [+1/-0]
  • Провел на форуме:
    6 дней 7 часов
  • Последний визит:
    02.09.2012 10:19:40
Пётр написал(а):

Перебор массива производится довольно быстро.

Вобщем понял, надо пробовать...

0

320

  • Автор: goodwen
  • Активный участник
  • Зарегистрирован: 05.12.2010
  • Приглашений: 0
  • Сообщений: 58
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    22 часа 16 минут
  • Последний визит:
    18.11.2011 11:23:01

Здравствуйте, у меня пару вопросов на счёт компиляции, не получается скомпилировать приложение на Mac OS, есть приложение, которое работает с БД (БД в виде excel файла), через библиотеки ADOmate и COMatePLUS, когда компилирую на Mac, компилятор видит эти две библиотеки, но выдаёт сообщение об ошибке: "line 90: structure not found: ID spatsh"и строку он выделяет именно в библиотеке COMatePLUS. Из-за чего это может быть и как это можно исправить?
И ещё вопрос, кто нибудь пытался скомпилировать приложение на Linux, где использовались библиотеки ADOmate и COMatePLUS? И скомпилируется ли приложение, если БД выполнена в виде excel файла? (сам пользователь БД открывать не должен, с ней только приложение работает).

Отредактировано goodwen (16.02.2011 17:37:10)

0

321

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56

Насчет библиотеки ADOmate не знаю (не пользовался), а COMatePLUS предназначена только для Windows.
В Linux и Mac OS работать не будет.

0

322

  • Автор: goodwen
  • Активный участник
  • Зарегистрирован: 05.12.2010
  • Приглашений: 0
  • Сообщений: 58
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    22 часа 16 минут
  • Последний визит:
    18.11.2011 11:23:01

Пётр, а какие есть библиотеки под Linux, для работы с БД (подключение и запросы)? И есть ли библиотеки для работы с БД, которые одновременно подойдут и для Windows и для Linux?

0

323

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
goodwen написал(а):

Пётр, а какие есть библиотеки под Linux, для работы с БД (подключение и запросы)? И есть ли библиотеки для работы с БД, которые одновременно подойдут и для Windows и для Linux?

Насколько мне известно, только встроенная http://purebasic.com/documentation/database/index.html
Может есть другие, не интересовался.

0

324

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

скажите пожалуйста,как в браузере отслеживать загруженную страницу и переходить по ней, и второй вопрос как осуществить клик по коорднатам?

0

325

  • Автор: lakomet
  • Активный участник
  • Откуда: г.Ангарск Иркутская обл.
  • Зарегистрирован: 18.12.2009
  • Приглашений: 0
  • Сообщений: 138
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 54 [1971-11-06]
  • Провел на форуме:
    10 дней 22 часа
  • Последний визит:
    12.11.2023 02:39:13

Пётр

У тебя есть опыт с библиотекой "cairo"? Всё что нашел путного это gnome.org.ru/wacko/razrabotka/vidzhetycairo/chast'1, вот, вот и вот. Если не затруднит и знаешь Си, помоги въехать как с этим работать (очень хочется разобраться) :question:

0

326

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
lakomet написал(а):

Пётр
У тебя есть опыт с библиотекой "cairo"?

Нету.
Первый раз о ней слышу.

0

327

  • Автор: lakomet
  • Активный участник
  • Откуда: г.Ангарск Иркутская обл.
  • Зарегистрирован: 18.12.2009
  • Приглашений: 0
  • Сообщений: 138
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Возраст: 54 [1971-11-06]
  • Провел на форуме:
    10 дней 22 часа
  • Последний визит:
    12.11.2023 02:39:13

Почитай по ссылкам, хорошая библиотека(кросплатформенная). С её помощью можно прикрутить векторную графику, PDF PostScript и  т.д. Незнаю почему Фред до сих пор её не прикрутил к пурику :mad:
Если сможешь помоги вкурить как ей пользоваться.

0

328

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

что мне нужно почитать что бы сделать, то что мне нужно.

0

329

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3157
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 23:14:56
Arei написал(а):

скажите пожалуйста,как в браузере отслеживать загруженную страницу и переходить по ней

Когда страница загружена, посылается сообщение #PB_EventType_DownloadEnd
Переход на страницу по ссылке

Код:
SetGadgetText(#WebGadget, "Адрес ссылки")
Arei написал(а):

как осуществить клик по коорднатам

Миллион раз обсуждалась тема кликов, к примеру Работа с мышью

0

330

  • Автор: Arei
  • Активный участник
  • Зарегистрирован: 21.08.2010
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    29.11.2011 17:25:22

а как его принять извините, но я что то не понимаю, а с клтками разобрался спасибо.

0

Тема закрыта
Страница:   1 … 9 10 11 12 13 … 33  

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Вопросы новичка (продолжение…)