Este es uno de los ejemplo que podéis encontrar en:
www.codeacademy.com
Se encuentra en el curso de Python. Gracias a las personas que lo han creado tanto en inglés como en español ha sido
posible que os lo portase a Gambas.
Bien. En el vamos paso a paso mediante funciones creando nuestro viaje a una ciudad, calculando los costes del viaje.
Lo he hecho enteramente en consola, ya que lo importante es ver como se va creando poco a poco. Parte por parte.
Asi por ejemplo comenzamos con el modulo del hotel, que solo tiene una función y luego segun el modulo correspondiente,
se va duplicando código para no perder el hilo. Naturalmente, esto se podría haber hecho todo en un modulo.
En realidad son ejercicios que el programador debe resolver. En este caso os lo doy resuelto.
Faltan módulos, ya que hay que añadir algunos mas. Pero lo principal ya esta hecho.
Os muestro algunas partes del ejemplo con sus modulos:
Parte1_Hotel
'La primera funcion que crearemos sera costo_de_hotel.Esta función tomara el número de dias
'Y devolvera cuanto tienes que pagar si cada noche del hotel cuesta 140$
Const costo_por_dia_hotel As Float = 140
Public Function costo_de_hotel(dias As Integer) As Float
Return dias * costo_por_dia_hotel
End
Parte2_Hotel_Avion
'Para llegar a tu destino, necesitaras hacer un viaje en avión
'La segunda función devolvera un precio según el destino que elijas
'Creamos la función costo_viaje_avion. Y usaremos una coleccion, donde la clave sera la ciudad
'Y el precio del billete sera el valor
Const costo_por_dia_hotel As Float = 140
Private destinos As New Collection
Public Function costo_de_hotel(dias As Integer) As Float
Return dias * costo_por_dia_hotel
End
Public Function costo_viaje_avion(ciudad As String) As Float
Return destinos[ciudad]
End
Public Function Crear_destinos() As Collection
Dim viajes_posibles As New Collection
'Creamos los destinos posibles
viajes_posibles.Add(183, "Charlotte")
viajes_posibles.Add(220, "Tampa")
viajes_posibles.Add(222, "Pittsburgh")
viajes_posibles.Add(475, "Los Angeles")
Return viajes_posibles
End
'La segunda función devolvera un precio según el destino que elijas
'Creamos la función costo_viaje_avion. Y usaremos una coleccion, donde la clave sera la ciudad
'Y el precio del billete sera el valor
Const costo_por_dia_hotel As Float = 140
Private destinos As New Collection
Public Function costo_de_hotel(dias As Integer) As Float
Return dias * costo_por_dia_hotel
End
Public Function costo_viaje_avion(ciudad As String) As Float
Return destinos[ciudad]
End
Public Function Crear_destinos() As Collection
Dim viajes_posibles As New Collection
'Creamos los destinos posibles
viajes_posibles.Add(183, "Charlotte")
viajes_posibles.Add(220, "Tampa")
viajes_posibles.Add(222, "Pittsburgh")
viajes_posibles.Add(475, "Los Angeles")
Return viajes_posibles
End
Aquí tenéis el código. Recordar que uso la versión de desarrollo.
Que lo disfruten.
Saludos
Vacaciones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Vacaciones.tar.gz | |
Tamaño: | 9.82 KB | |
Descargado: | 18 veces |
Vacaciones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Vacaciones.tar.gz | |
Tamaño: | 9.82 KB | |
Descargado: | 18 veces |
Vacaciones.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Vacaciones.tar.gz | |
Tamaño: | 9.82 KB | |
Descargado: | 18 veces |