Techno Floppy

Procedure RAZ_FLOPPY()
  For x=0 To 80
    SetSerialPortStatus(0, #PB_SerialPort_RTS, 0) ; 1= Vers piste 40  0= Vers piste 0(MAISON)
    SetSerialPortStatus(0, #PB_SerialPort_DTR, 1) ; La logique du lecteur de disquettes VEUT que se soit inverse (mais le statut du port est LUI aussi inversé donc OSEF
    Delay(1)
    SetSerialPortStatus(0, #PB_SerialPort_DTR, 0)
    Delay(1)
  Next x
EndProcedure

Procedure JoueNote(frequence, duree)
  Shared Position
  Shared Sens
  ; Joue une fréquence donnée sur le lecteur
  ; duree = Temps en msec !! (ElapsedMilliseconds() )
  ; frequence = un truc approximatif... lolilol

  MEGATimer.q = ElapsedMilliseconds() ; On raz le compteur...

  AncienSens=Sens




  Repeat
  ;For y=1 To 20
    Select Sens
      Case 0 ; On va vers l'intérieur
        If Position=0
          Sens = 1 ; Maintenant on va vers l'exterieur
          SetSerialPortStatus(0, #PB_SerialPort_RTS, 1) ; 1= Vers piste 40  0= Vers piste 0(MAISON)
        EndIf
      Case 1
        If Position=79
          Sens = 0 ; On est au bout de la piste, on reviens vers l'intérieur...
          SetSerialPortStatus(0, #PB_SerialPort_RTS, 0) ; 1= Vers piste 40  0= Vers piste 0(MAISON)
        EndIf
    EndSelect

    Select Sens
      Case 0
        Position - 1
        SetSerialPortStatus(0, #PB_SerialPort_DTR, 1) ; La logique du lecteur de disquettes VEUT que se soit inverse (mais le statut du port est LUI aussi inversé donc OSEF
        Delay(frequence)
        SetSerialPortStatus(0, #PB_SerialPort_DTR, 0)
        Delay(frequence)
        ;Debug "passIN"
      Case 1
        Position + 1
        SetSerialPortStatus(0, #PB_SerialPort_DTR, 1) ; La logique du lecteur de disquettes VEUT que se soit inverse (mais le statut du port est LUI aussi inversé donc OSEF
        Delay(frequence)
        SetSerialPortStatus(0, #PB_SerialPort_DTR, 0)
        Delay(frequence)
        ;Debug "passOUT"
    EndSelect

    Until (ElapsedMilliseconds()>(duree+MEGATimer))
    ;Debug "PASS"
    ;Next y


EndProcedure




Position = 0
Sens = 0 ; Vers l'exterieur (par défaut)


If OpenSerialPort(0, "/dev/ttyUSB0", 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
  ;CloseSerialPort(0)
  Debug "C'est passé!"

  RAZ_FLOPPY() ; On RAZ la position du lecteur de disquettes



  ;Goto VersLaFin2

  For x=1 To 2
    For y=1 To 16
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(11, 250)
    Next y


    For y=1 To 8
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(9, 250)
    Next y

    For y=1 To 8
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(8, 250)
    Next y

  Next x

  ;Delay(110)

  ; SOLOO !!!


    ;JoueNote(2, 110)
    ;JoueNote(4, 110)
    JoueNote(11, 250)
    For y=1 To 15
      ;JoueNote(, 110)
      ;JoueNote(11, 110)
      Delay(220)
      JoueNote(11, 250)
    Next y

    For y=1 To 8
      Delay(220)
      JoueNote(9, 250)
    Next y

    VersLaFin:

    For y=1 To 8
      Delay(220)
      JoueNote(8, 250)
    Next y




     For y=1 To 16
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(11, 250)
    Next y


    For y=1 To 8
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(9, 250)
    Next y

    For y=1 To 8
      JoueNote(2, 110)
      JoueNote(4, 110)
      JoueNote(8, 250)
    Next y






    VersLaFin2:

    Delay(220)
    Jouenote(6,110)
    Delay(100)

    JoueNote(7, 110) :Delay(50)
    JoueNote(7, 110) :Delay(220)

    JoueNote(8, 110) :Delay(220)

    JoueNote(9, 110) :Delay(220)

    JoueNote(11, 3000) :Delay(220)


  ;Next x

  ;;JoueNote(1, 1000)
  ;JoueNote(1, 1000)


  ;JoueNote(2, 1000)
  ;JoueNote(3, 1000)
  ;JoueNote(4, 1000)

  ;y=1
  ;For z=10 To 1 Step -1
  ;DelayAMettre=Random(15,1)
  ;For x=0 To 80
  ;  SetSerialPortStatus(0, #PB_SerialPort_RTS, 1) ; 1= Vers piste 40  0= Vers piste 0(MAISON)
  ;  SetSerialPortStatus(0, #PB_SerialPort_DTR, 1) ; La logique du lecteur de disquettes VEUT que se soit inverse (mais le statut du port est LUI aussi inversé donc OSEF
  ;  Delay(y)
  ;  SetSerialPortStatus(0, #PB_SerialPort_DTR, 0)
  ;  Delay(y)
  ;Next x
 ;
 ; DelayAMettre=Random(15,1)
 ; For x=0 To 80
 ;   SetSerialPortStatus(0, #PB_SerialPort_RTS, 0) ; 1= Vers piste 40  0= Vers piste 0(MAISON)
 ;   SetSerialPortStatus(0, #PB_SerialPort_DTR, 1) ; La logique du lecteur de disquettes VEUT que se soit inverse (mais le statut du port est LUI aussi inversé donc OSEF
 ;   Delay(y)
 ;   SetSerialPortStatus(0, #PB_SerialPort_DTR, 0)
 ;   Delay(y)
 ; Next x
 ; Next z




Else
  Debug "FAILURE!!"
EndIf