Click here to Skip to main content
Click here to Skip to main content

Tailor Master 1.1 -Asim Abbasi

By , 25 Feb 2007
Rate this:
Please Sign up or sign in to vote.

Screenshot - tailorm.gif

Introduction

This software is created in Visual Basic 5. It is designed to interface it with the microcontroller in order to cut the metallic sheets. User can input the software patterns in which sheets are to cut, in the form of jpg, gif, bmp or wmf file formats. The software then generates the coordinates sequentially and send them to the microcontroller. You can also saved the generated coordinates for later use. The main routine is shown below. The complete code (project) resides inside the zip file.

Private Sub Command3_Click()
For ptx = 0 To Picture1.ScaleWidth
For pty = 0 To Picture1.ScaleHeight
DoEvents
If Picture1.Point(ptx, pty) = RGB(0, 0, 0) Then
GoTo PointPrinter
End If
Next
Next
Exit Sub
PointDirector:
DoEvents
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
ptx = ptx + 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
pty = pty + 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
ptx = ptx - 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
ptx = ptx - 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
pty = pty - 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
pty = pty - 1
color = Picture1.Point(ptx, pty)
If color = &H0& Then
GoTo PointPrinter
Else
ptx = ptx + 1
GoTo PointPrinter
End If
End If
End If
End If
End If
End If
End If
Exit Sub

PointPrinter:
color = Picture1.Point(ptx, pty)
If color = &H0& Then
On Error GoTo Outmem
Text1.SelText = Str(ptx) + "," + Str(pty) + " "
Picture1.PSet (ptx, pty), RGB(242, 243, 52)
End If
GoTo PointDirector
Exit Sub
Outmem:
MsgBox Err.Description, vbCritical, "Error Number" + Str(Err.Number)
Text1.Text = ""
Exit Sub

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Asim_Abbasi
Web Developer
United States United States
Mr. Asim Abbasi is President and CEO of Takveen, Inc. NJ (www.takveen.com), which is a firm providing information technology related ‘Optimal Solutions’ to the industry. He is also attached with three top-notch computer schools of NJ teaching Oracle Database Administration in Unix/Windows Server environments. Before coming to NJ, he used to teach Oracle in heart of NC, Raleigh while working as Chief Technologist with a business solutions development firm.
 
Back in Pakistan Mr. Abbasi worked as Chief Programmer with US based multi-national software development company. Prior to that he was Lecturer/Lab Manager at Center for Advanced Studies in Physics (CASP) - Government College University (www.gcu.edu.pk) teaching Telecommunications & Computer Systems and Applications.
 
Mr. Abbasi has been attached intensely with the IT field for past 13 years and has written dozens of softwares and tons of code from programming microcontrollers using Assembly language to writing 3-tier multi-language web applications backed by Oracle. From developing custom wireless TCP/IP communication protocols to converting human driven business processes to machine driven automated self-healing systems. In short, when it comes to optimal computer solutions and designs Mr. Abbasi has the authority.
 
He did B.Sc. Electrical Engineering from University of Engineering & Technology, Lahore, Pakistan (www.uet.edu.pk). He is Oracle Certified Professional Database Administrator (OCP), Microsoft Certified Professional (VB) and lots of other computer certifications. Besides certifications, he has lots of publications and has filed 1 patent with United States Patent & Trade Mark Office regarding system and method for controlling devices wirelessly using protocol based communication through voice.
 
When asked Mr. Abbasi, he said that it all erupted with a saying of my engineering professor, “Think yourself ….”
 

http://www.takveen.com

Comments and Discussions

 
QuestionVB5 is still in use by anyone? PinmvpMark Nischalke25-Feb-07 18:29 
AnswerRe: VB5 is still in use by anyone? Pinmembermolebrain18-Jul-07 10:28 
GeneralRe: VB5 is still in use by anyone? PinmvpMark Nischalke18-Jul-07 11:10 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web01 | 2.8.140415.2 | Last Updated 25 Feb 2007
Article Copyright 2007 by Asim_Abbasi
Everything else Copyright © CodeProject, 1999-2014
Terms of Use
Layout: fixed | fluid