Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '****************************************************************
- '* Name : ompoolmodule.BAS *
- '* Author : Alwin Winius *
- '* Notice : Copyright (c) 2011 Wetronic NL *
- '* : All Rights Reserved *
- '* Date : 4-10-2011 *
- '* Version : 1.0 *
- '* Notes : *
- '* : *
- '****************************************************************
- Device 12F675 ;We gebruiken een 16F627A type
- Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, MCLRE_OFF
- All_Digital true
- ;76543210
- TRISIO = %00011000;
- While 1 = 1
- If GPIO.3 = 0 And GPIO.4 = 0 Then
- GPIO.0 = 0
- GPIO.1 = 0
- DelayMS 100
- Else If GPIO.3 = 1 And GPIO.4 = 1 Then
- GPIO.0 = 0
- GPIO.1 = 0
- DelayMS 100
- Else If GPIO.4 = 1 And GPIO.3 = 0 Then
- GPIO.1 = 0
- DelayMS 25
- GPIO.0 = 1
- DelayMS 100
- Else If GPIO.3 = 1 And GPIO.4 = 0 Then
- GPIO.0 = 0
- DelayMS 25
- GPIO.1 = 1
- DelayMS 100
- End If
- Wend
Add Comment
Please, Sign In to add comment