--
-- Program: biptest.jal
--
-- Date: 13 July 2000
--
-- Author: G. Shearer
-- Vanderbilt University
-- Nashville, TN
--
-- Purpose: Demo program for bipolib.jal
-- ( bipolar stepper motor library)
--
-- Copyright (C) 2000 G. Shearer
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Library General Public
-- License as published by the Free Software Foundation; either
-- version 2 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Library General Public License for more details.
--
-- You should have received a copy of the GNU Library General Public
-- License along with this library; if not, write to the
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-- Boston, MA 02111-1307, USA.
--
-- includes
include 16f84_4
include jlib
include bipolib
-- configure ports
port_a_direction = all_output
-- initialize variables
var byte speed = 3
var bit direction = true
var byte seq = 0
-- here da program
forever loop
direction = true
for 100 loop
fullstep ( direction, speed )
end loop
direction = false
for 100 loop
fullstep ( direction, speed )
end loop
direction = true
for 200 loop
halfstep ( direction, seq, speed )
end loop
direction = false
for 200 loop
halfstep ( direction, seq, speed )
end loop
end loop
file: /Techref/piclist/jal/biptest.jal, 1KB, , updated: 2000/8/14 13:20, local time: 2024/7/22 13:40,
|
| ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://linistepper.com/techref/piclist/jal/biptest.jal"> piclist jal biptest</A> |
Did you find what you needed?
|