'xmas Train control for the picomite
'28/01/2024
'Bill Brown
Option colourcode on
Option autorun on
Option DEFAULT NONE
Dim  aa$
Dim integer c(4),x,y,z,Tspeed,loop1
dim integer CMD1,arg
dim integer manloop
SetPin GP22, Dout
setpin gp5, dout  'Light
setpin gp6, dout  'smoke
setpin gp14, din   ' local start
setpin gp15, din   'hall effect switch - Station Stop
SetPin GP12, pwm6A  'Forward contol  PWM output

pin(gp7) = 1

SetPin GP21, Gp20, com2   'sound output
Open "com2:9600" As  #2
cmd1 = &h09   'Set SD card
arg = 0002
send
cmd1 = &h06  'Set volume
arg = 30
send

Do
 if pin(GP14) = 0 then
   TrainFWD
 end if
Loop


  '****************Train Forward *******************
  sub TrainFWD
    pin(GP6) = 1
    pin(GP5) = 1
   cmd1 = &h12   'Play 0004.mp3 rain Starting
   arg = 0004
   send
 for loop1 = 10 to 100
   PWM 6,500,loop1  'pwm output to motor FWD
   pause 150
 next loop1
  cmd1 = &h12   'Play 0001.mp3
  arg = 0001
  send
  do
   loop until pin(GP15) = 0
   pause 5000
  station

  end sub
  '************************** Stop  Train ************************
  Sub stoptrain
     for loop1 = 90 to 10 step -1
        PWM 6,500,loop1  'pwm output to motor FWD
        pause 20
     next loop1
     PWM 6, 500,0
   cmd1 = &h12   'Play 0002.mp3  Train Stopped At station
   arg = 0002
   send
  end sub
 

  sub Station
 
  manloop = 1
   stoptrain
   do
    manloop = manloop + 1
     pause 100
   loop until manloop > 150
  TrainFWD
  end sub
 
 
'-------------------send to mp3 module ---------------------------

sub send

print #2, Chr$(&h7E) + Chr$(&hFF) + Chr$(&h06) + Chr$(cmd1) + Chr$(0) + Chr$(0) + Chr$(arg) + Chr$(&hEF);
pause 100
arg = 0

end sub

'xmas Train control for the picomite
'28/01/2024
'Bill Brown
Option colourcode on
Option autorun on
Option DEFAULT NONE
Dim  aa$
Dim integer c(4),x,y,z,Tspeed,loop1
dim integer CMD1,arg
dim integer manloop
SetPin GP22, Dout
setpin gp5, dout  'Light
setpin gp6, dout  'smoke
setpin gp14, din   ' local start
setpin gp15, din   'hall effect switch - Station Stop
SetPin GP12, pwm6A  'Forward contol  PWM output

pin(gp7) = 1

SetPin GP21, Gp20, com2   'sound output
Open "com2:9600" As  #2
cmd1 = &h09   'Set SD card
arg = 0002
send
cmd1 = &h06  'Set volume
arg = 30
send

Do
 if pin(GP14) = 0 then
   TrainFWD
 end if
Loop


  '****************Train Forward *******************
  sub TrainFWD
    pin(GP6) = 1
    pin(GP5) = 1
   cmd1 = &h12   'Play 0004.mp3 rain Starting
   arg = 0004
   send
 for loop1 = 10 to 100
   PWM 6,500,loop1  'pwm output to motor FWD
   pause 150
 next loop1
  cmd1 = &h12   'Play 0001.mp3
  arg = 0001
  send
  do
   loop until pin(GP15) = 0
   pause 5000
  station

  end sub
  '************************** Stop  Train ************************
  Sub stoptrain
     for loop1 = 90 to 10 step -1
        PWM 6,500,loop1  'pwm output to motor FWD
        pause 20
     next loop1
     PWM 6, 500,0
   cmd1 = &h12   'Play 0002.mp3  Train Stopped At station
   arg = 0002
   send
  end sub
 

  sub Station
 
  manloop = 1
   stoptrain
   do
    manloop = manloop + 1
     pause 100
   loop until manloop > 150
  TrainFWD
  end sub
 
 
'-------------------send to mp3 module ---------------------------

sub send

print #2, Chr$(&h7E) + Chr$(&hFF) + Chr$(&h06) + Chr$(cmd1) + Chr$(0) + Chr$(0) + Chr$(arg) + Chr$(&hEF);
pause 100
arg = 0

end sub