Sta je sve potrebno za jedan CNC

To je za samo jedan SERVO motor.
Sta si mislio? Jedan BC337?

---

gleadam ovu temu vec neko vreme i suzdrzavam se ... ali evo moram da progovorim ne vredi, stego me ovaj grip, moram negde da ispustim ventil :D



potrebno je znanje i pare.
Sto imas vise znanja, to ti treba manje para, sto imas manje znanja treba ti vise para.

Sa pitanjem "sta mi treba za cnc", znaci da ti je znanje toliko malo da je jedina isplativa varijanta da kupis gotov cnc (dakle max kolicina para)

---

Amin!

---

Postavio sam temu bez znanja, a imam vremena do pocetka maja da napravim spisak sta sve od elektronike treba da kupim, a do tada ima vremena, samo kada bi mogao da nadjem sve sto mi je potrbno da procitam, naucim.
Treba da naucim paralelni port, kako se kontrolise na windows 7, kako idu drajveri, programi i slicno.
I treba mi najjednostavniji nacin kako na komp da posaljem signal npr. 1010 (u slucaju paralelnog 5V-0V-5V-0V)
I ako ti bogdan.kecman znas nesto o CNC sto bi ga ucinilo jeftinijim reci da i ostali znaju, ja msm da za takve stvari i sluzi ovaj forum da oni koji ne znaju dobiju odgovore i da nauce, a oni koji znaju da pomaznu nama koji ne znamo.

---

W7 zaboravi da ce da kljucka po paralelnom portu tako kako si zamislio. Taj bi mogao samo preko USB-a:

www.planet-cnc.com

Ako hoces po paralelnom portu, opet da se ponovim od ranije:

http://www.linuxcnc.org (Ubuntu Linux)
http://www.machsupport.com (WXP, eventualno Vista)
http://www.dakeng.com/turbo.html (DOS)

Ne izmisljaj mlaku vodu, izmisljena je odavno.

Od elektronike, ima gotovih drajvera:

http://www.geckodrive.com (i za stepere i za servo)

ili kao sto ti je PedjaZ okacio slicku pa da sam pravis (ispasce te skuplje nego gotovo)

Od mehanike, eeeee tu vec ima toliko razlicitih dzidzabidza da te glava (a i dzep) zaboli.

Ako napravis dobar spisak do kraja IDUCEG maja, budi zadovoljan. Nije 'tica sve sto leti.

---

nije pitanje da li neko hoce da podeli znanje ili ne, ali ce te kostati skuplje da to sastavis sam nego da kupis gotovo

1. kontrolises spravu preko PC parporta sa necim tima MACH3 ili EMC2 .. na EMC2 sajtu imas link na jedno 200 razlicith kontrolera sto za stepere sto za servo motore.

2. ako hoces servo motore, jedan od najjednostavnijih drajvera si dobio u poruci na prosloj strani i kukao si da je veliko . .to je "super jednostavna sema"

3. ako hoces steper motore, dobio si vec hint da sve sto ti treba imas u datasheet-u za recimo L298 i L297, dodatno imas brdo primera na EMC2 sajtu

4. imas specijalizovane forume za cnc gde na svakom imas 2-3 topovane teme gde pise sve sto ti treba .. neki od njih

http://www.cnczone.com/forums/index.php
http://www.linuxcnc.org/index.php/english/forum
http://forum.cnc-srbijaportal.net/
http://www.mycncuk.com/forums/...y.php/131-DIY-Project-Building
http://forum.thecncforum.com/


Onda imas posebne sajtove za pocetnike tipa
http://buildyourcnc.com/
http://diylilcnc.org/ (najpopularniji open source CNC, imas sve, nacrte za dvene panele, srafove, motore, drajvere.. objasnjeno za pocetnike)
http://www.diycnc.co.uk/


onda imas Instructables za debile:
http://www.instructables.com/id/DIY-CNC/


Pa onda imas sajtove za pocetnike koji i prodaju delove
http://blog.ponoko.com/2011/07...-diy-cnc-mill-and-router-kits/

etc etc ...

sve to treba prvo da procitas pa da razmislis sta i kako ... pitanje "od cega se pravi cnc ... treba da naucim paralelni port" je isto kao da si pitao "od cega se prave kola ... treba da naucim kako se zaseca drvo kaucuka"

Najlajse se uci tako sto kupis gotov cnc (najbolje ako ima neki KIT koji sastavis po uputstvu koje dobijes) i onda gledas kako taj radi i ucis ... ovako "na suvo" jedino da debelo zagrejes stolicu i jedno 3-4 meseca malo prelistas dokumentaciju na netu

---

2006-te sam imao ideju da CNC ucinim jeftinijim,
tj. da koristim obicne motore i enkoder montiran na klizacima,
a ne na osovini motora kako bi kompezovao backslash
i sve kontrolisano kompjuterom, a ne drajverima.

Program zapocet u VB6,
odradjen deo oko pretvaranja G-CODE u nesto razumljivo kompjuteru
i tu sam stao i zakopao "projekat" jer je bilo tada precih stvari.

Ovo je samo da ti pokazem da ako hoces elektroniku da pojednostavis
onda ces morati nesto drugo da iskomplikujes.



A ovo je noviji interaktivni 3D izgled koji je trebao da bude ubacen u program.





_{[Ovu poruku je menjao PedjaZ dana 06.04.2012. u 02:05 GMT+1]}

@offtopic:

PedjaZ druze, ako si sve ovo uradio u VB6 - skidam kapu! 3D + vector u VB6 (koji inace nije ni predvidjen za neku "grafiku") - svaka cast.

Mislim da ce se posle ovoga definitivno odluciti za "komplikovaniju" elektroniku... ili definitivno odustati... vreme ce pokazati.

---

Napokon neko ko me razume =) JUPI
Nakon 25 odgovora evo ga jedan pravi.
Bas sam to hteo i ja da uradim, kao PedjaZ.
Samo sto sam zapeo na pocetku jer ne znam kako kompu da posaljem signal. npr. logicka jedinica (1) logicka nula (0) i da mu posaljem signal 10.
A za program nije tesko jer mogu da se igram koliko hocu i mogu da popravim sve greske dok kod elektronike mala greska i ode 70E za kontroler.
Imam par drugova koji ´znaju´ na kompu, a ima i u biblioteci knjiga (od jendo 500strana o VB6) pa bi polko to proucavao.
Ali samo ako bi mi neko molim vas odgovorio kako da posaljem kompu 10.
Da li samo da spajam masu sa nekim pinom, da li data pinovi mogu da primaju signal osim sto ga salju.

---

"kompu saljes" ... to mislis preko paralelnog porta .. tako sto pin vezes na gnd za 0 ili 5v za 1
"za program nije tesko" .. jeste zato sto da bi imao cnc koji se krece brze od 1cm na sat moras da imas real time kernel koji moze da cita port dovoljno brzo, ti iz VB mozes da zaboravis na tako nesto zato sto ce VB da ti "proguta" 10% taktova sa enkodera, a greska od 10% citanja enkodera je "neupotrebljiv cnc"

inace, danas kupiti komp sa paralelnim portom je retkost, sa vise od jednog paralelnog porta je gotovo nemoguce a samo sa jednim par portom nemas dovoljno pinova da teras cnc sa 2 ose, kamoli nesto kompleksnije

---

Slazem se sa Bogdanom da VB nije za to.
A to sto kazes da ces za program lako...
Ovo je taj program gde je mozda samo petina stvari odradjena.
Zamisli samo koliki bi bio ceo program.
Evo ti pa iskoristi sta ti treba

@shpiki
Da me vidis samo sa prastarim AmigaBASIC-om kako sam palio i zario :)
Nazalost, sve je to hobi.
---------------------------------------------------------------


Public maxXprikaz As Double 'kod COMPILE izracunava
Public maxYprikaz As Double ' max vrednosti x,y,z
Public maxZprikaz As Double ' da bi prikazao u max velicini
Public minZprikaz As Double
Public Korak As Double
Public BrojLinija As Double '__za 2D-3D_doradjeno.txt

Public klx As Integer
Public kly As Integer
Public klz As Integer
Public klr As Double
Public klr1 As Integer
Public kls As Double

Private Sub Command20_Click() ' OPEN
Dim unos As String
Dim FileN As String

CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Set filters
CommonDialog1.Filter = "All Files (*.*)|*.*| " & _
"nc Files (*.nc)|*.nc|" & _
"cnc Files (*.cnc)|*.cnc|" & _
"txt Files (*.txt)|*.txt|"
CommonDialog1.FilterIndex = 1 ' default filter
CommonDialog1.ShowOpen: FileN = CommonDialog1.FileName: Open FileN For Input As #1

'Open "E:\Podaci sa C\VB6\_Proba\cnc\Izgled\6_2D_opcije\1.nc" For Input As #1
unos = Input$(LOF(1), 1)
Open App.Path + "\temp\_temp.nc" For Output As #2
Print #2, unos;
Close #1, #2
Text1.Enabled = True
Text1.Text = unos

Command26.Enabled = True 'compile
Command21.Enabled = True 'save
Command22.Enabled = True 'find
Command23.Enabled = True 'replace
Command26.BackColor = RGB(250, 100, 100)
SSTab3.Enabled = False
Form1.Caption = FileN
Exit Sub
ErrHandler:
'cancel
Stop

End Sub

Private Sub Command22_Click()
'u$=text1.text
End Sub

Private Sub Command26_Click() ' Compile
Dim unos As String 'red po red
Dim znak As String 'znak po znak iz reda
Dim k As String 'k=unos
Dim xs As String, ys As String, zs As String 'kod snimanja
Dim i As Double, j As Double, l As Double
Dim b As Double, c As Double, NewPosLen As Double, Razmak As Double

Dim mRip As String 'cupa x, y, z ... iz unosa - reda
Dim mv As Double 'mv=val(mrip)

Dim xStaro As Double, yStaro As Double, zStaro As Double
Dim xNovo As Double, yNovo As Double, zNovo As Double

Dim pomakX As Double, pomakY As Double, pomakZ As Double 'kod crtanja/snimanja cele putanje
Dim KorakXYZ As Double
Dim KorakX As Double, KorakY As Double, KorakZ As Double
Dim xStep As Double, yStep As Double, zStep As Double
Dim Lx As Double, Ly As Double, Lz As Double
Dim L0 As Double, L1 As Double, L2 As Double, L3 As Double, L4 As Double

Dim PromenaXYZ As Integer 'ako u koloni ima podataka za x,y ili z

'unos = "G00 X23 Y54 Z2"
'unos = "G00X23Y54Z2"
'unos = "G0 X0.01 Y0.01 Z-5.000"
'unos = "Y0.061"
'unos = "Y0.181 Z0.389"
'unos = "G0 X6.562 Y5.842 Z-0.800"
'unos = "X14.478Z-0.920"
'unos = "G1X0.255Z-1.403F2520.0"


Picture1.Cls
Picture2.Cls
j = 0 'prinudni izlaz - izbaciti posle
xStaro = 0 'pocetni polozaj
yStaro = 0
zStaro = 0
Korak = 0.2 'korak alata

maxXprikaz = 0
maxYprikaz = 0
maxZprikaz = 0
minZprikaz = 0

Open App.Path + "\temp\_temp.nc" For Input As #1
Open App.Path + "\temp\_temp.txt" For Output As #2
Open App.Path + "\_za 2D-3D.txt" For Output As #3

PocUnosa:
PromenaXYZ = 0
j = j + 1
'If j = 500 Or EOF(1) = True Then GoTo endsubic
If EOF(1) = True Then GoTo endsubic
Line Input #1, unos
unos = UCase(unos)
If unos = "" Then GoTo PocUnosa
'ako je unos "" onda je l=0 pa for i izadje,
' tako da ne stigne na if znak=""
c = 0

l = Len(unos)
For i = 1 To l
znak = Mid$(unos, i, 1)
If znak = "(" Or znak = "*" Or znak = "%" Or znak = "" Or znak = "{" Then
'( % * { - komentar (%=beep)
'Stop
GoTo PocUnosa 'novi red
ElseIf znak = "N" Then
'broj linije
GoSub ZnakZajednicko
'Stop
ElseIf znak = "G" Then
GoSub ZnakZajednicko

ElseIf znak = "X" Then
GoSub ZnakZajednicko
xNovo = mv
PromenaXYZ = 1
ElseIf znak = "Y" Then
GoSub ZnakZajednicko
yNovo = mv
PromenaXYZ = 1
ElseIf znak = "Z" Then
GoSub ZnakZajednicko
zNovo = mv
PromenaXYZ = 1
ElseIf znak = "M" Then
'smer vrtnje alata, promena alata, hladjenje...
'M03 start
'M05 stop
GoSub ZnakZajednicko
'Stop
ElseIf znak = "J" Or znak = "I" Then
'kruznica
'N30 G2 X22 Y40 I50 J40
'krug u smeru kazaljke na satu(G2)
'da X22 Y40
'centar u X50 Y40
GoSub ZnakZajednicko
Stop
ElseIf znak = "D" Then
'offset alata (isto G40/41/42 ?)
Stop
ElseIf znak = "S" Then
'S obrtanje alata (obrtaja/minut)
'Stop
ElseIf znak = "T" Then
'T odabir
'Stop
ElseIf znak = "F" Then
'F brzina hoda alata
GoSub ZnakZajednicko
'Stop
Else
'Stop
End If
Next i
'--------------------------------------------------------------

'Stop
If PromenaXYZ = 0 Then GoTo PocUnosa ' trenutno ovako

OdrediXYZ:
Lx = xNovo - xStaro
Ly = yNovo - yStaro
Lz = zNovo - zStaro
L1 = Sqr(Lx ^ 2 + Ly ^ 2)
L0 = Sqr(L1 ^ 2 + Lz ^ 2) 'L1 ne mora sqr zato sto je ovde ^2

If xNovo > maxXprikaz Then maxXprikaz = xNovo
If yNovo > maxYprikaz Then maxYprikaz = yNovo
If zNovo > maxZprikaz Then maxZprikaz = zNovo
If zNovo < minZprikaz Then minZprikaz = zNovo

If L0 = 0 Or Korak = 0 Then GoTo PocUnosa

KorakXYZ = L0 + 1

KorakX = Lx / L0 * Korak
KorakY = Ly / L0 * Korak
KorakZ = Lz / L0 * Korak

pomakX = 0
pomakY = 0
pomakZ = 0

DoEvents

BrojLinija = BrojLinija + 1
Write #3, xNovo; yNovo; zNovo

'Picture2.Line -(100 + (xNovo * 150), 5000 - (yNovo * 150))

'Sleep 10


'GoTo 500

For b = 1 To KorakXYZ Step Korak
xStep = xStaro + pomakX
yStep = yStaro + pomakY
zStep = zStaro + pomakZ
Picture1.PSet (100 + (xStep * 20), 4900 - (yStep * 20))
xs = Str$(Int(xStep * 1000) / 1000)
ys = Str$(Int(yStep * 1000) / 1000)
zs = Str$(Int(zStep * 1000) / 1000)
If Left$(xs, 1) = "-" Then
xs = " " + xs
End If
If Left$(ys, 1) = "-" Then
ys = " " + ys
End If
If Left$(zs, 1) = "-" Then
zs = " " + zs
End If
Print #2, xs; ys; zs
pomakX = pomakX + KorakX
pomakY = pomakY + KorakY
pomakZ = pomakZ + KorakZ
Next b

500
xStaro = xNovo
yStaro = yNovo
zStaro = zNovo
GoTo PocUnosa




ZnakZajednicko:
c = i
k = unos
NewPosLen = 0
Razmak = 0 'X22_Y30 broji i taj razmak
GoSub OdrediDuzinu
' Print NewPosLen
c = 0
mRip = Mid$(k, i + 1, NewPosLen)
mv = Val(mRip)
i = i + NewPosLen + Razmak 'vrteo bi od prvog broja posle G/X/Y/Z
Return



OdrediDuzinu:
c = c + 1
If Mid$(k, c, 1) = "0" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "1" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "2" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "3" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "4" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "5" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "6" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "7" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "8" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "9" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "-" Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "." Then NewPosLen = NewPosLen + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = " " Then Razmak = Razmak + 1: GoTo OdrediDuzinu
If Mid$(k, c, 1) = "A" Then Return
If Mid$(k, c, 1) = "B" Then Return
If Mid$(k, c, 1) = "C" Then Return
If Mid$(k, c, 1) = "D" Then Return
If Mid$(k, c, 1) = "E" Then Return
If Mid$(k, c, 1) = "F" Then Return
If Mid$(k, c, 1) = "G" Then Return
If Mid$(k, c, 1) = "H" Then Return
If Mid$(k, c, 1) = "I" Then Return
If Mid$(k, c, 1) = "J" Then Return
If Mid$(k, c, 1) = "K" Then Return
If Mid$(k, c, 1) = "L" Then Return
If Mid$(k, c, 1) = "M" Then Return
If Mid$(k, c, 1) = "N" Then Return
If Mid$(k, c, 1) = "O" Then Return
If Mid$(k, c, 1) = "P" Then Return
If Mid$(k, c, 1) = "Q" Then Return
If Mid$(k, c, 1) = "R" Then Return
If Mid$(k, c, 1) = "S" Then Return
If Mid$(k, c, 1) = "T" Then Return
If Mid$(k, c, 1) = "U" Then Return
If Mid$(k, c, 1) = "V" Then Return
If Mid$(k, c, 1) = "W" Then Return
If Mid$(k, c, 1) = "Y" Then Return
If Mid$(k, c, 1) = "Z" Then Return
'ovde izadje ako je c> od len(k)
Return


endsubic:
Close #1, #2, #3
Open App.Path + "\_za 2D-3D.txt" For Input As #1
Open App.Path + "\_za 2D-3D_doradjeno.txt" For Output As #2
unos = Input$(LOF(1), 1)
Print #2, "ako se otvara iz nekog drugog programa"
Print #2, BrojLinija
Print #2, maxXprikaz
Print #2, maxYprikaz
Print #2, maxZprikaz
Print #2, minZprikaz
Print #2, unos;
Close #1, #2

Beep
Command26.BackColor = &H8000000F
Picture1.CurrentX = 10
Picture1.CurrentY = 10
Picture1.Print "maxX="; maxXprikaz; " maxY="; maxYprikaz; " maxZ="; maxZprikaz; " minZ="; minZprikaz
Picture1.Print BrojLinija
BrojLinija = 0
SSTab3.Enabled = True
End Sub

Private Sub Command27_Click() ' NEW
Text1.Enabled = True
Text1.Text = ""
Command26.Enabled = True 'compile
Command21.Enabled = True 'save
Command22.Enabled = True 'find
Command23.Enabled = True 'replace
Command26.BackColor = RGB(250, 100, 100)
SSTab3.Enabled = False
Form1.Caption = "New"
End Sub

Private Sub Command30_Click()
Dim X As Double, Y As Double, z As Double
Dim xs As Double, ys As Double, zs As Double
Dim xr As Double, yr As Double, zr As Double
Dim ox As Double, oy As Double, oz As Double
Dim o As Double
Dim un As String

Open App.Path + "\_za 2D-3D_doradjeno.txt" For Input As #1
Line Input #1, un ' komentar
Line Input #1, un ' broj tacaka
Line Input #1, un ' maxX
maxXprikaz = un
Line Input #1, un ' maxY
maxYprikaz = un
Line Input #1, un ' maxZ
maxZprikaz = un
Line Input #1, un ' minZ
minZprikaz = un

xs = 0: ys = 0: zs = 0
Picture1.Cls
xs = 0
ys = 4913
zs = 0

ox = 6710 / maxXprikaz '6735
oy = 4900 / maxYprikaz '4913
If ox < oy Then
o = ox
Else
o = oy
End If

Picture1.Line (5, 4913)-(maxXprikaz * o + 2, 4913 - (maxYprikaz * o)), RGB(200, 150, 510), BF
If Option3 = True Then Picture1.Line (0, 2000)-(6700, 2000), RGB(250, 150, 200)


Poc:
If EOF(1) = True Then GoTo Kraj
Input #1, X
Input #1, Y
Input #1, z

xr = 20 + (X * o)
yr = 4913 - (Y * o)
zr = 2000 - (z * o)

If xr > 6740 Or yr > 4920 Then Stop
'Picture2.Cls
'Picture2.Print x
'Picture2.Print y
'Picture2.Print z
DoEvents
If Option2 = True Then
If z < 0 And Check3.Value = Checked Then
Picture1.Line (xs, zs)-(xr, zr)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (xs, zs)-(xr, zr), RGB(0, 150, 200)
End If
ElseIf Option3 = True Then
If z < 0 And Check3.Value = Checked Then
Picture1.Line (ys, zs)-(yr, zr)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (ys, zs)-(yr, zr), RGB(0, 150, 200)
End If
Else 'opcija 1
If z < 0 And Check3.Value = Checked Then
Picture1.Line (xs, ys)-(xr, yr)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (xs, ys)-(xr, yr), RGB(0, 150, 200)
End If
End If
xs = xr
ys = yr
zs = zr

Sleep HScroll15.Value

GoTo Poc

Kraj:
Beep
Close 1
End Sub

Private Sub Command31_Click()
HScroll15.Value = 0
End Sub

Private Sub Command32_Click()
Dim X As Double, Y As Double, z As Double
Dim xs As Double, ys As Double, zs As Double
Dim xr As Double, yr As Double, zr As Double
Dim ox As Double, oy As Double, oz As Double
Dim o As Double
Dim un As String
Dim Rgb1 As Integer 'boja kod 3d prikaza
Dim Rgb2 As Integer

'Dim pi As Double
'pi = 4 * Atn(1) '3,14159265358979



Open App.Path + "\_za 2D-3D_doradjeno.txt" For Input As #1
Line Input #1, un ' komentar
Line Input #1, un ' broj tacaka
Line Input #1, un ' maxX
maxXprikaz = un
Line Input #1, un ' maxY
maxYprikaz = un
Line Input #1, un ' maxZ
maxZprikaz = un
Line Input #1, un ' minZ
minZprikaz = un

Picture2.Print maxXprikaz; maxXprikaz

xs = 0: ys = 0: zs = 0
Picture2.Cls
xs = 0
ys = 4913
zs = 0

ox = 6710 / maxXprikaz '6735
oy = 4900 / maxYprikaz '4913
If ox < oy Then
o = ox
Else
o = oy
End If

Picture2.Line (5, 4913)-(maxXprikaz * o + 2, 4913 - (maxYprikaz * o)), RGB(200, 150, 510), BF
If Option3 = True Then Picture2.Line (0, 2000)-(6700, 2000), RGB(250, 150, 200)


Rgb1 = 255 / Abs(minZprikaz)

Poc:
If EOF(1) = True Then GoTo Kraj
Input #1, X
Input #1, Y
Input #1, z

xr = 20 + (X * o)
yr = 4913 - (Y * o)

xr = xr / (VScroll5.Value / 10)
yr = yr / (VScroll5.Value / 10)
zr = z / (VScroll5.Value / 20)

' If xr > 6740 Or yr > 4920 Then Stop

DoEvents

'xr = (xr * yr / 4000) + klx 'kao pruga - perspektiva za yr =yr
xr = (xr + yr / klr) + VScroll3.Value
yr = yr - xr / 2 '/klr1
yr = (yr - zr * 300) + VScroll4.Value
If z < 0 And Check4.Value = Checked Then
Rgb2 = 255 - Rgb1 * Abs(z)
Picture2.Line (xs, ys)-(xr, yr), RGB(Rgb2, Rgb2, Rgb2)
ElseIf z >= 0 And Check5.Value = Checked Then
Picture2.Line (xs, ys)-(xr, yr), RGB(0, 150, 200)
End If
xs = xr
ys = yr
zs = zr

Sleep HScroll16.Value
GoTo Poc
Kraj:
Beep
Close 1
End Sub

Private Sub Command34_Click() '----- oba -----
Dim X As Double, Y As Double, z As Double
Dim xs As Double, ys As Double, zs As Double
Dim xr As Double, yr As Double, zr As Double

Dim xs2 As Double, ys2 As Double, zs2 As Double
Dim xr2 As Double, yr2 As Double, zr2 As Double

Dim ox As Double, oy As Double, oz As Double
Dim o As Double
Dim un As String
Dim Rgb1 As Integer 'boja kod 3d prikaza
Dim Rgb2 As Integer

'Dim pi As Double
'pi = 4 * Atn(1) '3,14159265358979



Open App.Path + "\_za 2D-3D_doradjeno.txt" For Input As #1
Line Input #1, un ' komentar
Line Input #1, un ' broj tacaka
Line Input #1, un ' maxX
maxXprikaz = un
Line Input #1, un ' maxY
maxYprikaz = un
Line Input #1, un ' maxZ
maxZprikaz = un
Line Input #1, un ' minZ
minZprikaz = un

Picture2.Print maxXprikaz; maxXprikaz

xs = 0: ys = 0: zs = 0
xs2 = 0: ys2 = 0: zs2 = 0
Picture2.Cls
Picture1.Cls

xs = 0
ys = 4913
zs = 0

xs2 = 0
ys2 = 4913
zs2 = 0

ox = 6710 / maxXprikaz '6735
oy = 4900 / maxYprikaz '4913
If ox < oy Then
o = ox
Else
o = oy
End If

Picture2.Line (5, 4913)-(maxXprikaz * o + 2, 4913 - (maxYprikaz * o)), RGB(200, 150, 510), BF
If Option3 = True Then Picture2.Line (0, 2000)-(6700, 2000), RGB(250, 150, 200)


Rgb1 = 255 / Abs(minZprikaz)

Poc:
If EOF(1) = True Then GoTo Kraj
Input #1, X
Input #1, Y
Input #1, z
'--------------------------------2D
xr2 = 20 + (X * o)
yr2 = 4913 - (Y * o)
zr2 = 2000 - (z * o)

If xr2 > 6740 Or yr2 > 4920 Then Stop
'Picture2.Cls
'Picture2.Print x
'Picture2.Print y
'Picture2.Print z
DoEvents
If Option2 = True Then
If z < 0 And Check3.Value = Checked Then
Picture1.Line (xs2, zs2)-(xr2, zr2)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (xs2, zs2)-(xr2, zr2), RGB(0, 150, 200)
End If
ElseIf Option3 = True Then
If z < 0 And Check3.Value = Checked Then
Picture1.Line (ys2, zs2)-(yr2, zr2)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (ys2, zs2)-(yr2, zr2), RGB(0, 150, 200)
End If
Else 'opcija 1
If z < 0 And Check3.Value = Checked Then
Picture1.Line (xs2, ys2)-(xr2, yr2)
ElseIf z >= 0 And Check2.Value = Checked Then
Picture1.Line (xs2, ys2)-(xr2, yr2), RGB(0, 150, 200)
End If
End If
xs2 = xr2
ys2 = yr2
zs2 = zr2
'-------------------------------3D
xr = 20 + (X * o)
yr = 4913 - (Y * o)

xr = xr / (VScroll5.Value / 10)
yr = yr / (VScroll5.Value / 10)
zr = z / (VScroll5.Value / 20)

' If xr > 6740 Or yr > 4920 Then Stop

DoEvents

'xr = (xr * yr / 4000) + klx 'kao pruga - perspektiva za yr =yr
xr = (xr + yr / klr) + VScroll3.Value
yr = yr - xr / 2 '/klr1
yr = (yr - zr * 300) + VScroll4.Value
If z < 0 And Check4.Value = Checked Then
Rgb2 = 255 - Rgb1 * Abs(z)
Picture2.Line (xs, ys)-(xr, yr), RGB(Rgb2, Rgb2, Rgb2)
ElseIf z >= 0 And Check5.Value = Checked Then
Picture2.Line (xs, ys)-(xr, yr), RGB(0, 150, 200)
End If
xs = xr
ys = yr
zs = zr

Sleep HScroll17.Value
GoTo Poc
Kraj:
Beep
Close 1
End Sub

Private Sub Form_Load()
klx = 0
kly = 2480
klz = 0
klr = 1.1
klr1 = 2
kls = 1.5
End Sub

nije samo problem VB, problem je sam windows koji ne moze da ti garantuje tajming. Ti sa jakom masinom koja ima mali latency mozes da izvedes nekako stepovanje sa kompa (ala mach3) ali da citas enkoder - no freaking way, za to ti vec treba real time kernel .. EMC2 na primer moze to da radi ali EMC2 koristi specijalan linux kernel koji je budzen da bi radio real time, i opet ne radi idealno dobro ..

Drajver za steper motor je 10eur, polovan nema23 mozes da kupis za 10-20eur .. reprap elektronika moze da se sastavi za ispod 100 eur i kontrolises je seriskim portom, kontrolises 4 ose bez problema .. doduse sa steperima ne sa servo motorima .. no obzirom da za 20eur kupis steper, koji ti je interes da ides na servo? osim ako neces kao svoj prvi projekat da pravis masinu od 2 tone ?

---

Koja je max brzina slanja signala i kako ´da ga pretvorim u nesto razumljivo kompu´
A sto se tice pinova:
ima ih 8 (data pinova)
Po 2 za svaki motor (da bi mogao da se okrece na dve strane
to je 6
I ostaje mi 2 za enkodere za ´x´ i ´y´
A sto se tice ´z´ ose nju bi radio sa nekim sporim motorom na vreme (npr. 1sec=10mm)
I da li mogu da saljem signal data portovima ili trebaju neki drugi.
Hvala za program (da li moze u VB6) nisam ga jos probao,
Ali kada ga probam javljam vam.
Sto se tice enkodera:
Da li da stavim IC Senzor i diodu, kako se zovu (tacno) i koliko kostaju otprilike (msm 10-20din ili 500din =) )
Sto se tice programa probacu i u paskalu, i neke druge programe.
Sto se tice elektronike da li ce mi ovo biti dovoljno??? (sa slike)



_{[Ovu poruku je menjao Skale97 dana 07.04.2012. u 17:17 GMT+1]}

---

Odustani pre nego sto ista pocnes.
Mozes ti da napravis nesto sto ce ici tamo-vamo ali to nije CNC

Ono za portove si se malo presao
http://vojo.milanovic.org/parport/parport-02a.htm



_{[Ovu poruku je menjao PedjaZ dana 07.04.2012. u 23:08 GMT+1]}

Procitao sam jos pre taj sajt samo mi to nije bas jasnije pa zato i pitam.
Preko kojih pinova se kompu salje signal data status ili control???

---

Kod CNC masina NE SALJES komp-u data/status/stagod, vec ti komp generise impulse za pokretanje motora (Step/Direction)

---

Prosto ima i gorih pitanja nego sto su bila moja u vezi izrade Cnc masine....
Cnc Za 100 evrica ni u snu...
Imam jednu ideju koja se tice Cnc masina i Ovog Foruma(ja sam pedantan covek i volim da je sve na mestu tako sam u radionici spakovao alat u vise limenih ormara,srafove i sitnis razvrstao i napisao sta je sta da se snadjes cim vidis natpis... a sta sam hteo ovako vi svi svasta znate u vezi cnc masina pa bi voleo da otvorimo novu temu koja glasi SVE STO TREBA ZA CNC( u kojoj cemo prikupiti i prevesti sadrzaje sa drugih sajtova i staviti Na ovaj sajt ali uredno srediti tematiku...)i da nam pomognu i moderatori,
Koliko sam tragao ovde na forumu o usb na paralel port za cnc i gle cuda ima na Mycnc uk semica(samo me kopa koji program podrzava usb a da je besplatan)
Naprimer otvoriti temu o cncu kao sto sam naveo i otvoriti pod teme kao npr Drajveri kojih ima svugde na netu na Pminmo com...


Sta sam hteo reci to da sam tragao po netu danima mucio razne forumase itd i najgore potrosio dane nedelje i mozda mesece prikupljajuci raznorazne seme za cnc...
Ali svi kada bi ulozili u takvu temu po 3 sata napravili bi temu izuzetno bogatu sadrzajem i dobili bi vecu diskusiju na temu cnca a i skratili bi vreme za traganje.
Znaci tema pocinje uvodom za cnc treba
1.
2.
3...
itd da u jednoj temi ima sve od pocetka do kraja.

http://www.elektromehanika.com/ prodaja step motora
hobby cnc.rs imju motorice jeftino sajt im je u izradi ili prepravci...i drajver za 35evraitd

ajd kad prozivaš moderatore, da ne bude nekih nesporazuma, nije na njima da vode teme, uverio si se da ima "običnih" učesnika čije je znanje ogromno, ako se oni uključe, imaš uglavnom većinu odgovora na ono što te zanima (izuzev pojedinih načina nabavke komponenti).
na moderatorima je uglavnom da tema liči na nešto, bez prepucavanja ili komercijalnih postova (više o tome u ES pravilniku) a tema se može topovati
među odabrane.
primer teme o štampicama i izradi ili trafoima pokazuje kako tema ume da se razvuče i ponavljaju neke stvari n puta (iako je sve rečeno al nekog mrzi da to čita).

elektronika je izmedju 1% i 10% jedne cnc masine (zavisi da li gledas znanje ili cenu ili vreme ili velicinu) zasto mislis da bi elektronika bila pravi forum za pricu o "sta treba za cnc masinu". Neki mehanicki forum bi bio mnogo korisniji, da ne spominjem da na ES-u postoji

http://www.elitesecurity.org/f161-CAD-CAM

gde vec ima dosta postova o cnc-u i gde to ima vise smisla

da ne spominjem vec spomenute specijalizovane cnc forume

ovde na elektronici ima smisla o tome da pricamo dal je ovaj enkoder bolji od onog enkodera, kako napraviti ovaj ili onaj drajver, da li je ovaj ili onaj bolji i to je to .. pritom svi ovi koji se ozbiljno bave cnc masinama nece da ti daju nijedan info posto vecina njih misli da ako ti daju prst ti ce im otmes posao :(

pogledaj spisak i tamo ces naci
- lagerton i Standard Trade ti prodaju sve klizace, brezone, vagone, etc etc koji ti trebaju
- flexmatic, alco .. ti prodaje ceo isel cnc program - motore, t sine, spojke, uglove, enkodere, drajvere, busilice, alatke...
- nanotehna, betls .. prodaju remenice, remenike, tuljke ..
- MASS isto prodaje korisne alatke (gotove cnc amsine i masine koje mozes da "cncujes"
- Rade Mudric prodaje najjeftinije motore u gradu (polovnjaci)


...

ima jos firmi (uno lux na primer, izgubio sam njihove podatke) u srbiji koje se time bave (ako neko zna neke firme koje tamo na spisku fale slobodno me pp pa cu da dodam) ..

e sad, da na elektronika forumu pricamo o tome da li je bolji piramidalni sa setajucim stolom, ili je bolje da imas most koji se seta, da li je bolje otvoreni ili zatovoreni linearni bearing ili je bolje ici na vagon i sinu ili .. ili .. nije mesto ..

imas u ovoj temi linkove na ozbilje forume za cnc + na nekoliko "do it yourself cnc masina" sa svim nacrtima .. odatle pocnes .. malo je bez veze da si ubedjen da ti mislis da "mozes jeftinije da napravis cnc" kao da niko na svetu nije o tome razmisljao pa si se ti prvi setio, samo ne znas kako da posaljes 1 ili 0 kompu sve ostalo si vec osmislio kako da bude najjeftinije :D

---