Hierin kunnen allerhande zaken gerelateerd aan Renault worden geplaatst, die niet elders thuishoren
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

Titel zegt genoeg.

Moet voor het volgende een proggie schrijven"

Huiswerkopdracht 2

Een kleine luchtvaartmaatschappij heeft slechts 1 vliegtuig met 20 plaatsen.
Daarvan zijn 15 plaatsen voor niet-rokers en 5 voor rokers.
De maatschappij gaat een stoelreserveringssysteem invoeren.
De openingsform bevat een groot label waarin de reiziger wordt welkom geheten. In een apart frame komen twee keuzerondjes en daarnaast labels met opschriften rokers en niet-rokers.

Met de keuzerondje geeft de klant aan of hij in het rokers of niet rokers gedeelte wil zitten.
In een tweede frame kan de klant aan geven of hij bij een raam wil zitten of niet.
De stoelen worden voorgesteld door een array waarvan alle beginwaarden 0 zijn ten teken dat de stoel vrij is. Zodra een stoel bezet is wordt de arraywaarde van die stoel op 1 gezet. Alle even stoelen zitten aan het raam, alle oneven stoelen niet.

Wanneer niet aan de wens van een klant kan worden voldaan verschijnt een nieuwe form, met daarin de vraag of hij akkoord kan gaan met een door de maatschappij voorgestelde plaats. Prioriteit daarbij is eerst voldoen aan de rokers/niet-rokers wens, dan de raam/niet-raam wens.
Gaat de klant niet akkoord dan verschijnt in dit form de mededeling dat het volgende vliegtuig over 4 uur vertrekt. Gaat hij wel akkoord dan verschijnt form 3 (zie hierna).
Wanneer wel aan de wens van de klant kan worden voldaan, verschijnt form 3.

Hierin staat opgegeven op welke stoel de klant zit, of dit in het rokers of het niet rokers gedeelte van het vliegtuig is en of dit al of niet aan het raam is. Verder wordt de klant een goede vlucht toegewenst.
De indelingen van de verschillende formen moeten esthetisch verantwoord zijn.
------------------------------------------

p.s. moet morgen af zijn! :lol:

Alvast bedankt!
Tijn
Berichten: 4320
Lid geworden op: vr 18 mei 2001 0:00
Locatie: Vleuten
Contacteer:

<font style="font-size: 50pt; font-family: arial">< OFFTOPIC? ></font>

ik denk dat je het beste even op hotscripts.com kan neuzen , zat voorbeelden daar.

:grin:
<font size=1>[ This message was edited by: Tijn on 2001-10-30 15:55 ]</font>
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

Bedankt, zal ff kijken!

Is ook wel een beetje offtopic, maar ik heb hem neergezet in nl.chat en de nood is hoog!
-----------------
De mzzl en tot ziens, Jeof
<font size=1>[ This message was edited by: jnjansen_r5gtturbo on 2001-10-30 15:58 ]</font>
Anonymous

mmm, ik kan wel VB. maarre zit in de tentame stof voor morgen, en in zo'n korte tijd schrijf ik zo'n programma niet, heb ik echt wel een middag voor nodig.. morgen af?
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

ja morgen af, is zo gedaan als je er kaas van heb gegeten, maar waarom ik het moet leren is mij een raadsel, later(als ik groot ben :lol: ) heb ik toch niet meer nodig.

En Martijn ik heb alle forms, 3 in totaal, al klaar, moet alleen nog een proggie schrijven m.b.v. Arrays en optionbuttons enz.
Is zo gedaan Martijn in +/- een 3/4 uurtje.
Anonymous

Ja sorry je zou het toch ff zelf moeten doen, ik zit te blokken op nederlands, ja gebruik ik ook niet, maar later als ik groot ben :grin:
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

Nederlands?? Krijg je dat na al die jaren nog steeds? Je moet het nu toch wel kunnen/kennen, begrijp niet dat de ze daar nog aandacht aan besteden op de.

Opdrachtje is niet zo groot, jij bent daar zo mee klaar :smile:
Anonymous

je mag niet roken in een vliegtuig
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

Het hoeft pas overmorgen klaar te wezen, dus als ik je nu die forms stuur, dan kan je morgen heel de dag mij/ons helpen.

Je gaat toch ook niet heeeel de dag leren Martijn? daar wordt je toch gek van. Je moet ook weleens ontspannen, door bijv een proggie te schrijven en dan pak je twee vliegen in een klap, je hebt ff ontspanning en je helpt mij/ons, kan toch niet beter.
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 16:29, ploegah
wrote:
je mag niet roken in een vliegtuig
Waar jij mee vliegt niet, maar bij onze vliegmaatschappij wel:wink: En Paul jij weet natuurlijk alles van VB, kan jij mij/ons niet helpen?

p.s. Fijne conferenties gehad met Bill :wink:
Maus
Berichten: 4127
Lid geworden op: zo 4 mar 2001 0:00
Locatie: Zwijndrecht

Heb je overigens gezien tijdens de presentatie van Windows XP (op tv) dat Bill nog met 2 vinger typt?!
Anonymous

Ik zag de presentatie live met 7999 andere mensen. We kregen gelijk ook een gratis de eerste versie van XP bij (ze waren nog warm)
Tino
Erelid - RvT
Berichten: 5939
Lid geworden op: do 15 feb 2001 0:00
Car: R5 Gt Turbo Phase 1
Locatie: Ouddorp

En een printer ook of niet ...
Anonymous

*zucht*

ik zal ff voor je kijken
Maus
Berichten: 4127
Lid geworden op: zo 4 mar 2001 0:00
Locatie: Zwijndrecht

Werkt 't een beetje?
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 16:41, ploegah
wrote:
Ik zag de presentatie live met 7999 andere mensen. We kregen gelijk ook een gratis de eerste versie van XP bij (ze waren nog warm)
De eerste versie, dat dacht je zeker:wink:, maar Martijn, Paul en 10O als jullie nu is samenwerken met VB, dan is het gedaan binnen een halfuurtje. Is dat geen goeie dan?
Anonymous

ben al bijna klaar
Anonymous

Als het overmorgen klaar moet zijn dan wil ik er wel naar kijken, mail het maar.

ik kijk alleen morgen pas. Nu eerst werken en daarna weer...congruentie,contaminaties,foutieve verwijswoorden enz...
Anonymous

ooo, ploegah is al aan het bikkelen, mooi
Anonymous

Jeoff, ik kijk er na 7 uur ff naar moet nu nog ff doorwerken aan de serieuze business.

ik post de code hier wel.
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 16:51, Tackinardie
wrote:
Als het overmorgen klaar moet zijn dan wil ik er wel naar kijken, mail het maar.

ik kijk alleen morgen pas. Nu eerst werken en daarna weer...congruentie,contaminaties,foutieve verwijswoorden enz...

Oke dan!! Veel succes met je contaminaties en met het assimileren van je nederlands :wink:
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 16:54, ploegah
wrote:
Jeoff, ik kijk er na 7 uur ff naar moet nu nog ff doorwerken aan de serieuze business.

ik post de code hier wel.
Oke, de zere neus zaken gaan voor.
Anonymous

Duurt langer dan ik dacht., ben nu al bijna een uur bezig.

Hier heb je alvast de code voor de .BAS file (is nog niet getest dus doe er nog niets mee !):

' Assumptions:
' - There can be more than 15 smokers in a plane

Public iSeats(19) As Integer
Public iSmokersCount As Integer: iSmokersCount = 0

Public Const cNoMoreSeats = 99

' Main, we start up here
Private Sub Main()
Call FillDefaults
FrmOpening.Show
End Sub

Private Sub FillDefaults()
Dim i
For i = 0 To UBound(iSeats)
iSeats(i) = 0
Next
End Sub

' This function will, when the seat is available book it and return true.
' When the seat is not available it will return false, and will give a reason.
Public Function SeatManager(ByVal bSmoking As Boolean, ByVal bWindow As Boolean, ByRef sReason As String) As Boolean
Dim iSeatID As Integer

' Can't use And here because VB would reserve a smoking seat for a non smoker. (unlike C)
If bSmoking Then
If Not bStillSmokingSeats() Then
' First suggest another seat before we do anything else
sReason = "No more smoking seats available"
SeatManager = False
Exit Function
End If
End If

' If people would want to smoke that's OK, so we don't have to worry about that anymore,
' just try to book one now.
If BookSeat(bStillWindowSeats(bWindow)) Then
SeatManager = True
If bSmoking Then
iCountSmokers = iCountSmokers + 1
End If
Else
If bWindow Then
sReason = "No more seats at the window available"
Else
sReason = "No more seats at the corridor available"
End If
SeatManager = False
End If
End Function

Private Function bStillSmokingSeats() As Boolean
If iCountSmoking >= 5 Then
iStillSmokingSeats = False
Else
iStillSmokingSeats = True
End If
End Function

Private Function bStillWindowSeats(ByVal bWindow As Boolean) As Integer
' This functions returns the number of the first available seat.
' when there's no seat available it will return cNoMoreSeats.
' Seats are numbered 1 to 20 in the aeroplain but since arrays are zero
' based in VB in the application they are 0 to 19. This is funny because
' odd Seats in the code are even Seats in the plain :smile:
' Abs(bWindow) returns 0 when bWindow is False and 1 when bWindow is True,
' which are the correct starters in the loop.
Dim i: i = Abs(bWindow)

Do While i <= UBound(iSeats)
If iSeats(i) = 0 Then
bStillWindowSeats = iSeats(i)
Exit Function
End If
' Increment i so it will skip the even/odd Seats
i = i + 2
Loop
bStillWindowSeats = cNoMoreSeats
End Function

Function BookSeat(ByVal iSeatID As Integer) As Boolean
If iSeatID > UBound(iSeats) Then
iSeats(iSeatID) = 1
BookSeat = True
Else
BookSeat = False
End If
End Function
Anonymous

cool hij vertaalt mijn smily :smile:

Dat moeten ze in VB ook bouwen
Anonymous

Shit ik moet ze een stoel gaan suggereren.

pffffffffffffff
Anonymous

<font size="1">honger</font>
<font size="2">honger</font>
<font size="3">honger</font>
<font size="4">honger</font>
<font size="5">honger</font>
<font size="6">honger</font>
<font size="7">honger !!</font>

ik ga naar huis. ga nog wel door vanavond want ik moet en zal dat proggie afrkijgen. :evil:
Marius
Berichten: 2882
Lid geworden op: vr 2 mar 2001 0:00

<b>'Ploegah-Instant-Homework-Service'</b>
Alex A-man
Berichten: 490
Lid geworden op: zo 23 sep 2001 0:00
Locatie: Nederland

On 2001-10-30 20:50, Marius
wrote:
<b>'Ploegah-Instant-Homework-Service'</b>
Wat je zegt Marius,
Dat is pas service! Ik snap er zelf weinig van maar die Ploegah heeft zo te zien de smaak flink te pakken. :wink:
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 20:28, ploegah
wrote:
<font size="1">honger</font>
<font size="2">honger</font>
<font size="3">honger</font>
<font size="4">honger</font>
<font size="5">honger</font>
<font size="6">honger</font>
<font size="7">honger !!</font>

ik ga naar huis. ga nog wel door vanavond want ik moet en zal dat proggie afrkijgen. :evil:

Nou Paul, ik zie het al je bent druk bezig, ga zo door!!!

p.s. Wat reken je voor uurloon :lol:
Anonymous

via exact ergens tussen de 250,- en 300,- gulden

prive 150,-

ik zit al op 1 uur en 20 minuten, jeoff dus dat word collecteren in de klas.
Anonymous

:lol:

vind het wel grappig dit soort opdrachtjes moest ik ook doen voor mijn opleiding. nu gaat het wel heel veel beter... (en sneller)
Alex A-man
Berichten: 490
Lid geworden op: zo 23 sep 2001 0:00
Locatie: Nederland

On 2001-10-30 21:36, ploegah
wrote:
:lol:

vind het wel grappig dit soort opdrachtjes moest ik ook doen voor mijn opleiding. nu gaat het wel heel veel beter... (en sneller)
Iedereen heeft z'n eigen vak zullen we maar zeggen. Maar ik vindt het in ieder geval tof dat je dit effe spontaan in mekaar flanst voor een RTC-lid.

Klasse hoor :wink:
jnjansen_r5gtturbo
Berichten: 1001
Lid geworden op: wo 4 apr 2001 0:00
Locatie: Rotterdam

On 2001-10-30 21:35, ploegah
wrote:
via exact ergens tussen de 250,- en 300,- gulden

prive 150,-

ik zit al op 1 uur en 20 minuten, jeoff dus dat word collecteren in de klas.

Ben al druk bezig, heb nu al 10 gulden en 16 cent :lol: Ja, studenten hebben het nu eenmaal niet breed en sommige willen ook nog eens een 5 GT Turbo rijden :lol:
Anonymous

zo is dat.

zeg hoeveel studiepunten krijg je hier nu voor ?
Maik (WOOFER)
Über-Spammer
Berichten: 9262
Lid geworden op: za 6 okt 2001 0:00
Locatie: Den Haag : Zuid-Holland

go go ploeg..

jammer dat het geen pascal of C++ of SQL is want anders had ik misschien nog wel wat kunnen doen.. niet dat ik zoveel tijd heb maar toch wel interessant,toch?

PS:ploeg jij ook naar de meern. icq me aub.

voor de rest SUC6
Plaats reactie