Home page |
![]() |
Teacher |
![]() |
Online |
Il sito |
Competenze da acquisire |
Regole didattiche |
Contatore visite (dal 18-10-07) N° |
|
![]() |
||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Sia dato il file VOLI, contenente le informazioni relative ai voli aerei di una compagnia italiana in una giornata con
Scrivere un programma che permetta di:
da una località… inserita in input
il volo che compie il tragitto in minor tempo
'LA SOLUZIONE E' INCOMPLETA: MANCANO LE
ISTRUZIONI DI ASSEGNAZIONE,LE CONDIZIONI e GLI INPUT
' l'orario di partenza e di arrivo deve essere dato nella forma HH:MM
Option Explicit
Private Type aerei
cod As String * 10
locpar As String * 20
orapar As String * 5
locarr As String * 20
oraarr As String * 5
End Type
Dim arr As String * 20
Dim risp As Boolean
Sub carica()
Dim volo As aerei
Dim risp1 As String * 2
Open "a:/voli.dat" For Random As #1
Do
volo.cod = InputBox("dammi il codice del volo")
volo.locpar = InputBox("dammi la località di partenza del volo")
volo.orapar = InputBox("dammi l'orario di partenza del volo")
volo.locarr = InputBox("dammi la località di arrivo del volo")
volo.oraarr = InputBox("dammi l'orario di arrivo del volo")
Put #1, , volo
risp1 = InputBox("Ci sono altri voli da inserire")
Loop Until risp1 = "no"
Close 1
End Sub
'stampare tutte le informazioni per i voli in partenza da una località inserita
in input
' la stampa avviene con un msgbox del tipo:
' codice volo orario partenza località arrivo ora arrivo
' ..... ............ ............ .....
' ..... ............. ............ .....
Sub stampa1()
Dim mess As String
Dim part As String * 20
Dim volo As aerei
Open "a:/voli.dat" For Random As 1
.....=inputbox("dammi la località di partenza dei voli da ricercare")
.....
.....
Do While ...
Get #1, , volo
If Then
....
End If
Loop
MsgBox mess
Close 1
End Sub
'per ogni località stampa con un msgbox l'elenco dei voli in arrivo
' Voli in arrivo da .......
' codice volo località partenza orario partenza orario arrivo
' ..... .......... ............ .........
' .... .......... ........... ..........
Sub ricercalocalita(ByVal locarr As String, ByVal numrec As Integer)
Dim a As String 'elenco da stampare
Dim volo As aerei
Dim i As Integer
........
........
For ..... To ....
Get #1, i, volo
If .............. Then
...........
End If
Next
MsgBox a
End Sub
'stampare tutte le informazioni per i voli in arrivo in una serie di località
inserite da input
Sub stampa2()
Dim risp As String * 2 'risposta si o no alla richiesta di altre località
Dim locarr As String 'località di arrivo
Dim numrec As Integer
Dim volo As aerei
Open "a:/voli.dat" For Random As #1
.........
Do
.....=inputbox("dammi una località di arrivo dei voli da ricercare")
ricercalocalita locarr, numrec
..................
Loop Until ...........
Close 1
End Sub
Private Sub Command1_Click()
carica
End Sub
Private Sub Command2_Click()
stampa1
End Sub
Private Sub Command3_Click()
stampa2
End Sub
'inserite da input la località di partenza e quella di arrivo,
' stampare le informazioni per il volo che compie il tragitto nel minor tempo
Sub stampa3()
Dim arrivo As String * 20 'località di arrivo
Dim part As String * 20 'località di partenza
Dim numrec As Integer 'numero dei record nel file
Dim ora As Byte 'ora del volo in partenza
Dim min As Byte 'minuti del volo in partenza
Dim ora2 As Byte 'ora del volo in arrivo
Dim min2 As Byte 'minuti del volo in arrivo
Dim diff As Byte 'tempo di percorrenza del volo espresso in minuti
Dim minort As Integer 'tempo minore espresso in minuti
Dim volomin As aerei 'record corrispondente al volo che impiega minor tempo
Dim volo As aerei
Open "a:\voli.dat" For Random As #1
..............
.......inputbox("dammi la località di partenza")
.......inputbox("dammi la località di arrivo")
Do While
Get #1, , volo
If ......... And ............... Then
.................
................
................
................
.................
If ............. Then
............
...........
End If
End If
Loop
MsgBox volomin.cod & volomin.locpar & volomin.orapar & volomin.locarr &
volomin.oraarr
Close 1
End Sub
Private Sub Command4_Click()
stampa3
End Sub
Il TG diurno su e20 Sicilia, per il sito web dell'Ufficio Tributi, realizzato al Fermi
Il TG serale di e20 Sicilia, per il primo sito dell'Ufficio Tributi, realizzato al Fermi
Terra promessa
la mia partecipazione all'Eredità
Un professore da lanciare via a razzo!
Giornata da ..sballo