roboforum.ru

$prog &HFF , &HE0 , &HDD , &HF9                             ' generated. Take care that the chip supports all fuse bytes.

$regfile = "m88DEF.dat"
$baud = 115200
$crystal = 7372800

Config Pinb.1 = Output : Servo1 Alias Portb.1 : Servo1 = 0
Config Pinb.2 = Output : Servo2 Alias Portb.2 : Servo2 = 0
Config Pinc.0 = Output : Servo3 Alias Portc.0 : Servo3 = 0
Config Pinc.1 = Output : Servo4 Alias Portc.1 : Servo4 = 0

Declare Sub Stay
Declare Sub Down
Declare Sub Up

Waitms 250

Dim Xxxx As integer
Dim Yyyy As Integer
Dim Zzzz As Integer

For Xxxx = 0 To 100
         Call Stay
Next Xxxx

For Yyyy = 0 To 100
   Call Up
Next Yyyy

For Zzzz = 0 To 100
   Call Down
Next Zzzz

Sub Stay
Servo1 = 1
    'Waitus 20
Servo1 = 0
   Waitus 1500
End Sub

Sub Up
Servo1 = 1
  ' Waitus 20
Servo1 = 0
    Waitus 2100
End Sub

Sub Down
Servo1 = 1
  'Waitus 20
Servo1 = 0
   Waitus 900
End Sub

$prog &HFF , &HBD , &HC9 , &H00                             ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m32def.dat"                                     ' ôàéë ñïåöèôèêàöèè Ìåãè32
$crystal = 7372800                                          ' óêàçûâàåì íà êàêîé ÷àñòîòå áóäåì ðàáîòàòü

$baud = 115200                                              ' óêàçûâàåì ñêîðîñòü íà êîòîðîé áóäåò ðàáîòàòü óàðò

$include "Config ports.bas"

Dim Rdddr As Integer : Rdddr = 1

Waitms 5000
Print "Start MiniBot v2.0"

Do
Print "x" ; Rdddr
Input "test " , Rdddr Noecho
Print
Waitms 10
Print Rdddr ; "xxx"

Loop

$prog &HFF , &HE4 , &HD9 , &H00                            ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m32def.dat"                                     ' ôàéë ñïåöèôèêàöèè Ìåãè32
$crystal = 7372800                                          ' óêàçûâàåì íà êàêîé ÷àñòîòå áóäåì ðàáîòàòü
$baud = 115200                                              ' óêàçûâàåì ñêîðîñòü íà êîòîðîé áóäåò ðàáîòàòü óàðò
$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space



Dim V As Byte , B1 As Byte

Dim C As Integer , D As Byte

Dim S As String * 15



Input "Use this to ask a question " , V

Input B1                                                    'leave out for no question



Input "Enter integer " , C

Print C





Inputhex "Enter hex number (4 bytes) " , C

Print C

Inputhex "Enter hex byte (2 bytes) " , D

Print D



Input "More variables " , C , D

Print C ; " " ; D



Input C Noecho                                              'supress echo



Input "Enter your name " , S

Print "Hello " ; S



Input S Noecho                                              'without echo

Print S

End

Use this to ask a question Usn fhfg

Enter integer

0
Enter hex number (4 bytes) r ) 1234
-20352
Enter hex byte (2 bytes)
0
More variables
               )s
                  ) gfjhhg\

0 0
Enter your name 0
Hello 0
e 0
lk;lk