Commit 47b79679 authored by Michele's avatar Michele

In lavorazione inizializzazione piloti avanzata

parent 70fd3402
......@@ -440,6 +440,7 @@ Public Sub annulla()
$round = "" ' stato 0 pilota cancellato
$tempovolo = Time(0, 0, 0) ' camcella tutti i tempi
$tempoultimovolo = Time(0, 0, 0)
$oraultimo = Time(0, 0, 0)
$stato = C.STATO_ELIMINATO
End Sub
......@@ -457,6 +458,7 @@ Public Sub inizializza()
$tempoultimovolo = Time(0, 0, 0)
$evidenzia = False
$nota = ""
$oraultimo = Time(0, 0, 0)
For i = 0 To $lista_modelli[2].max
$lista_modelli[2][i] = "0"
Next
......
' Gambas class file
Public Sub RadioButton1_Click()
frm_dati.enabled = False
frm_applicazione.enabled = False
End
Public Sub RadioButton2_Click()
frm_dati.enabled = True
frm_applicazione.enabled = True
End
Public Sub btn_annulla_Click()
Me.Close
End
Public Sub btn_inizializza_Click()
Dim i As Integer
For i = C.INIZIO_PILOTI To D.Piloti.Max ' fai girare tutti i piloti
If D.Piloti[i].stato <> C.STATO_ELIMINATO ' se pilota era già eliminato ignoralo
D.Piloti[i].inizializza()
ListBox1.Add(D.Piloti[i].situazione(CImpostazioni.vfreq, CImpostazioni.vvoli, Cimpostazioni.vmodello, CImpostazioni.vcostruttore)) ' riscrivi in listbox1
Endif
Next
F.add_cronologia(-1, ("Inizializzazione piloti"))
Endif
End
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,75,64)
Resizable = False
{ frm_tipo Frame
MoveScaled(3,4,31,14)
Text = ("Tipo inizializzazione")
{ RadioButton1 RadioButton
MoveScaled(4,4,20,4)
Text = ("Totale")
Value = True
}
{ RadioButton2 RadioButton
MoveScaled(4,9,17,3)
Text = ("Selettiva")
}
}
{ frm_stato Frame
MoveScaled(42,5,33,14)
Text = ("Seleziona stato piloti")
{ RadioButton3 RadioButton
MoveScaled(5,3,25,3)
Text = ("Attivi")
Value = True
}
{ RadioButton4 RadioButton
MoveScaled(5,7,21,3)
Text = ("Sospesi")
}
{ RadioButton5 RadioButton
MoveScaled(5,11,22,3)
Text = ("Invisibili")
}
}
{ frm_dati Frame
MoveScaled(4,22,61,20)
Enabled = False
Foreground = &H0000FF&
Text = ("Dati da inizializzare")
{ CheckBox1 CheckBox
MoveScaled(4,5,28,4)
Text = ("Ora ultimo volo")
Value = CheckBox.True
}
{ CheckBox2 CheckBox
MoveScaled(4,11,25,4)
Text = ("Numero di voli")
Value = CheckBox.True
}
{ CheckBox3 CheckBox
MoveScaled(4,17,21,2)
Text = ("Totale tempo di volo")
Value = CheckBox.True
}
{ CheckBox7 CheckBox
MoveScaled(33,5,24,3)
Text = ("Evidenziazione")
Value = CheckBox.True
}
{ CheckBox8 CheckBox
MoveScaled(33,11,24,3)
Text = ("Note")
Value = CheckBox.True
}
}
{ frm_applicazione Frame
MoveScaled(5,45,29,13)
Enabled = False
Text = ("Applicazione")
{ CheckBox4 CheckBox
MoveScaled(3,4,28,4)
Text = ("Azzera cronologia")
Value = CheckBox.True
}
}
{ CheckBox6 CheckBox
MoveScaled(7,18,25,2)
Text = ("Ripristina piloti eliminati")
}
{ btn_inizializza Button
MoveScaled(36,55,16,7)
Text = ("Inizializza")
}
{ btn_annulla Button
MoveScaled(55,55,16,7)
Text = ("Annulla")
}
}
......@@ -518,18 +518,11 @@ Public Sub mnu_inizializza_Click()
Dim i As Integer
If Message.Question(("Sei sicuro di inizializzare tutti i piloti?"), ("No"), ("Si")) = 2 Then
FInizializza.showmodal()
ListBox1.Clear ' cancella le listbox
ListBox2.Clear
ListBox3.clear
For i = C.INIZIO_PILOTI To D.Piloti.Max ' fai girare tutti i piloti
If D.Piloti[i].stato <> C.STATO_ELIMINATO ' se pilota era già eliminato ignoralo
D.Piloti[i].inizializza()
ListBox1.Add(D.Piloti[i].situazione(CImpostazioni.vfreq, CImpostazioni.vvoli, Cimpostazioni.vmodello, CImpostazioni.vcostruttore)) ' riscrivi in listbox1
Endif
Next
F.add_cronologia(-1, ("Inizializzazione piloti"))
Endif
End
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment