FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Mah-Jong américain
par Jean Claude Hier à 19:37

» StratégoV8 et V9
par Jean Claude Hier à 13:18

» Problème avec Deepl
par Klaus Hier à 0:34

» Déformation d'image en trapèze
par Klaus Dim 14 Jan 2018 - 16:22

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» KGF_dll - nouvelles versions
par Minibug Ven 12 Jan 2018 - 0:21

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» HVIEWER
par Klaus Mer 10 Jan 2018 - 2:06

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

» Bonne fêtes de fin d'année ! Meilleurs Vœux 2018 !
par Jicehel Jeu 4 Jan 2018 - 17:28

» Mah-Jong international
par jjn4 Jeu 4 Jan 2018 - 16:55

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 game for practice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: game for practice   Mer 26 Juin 2013 - 21:50

Guten Abend an alle,

ich will ein Spiel für die Praxis erstellen. Die Fahrzeuge sollen alle fahren mit unterschiedlicher Geschwindigkeit.
Hier mein Programmanfang. Ich komme nicht weiter.
Es fährt immer nur ein Fahrzeug. Wer hat Vorschläge.

Good evening to all,

I want to create a game for practice. The vehicles will all go at different speeds.
Here is my start of the program. I do not come on.
It always drives only one car. Anyone who has suggestions.

Bonsoir à tous,

Je veux créer un jeu pour la pratique. Les véhicules iront tous à des vitesses différentes.
Voici mon début du programme. Je ne viens pas.
Il entraîne toujours une seule voiture. Toute personne qui a des suggestions.


Code:
' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
'
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-40
caption      0000,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
color        0000,000,000,000        :' schwarz / black
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700
sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700
sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700
sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700
sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700
sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700
sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700
sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700
sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700
sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700
sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700
sub_menu 9712:CAPTION 9712," ":parent 9712,9700
sub_menu 9713:CAPTION 9713," ":parent 9713,9700
sub_menu 9714:CAPTION 9714," ":parent 9714,9700
sub_menu 9715:CAPTION 9715," ":parent 9715,9700
sub_menu 9716:CAPTION 9716," ":parent 9716,9700
sub_menu 9717:CAPTION 9717," ":parent 9717,9700
sub_menu 9718:CAPTION 9718," ":parent 9718,9700
sub_menu 9719:CAPTION 9719," ":parent 9719,9700
sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS% :  SEITE_RECHTS% = (SCREEN_X - 150-30)
DIM SEITE_LINKS%  :  SEITE_LINKS%  = 100
DIM SEITE_OBEN%
DIM SEITE_UNTEN%
'
' *** FABRIK erstellen *********************************************************
BUTTON  9800
CAPTION  9800,"Fabrik Severin"
TOP      9800,108
LEFT    9800,10
HEIGHT  9800,300
WIDTH    9800,85
'
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON  9810
'
TOP      9810,108
LEFT    9810,95
HEIGHT  9810,300
WIDTH    9810,19
'
' *** Lager03 erstellen ********************************************************
BUTTON  9860
CAPTION  9860,"Lager03 Severin"
TOP    9860,408
LEFT    9860,10
HEIGHT  9860,300
WIDTH  9860,85
'
' *** RAMPEN LAGER03 erstellen *************************************************
BUTTON  9870
'
TOP    9870,408
LEFT    9870,95
HEIGHT  9870,300
WIDTH  9870,19
'
' *** Lager01 erstellen ********************************************************
BUTTON  9820
CAPTION  9820,"Lager01 Severin"
TOP      9820,108
LEFT    9820,SCREEN_X-120
HEIGHT  9820,300
WIDTH    9820,85
'
' *** RAMPEN LAGER01 erstellen *************************************************
BUTTON  9830
'
TOP    9830,108
LEFT    9830,SCREEN_X-140
HEIGHT  9830,300
WIDTH  9830,19
'
' *** Lager02 erstellen ********************************************************
BUTTON  9840
CAPTION  9840,"Lager02 Severin"
TOP    9840,408
LEFT    9840,SCREEN_X-120
HEIGHT  9840,300
WIDTH  9840,85
'
' *** RAMPEN LAGER02 erstellen *************************************************
BUTTON  9850
'
TOP    9850,408
LEFT    9850,SCREEN_X-140
HEIGHT  9850,300
WIDTH  9850,19
'
' *** LABEL ERSTELLEN **********************************************************
 label main
 label halt
 label start
 label NACHRECHTES
 label NACHLINKS
 label STEHERECHTS
 label STEHELINKS
' *** LKW GESCHWINDIGKEIT EINSTELLEN *******************************************
dim delta1% : delta1% = 10
dim delta2% : delta2% = 10
dim delta3% : delta3% = 10
dim delta4% : delta4% = 10
dim delta5% : delta5% = 10
dim delta6% : delta6% = 10
dim delta7% : delta7% = 10
dim delta8% : delta8% = 10
dim delta9% : delta9% = 10
dim delta10% : delta10% = 10

' ******************************************************************************
dim v1% : v1% = 1
dim v2% : v2% = 1
dim v3% : v3% = 1
dim v4% : v4% = 1
dim v5% : v5% = 1
dim v6% : v6% = 1
dim v7% : v7% = 1
dim v8% : v8% = 1
dim v9% : v9% = 1
dim v10% : v10% = 1

' ******************************************************************************
dim cpt1% : cpt1% = v1%
dim cpt2% : cpt2% = v2%    : DIM i2%
dim cpt3% : cpt3% = v3%
dim cpt4% : cpt4% = v4%
dim cpt5% : cpt5% = v5%
dim cpt6% : cpt6% = v6%
dim cpt7% : cpt7% = v7%
dim cpt8% : cpt8% = v8%
dim cpt9% : cpt9% = v9%
dim cpt10% : cpt10% = v10%

' ******************************************************************************
dim k2%
dim k1%

 button 01 : top 01,110  : left 01,0100 : width 01,45 : height 01,25 : caption 01,"LKW1"
 button 11 : top 11,110  : left 11,0015 : width 11,45 : height 11,25 : caption 11,"0000"
 button 21 : top 21,110  : left 21,SCREEN_X-90 : width 21,45 : height 21,25 : caption 21,"0000"

 button 02 : top 02,140  : left 02,0100 : width 02,45 : height 02,25 : caption 02,"LKW2"
 button 12 : top 12,140  : left 12,0015 : width 12,45 : height 12,25 : caption 12,"0000"
 button 22 : top 22,140  : left 22,SCREEN_X-90 : width 22,45 : height 22,25 : caption 22,"0000"

 button 03 : top 03,170  : left 03,0100 : width 03,45 : height 03,25 : caption 03,"LKW3"
 button 13 : top 13,170  : left 13,0015 : width 13,45 : height 13,25 : caption 13,"0000"
 button 23 : top 23,170  : left 23,SCREEN_X-90 : width 23,45 : height 23,25 : caption 23,"0000"

 button 04 : top 04,200  : left 04,0100 : width  04,45 : height 04,25 : caption 04,"LKW4"
 button 14 : top 14,200  : left 14,0015 : width  14,45 : height 14,25 : caption 14,"0000"
 button 24 : top 24,200  : left 24,SCREEN_X-90 : width  24,45 : height 24,25 : caption 24,"0000"

 button 05 : top 05,230  : left 05,0100 : width  05,45 : height 05,25 : caption 05,"LKW5"
 button 15 : top 15,230  : left 15,0015 : width  15,45 : height 15,25 : caption 15,"0000"
 button 25 : top 25,230  : left 25,SCREEN_X-90 : width  25,45 : height 25,25 : caption 25,"0000"

 button 06 : top 06,260  : left 06,0100 : width  06,45 : height 06,25 : caption 06,"LKW6"
 button 16 : top 16,260  : left 16,0015 : width  16,45 : height 16,25 : caption 16,"0000"
 button 26 : top 26,260  : left 26,SCREEN_X-90 : width  26,45 : height 26,25 : caption 26,"0000"

 button 07 : top 07,290  : left 07,0100 : width  07,45 : height 07,25 : caption 07,"LKW7"
 button 17 : top 17,290  : left 17,0015 : width  17,45 : height 17,25 : caption 17,"0000"
 button 27 : top 27,290  : left 27,SCREEN_X-90 : width  27,45 : height 27,25 : caption 27,"0000"

 button 08 : top 08,320  : left 08,0100 : width  08,45 : height 08,25 : caption 08,"LKW8"
 button 18 : top 18,320  : left 18,0015 : width  18,45 : height 18,25 : caption 18,"0000"
 button 28 : top 28,320  : left 28,SCREEN_X-90 : width  28,45 : height 28,25 : caption 28,"0000"

 button 09 : top 09,350  : left 09,0100 : width 09,45 : height 09,25 : caption 09,"LKW9"
 button 19 : top 19,350  : left 19,0015 : width 19,45 : height 19,25 : caption 19,"0000"
 button 29 : top 29,350  : left 29,SCREEN_X-90 : width 29,45 : height 29,25 : caption 29,"0000"

 button 10 : top 10,380  : left 10,0100 : width 10,45 : height 10,25 : caption 10,"LKW10"
 button 20 : top 20,380  : left 20,0015 : width 20,45 : height 20,25 : caption 20,"0000"
 button 30 : top 30,380  : left 30,SCREEN_X-90 : width 30,45 : height 30,25 : caption 30,"0000"

' ***
ON_CLICK 9701,halt
 ' ON_CLICK 9702,area02
 ' ON_CLICK 9703,area03
 ' ON_CLICK 9704,area04
 ' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
ON_CLICK 9720,start
'
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
timer 9998
timer_interval 9998,60
on_timer 9998,main
'
' *****************************************************************************
' *** PROGRAMM LKW FÄHRT ******************************************************
main:
timer_off_all
cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1()
cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2()
cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3()
cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4()
cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5()
cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6()
cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7()
cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8()
cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9()
cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10()
on_timer 9998,main
return

' ******************************************************************************
' ******************************************************************************
' *** LKW 1 FAHREN *************************************************************
 sub LKW1()
 if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1%
 left 1,left(1) + delta1%
 end_sub

' ******************************************************************************
' ******************************************************************************
' *** LKW 2 FAHREN *************************************************************
 sub LKW2()
 if k2% = 101 then goto NACHLINKS
 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES
 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS
 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS
'
 stop
' *** Fahrt nach rechts *******************************************************
NACHRECHTES:
caption 12,"0000"
left 2,left(2) + delta2%
end_sub
' *** Steht rechts *************************************************************
STEHERECHTS:
k2% = k2% + 1
caption 22,k2%
if k2% = 101 then k1% = 0
if k2% = 101 then goto NACHLINKS
end_sub
' *****************************************************************************
' *** Fahrt nach links ********************************************************
 NACHLINKS:
caption 22,"0000"
if (left(2)<102) then goto STEHELINKS
left 2,left(2) - delta2%
end_sub
 ' *** Steht links *************************************************************
STEHELINKS:
left 02,0100
k1% = k1% + 1
caption 12,k1%
if k1% = 101 then k2% = 0
if k1% = 101 then goto NACHLINKS
end_sub
' ******************************************************************************
' ******************************************************************************
' *** LKW 3 FAHREN *************************************************************
  sub LKW3()
 if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 end_sub

 sub LKW4()
 if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 end_sub

 sub LKW5()
 if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 end_sub

 sub LKW6()
 if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6%
 left 6,left(6) + delta6%
 end_sub

 sub LKW7()
 if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7%
 left 7,left(7) + delta7%
 end_sub

 sub LKW8()
 if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8%
 left 8,left(8) + delta8%
 end_sub

 sub LKW9()
 if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9%
 left 9,left(9) + delta9%
 end_sub

 sub LKW10()
 if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10%
 left 10,left(10) + delta10%
 end_sub

 halt:
 timer_off_all
 terminate


NEU 1.7.2013 10:00


Dernière édition par Severin le Lun 1 Juil 2013 - 11:08, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10411
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: game for practice   Jeu 27 Juin 2013 - 11:05

So wie das Programm aufgebaut ist, kann es nicht anders funktionieren.

Die ganze Aktion findet im Programm-Aufbau statt, vor dem END Kommando. Es ist eine vollständig lineare Programmierung: innerhalb einer Schleife "FOR FAHRT0% = 1 TO FAHRT1%" wird est LKW1 bedient, mit seiner kompletten Fahrt, dann LKW2. Die anderen sind noch nicht programmiert.

Wenn Du willst, dass alle gleichzeitig fahren, hast Du 2 möglichkeiten:

1. Lass die Hauptschleife über die LKWs gehen, anstatt über die Anzahl der Fahrten. So wird jeder LKW jedesmal ein Stückchen bewegt, und Du hast den Eindruck, dass alle gleichzeitig fahren.

2. Gieb jedem LKW einen timer. Die ON-TIMER Event-Routinen bewegen ihren LKW jeweils ein Stückchen und hören dann auf. Vorteil: Du kannst jedem timer ein eigenes TIMER_INTERVAL geben, und damit fallen die ganzen WAIT Kommandos flach.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Jeu 27 Juin 2013 - 11:35

Je ne comprends pas ce qui est écrit en allemand, j'ai hésité à répondre hier car je ne sais pas forcément tourner les choses diplomatiquement pour dire que c'est la structure même du programme qui est incorrecte.
Il faudrait soit un timer par voiture (ce que je ne crois pas utile) soit une boucle avec un timer et des compteurs (par exemple 1 par voitures) qui déclenche une action quand ils arrivent à 0 et reprennent alors une valeur correspondant à la vitesse de déplacement voulu (en nombre de fois le temps du timer) et qui soit décrémenté à chaque déclenchement de la boucle.
Après pour gérer la trajectoire, il faudrait faire un tableau avec les déplacements souhaités par étapes et un marqueur de direction pour indiquer dans quel sens se déplace la voiture.
Enfin, il y a sans doute d'autres solutions, mais c'est la première à laquelle je pense.

PS: pour créer les voitures, tu devrais faire une boucle en incrémentant un compteur de 1 à 10 et en ajoutant 30 en Y pour chaque voiture.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10411
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: game for practice   Jeu 27 Juin 2013 - 11:44

Tu as raison, Jicehel. C'est exactement ce que je lui ai proposé dans mon post précédent.

@Severin:
Du kannst auch ein SCENE2D verwenden, mit SPRITEs als LKWs. Ansonsten gelten dieselben Bermerkungen für die Steuerung. Es ist nur eine optische Verbesserun: Du kannst einen Hintergrund lagen, sowie eine BMP Datei für jeden LKW, um ihnen ein ansprechenderes Design zu geben.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Jeu 27 Juin 2013 - 21:20

@ Klaus
@ Jicehel

könnt ihr mal ein Beispiel geben ?
Habe das mit dem Timer noch nicht verstanden.

times can you give an example?
Have not yet understood the timer.

fois pouvez-vous donner un exemple?
N'ont pas encore compris la minuterie.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10411
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: game for practice   Ven 28 Juin 2013 - 12:41

Ein einfaches Bespiel:
Code:
label LKW1, LKW2, halt, activate_timers

dim delta1% : delta1% = 10
dim delta2% : delta2% = 10

button 1 : top 1,40 : left 1,10 : caption 1,"LKW1"
button 2 : top 2,200 : left 2,400 : caption 2,"LKW2"

button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

timer 11 : timer_interval 11,100
timer 12 : timer_interval 12,200
gosub activate_timers

end

activate_timers:
  on_timer 11,LKW1
  on_timer 12,LKW2
  return
  
LKW1:
  timer_off_all
  if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1%
  left 1,left(1) + delta1%
  gosub activate_timers
  return
  
LKW2:
  timer_off_all
  if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2%
  left 2,left(2) + delta2%
  gosub activate_timers
  return
  
halt:
  timer_off_all
  terminate
  
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Ven 28 Juin 2013 - 13:27

Merci Klaus, je n'ai pas eu le temps de faire un exemple hier soir.
J'ai repris ton source pour aller plus vite pour mettre au clair mon idée qui est très proche de la tienne mais se base sur une boucle principale déclenché par un timer unique (le métronome du jeu) et les voitures qui se déplace selon une fréquence dépendant de ce métronome.

Le source donne ça:
Code:
label main, halt

dim delta1% : delta1% = 10
dim delta2% : delta2% = 10

dim v1%  : v1% = 1
dim v2%  : v2% = 2

dim cpt1% : cpt1% = v1%
dim cpt2% : cpt2% = v2%

button 1 : top 1,40  : left 1,10  : caption 1,"LKW1"
button 2 : top 2,200 : left 2,400 : caption 2,"LKW2"

button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

timer 11 : timer_interval 11,60
gosub main

end


main:
  timer_off_all
  cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1()
  cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2()
  on_timer 11,main
return


sub LKW1()
  if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1%
  left 1,left(1) + delta1%
end_sub

sub LKW2()
  if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2%
  left 2,left(2) + delta2%
end_sub

halt:
  timer_off_all
  terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Ven 28 Juin 2013 - 20:44

Danke, muss den Code noch analysieren.
Thanks must analyze the code yet.
Merci encore doivent analyser le code.

affraid Question sunny 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 11:47

J'avais un peu de temps, j'ai revu mon exemple d'avant en plus logique.
C'est la vitesse que l'on règle et pas le nombre de fois la boucle (c'est moins logique sinon)
J'ai mis en place la boucle de création des voiture et celle de la boucle principale pour faciliter les choses et bouger plus facilement les 10 voitures.

Code:
label main, halt

dim v%(10)
v%(1)  = 10  : v%(2)  = 5  : v%(3)  = 9 : v%(4)  = 12 : v%(5)  = 4
v%(6)  = 2  : v%(7)  = 15 : v%(8)  = 5 : v%(9)  = 6  : v%(10) = 11

dim i%

for i%=1 to 10
  button i% : top i%,10+30*i%  : left i%,10  : caption i%,"LKW"+STR$(i%)
next i%
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

timer 11 : timer_interval 11,60 : on_timer 11,main

end


main:
  timer_off_all
  for i%=1 to 10
    if (left(i%)<10) or (left(i%)>400) then v%(i%) = 0 - v%(i%)
    left i%,left(i%) + v%(i%)
  next i%
  timer_on 11
return


halt:
  timer_off_all
  terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 14:46

@ Jicehel

Danke für die Version 2.
Ich habe die Anzahl Fahrzeuge erhöht.
Ab Fahrzeug 11 Fehler.


Das Problem trift bei der Version von Klaus schon bei 6 Fahrzeugen auf.
In deiner ersten Version schon bei 7 Fahrzeugen auf.


Thanks for the version 2
I have increased the number of vehicles.
From vehicle 11 errors.


The problem trift on vehicles already at 6 in the version by Klaus.
In your first version on vehicles already at 7.

Merci pour la version 2
J'ai augmenté le nombre de véhicules.
De 11 véhicules erreurs.


Le problème trift sur ​​des véhicules déjà à 6 dans la version par Klaus.
Dans votre première version sur des véhicules déjà à 7.

Code:

 color 0,0,0,0
 height 0,700
 width 0,800


 label main, halt

 dim v%(15)
 v%(1) = 10 : v%(2) = 5 : v%(3) = 9 : v%(4) = 12 : v%(5) = 4
 v%(6) = 2 : v%(7) = 15 : v%(8) = 5 : v%(9) = 6 : v%(10) = 11
  v%(11) = 2 : v%(12) = 15 : v%(13) = 5 : v%(14) = 6 : v%(15) = 11
 dim i%

 for i%=1 to 15
 button i% : top i%,10+30*i% : left i%,10 : caption i%,"LKW"+STR$(i%)
 next i%


 button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

 timer 11 : timer_interval 11,60 : on_timer 11,main

 end


 main:
 timer_off_all
 for i%=1 to 15
 if (left(i%)<10) or (left(i%)>600) then v%(i%) = 0 - v%(i%)
 left i%,left(i%) + v%(i%)
 next i%
 timer_on 11
 return


 halt:
 timer_off_all
 terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 14:51

@ Jicehel

Erweiterte Version 1
Extended Version 1
Extended Version 1

Code:
label main, halt

color 0,0,0,0

 dim delta1% : delta1% = 10
 dim delta2% : delta2% = 10
 dim delta3% : delta3% = 10
 dim delta4% : delta4% = 10
 dim delta5% : delta5% = 10
 dim delta6% : delta6% = 10
 dim delta7% : delta7% = 10
 dim delta8% : delta8% = 10

 dim v1% : v1% = 1
 dim v2% : v2% = 1
 dim v3% : v3% = 1
 dim v4% : v4% = 1
 dim v5% : v5% = 1
 dim v6% : v6% = 1
 dim v7% : v7% = 1
 dim v8% : v8% = 2

 dim cpt1% : cpt1% = v1%
 dim cpt2% : cpt2% = v2%
 dim cpt3% : cpt3% = v3%
 dim cpt4% : cpt4% = v4%
 dim cpt5% : cpt5% = v5%
 dim cpt6% : cpt6% = v6%
 dim cpt7% : cpt7% = v7%
 dim cpt8% : cpt8% = v8%

 button 1 : top 1,40  : left 1,10  : caption 1,"LKW1"
 button 2 : top 2,70  : left 2,400 : caption 2,"LKW2"
 button 3 : top 3,100 : left 3,10  : caption 3,"LKW3"
 button 4 : top 4,130 : left 4,400 : caption 4,"LKW4"
 button 5 : top 5,160 : left 5,10  : caption 5,"LKW5"
 button 6 : top 6,190 : left 6,400 : caption 6,"LKW6"
 button 7 : top 7,220 : left 7,10  : caption 7,"LKW7"
 button 8 : top 8,250 : left 8,400 : caption 8,"LKW8"

 button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

 timer 11 : timer_interval 11,30
 gosub main

 end


 main:
 timer_off_all
 cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1()
 cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2()
 cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3()
 cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4()
 cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5()
 cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6()
 cpt5%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7()
 cpt6%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8()
 on_timer 11,main
 return


 sub LKW1()
 if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1%
 left 1,left(1) + delta1%
 end_sub

 sub LKW2()
 if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2%
 left 2,left(2) + delta2%
 end_sub

 sub LKW3()
 if (left(3)<10) or (left(3)>400) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 end_sub

 sub LKW4()
 if (left(4)<10) or (left(4)>400) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 end_sub

 sub LKW5()
 if (left(5)<10) or (left(5)>400) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 end_sub

 sub LKW6()
 if (left(6)<10) or (left(6)>400) then delta6% = 0 - delta6%
 left 6,left(6) + delta6%
 end_sub

 sub LKW7()
 if (left(7)<10) or (left(7)>400) then delta7% = 0 - delta7%
 left 7,left(7) + delta7%
 end_sub

 sub LKW8()
 if (left(8)<10) or (left(8)>400) then delta8% = 0 - delta8%
 left 8,left(8) + delta8%
 end_sub

 halt:
 timer_off_all
 terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 14:53

@ Klaus

Erweiterte Version

Code:
label LKW1, LKW2, LKW3, LKW4, LKW5, LKW6
label halt
label activate_timers

color 0,0,0,0

' *** LKW_Geschwindigkeit einstellen *******************************************
 dim delta1% : delta1% = 10
 dim delta2% : delta2% = 10
 dim delta3% : delta3% = 10
 dim delta4% : delta4% = 10
 dim delta5% : delta5% = 10
 dim delta6% : delta6% = 10

' *** LKW erstellen ************************************************************
button 1 : top 1,40  : left 1,10  : caption 1,"LKW1"
button 2 : top 2,70  : left 2,400 : caption 2,"LKW2"
button 3 : top 3,100 : left 3,10  : caption 3,"LKW3"
button 4 : top 4,130 : left 4,400 : caption 4,"LKW4"
button 5 : top 5,160 : left 5,10  : caption 5,"LKW5"
button 6 : top 6,190 : left 6,400 : caption 6,"LKW6"
' button 7 : top 7,200 : left 7,400 : caption 7,"LKW7"
' button 8 : top 8,200 : left 8,400 : caption 8,"LKW8"


' *** STOP_BUTTEN erstellen ****************************************************
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt


' *** TIMER initialisieren *****************************************************
 timer 11 : timer_interval 11,60
 timer 12 : timer_interval 12,300
 timer 13 : timer_interval 13,300
 timer 14 : timer_interval 14,300
 timer 15 : timer_interval 15,300
 timer 16 : timer_interval 16,300
 gosub activate_timers

 end


' *** PROGRAM ABLAUF ***********************************************************
 activate_timers:
 on_timer 11,LKW1
 on_timer 12,LKW2
 on_timer 13,LKW3
 on_timer 14,LKW4
 on_timer 15,LKW5
 on_timer 16,LKW6
 return

 LKW1:
 timer_off_all
 if (left(1)<10) or (left(1)>400) then delta1% = 0 - delta1%
 left 1,left(1) + delta1%
 gosub activate_timers
 return

 LKW2:
 timer_off_all
 if (left(2)<10) or (left(2)>400) then delta2% = 0 - delta2%
 left 2,left(2) + delta2%
 gosub activate_timers
 return

 LKW3:
 timer_off_all
 if (left(3)<10) or (left(3)>400) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 gosub activate_timers
 return

 LKW4:
 timer_off_all
 if (left(4)<10) or (left(4)>400) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 gosub activate_timers
 return

 LKW5:
 timer_off_all
 if (left(5)<10) or (left(5)>400) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 gosub activate_timers
 return

 LKW6:
 timer_off_all
 if (left(6)<10) or (left(6)>400) then delta6% = 0 - delta6%
 left 6,left(6) + delta6%
 gosub activate_timers
 return

 halt:
 timer_off_all
 terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5623
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 15:00

@Severin

L’identificateur 11 est déjà pris pour un BUTTON.
Modifie le numéro du TIMER 11 par TIMER 110 (ligne 21 et ligne 32) par exemple et ça marchera.

The identifier 11 is already taken for a BUTTON.
Modify the number of the TIMER 11 by TIMER 110 (line 21 and line 32) for example and that will  work.


Die Nummer 11 ist für einen BUTTON schon gehalten.
Ändere die Nummer des TIMER 11 von TIMER 110 (Linie 21 und Linie 32) zum Beispiel und das wird gehen.


Dernière édition par papydall le Sam 29 Juin 2013 - 15:13, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 15:10

@papydall

Danke papydall

Version 2 von Jicehel ist ok.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 15:14

@ Klaus
@Jicehel

Wo ist das Problem der ersten Versionen.
Die gefallen mir besser da ich jedem Fahrzeug einen eigenen Weg geben kann.

@ Klaus
@ Jicehel

Where is the problem of the first versions.
I like them better because I can give each vehicle its own way.

@ Klaus
@ Jicehel

Où est le problème des premières versions.
Je les aime mieux parce que je peux donner à chaque véhicule son propre chemin.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 16:14

le problème est que tu fais des boucles pour chaque véhicule les une à la suite des autres. tes voitures ne peuvent donc pas bouger en même temps.

Pour les faire bouger selon leur propre déplacement, il te suffit de te faire une tableau de déplacement (des cases virutelles si tu veux)

Tu peux par exemple implémenter ça sous la forme d'un tableau en supposant par exemple que chaque voiture a 5 mouvements, ça peut donner quelque chose de ce style.

(Bon pour ne pas perdre trop de temps, je l'ai implémenté avec 3 voitures seulement, après tu n'a plus qu'à adapter un peu ...)

Code:
label main, halt

dim i%,sens%
dim nb_car% : nb_car% = 3


dim v%(nb_car%)
  v%(1)  = 10  : v%(2)  = 5  : v%(3)  = 9

dim depl_h%(nb_car%,5), depl_v%(nb_car%,5), delta_h%(nb_car%), delta_v%(nb_car%), pos%(nb_car%)

depl_h%(1,1) = 100 : depl_v%(1,1) = 0
depl_h%(1,2) = 0  : depl_v%(1,2) = 50
depl_h%(1,3) = 200 : depl_v%(1,3) = 0
depl_h%(1,4) = 0  : depl_v%(1,4) = -50
depl_h%(1,5) = 200 : depl_v%(1,5) = 0

depl_h%(2,1) = 50  : depl_v%(2,1) = 0
depl_h%(2,2) = 100 : depl_v%(2,2) = 0
depl_h%(2,3) = 0  : depl_v%(2,3) = -50
depl_h%(2,4) = 200 : depl_v%(2,4) = 0
depl_h%(2,5) = 100 : depl_v%(2,5) = 50

depl_h%(3,1) = 300 : depl_v%(3,1) = 0
depl_h%(3,2) = 0  : depl_v%(3,2) = -50
depl_h%(3,3) =-100 : depl_v%(3,3) = 0
depl_h%(3,4) = 0  : depl_v%(3,4) = 50
depl_h%(3,5) = 300 : depl_v%(3,5) = 0

for i%=1 to nb_car%
  button i% : top i%,10+30*i%  : left i%,10  : caption i%,"LKW"+STR$(i%)
  pos%(i%) = 0
next i%
button 99 : left 99,200 : caption 99,"Stop" : on_click 99,halt

timer 98 : timer_interval 98,60 : on_timer 98,main

end


main:
  timer_off_all
  for i%=1 to nb_car%
    if delta_h%(i%)=0 and delta_v%(i%) = 0
      sens% = v%(i%)/abs(v%(i%))
      pos%(i%)  =  pos%(i%) + sens%
      if pos%(i%) < 1 then pos%(i%) = 1
      if pos%(i%) > 5 then pos%(i%) = 5
      delta_h%(i%) = sens% * depl_h%(i%,pos%(i%))
      delta_v%(i%) = sens% * depl_v%(i%,pos%(i%))
    end_if
    if (left(i%)<10) or (left(i%)>400) then v%(i%) = 0 - v%(i%)
    if abs(delta_h%(i%)) > 0
        delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%))
        if delta_h%(i%) < 0
            left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens%
        else
            left i%,left(i%) + v%(i%)
        end_if
    end_if
    if abs(delta_v%(i%)) > 0
        delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%))
        if delta_v%(i%) < 0
            top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens%
        else
        end_if
            top i%,top(i%) + v%(i%)
    end_if
  next i%
  timer_on 98
return


halt:
  timer_off_all
  terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 29 Juin 2013 - 23:02

@Jicehel

Danke für die neu Version.
Aber die "main" hat einen Fehler.
Ich kann den nicht finden. Zu stark verknüpft.

Stelle mal die neie Version ein-
Wenn es deine Zeit erlaubt, bitte mal testen.

@ Jicehel

Merci pour la nouvelle version.
Mais le "principal" comporte une erreur.
Je ne peux pas trouver le fichier. Fortement lié.

Point fois le Neie une version
Si votre temps le permet, s'il vous plaît les temps de test.



Code:
' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
'
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-40
caption      0000,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
color        0000,000,000,000        :' schwarz / black
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700
sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700
sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700
sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700
sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700
sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700
sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700
sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700
sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700
sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700
sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700
sub_menu 9712:CAPTION 9712," ":parent 9712,9700
sub_menu 9713:CAPTION 9713," ":parent 9713,9700
sub_menu 9714:CAPTION 9714," ":parent 9714,9700
sub_menu 9715:CAPTION 9715," ":parent 9715,9700
sub_menu 9716:CAPTION 9716," ":parent 9716,9700
sub_menu 9717:CAPTION 9717," ":parent 9717,9700
sub_menu 9718:CAPTION 9718," ":parent 9718,9700
sub_menu 9719:CAPTION 9719," ":parent 9719,9700
sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS% :  SEITE_RECHTS% = (SCREEN_X - 150)
DIM SEITE_LINKS%  :  SEITE_LINKS%  = 150
DIM SEITE_OBEN%
DIM SEITE_UNTEN%
'
' *** FABRIK erstellen *********************************************************
BUTTON  9800
CAPTION  9800,"Fabrik Severin"
TOP      9800,108
LEFT    9800,10
HEIGHT  9800,300
WIDTH    9800,75
'
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON  9810
'
TOP      9810,108
LEFT    9810,85
HEIGHT  9810,300
WIDTH    9810,19
'
' *** Lager03 erstellen ********************************************************
BUTTON  9860
CAPTION  9860,"Lager03 Severin"
TOP    9860,408
LEFT    9860,10
HEIGHT  9860,300
WIDTH  9860,75
'
' *** RAMPEN LAGER03 erstellen *************************************************
BUTTON  9870
'
TOP    9870,408
LEFT    9870,85
HEIGHT  9870,300
WIDTH  9870,19
'
' *** Lager01 erstellen ********************************************************
BUTTON  9820
CAPTION  9820,"Lager01 Severin"
TOP      9820,108
LEFT    9820,1480
HEIGHT  9820,300
WIDTH    9820,85
'
' *** RAMPEN LAGER01 erstellen *************************************************
BUTTON  9830
'
TOP    9830,108
LEFT    9830,1460
HEIGHT  9830,300
WIDTH  9830,19
'
' *** Lager02 erstellen ********************************************************
BUTTON  9840
CAPTION  9840,"Lager02 Severin"
TOP    9840,398
LEFT    9840,1480
HEIGHT  9840,300
WIDTH  9840,85
'
' *** RAMPEN LAGER02 erstellen *************************************************
BUTTON  9850
'
TOP    9850,398
LEFT    9850,1460
HEIGHT  9850,300
WIDTH  9850,19
'
' *** LABEL ERSTELLEN **********************************************************
 label main
 label halt
 label start
' ***
 dim i%
 dim sens%
 dim nb_car% : nb_car% = 3

dim v%(nb_car%)

 v%(1) = 10 : v%(2) = 8 : v%(3) = 9
' ***
dim depl_h%(nb_car%,5)
' ***
dim depl_v%(nb_car%,5)
' ***
dim delta_h%(nb_car%)
' ***
dim delta_v%(nb_car%)
' ***
dim pos%(nb_car%)
'
' *** DATEN FÜR LKW 001 ********************************************************
 depl_h%(1,1) = 660 : depl_v%(1,1) = 0
 depl_h%(1,2) = 000 : depl_v%(1,2) = 100
 depl_h%(1,3) = 000 : depl_v%(1,3) = 0
 depl_h%(1,4) = 000 : depl_v%(1,4) = -100
 depl_h%(1,5) = 660 : depl_v%(1,5) = 0
' *** DATEN FÜR LKW 002 ********************************************************
 depl_h%(2,1) = 660 : depl_v%(2,1) = 0
 depl_h%(2,2) = 000 : depl_v%(2,2) = 200
 depl_h%(2,3) = 000 : depl_v%(2,3) = 0
 depl_h%(2,4) = 000 : depl_v%(2,4) = -200
 depl_h%(2,5) = 660 : depl_v%(2,5) = 0
' *** DATEN FÜR LKW 003 ********************************************************
 depl_h%(3,1) = 660 : depl_v%(3,1) = 0
 depl_h%(3,2) = 000 : depl_v%(3,2) = 150
 depl_h%(3,3) = 000 : depl_v%(3,3) = 0
 depl_h%(3,4) = 000 : depl_v%(3,4) = -150
 depl_h%(3,5) = 660 : depl_v%(3,5) = 0
' *** SYMBOLE FÜR LKW erstellen ************************************************
for i% = 1 to nb_car%
  button  i%
  top    i%,80+30*i%
  left    i%,100
  width  i%,45
  height  i%,25
  caption i%,"LKW"+STR$(i%)
  pos%(i%) = 0
next i%
' ***
ON_CLICK 9701,halt
 ' ON_CLICK 9702,area02
 ' ON_CLICK 9703,area03
 ' ON_CLICK 9704,area04
 ' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
ON_CLICK 9720,start
'
end
'
' *** TIMER INITIALISIERUNG ***************************************************
 start:
 timer 9998 : timer_interval 9998,60 : on_timer 9998,main
 '
 ' *****************************************************************************
 ' *****************************************************************************
 main:
 timer_off_all
 '
 for i% = 1 to nb_car%
 '
 if delta_h%(i%)=0 and delta_v%(i%) = 0
 sens% = v%(i%)/abs(v%(i%))
 pos%(i%) = pos%(i%) + sens%
 if pos%(i%) < 1 then pos%(i%) = 1
 if pos%(i%) > 5 then pos%(i%) = 5
 delta_h%(i%) = sens% * depl_h%(i%,pos%(i%))
 delta_v%(i%) = sens% * depl_v%(i%,pos%(i%))
 end_if
' ***
 if (left(i%)<100) or (left(i%)>1421) then v%(i%) = 0 - v%(i%)
 if abs(delta_h%(i%)) > 0
 delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%))
 if delta_h%(i%) < 0
 left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens%
 else
 left i%,left(i%) + v%(i%)
 end_if
 end_if
' ***
 if abs(delta_v%(i%)) > 0
 delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%))
 if delta_v%(i%) < 0
 top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens%
 else
 end_if
 top i%,top(i%) + v%(i%)
 end_if
'
 next i%
'
 timer_on 9998
 '
 return
 '
' ******************************************************************************
' *** PROGRAMM ANHALTEN ********************************************************
 halt:
 timer_off_all
 terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Dim 30 Juin 2013 - 3:25

ok, sorry Severin, just came back.

I have watch the program and i have seen that i forgot to reinit the counters as they should.
So i have directly modified your program with good values.

Code:

' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
'
dim i%

' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
top 0,0 : LEFT 0,0 : width 0,screen_x : height 0,SCREEN_Y-80 : color 0,0,0,0 :' schwarz / black
caption 0,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
for i% = 1 to 20
 sub_menu 9700 + i% : parent 9700 + i%,9700
 select i%
   case 1 : caption 9701," STOP "
   case 2 : caption 9702," START LKW01 "
   case 3 : caption 9703," START LKW02 "
   case 4 : caption 9704," START LKW03 "
   case 5 : caption 9705," START LKW04 "
   case 6 : caption 9706," START LKW05 "
   case 7 : caption 9707," START LKW06 "
   case 8 : caption 9708," START LKW07 "
   case 9 : caption 9709," START LKW08 "
   case 10: caption 9710," START LKW09 "
   case 11: caption 9711," START LKW10 "
   case 20: caption 9720," START LKW all "
 end_select
next i%
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS% :  SEITE_RECHTS% = (SCREEN_X - 150)
DIM SEITE_LINKS%  :  SEITE_LINKS%  = 100
DIM SEITE_OBEN%
DIM SEITE_UNTEN%
'
' *** FABRIK erstellen *********************************************************
BUTTON  9800 : CAPTION  9800,"Fabrik Severin"
TOP      9800,108 : LEFT    9800,10  :  HEIGHT  9800,300 : WIDTH    9800,75
'
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON  9810
TOP      9810,108 : LEFT    9810,85 : HEIGHT  9810,300 : WIDTH    9810,19
'
' *** Lager03 erstellen ********************************************************
BUTTON  9860 : CAPTION  9860,"Lager03 Severin"
TOP    9860,408 : LEFT    9860,10 : HEIGHT  9860,300 : WIDTH  9860,75
'
' *** RAMPEN LAGER03 erstellen *************************************************
BUTTON  9870 : TOP    9870,408 : LEFT   9870,85 : HEIGHT  9870,300 : WIDTH  9870,19
'
' *** Lager01 erstellen ********************************************************
BUTTON  9820 : CAPTION  9820,"Lager01 Severin" : TOP 9820,108 : LEFT    9820,1480
HEIGHT  9820,300 : WIDTH    9820,85
'
' *** RAMPEN LAGER01 erstellen *************************************************
BUTTON  9830 : TOP    9830,108 : LEFT    9830,1460 : HEIGHT  9830,300 : WIDTH  9830,19
'
' *** Lager02 erstellen ********************************************************
BUTTON  9840  : CAPTION  9840,"Lager02 Severin"
TOP 9840,398 : LEFT    9840,1480 : HEIGHT  9840,300
WIDTH  9840,85
'
' *** RAMPEN LAGER02 erstellen *************************************************
BUTTON  9850
TOP    9850,398: LEFT    9850,1460 : HEIGHT  9850,300 : WIDTH  9850,19
'
' *** LABEL ERSTELLEN **********************************************************
label main, halt, start
' ***
dim sens%,dir%
dim nb_car% : nb_car% = 3
dim v%(nb_car%)

v%(1) = 10 : v%(2) = 8 : v%(3) = 9
' ***
dim depl_h%(nb_car%,5)
' ***
dim depl_v%(nb_car%,5)
' ***
dim delta_h%(nb_car%)
' ***
dim delta_v%(nb_car%)
' ***
dim pos%(nb_car%)
'
' *** DATEN FÜR LKW 001 ********************************************************
depl_h%(1,1) = 660 : depl_v%(1,1) = 0
depl_h%(1,2) = 000 : depl_v%(1,2) = 100
depl_h%(1,3) = 100 : depl_v%(1,3) = 0
depl_h%(1,4) = 000 : depl_v%(1,4) = -100
depl_h%(1,5) = 660 : depl_v%(1,5) = 0
' *** DATEN FÜR LKW 002 ********************************************************
depl_h%(2,1) = 660 : depl_v%(2,1) = 0
depl_h%(2,2) = 000 : depl_v%(2,2) = 200
depl_h%(2,3) = 100 : depl_v%(2,3) = 0
depl_h%(2,4) = 000 : depl_v%(2,4) = -200
depl_h%(2,5) = 660 : depl_v%(2,5) = 0
' *** DATEN FÜR LKW 003 ********************************************************
depl_h%(3,1) = 660 : depl_v%(3,1) = 0
depl_h%(3,2) = 000 : depl_v%(3,2) = 150
depl_h%(3,3) = 100 : depl_v%(3,3) = 0
depl_h%(3,4) = 000 : depl_v%(3,4) = -150
depl_h%(3,5) = 660 : depl_v%(3,5) = 0
' *** SYMBOLE FÜR LKW erstellen ************************************************
for i% = 1 to nb_car%
 button  i%
 top    i%,80+30*i%  :   left    i%,SEITE_LINKS%  :  width  i%,45 :   height  i%,25
 caption i%,"LKW"+STR$(i%)
 pos%(i%) = 0
next i%
' ***
ON_CLICK 9701,halt
' ON_CLICK 9702,area02
' ON_CLICK 9703,area03
' ON_CLICK 9704,area04
' ON_CLICK 9705,area05
' ON_CLICK 9706,area06
' ON_CLICK 9707,area07
' ON_CLICK 9708,area08
' ON_CLICK 9709,area09
' ON_CLICK 9710,area10
' ON_CLICK 9711,area11
' ON_CLICK 9712,area12
' ON_CLICK 9713,area13
' ON_CLICK 9714,area14
' ON_CLICK 9715,area15
' ON_CLICK 9716,area16
' ON_CLICK 9717,area17
' ON_CLICK 9718,area18
' ON_CLICK 9719,area17
ON_CLICK 9720,start
timer 9998 : timer_interval 9998,60 : on_timer 9998,main : timer_off 9998
'
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
  timer_on 9998
return
'
' *****************************************************************************
' *****************************************************************************
main:
timer_off_all
'
for i% = 1 to nb_car%
'
if (left(i%)<SEITE_LINKS%) or (left(i%)>SEITE_RECHTS%) then v%(i%) = 0 - v%(i%)
 
if delta_h%(i%)=0 and delta_v%(i%) = 0
  sens% = v%(i%)/abs(v%(i%))
  pos%(i%) = pos%(i%) + sens%
  if pos%(i%) < 1 then pos%(i%) = 1
  if pos%(i%) > 5 then pos%(i%) = 5
  delta_h%(i%) = sens% * depl_h%(i%,pos%(i%))
  delta_v%(i%) = sens% * depl_v%(i%,pos%(i%))
end_if

if abs(delta_h%(i%)) > 0
   dir% = depl_h%(i%,pos%(i%))/abs(depl_h%(i%,pos%(i%)))
   delta_h%(i%) = abs(delta_h%(i%)) - abs(v%(i%))
   if delta_h%(i%) < 0
      left i%,left(i%) + (abs(v%(i%)) + delta_h%(i%))*sens%*dir%
      delta_h%(i%) = 0
   else
      left i%,left(i%) + v%(i%)*dir%
   end_if
end_if
' ***
if abs(delta_v%(i%)) > 0
  dir% = depl_v%(i%,pos%(i%))/abs(depl_v%(i%,pos%(i%)))
  delta_v%(i%) = abs(delta_v%(i%)) - abs(v%(i%))
  if delta_v%(i%) < 0
     top i% ,top(i%) + (abs(v%(i%)) + delta_v%(i%))*sens%*dir%
     delta_v%(i%) = 0
   else
      top i%,top(i%) + v%(i%)*dir%
   end_if
end_if
'
next i%
'
timer_on 9998
'
return
'
' ******************************************************************************
' *** PROGRAMM ANHALTEN ********************************************************
halt:
timer_off_all
terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Lun 1 Juil 2013 - 2:45

@Jicehel
@Panoramics

Danke für die neue Version.
Ich bin doch auf die erste Version zurück gegangen.
Es fehlten noch die Beladezeiten.

Achte auf Fahrzeug "LKW2".
Es hat jetzt Beladezeiten.

Eventuell ist der Code noch holprig, aber er läuft.

Verbesseungen sind willkommen. Auch von anderen Panoramics

Thanks for the new version.
I did go back to the first version.
It still lacked the loading times.

Pay attention to vehicle "LKW2".
It now has loading times.

Maybe the code is still rough, but it runs.

Improvements are welcome. By other Panoramics

Merci pour la nouvelle version.
Je ne reviens à la première version.
Il manquait encore les temps de chargement.

Faites attention aux véhicules "LKW2".
Il a maintenant temps de chargement.

Peut-être que le code est toujours rude, mais il fonctionne.

Les améliorations sont les bienvenues. En d'autres Panoramiques


Code:
' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
'
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-40
caption      0000,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
color        0000,000,000,000        :' schwarz / black
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
sub_menu 9701:CAPTION 9701," STOP ":parent 9701,9700
sub_menu 9702:CAPTION 9702," START LKW01 ":parent 9702,9700
sub_menu 9703:CAPTION 9703," START LKW02 ":parent 9703,9700
sub_menu 9704:CAPTION 9704," START LKW03 ":parent 9704,9700
sub_menu 9705:CAPTION 9705," START LKW04 ":parent 9705,9700
sub_menu 9706:CAPTION 9706," START LKW05 ":parent 9706,9700
sub_menu 9707:CAPTION 9707," START LKW06 ":parent 9707,9700
sub_menu 9708:CAPTION 9708," START LKW07 ":parent 9708,9700
sub_menu 9709:CAPTION 9709," START LKW08 ":parent 9709,9700
sub_menu 9710:CAPTION 9710," START LKW09 ":parent 9710,9700
sub_menu 9711:CAPTION 9711," START LKW010 ":parent 9711,9700
sub_menu 9712:CAPTION 9712," ":parent 9712,9700
sub_menu 9713:CAPTION 9713," ":parent 9713,9700
sub_menu 9714:CAPTION 9714," ":parent 9714,9700
sub_menu 9715:CAPTION 9715," ":parent 9715,9700
sub_menu 9716:CAPTION 9716," ":parent 9716,9700
sub_menu 9717:CAPTION 9717," ":parent 9717,9700
sub_menu 9718:CAPTION 9718," ":parent 9718,9700
sub_menu 9719:CAPTION 9719," ":parent 9719,9700
sub_menu 9720:CAPTION 9720," START LKW all ":parent 9720,9700
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS% :  SEITE_RECHTS% = (SCREEN_X - 150-30)
DIM SEITE_LINKS%  :  SEITE_LINKS%  = 100
DIM SEITE_OBEN%
DIM SEITE_UNTEN%
'
' *** FABRIK erstellen *********************************************************
BUTTON  9800
CAPTION  9800,"Fabrik Severin"
TOP      9800,108
LEFT    9800,10
HEIGHT  9800,300
WIDTH    9800,85
'
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON  9810
'
TOP      9810,108
LEFT    9810,95
HEIGHT  9810,300
WIDTH    9810,19
'
' *** Lager03 erstellen ********************************************************
BUTTON  9860
CAPTION  9860,"Lager03 Severin"
TOP    9860,408
LEFT    9860,10
HEIGHT  9860,300
WIDTH  9860,85
'
' *** RAMPEN LAGER03 erstellen *************************************************
BUTTON  9870
'
TOP    9870,408
LEFT    9870,95
HEIGHT  9870,300
WIDTH  9870,19
'
' *** Lager01 erstellen ********************************************************
BUTTON  9820
CAPTION  9820,"Lager01 Severin"
TOP      9820,108
LEFT    9820,SCREEN_X-120
HEIGHT  9820,300
WIDTH    9820,85
'
' *** RAMPEN LAGER01 erstellen *************************************************
BUTTON  9830
'
TOP    9830,108
LEFT    9830,SCREEN_X-140
HEIGHT  9830,300
WIDTH  9830,19
'
' *** Lager02 erstellen ********************************************************
BUTTON  9840
CAPTION  9840,"Lager02 Severin"
TOP    9840,408
LEFT    9840,SCREEN_X-120
HEIGHT  9840,300
WIDTH  9840,85
'
' *** RAMPEN LAGER02 erstellen *************************************************
BUTTON  9850
'
TOP    9850,408
LEFT    9850,SCREEN_X-140
HEIGHT  9850,300
WIDTH  9850,19
'
' *** LABEL ERSTELLEN **********************************************************
 label main
 label halt
 label start
 label NACHRECHTES
 label NACHLINKS
 label STEHERECHTS
 label STEHELINKS
' *** LKW GESCHWINDIGKEIT EINSTELLEN *******************************************
dim delta1% : delta1% = 10
dim delta2% : delta2% = 10
dim delta3% : delta3% = 10
dim delta4% : delta4% = 10
dim delta5% : delta5% = 10
dim delta6% : delta6% = 10
dim delta7% : delta7% = 10
dim delta8% : delta8% = 10
dim delta9% : delta9% = 10
dim delta10% : delta10% = 10

' ******************************************************************************
dim v1% : v1% = 1
dim v2% : v2% = 1
dim v3% : v3% = 1
dim v4% : v4% = 1
dim v5% : v5% = 1
dim v6% : v6% = 1
dim v7% : v7% = 1
dim v8% : v8% = 1
dim v9% : v9% = 1
dim v10% : v10% = 1

' ******************************************************************************
dim cpt1% : cpt1% = v1%
dim cpt2% : cpt2% = v2%    : DIM i2%
dim cpt3% : cpt3% = v3%
dim cpt4% : cpt4% = v4%
dim cpt5% : cpt5% = v5%
dim cpt6% : cpt6% = v6%
dim cpt7% : cpt7% = v7%
dim cpt8% : cpt8% = v8%
dim cpt9% : cpt9% = v9%
dim cpt10% : cpt10% = v10%

' ******************************************************************************
dim k2%
dim k1%

 button 01 : top 01,110  : left 01,0100 : width 01,45 : height 01,25 : caption 01,"LKW1"
 button 11 : top 11,110  : left 11,0015 : width 11,45 : height 11,25 : caption 11,"0000"
 button 21 : top 21,110  : left 21,SCREEN_X-90 : width 21,45 : height 21,25 : caption 21,"0000"

 button 02 : top 02,140  : left 02,0100 : width 02,45 : height 02,25 : caption 02,"LKW2"
 button 12 : top 12,140  : left 12,0015 : width 12,45 : height 12,25 : caption 12,"0000"
 button 22 : top 22,140  : left 22,SCREEN_X-90 : width 22,45 : height 22,25 : caption 22,"0000"

 button 03 : top 03,170  : left 03,0100 : width 03,45 : height 03,25 : caption 03,"LKW3"
 button 13 : top 13,170  : left 13,0015 : width 13,45 : height 13,25 : caption 13,"0000"
 button 23 : top 23,170  : left 23,SCREEN_X-90 : width 23,45 : height 23,25 : caption 23,"0000"

 button 04 : top 04,200  : left 04,0100 : width  04,45 : height 04,25 : caption 04,"LKW4"
 button 14 : top 14,200  : left 14,0015 : width  14,45 : height 14,25 : caption 14,"0000"
 button 24 : top 24,200  : left 24,SCREEN_X-90 : width  24,45 : height 24,25 : caption 24,"0000"

 button 05 : top 05,230  : left 05,0100 : width  05,45 : height 05,25 : caption 05,"LKW5"
 button 15 : top 15,230  : left 15,0015 : width  15,45 : height 15,25 : caption 15,"0000"
 button 25 : top 25,230  : left 25,SCREEN_X-90 : width  25,45 : height 25,25 : caption 25,"0000"

 button 06 : top 06,260  : left 06,0100 : width  06,45 : height 06,25 : caption 06,"LKW6"
 button 16 : top 16,260  : left 16,0015 : width  16,45 : height 16,25 : caption 16,"0000"
 button 26 : top 26,260  : left 26,SCREEN_X-90 : width  26,45 : height 26,25 : caption 26,"0000"

 button 07 : top 07,290  : left 07,0100 : width  07,45 : height 07,25 : caption 07,"LKW7"
 button 17 : top 17,290  : left 17,0015 : width  17,45 : height 17,25 : caption 17,"0000"
 button 27 : top 27,290  : left 27,SCREEN_X-90 : width  27,45 : height 27,25 : caption 27,"0000"

 button 08 : top 08,320  : left 08,0100 : width  08,45 : height 08,25 : caption 08,"LKW8"
 button 18 : top 18,320  : left 18,0015 : width  18,45 : height 18,25 : caption 18,"0000"
 button 28 : top 28,320  : left 28,SCREEN_X-90 : width  28,45 : height 28,25 : caption 28,"0000"

 button 09 : top 09,350  : left 09,0100 : width 09,45 : height 09,25 : caption 09,"LKW9"
 button 19 : top 19,350  : left 19,0015 : width 19,45 : height 19,25 : caption 19,"0000"
 button 29 : top 29,350  : left 29,SCREEN_X-90 : width 29,45 : height 29,25 : caption 29,"0000"

 button 10 : top 10,380  : left 10,0100 : width 10,45 : height 10,25 : caption 10,"LKW10"
 button 20 : top 20,380  : left 20,0015 : width 20,45 : height 20,25 : caption 20,"0000"
 button 30 : top 30,380  : left 30,SCREEN_X-90 : width 30,45 : height 30,25 : caption 30,"0000"

' ***
ON_CLICK 9701,halt
 ' ON_CLICK 9702,area02
 ' ON_CLICK 9703,area03
 ' ON_CLICK 9704,area04
 ' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
ON_CLICK 9720,start
'
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
timer 9998
timer_interval 9998,60
on_timer 9998,main
'
' *****************************************************************************
' *** PROGRAMM LKW FÄHRT ******************************************************
main:
timer_off_all
cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1()
cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2()
cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3()
cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4()
cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5()
cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6()
cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7()
cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8()
cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9()
cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10()
on_timer 9998,main
return

' ******************************************************************************
' ******************************************************************************
' *** LKW 1 FAHREN *************************************************************
 sub LKW1()
 if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1%
 left 1,left(1) + delta1%
 end_sub

' ******************************************************************************
' ******************************************************************************
' *** LKW 2 FAHREN *************************************************************
 sub LKW2()
 if k2% = 101 then goto NACHLINKS
 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES
 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS
 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS
'
 stop
' *** Fahrt nach rechts *******************************************************
NACHRECHTES:
caption 12,"0000"
left 2,left(2) + delta2%
end_sub
' *** Steht rechts *************************************************************
STEHERECHTS:
k2% = k2% + 1
caption 22,k2%
if k2% = 101 then k1% = 0
if k2% = 101 then goto NACHLINKS
end_sub
' *****************************************************************************
' *** Fahrt nach links ********************************************************
 NACHLINKS:
caption 22,"0000"
if (left(2)<102) then goto STEHELINKS
left 2,left(2) - delta2%
end_sub
 ' *** Steht links *************************************************************
STEHELINKS:
left 02,0100
k1% = k1% + 1
caption 12,k1%
if k1% = 101 then k2% = 0
if k1% = 101 then goto NACHLINKS
end_sub
' ******************************************************************************
' ******************************************************************************
' *** LKW 3 FAHREN *************************************************************
  sub LKW3()
 if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 end_sub

 sub LKW4()
 if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 end_sub

 sub LKW5()
 if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 end_sub

 sub LKW6()
 if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6%
 left 6,left(6) + delta6%
 end_sub

 sub LKW7()
 if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7%
 left 7,left(7) + delta7%
 end_sub

 sub LKW8()
 if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8%
 left 8,left(8) + delta8%
 end_sub

 sub LKW9()
 if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9%
 left 9,left(9) + delta9%
 end_sub

 sub LKW10()
 if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10%
 left 10,left(10) + delta10%
 end_sub

 halt:
 timer_off_all
 terminate


NEU 01.07.2013 10:00
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Mar 2 Juil 2013 - 21:42

Hallo an alle,

wie bekomme ich die rote Lini fest, ohne das der LKW sie zerstört ?

Hello to all,

how do I get the red Lini fixed without destroying the truck?

Bonjour à tous,

comment puis-je obtenir le Lini rouge fixe sans détruire le camion?

Neu 2.7.2013 20:00

Code:
' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
'
' *** FORM ERSTELLEN UND AN BILDSCHIRM ANPASSEN ********************************
' FORM 0000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-40
caption      0000,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
color        0000,000,000,000        :' schwarz / black
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
sub_menu 9701:CAPTION 9701," STOP LKW all":parent 9701,9700
sub_menu 9702:CAPTION 9702," START LKW all ":parent 9702,9700
sub_menu 9703:CAPTION 9703," START LKW01 ":parent 9703,9700
sub_menu 9704:CAPTION 9704," START LKW02 ":parent 9704,9700
sub_menu 9705:CAPTION 9705," START LKW03 ":parent 9705,9700
sub_menu 9706:CAPTION 9706," START LKW04 ":parent 9706,9700
sub_menu 9707:CAPTION 9707," START LKW05 ":parent 9707,9700
sub_menu 9708:CAPTION 9708," START LKW06 ":parent 9708,9700
sub_menu 9709:CAPTION 9709," START LKW07 ":parent 9709,9700
sub_menu 9710:CAPTION 9710," START LKW08 ":parent 9710,9700
sub_menu 9711:CAPTION 9711," START LKW09 ":parent 9711,9700
sub_menu 9712:CAPTION 9712," START LKW10 ":parent 9712,9700
sub_menu 9713:CAPTION 9713," ":parent 9713,9700
sub_menu 9714:CAPTION 9714," ":parent 9714,9700
sub_menu 9715:CAPTION 9715," ":parent 9715,9700
sub_menu 9716:CAPTION 9716," ":parent 9716,9700
sub_menu 9717:CAPTION 9717," ":parent 9717,9700
sub_menu 9718:CAPTION 9718," ":parent 9718,9700
sub_menu 9719:CAPTION 9719," DATEN ":parent 9719,9700
sub_menu 9720:CAPTION 9720," ":parent 9720,9700
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS% :  SEITE_RECHTS% = (SCREEN_X - 150-20)
DIM SEITE_LINKS%  :  SEITE_LINKS%  = 100
DIM SEITE_OBEN%
DIM SEITE_UNTEN%
DIM NR%
DIM Zeile%


' ******************************************************************************
' *** FABRIK erstellen *********************************************************
BUTTON 9800 :TOP 9800,105 :LEFT 9800,10 :WIDTH 9800,85 :HEIGHT 9800,305 :CAPTION 9800,"Fabrik Severin"
'
' *** RAMPEN FABRIK erstellen **************************************************
BUTTON 9810 :TOP 9810,105 :LEFT 9810,95 :WIDTH 9810,19 :HEIGHT 9810,305
'
' *** Lager03 erstellen ********************************************************
BUTTON 9860 :TOP 9860,415 :LEFT 9860,10 :WIDTH 9860,85 :HEIGHT 9860,303 :CAPTION  9860,"Lager03 Severin"
'
' *** RAMPEN LAGER03 erstellen *************************************************
BUTTON 9870 :TOP 9870,415 :LEFT 9870,95 : WIDTH 9870,19 :HEIGHT 9870,303
'
' *** Lager01 erstellen ********************************************************
BUTTON 9820 :TOP 9820,105 :LEFT 9820,SCREEN_X-110 :WIDTH 9820,85  :HEIGHT 9820,303 :CAPTION 9820,"Lager01 Severin"
'
' *** RAMPEN LAGER01 erstellen *************************************************
BUTTON 9830 :TOP 9830,105 :LEFT 9830,SCREEN_X-130 :WIDTH 9830,19  :HEIGHT 9830,303
'
' *** Lager02 erstellen ********************************************************
BUTTON 9840 :TOP 9840,415 :LEFT 9840,SCREEN_X-110 : WIDTH 9840,85 :HEIGHT 9840,303 :CAPTION  9840,"Lager02 Severin"
'
' *** RAMPEN LAGER02 erstellen *************************************************
BUTTON 9850 :TOP 9850,415 :LEFT 9850,SCREEN_X-130 : WIDTH 9850,19 :HEIGHT 9850,303
'
' *** PARKINGZONE ERSTELLEN ****************************************************
BUTTON 9890 :TOP 9890,((SCREEN_y/4)*3)-5 :LEFT 9890,SCREEN_X/2-150 : WIDTH 9890,80 :HEIGHT 9890,160 :CAPTION  9890,"Parking Zone1"
BUTTON 9895 :TOP 9895,((SCREEN_y/4)*3)-5 :LEFT 9895,SCREEN_X/2+70 : WIDTH 9895,80 :HEIGHT 9895,160 :CAPTION  9895,"Parking Zone2"
'
' ******************************************************************************
' *** LABEL ERSTELLEN **********************************************************
 label main
 label halt
 label start
 label NACHRECHTES_2
 label NACHLINKS_2
 label STEHERECHTS_2
 label STEHELINKS_2
'
label  AUSWAHL_1  :label  AUSWAHL_2 :label  AUSWAHL_3 :label  AUSWAHL_4
label  AUSWAHL_5  :label  AUSWAHL_6 :label  AUSWAHL_7 :label  AUSWAHL_8
label  AUSWAHL_9  :label  AUSWAHL_10
'
' *** LKW GESCHWINDIGKEIT EINSTELLEN *******************************************
dim delta1% : delta1% = 10 :dim delta2% : delta2% = 20 :dim delta3% : delta3% = 10
dim delta4% : delta4% = 10 :dim delta5% : delta5% = 10 :dim delta6% : delta6% = 10
dim delta7% : delta7% = 10 :dim delta8% : delta8% = 10 :dim delta9% : delta9% = 10
dim delta10% : delta10% = 10

' ******************************************************************************
dim v1% : v1% = 1
dim v2% : v2% = 1
dim v3% : v3% = 1
dim v4% : v4% = 1
dim v5% : v5% = 1
dim v6% : v6% = 1
dim v7% : v7% = 1
dim v8% : v8% = 1
dim v9% : v9% = 1
dim v10% : v10% = 1

' ******************************************************************************
dim cpt1% : cpt1% = v1%
dim cpt2% : cpt2% = v2%    : DIM i2%
dim cpt3% : cpt3% = v3%
dim cpt4% : cpt4% = v4%
dim cpt5% : cpt5% = v5%
dim cpt6% : cpt6% = v6%
dim cpt7% : cpt7% = v7%
dim cpt8% : cpt8% = v8%
dim cpt9% : cpt9% = v9%
dim cpt10% : cpt10% = v10%

' *** BELADEZEIT : ENTLADEZEIT *************************************************
DIM B_ZEIT_01% : DIM B_ZEIT_11%
DIM B_ZEIT_02% : DIM B_ZEIT_12%
DIM B_ZEIT_03% : DIM B_ZEIT_13%


DIM D_ZEIT_02% : DIM D_ZEIT_12%    :D_ZEIT_02% = 100 : D_ZEIT_12% = 110


DIM S_ZEIT_01% : DIM S_ZEIT_11%    :S_ZEIT_11% = 70
DIM S_ZEIT_02% : DIM S_ZEIT_12%    :S_ZEIT_12% = 100
DIM S_ZEIT_03% : DIM S_ZEIT_13%    :S_ZEIT_13% = 80
DIM S_ZEIT_04% : DIM S_ZEIT_14%    :S_ZEIT_14% = 110
DIM S_ZEIT_05% : DIM S_ZEIT_15%    :S_ZEIT_15% = 120
DIM S_ZEIT_06% : DIM S_ZEIT_16%    :S_ZEIT_16% = 100
DIM S_ZEIT_07% : DIM S_ZEIT_17%    :S_ZEIT_17% = 60
DIM S_ZEIT_08% : DIM S_ZEIT_18%    :S_ZEIT_18% = 100
DIM S_ZEIT_09% : DIM S_ZEIT_19%    :S_ZEIT_19% = 30
DIM S_ZEIT_10% : DIM S_ZEIT_20%    :S_ZEIT_20% = 90
'
' *** 5 x  LKW ERSTELLEN IN PARKINGZONE linke **********************************
Zeile% = -30
For NR% = 1 TO 5
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-140 :width NR%,45 :height NR%,25 :caption NR%,"LKW"+Str$(NR%)
NEXT NR%
'
' *** 5 x  LKW ERSTELLEN IN PARKINGZONE rechts *********************************
Zeile% = -30
For NR% = 6 TO 10
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+100 :width NR%,45 :height NR%,25 :caption NR%,"LKW"+Str$(NR%)
NEXT NR%
'
' *** 1. STANDZEITZÄHLER LINKS *************************************************
Zeile% = 80
For NR% = 11 TO 20
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 1. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = 80
For NR% = 21 TO 30
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-75 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 1. STANDPLATZNUMMER LINKS ************************************************
Zeile% = 80
For NR% = 31 TO 40
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%-30)
NEXT NR%
'
' *** 1. STANDPLATZNUMMER RECHTS ***********************************************
Zeile% = 80
For NR% = 41 TO 50
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-110 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%-40)
NEXT NR%
'
' *** 2. STANDZEITZÄHLER LINKS *************************************************
Zeile% = 390
For NR% = 111 TO 120
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 2. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = 390
For NR% = 121 TO 130
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-75 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 2. STANDPLATZNUMMER LINKS ************************************************
Zeile% = 390
For NR% = 131 TO 140
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%-120)
NEXT NR%
'
' *** 2. STANDPLATZNUMMER RECHTS ***********************************************
Zeile% = 390
For NR% = 141 TO 150
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-110 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%-130)
NEXT NR%
'
' Mittellinie zeichnen *********************************************************
2d_pen_color 255,0,0
2d_line SCREEN_X/2,70,SCREEN_X/2,SCREEN_Y -130


' ******************************************************************************
ON_CLICK 9701,halt
ON_CLICK 9702,start
 ' ON_CLICK 9703,area03
 ' ON_CLICK 9704,area04
 ' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
 ' ON_CLICK 9720,start
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
timer 9998
timer_interval 9998,60
on_timer 9998,main
'
' *****************************************************************************
' *** PROGRAMM LKW FÄHRT ******************************************************
main:
timer_off_all
cpt1%=cpt1%-1 : if cpt1% < 1 then cpt1% = v1% : LKW1()
' cpt2%=cpt2%-1 : if cpt2% < 1 then cpt2% = v2% : LKW2()
' cpt3%=cpt3%-1 : if cpt3% < 1 then cpt3% = v3% : LKW3()
' cpt4%=cpt4%-1 : if cpt4% < 1 then cpt4% = v4% : LKW4()
' cpt5%=cpt5%-1 : if cpt5% < 1 then cpt5% = v5% : LKW5()
' cpt6%=cpt6%-1 : if cpt6% < 1 then cpt6% = v6% : LKW6()
' cpt7%=cpt7%-1 : if cpt7% < 1 then cpt7% = v7% : LKW7()
' cpt8%=cpt8%-1 : if cpt8% < 1 then cpt8% = v8% : LKW8()
' cpt9%=cpt9%-1 : if cpt9% < 1 then cpt9% = v9% : LKW9()
' cpt10%=cpt10%-1 : if cpt10% < 1 then cpt10% = v10% : LKW10()
on_timer 9998,main
return

' ******************************************************************************
' ******************************************************************************
' *** LKW 1 FAHREN *************************************************************
 sub LKW1()
 ' *** Startzeit für Fahrt von Parking Zone nach rechts ************************
if S_ZEIT_01% = S_ZEIT_11% then goto AUSWAHL_1
S_ZEIT_01% = S_ZEIT_01% + 1
caption 11,S_ZEIT_01%
if S_ZEIT_01% = S_ZEIT_11% then goto AUSWAHL_1
end_sub
' ******************************************************************************
AUSWAHL_1:
 if (left(1)<SEITE_LINKS%) or (left(1)>SEITE_RECHTS%) then delta1% = 0 - delta1%
 left 1,left(1) + delta1%
 end_sub




' ******************************************************************************
' ******************************************************************************
' *** LKW 2 FAHREN *************************************************************
sub LKW2()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_02% = 100 then goto AUSWAHL_2
S_ZEIT_02% = S_ZEIT_02% + 1
caption 12,S_ZEIT_02%
if S_ZEIT_02% = 100 then goto AUSWAHL_2
end_sub
' ******************************************************************************
AUSWAHL_2:
 if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2
 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTES_2
 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS_2
 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS_2
'
 stop
' *** Fahrt nach rechts ********************************************************
NACHRECHTES_2:
caption 12,"0000"
left 2,left(2) + delta2%
end_sub
' *** Steht rechts *************************************************************
STEHERECHTS_2:
B_ZEIT_12% = B_ZEIT_12% + 1
caption 22,B_ZEIT_12%
if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0
if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2
end_sub
' *****************************************************************************
' *** Fahrt nach links ********************************************************
 NACHLINKS_2:
caption 22,"0000"
if (left(2)<102) then goto STEHELINKS_2
left 2,left(2) - delta2%
end_sub
 ' *** Steht links *************************************************************
STEHELINKS_2:
left 02,0100
B_ZEIT_02% = B_ZEIT_02% + 1
caption 12,B_ZEIT_02%
if B_ZEIT_02% = D_ZEIT_12% then B_ZEIT_12% = 0
if B_ZEIT_02% = D_ZEIT_12% then goto NACHLINKS_2
end_sub
' ******************************************************************************
' *** LKW 3 FAHREN *************************************************************
  sub LKW3()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3
S_ZEIT_03% = S_ZEIT_03% + 1
caption 13,S_ZEIT_03%
if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3
end_sub
' ******************************************************************************
AUSWAHL_3:
 if (left(3)<SEITE_LINKS%) or (left(3)>SEITE_RECHTS%) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 end_sub
' ******************************************************************************
 sub LKW4()
 ' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4
S_ZEIT_04% = S_ZEIT_04% + 1
caption 14,S_ZEIT_04%
if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4
end_sub
' ******************************************************************************
AUSWAHL_4:
 if (left(4)<SEITE_LINKS%) or (left(4)>SEITE_RECHTS%) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 end_sub
' ******************************************************************************
 sub LKW5()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5
S_ZEIT_05% = S_ZEIT_05% + 1
caption 15,S_ZEIT_05%
if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5
end_sub
' ******************************************************************************
AUSWAHL_5:
 if (left(5)<SEITE_LINKS%) or (left(5)>SEITE_RECHTS%) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 end_sub
' ******************************************************************************
 sub LKW6()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_06% = S_ZEIT_16% then goto AUSWAHL_6
S_ZEIT_06% = S_ZEIT_06% + 1
caption 16,S_ZEIT_06%
if S_ZEIT_06% = S_ZEIT_16% then goto AUSWAHL_6
end_sub
' ******************************************************************************
AUSWAHL_6:
 if (left(6)<SEITE_LINKS%) or (left(6)>SEITE_RECHTS%) then delta6% = 0 - delta6%
 left 6,left(6) + delta6%
 end_sub
' ******************************************************************************
 sub LKW7()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7
S_ZEIT_07% = S_ZEIT_07% + 1
caption 17,S_ZEIT_07%
if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7
end_sub
' ******************************************************************************
AUSWAHL_7:
 if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7%
 left 7,left(7) + delta7%
 end_sub
' ******************************************************************************
 sub LKW8()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8
S_ZEIT_08% = S_ZEIT_08% + 1
caption 18,S_ZEIT_08%
if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8
end_sub
' ******************************************************************************
AUSWAHL_8:
 if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8%
 left 8,left(8) + delta8%
 end_sub
' ******************************************************************************
 sub LKW9()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9
S_ZEIT_09% = S_ZEIT_09% + 1
caption 19,S_ZEIT_09%
if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9
end_sub
' ******************************************************************************
AUSWAHL_9:
 if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9%
 left 9,left(9) + delta9%
 end_sub
' ******************************************************************************
 sub LKW10()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10
S_ZEIT_10% = S_ZEIT_10% + 1
caption 20,S_ZEIT_10%
if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10
end_sub
' ******************************************************************************
AUSWAHL_10:
 if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10%
 left 10,left(10) + delta10%
 end_sub
' ******************************************************************************
 halt:
 timer_off_all
 terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10411
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: game for practice   Mar 2 Juil 2013 - 22:49

Das ist leider unmöglich. Alles, was Du auf Form 0 scheibst, sei es per PRINT oder 2D Kommandos zum Zeichnen, wird von allem Möglichen verwischt. Selbst ein Wordpad Fenster, das sich zeitweise über Dein Programmfenster legt, lässt diese Linie verschwinden.

Die Lösung ? Bilde ein Object PICTURE, dessen Höhe die Länge Deines Striches ist, und desses Breite 1 oder 2 Pixel ist. Dann gieb diesem Picture die entsprechende Farbe un plaziere es an die richtige Position - fertig.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Mar 2 Juil 2013 - 23:02

Danke Klaus
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 6 Juil 2013 - 2:11

Guten Abend an alle

Hier die neuste Version.

Code:

' ******************************************************************************
' ***  SIMULATION LKW-VERKEHR  FABRIK - LAGER  *********************************
' ******************************************************************************
' *** FORM 0000 ERSTELLEN UND AN BILDSCHIRM ANPASSEN ***************************
' FORM 0000
TOP          0000,0
LEFT          0000,0
width        0000,SCREEN_X
height        0000,SCREEN_Y-40
caption      0000,"SIMULATION LKW-VERKEHR  FABRIK - LAGER "
color        0000,000,000,000        :' schwarz / black
'
' ******************************************************************************
' *** ERSTELLEN DES HAUPTMENÜ 9701 bis 9720 ************************************
main_menu 9700
sub_menu 9701:CAPTION 9701," STOP LKW all":parent 9701,9700
sub_menu 9702:CAPTION 9702," START LKW all ":parent 9702,9700
sub_menu 9703:CAPTION 9703," DATA LKW01 ":parent 9703,9700
sub_menu 9704:CAPTION 9704," DATA LKW02 ":parent 9704,9700
sub_menu 9705:CAPTION 9705," DATA LKW03 ":parent 9705,9700
sub_menu 9706:CAPTION 9706," DATA LKW04 ":parent 9706,9700
sub_menu 9707:CAPTION 9707," DATA LKW05 ":parent 9707,9700
sub_menu 9708:CAPTION 9708," DATA LKW06 ":parent 9708,9700
sub_menu 9709:CAPTION 9709," DATA LKW07 ":parent 9709,9700
sub_menu 9710:CAPTION 9710," DATA LKW08 ":parent 9710,9700
sub_menu 9711:CAPTION 9711," DATA LKW09 ":parent 9711,9700
sub_menu 9712:CAPTION 9712," DATA LKW10 ":parent 9712,9700
sub_menu 9713:CAPTION 9713," ":parent 9713,9700
sub_menu 9714:CAPTION 9714," ":parent 9714,9700
sub_menu 9715:CAPTION 9715," ":parent 9715,9700
sub_menu 9716:CAPTION 9716," ":parent 9716,9700
sub_menu 9717:CAPTION 9717," ":parent 9717,9700
sub_menu 9718:CAPTION 9718," ":parent 9718,9700
sub_menu 9719:CAPTION 9719," ":parent 9719,9700
sub_menu 9720:CAPTION 9720," ":parent 9720,9700
'
' *** DARSTELLUNGS BILDSCHIRM DEFINIEREN ***************************************
DIM SEITE_RECHTS_00% :  SEITE_RECHTS_00% = SCREEN_X/2-24
DIM SEITE_LINKS_00%  :  SEITE_LINKS_00%  = SCREEN_X/2-120

DIM SEITE_RECHTS_01% :  SEITE_RECHTS_01% = SCREEN_X/2-24
DIM SEITE_LINKS_01%  :  SEITE_LINKS_01%  = SCREEN_X/2-120



DIM SEITE_OBEN%
DIM SEITE_UNTEN%
DIM NR%
DIM Zeile%

' ******************************************************************************
' *** FABRIK erstellen *********************************************************
EDIT 9800 :TOP 9800,105 :LEFT 9800,10 :WIDTH 9800,85 :HEIGHT 9800,305 : color 9800,50,140,15
' *** RAMPEN FABRIK erstellen **************************************************
EDIT 9810 :TOP 9810,105 :LEFT 9810,95 :WIDTH 9810,19 :HEIGHT 9810,305:color 9810,200,200,210
' *** Lager03 erstellen ********************************************************
EDIT 9860 :TOP 9860,415 :LEFT 9860,10 :WIDTH 9860,85 :HEIGHT 9860,303 : color 9860,150,20,30
' *** RAMPEN LAGER03 erstellen *************************************************
EDIT 9870 :TOP 9870,415 :LEFT 9870,95 : WIDTH 9870,19 :HEIGHT 9870,303:color 9870,200,200,210
' *** Lager01 erstellen ********************************************************
EDIT 9820 :TOP 9820,105 :LEFT 9820,SCREEN_X-120 :WIDTH 9820,85  :HEIGHT 9820,303 :color 9820,150,20,30
' *** RAMPEN LAGER01 erstellen *************************************************
EDIT 9830 :TOP 9830,105 :LEFT 9830,SCREEN_X-140 :WIDTH 9830,19  :HEIGHT 9830,303:color 9830,200,200,210
' *** Lager02 erstellen ********************************************************
EDIT 9840 :TOP 9840,415 :LEFT 9840,SCREEN_X-120 : WIDTH 9840,85 :HEIGHT 9840,303 :color 9840,150,20,30
' *** RAMPEN LAGER02 erstellen *************************************************
EDIT 9850 :TOP 9850,415 :LEFT 9850,SCREEN_X-140 : WIDTH 9850,19 :HEIGHT 9850,303:color 9850,200,200,210
' *** PARKINGZONE ERSTELLEN ****************************************************
EDIT 9890 :TOP 9890,((SCREEN_y/4)*3)-5 :LEFT 9890,SCREEN_X/2-260 : WIDTH 9890,140 :HEIGHT 9890,155 :color 9890,100,200,230
EDIT 9895 :TOP 9895,((SCREEN_y/4)*3)-5 :LEFT 9895,SCREEN_X/2+120  : WIDTH 9895,140 :HEIGHT 9895,155 :color 9895,100,200,230
'
' ******************************************************************************
' *** LABEL ERSTELLEN **********************************************************
' ******************************************************************************
label main
label halt
label start
'
label STARTZEIT_01
label NACHRECHTS_01
label NACHOBEN_01
label NACHLINKS_01
label STANDZEIT_011
label STANDZEIT_012
label NACHUNTEN_01
label ENDZEIT_01
'
label STARTZEIT_06
label NACHRECHTS_06
label NACHOBEN_06
label NACHLINKS_06
label STANDZEIT_061
label STANDZEIT_062
label NACHUNTEN_06
label ENDZEIT_06
'
label  Weiter_01: label  Weiter_02: label  Weiter_03: label  Weiter_04: label  Weiter_05
label  Weiter_06: label  Weiter_07: label  Weiter_08: label  Weiter_09: label  Weiter_10
label  Weiter_11: label  Weiter_12: label  Weiter_13: label  Weiter_14:' label  Weiter_15
'
label  Weiter_101:label  Weiter_102:label  Weiter_103:label  Weiter_104:label  Weiter_105
label  Weiter_106:label  Weiter_107:label  Weiter_108:label  Weiter_109:label  Weiter_110
label  Weiter_111:label  Weiter_112:label  Weiter_113:label  Weiter_114:' label  Weiter_115
'
DIM FLAGGE_01%  : FLAGGE_01% = 0
DIM FLAGGE_02%  : FLAGGE_02% = 0
DIM FLAGGE_03%  : FLAGGE_03% = 0
DIM FLAGGE_04%  : FLAGGE_04% = 0
DIM FLAGGE_05%  : FLAGGE_05% = 0
DIM FLAGGE_06%  : FLAGGE_06% = 0
DIM FLAGGE_07%  : FLAGGE_07% = 0
DIM FLAGGE_08%  : FLAGGE_08% = 0
DIM FLAGGE_09%  : FLAGGE_09% = 0
DIM FLAGGE_10%  : FLAGGE_10% = 0
DIM FLAGGE_11%  : FLAGGE_11% = 0
DIM FLAGGE_12%  : FLAGGE_12% = 0
DIM FLAGGE_13%  : FLAGGE_13% = 0
DIM FLAGGE_14%  : FLAGGE_14% = 0
'
DIM FLAGGE_101%  : FLAGGE_101% = 0
DIM FLAGGE_102%  : FLAGGE_102% = 0
DIM FLAGGE_103%  : FLAGGE_103% = 0
DIM FLAGGE_104%  : FLAGGE_104% = 0
DIM FLAGGE_105%  : FLAGGE_105% = 0
DIM FLAGGE_106%  : FLAGGE_106% = 0
DIM FLAGGE_107%  : FLAGGE_107% = 0
DIM FLAGGE_108%  : FLAGGE_108% = 0
DIM FLAGGE_109%  : FLAGGE_109% = 0
DIM FLAGGE_110%  : FLAGGE_110% = 0
DIM FLAGGE_111%  : FLAGGE_111% = 0
DIM FLAGGE_112%  : FLAGGE_112% = 0
DIM FLAGGE_113%  : FLAGGE_113% = 0
DIM FLAGGE_114%  : FLAGGE_114% = 0
'
' ******************************************************************************




 label NACHRECHTS_2

 label NACHLINKS_2

 label STEHERECHTS_2

 label STEHELINKS_2

label  AUSWAHL_2 :label  AUSWAHL_3 :label  AUSWAHL_4
label  AUSWAHL_5  :label  AUSWAHL_6 :label  AUSWAHL_7 :label  AUSWAHL_8
label  AUSWAHL_9  :label  AUSWAHL_10
'
' *** LKW GESCHWINDIGKEIT EINSTELLEN *******************************************
dim delta1% : delta1% = 1
dim delta2% : delta2% = 1
dim delta3% : delta3% = 1
dim delta4% : delta4% = 1
dim delta5% : delta5% = 1
dim delta6% : delta6% = 1
dim delta7% : delta7% = 1
dim delta8% : delta8% = 1
dim delta9% : delta9% = 1
dim delta10% :delta10% = 1

' *** BELADEZEIT : ENTLADEZEIT *************************************************
DIM S_ZEIT_01% : DIM S_ZEIT_11%    : S_ZEIT_01% = 0 :  S_ZEIT_11%  = 50
DIM B_ZEIT_01% : DIM B_ZEIT_11%    : B_ZEIT_01% = 0 :  B_ZEIT_11%  = 50
DIM B_ZEIT_02% : DIM B_ZEIT_12%    : B_ZEIT_02% = 0 :  B_ZEIT_12%  = 50
DIM B_ZEIT_03% : DIM B_ZEIT_13%    : B_ZEIT_03% = 0 :  B_ZEIT_13%  = 50
DIM E_ZEIT_01% : DIM E_ZEIT_11%    : E_ZEIT_01% = 0 :  E_ZEIT_11%  = 50
'
DIM S_ZEIT_101% : DIM S_ZEIT_111%    : S_ZEIT_101% = 0 :  S_ZEIT_111%  = 90
DIM B_ZEIT_101% : DIM B_ZEIT_111%    : B_ZEIT_101% = 0 :  B_ZEIT_111%  = 90
DIM B_ZEIT_102% : DIM B_ZEIT_112%    : B_ZEIT_102% = 0 :  B_ZEIT_112%  = 90
DIM B_ZEIT_103% : DIM B_ZEIT_113%    : B_ZEIT_103% = 0 :  B_ZEIT_113%  = 90
DIM E_ZEIT_101% : DIM E_ZEIT_111%    : E_ZEIT_101% = 0 :  E_ZEIT_111%  = 90







DIM D_ZEIT_02% : DIM D_ZEIT_12%    :D_ZEIT_02% = 100 : D_ZEIT_12% = 110

' DIM S_ZEIT_01% : DIM S_ZEIT_11%    :S_ZEIT_11% = 100
DIM S_ZEIT_02% : DIM S_ZEIT_12%    :S_ZEIT_12% = 100
DIM S_ZEIT_03% : DIM S_ZEIT_13%    :S_ZEIT_13% = 80
DIM S_ZEIT_04% : DIM S_ZEIT_14%    :S_ZEIT_14% = 110
DIM S_ZEIT_05% : DIM S_ZEIT_15%    :S_ZEIT_15% = 120
' DIM S_ZEIT_06% : DIM S_ZEIT_16%    :S_ZEIT_16% = 100
DIM S_ZEIT_07% : DIM S_ZEIT_17%    :S_ZEIT_17% = 60
DIM S_ZEIT_08% : DIM S_ZEIT_18%    :S_ZEIT_18% = 100
DIM S_ZEIT_09% : DIM S_ZEIT_19%    :S_ZEIT_19% = 30
DIM S_ZEIT_10% : DIM S_ZEIT_20%    :S_ZEIT_20% = 90
'
' ******************************************************************************
' *** Fahrplan für LKW 1 *******************************************************
'
DIM LKW_01%  :  LKW_01% =  01
DIM LKW_06%  :  LKW_06% =  06

DIM FAHRT_01$(10,3)
'
' ------------------------------------------------------------------------------
'  Startpunkt          :    Zielpunkt              :    Standdauer
' -----------------------------------------------------------------------------
FAHRT_01$(00,1) = "0000" :  FAHRT_01$(00,2) = "0000" :  FAHRT_01$(00,3) = "0100"
FAHRT_01$(01,1) = "P161" :  FAHRT_01$(01,2) = "M190" :  FAHRT_01$(01,3) = "0000"
FAHRT_01$(02,1) = "P190" :  FAHRT_01$(02,2) = "M191" :  FAHRT_01$(02,3) = "0000"
FAHRT_01$(03,1) = "M191" :  FAHRT_01$(03,2) = "M180" :  FAHRT_01$(03,3) = "0000"
FAHRT_01$(04,1) = "M180" :  FAHRT_01$(04,2) = "L040" :  FAHRT_01$(04,3) = "0100"
FAHRT_01$(05,1) = "L040" :  FAHRT_01$(05,2) = "R050" :  FAHRT_01$(05,3) = "0100"
FAHRT_01$(06,1) = "R050" :  FAHRT_01$(06,2) = "M180" :  FAHRT_01$(06,3) = "0000"
FAHRT_01$(07,1) = "M180" :  FAHRT_01$(07,2) = "M190" :  FAHRT_01$(07,3) = "0000"
FAHRT_01$(08,1) = "M190" :  FAHRT_01$(08,2) = "P191" :  FAHRT_01$(08,3) = "0000"
FAHRT_01$(09,1) = "M191" :  FAHRT_01$(09,2) = "P161" :  FAHRT_01$(09,3) = "0000"
FAHRT_01$(10,1) = "0000" :  FAHRT_01$(10,2) = "0000" :  FAHRT_01$(10,3) = "0100"
'
' ******************************************************************************
' *** Zeitanzeige für 10 LKW'S *************************************************

NR% = 500 :edit NR% :top NR%,15 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%,"  Startzeit"
NR% = 502 :edit NR% :top NR%,40 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%,"  Endzeit  "
NR% = 504 :edit NR% :top NR%,65 :left NR%,200 :width NR%,75 :height NR%,20 :text NR%,"  Dauer    "

Zeile% = 250
For NR% = 511 TO 520
Zeile% = Zeile% + 80
edit NR% :top NR%,15 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000"
NEXT NR%

Zeile% = 250
For NR% = 541 TO 550
Zeile% = Zeile% + 80
edit NR% :top NR%,40 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000"
NEXT NR%
'
Zeile% = 250
For NR% = 561 TO 570
Zeile% = Zeile% + 80
edit NR% :top NR%,65 :left NR%,Zeile% :width NR%,55 :height NR%,20 :text NR%,"0000"
NEXT NR%
'
' *** 1. STANDZEITZÄHLER LINKS *************************************************
Zeile% = 80
For NR% = 11 TO 20
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 1. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = 80
For NR% = 21 TO 30
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-85 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 1. STANDPLATZNUMMER LINKS ************************************************
Zeile% = 80
For NR% = 31 TO 40
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 : caption NR%,"L"+Str$(NR%)
NEXT NR%
'
' *** 1. STANDPLATZNUMMER RECHTS ***********************************************
Zeile% = 80
For NR% = 41 TO 50
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-120 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%)
NEXT NR%
'
' *** 2. STANDZEITZÄHLER LINKS *************************************************
Zeile% = 390
For NR% = 111 TO 120
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0015 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 2. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = 390
For NR% = 121 TO 130
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-85 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 2. STANDPLATZNUMMER LINKS ************************************************
Zeile% = 390
For NR% = 131 TO 140
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,0065 :width NR%,30 :height NR%,25 :caption NR%,"L"+Str$(NR%)
NEXT NR%
'
' *** 2. STANDPLATZNUMMER RECHTS ***********************************************
Zeile% = 390
For NR% = 141 TO 150
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X-120 :width NR%,30 :height NR%,25 :caption NR%,"R"+Str$(NR%)
NEXT NR%
'
' *** 3. STANDZEITZÄHLER LINKS *************************************************
Zeile% = -30
For NR% = 151 TO 155
Zeile% = Zeile% + 30
button NR% :top NR%,(((SCREEN_y/4)*3))+Zeile% :left NR%,SCREEN_X/2-205 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 3. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = -30
For NR% = 156 TO 160
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+160 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 4. STANDZEITZÄHLER LINKS *************************************************
Zeile% = -30
For NR% = 201 TO 205
Zeile% = Zeile% + 30
button NR% :top NR%,(((SCREEN_y/4)*3))+Zeile% :left NR%,SCREEN_X/2-255 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 4. STANDZEITZÄHLER RECHTS ************************************************
Zeile% = -30
For NR% = 206 TO 210
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+210 :width NR%,45 :height NR%,25 :caption NR%,"0000"
NEXT NR%
'
' *** 3. STANDPLATZNUMMER LINKS ************************************************
Zeile% = -30
For NR% = 161 TO 165
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile%  :left NR%,SCREEN_X/2-153:width NR%,30 :height NR%,25 :caption NR%,"P"+Str$(NR%)
NEXT NR%
'
' *** 3. STANDPLATZNUMMER RECHTS ***********************************************
Zeile% = -30
For NR% = 166 TO 170
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile%  :left NR%,SCREEN_X/2+125 :width NR%,30 :height NR%,25 :caption NR%,"P"+Str$(NR%)
NEXT NR%
'
' Mittellinie zeichnen *********************************************************
Picture 8000 :top 8000,110 :left 8000,SCREEN_X/2-1 :width 8000,2 :height 8000,SCREEN_Y -220 :color 8000,255,0,0
'
' *** Mittellinie NUMMER *******************************************************
Zeile% = 80
For NR% = 171 TO 180
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X/2-15 :width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%)
NEXT NR%
'
Zeile% = 390
For NR% = 181 TO 190
Zeile% = Zeile% + 30
button NR% :top NR%,Zeile% :left NR%,SCREEN_X/2-15 :width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%)
NEXT NR%
'
Zeile% = -30
For NR% = 191 TO 195
Zeile% = Zeile% + 30
button NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-15:width NR%,30 :height NR%,25 :caption NR%,"M"+Str$(NR%)
NEXT NR%
'
' *** 5 x  LKW ERSTELLEN IN PARKINGZONE linke **********************************
Zeile% = -30
For NR% = 1 TO 5
Zeile% = Zeile% + 30
EDIT NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2-120 :width NR%,45 :height NR%,25 :color NR%,255,0,0 :Text NR%,"LKW"+Str$(NR%)
NEXT NR%
'
' *** 5 x  LKW ERSTELLEN IN PARKINGZONE rechts *********************************
Zeile% = -30
For NR% = 6 TO 10
Zeile% = Zeile% + 30
EDIT NR% :top NR%,((SCREEN_y/4)*3)+Zeile% :left NR%,SCREEN_X/2+75 :width NR%,45 :height NR%,25 :color NR%,255,0,0 :Text NR%,"LKW"+Str$(NR%)
NEXT NR%
'
' ******************************************************************************
ON_CLICK 9701,halt
ON_CLICK 9702,start
' ON_CLICK 9703,DATA_LKW01
' ON_CLICK 9704,area04
' ON_CLICK 9705,area05
 ' ON_CLICK 9706,area06
 ' ON_CLICK 9707,area07
 ' ON_CLICK 9708,area08
 ' ON_CLICK 9709,area09
 ' ON_CLICK 9710,area10
 ' ON_CLICK 9711,area11
 ' ON_CLICK 9712,area12
 ' ON_CLICK 9713,area13
 ' ON_CLICK 9714,area14
 ' ON_CLICK 9715,area15
 ' ON_CLICK 9716,area16
 ' ON_CLICK 9717,area17
 ' ON_CLICK 9718,area18
 ' ON_CLICK 9719,area17
 ' ON_CLICK 9720,start

timer 9998 : timer_interval 9998,60 : on_timer 9998,main : timer_off 9998
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
 timer_on 9998

text 511,time$
text 516,time$
 return
'
' *****************************************************************************
' *** PROGRAMM LKW FÄHRT ******************************************************
main:
timer_off_all
 LKW_1()
' LKW2()
' LKW3()
' LKW4()
' LKW5()
 LKW_6()
' LKW7()
' LKW8()
' LKW9()
' LKW10()
on_timer 9998,main
return

' ******************************************************************************
' ******************************************************************************
' *** LKW 1 FAHREN *************************************************************
sub LKW_1()
'
if FLAGGE_01% = 0  then goto Weiter_01
if FLAGGE_01% = 1  then goto Weiter_02
'
END
' *** Startzeit für Fahrt von Parking Zone nach rechts *************************
Weiter_01:
if FLAGGE_01% = 1  then goto Weiter_02
if S_ZEIT_01% < S_ZEIT_11% then goto STARTZEIT_01
if S_ZEIT_01% = S_ZEIT_11% then goto Weiter_02
'
END
' *** Fahrt aus Parkingzone ****************************************************
Weiter_02:
if FLAGGE_02% = 1  then goto Weiter_03
FLAGGE_01% = 1
if left(LKW_01%) < left(191)-9    then goto NACHRECHTS_01
if left(LKW_01%) = left(191)-9    then goto Weiter_03
'
END
' *** Fahrt zum 1. Quer-Knoten nach oben aus Parkplatz *************************
Weiter_03:
if FLAGGE_03% = 1  then goto Weiter_04
FLAGGE_02% = 1
if top(1)  > top(190)      then goto NACHOBEN_01
if top(1)  = top(190)      then goto Weiter_04
'
END
' ******************************************************************************
' *** Fahrt nach oben **********************************************************
Weiter_04:
if FLAGGE_04% = 1  then goto Weiter_05
FLAGGE_03% = 1
if top(1)  > top(180)      then goto NACHOBEN_01
if top(1)  = top(180)      then goto Weiter_05
'
END
' *** Fahrt nach links *********************************************************
Weiter_05:
if FLAGGE_05% = 1  then goto Weiter_06
FLAGGE_04% = 1

if (left(40)+40) - (left(1)) > ABS(30) then delta1% = 5
if (left(40)+40) - (left(1)) < ABS(30) then delta1% = 1

if left(1) > left(40)+40    then goto NACHLINKS_01

if left(1) = left(40)+40    then goto Weiter_06
'
END
 ' *** Beladezeit links  *******************************************************
Weiter_06:
if FLAGGE_06% = 1  then goto Weiter_07
FLAGGE_05% = 1
if B_ZEIT_01% = B_ZEIT_11%  then goto Weiter_07
if left(1) = left(40)+40    then color 1,0,255,0
if left(1) = left(40)+40    then goto STANDZEIT_011
'
END
' *** Fahrt nach rechts außen **************************************************
Weiter_07:
if FLAGGE_07% = 1  then goto Weiter_08
FLAGGE_06% = 1

if (left(50)-55) - (left(1)) < ABS(30) then delta1% = 1
if (left(50)-55) - (left(1)) > ABS(30) then delta1% = 5

if left(1) < left(50)-55    then goto NACHRECHTS_01

if left(1) = left(50)-55    then goto Weiter_08
'
END
' *** Entladezeit rechts *******************************************************
Weiter_08:
if FLAGGE_08% = 1  then goto Weiter_09
FLAGGE_07% = 1
if B_ZEIT_02% = B_ZEIT_12%  then goto Weiter_09
if left(1) = left(50)-55    then color 1,255,0,0
if left(1) = left(50)-55    then goto STANDZEIT_012
'
END
' *** Fahrt nach links zur Mitte ***********************************************
Weiter_09:
if FLAGGE_09% = 1  then goto Weiter_10
FLAGGE_08% = 1

' if (left(1)) - left(180)-9  > -30 then delta1% = 5
' if (left(1)) - left(180)-9  < -30 then delta1% = 1

if left(1) > left(180)-9    then goto NACHLINKS_01
if left(1) = left(180)-9    then goto Weiter_10
'
END
' ******************************************************************************
' *** Fahrt zum 1. Quer-Knoten nach unten zum Parkplatz ************************
Weiter_10:
if FLAGGE_10% = 1  then goto Weiter_11
FLAGGE_09% = 1
if top(1) < top(190)    then goto NACHUNTEN_01
if top(1) = top(190)    then goto Weiter_11
'
END
' *** Fahrt nach unten zum Parkplatz *******************************************
Weiter_11:
if FLAGGE_11% = 1  then goto Weiter_12
FLAGGE_10% = 1
if top(1) < top(191)    then goto NACHUNTEN_01
if top(1) = top(191)    then goto Weiter_12
'
END
' *** Fahrt in Parkplatz *******************************************************
Weiter_12:
if FLAGGE_12% = 1  then goto Weiter_13
FLAGGE_11% = 1
if left(1) > SCREEN_X/2-120 then goto NACHLINKS_01
if left(1) = SCREEN_X/2-120 then goto Weiter_13

END
' ******************************************************************************
Weiter_13:
if FLAGGE_13% = 1  then goto Weiter_14
FLAGGE_12% = 1
if E_ZEIT_01% < E_ZEIT_11%  then goto ENDZEIT_01
if E_ZEIT_01% = E_ZEIT_11%  then goto Weiter_14
'
END
' ******************************************************************************
Weiter_14:
text 541,Time$
timer_off_all : END_sub
' ******************************************************************************
' *** STARTZEIT FÜR LKW ********************************************************
STARTZEIT_01:
'
S_ZEIT_01% = S_ZEIT_01% + 1
caption 151,S_ZEIT_01%
end_sub
'
' *** LKW aus Parkzone *********************************************************
NACHRECHTS_01:
'
left 1,left(1) + delta1%
end_sub
'
' *** LKW fährt nach oben ******************************************************
NACHOBEN_01:
'
top 1,top(1) - delta1%
end_sub
'
' *** LKW fährt nach links *****************************************************
NACHLINKS_01:
'
left 1,left(1) - delta1%
end_sub
'
' *** Beladezeit links *********************************************************
STANDZEIT_011:
'
B_ZEIT_01% = B_ZEIT_01% + 1
caption 20,B_ZEIT_01%
end_sub
'
' *** Beladezeit rechts ********************************************************
STANDZEIT_012:
B_ZEIT_02% = B_ZEIT_02% + 1
caption 30,B_ZEIT_02%
'
end_sub
'
' *** LKW fährt nach UNTEN  ****************************************************
NACHUNTEN_01:
'
 top 1,top(1) + delta1%
 end_sub
'
' *** LKW fährt nach UNTEN  ****************************************************
ENDZEIT_01:
E_ZEIT_01% = E_ZEIT_01% + 1
caption 201,E_ZEIT_01%
'
end_sub
'
' ******************************************************************************
' ******************************************************************************
' *** LKW 2 FAHREN *************************************************************
sub LKW2()
' *** Startzeit für Fahrt nach rechts ******************************************
if B_ZEIT_02% = 100 then goto AUSWAHL_02
B_ZEIT_12% = B_ZEIT_12% + 1
caption 22,B_ZEIT_12%
if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0
if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2
end_sub
' ******************************************************************************
AUSWAHL_2:
 if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2
 if (left(2)<SEITE_RECHTS%) then goto NACHRECHTS_2
 if (left(2)>SEITE_RECHTS%) then goto STEHERECHTS_2
 if (left(2)=SEITE_RECHTS%) then goto STEHERECHTS_2
'
 stop
' *** Fahrt nach rechts ********************************************************
NACHRECHTS_2:
caption 12,"0000"
left 2,left(2) + delta2%
end_sub
' *** Steht rechts *************************************************************
STEHERECHTS_2:
B_ZEIT_12% = B_ZEIT_12% + 1
caption 22,B_ZEIT_12%
if B_ZEIT_12% = D_ZEIT_02% then B_ZEIT_02% = 0
if B_ZEIT_12% = D_ZEIT_02% then goto NACHLINKS_2
end_sub
' *****************************************************************************
' *** Fahrt nach links ********************************************************
 NACHLINKS_2:
caption 22,"0000"
if (left(2)<102) then goto STEHELINKS_2
left 2,left(2) - delta2%
end_sub
 ' *** Steht links *************************************************************
STEHELINKS_2:
left 02,0100
B_ZEIT_02% = B_ZEIT_02% + 1
caption 12,B_ZEIT_02%
if B_ZEIT_02% = D_ZEIT_12% then B_ZEIT_12% = 0
if B_ZEIT_02% = D_ZEIT_12% then goto NACHLINKS_2
end_sub
' ******************************************************************************
' *** LKW 3 FAHREN *************************************************************
  sub LKW3()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3
S_ZEIT_03% = S_ZEIT_03% + 1
caption 153,S_ZEIT_03%
if S_ZEIT_03% = S_ZEIT_13% then goto AUSWAHL_3
end_sub
' ******************************************************************************
AUSWAHL_3:
 if (left(3)<SEITE_LINKS_00%) or (left(3)>SEITE_RECHT_00S%) then delta3% = 0 - delta3%
 left 3,left(3) + delta3%
 end_sub
' ******************************************************************************
 sub LKW4()
 ' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4
S_ZEIT_04% = S_ZEIT_04% + 1
caption 154,S_ZEIT_04%
if S_ZEIT_04% = S_ZEIT_14% then goto AUSWAHL_4
end_sub
' ******************************************************************************
AUSWAHL_4:
 if (left(4)<SEITE_LINKS_00%) or (left(4)>SEITE_RECHTS_00%) then delta4% = 0 - delta4%
 left 4,left(4) + delta4%
 end_sub
' ******************************************************************************
 sub LKW5()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5
S_ZEIT_05% = S_ZEIT_05% + 1
caption 155,S_ZEIT_05%
if S_ZEIT_05% = S_ZEIT_15% then goto AUSWAHL_5
end_sub
' ******************************************************************************
AUSWAHL_5:
 if (left(5)<SEITE_LINKS_00%) or (left(5)>SEITE_RECHTS_00%) then delta5% = 0 - delta5%
 left 5,left(5) + delta5%
 end_sub
' ******************************************************************************
' ******************************************************************************
' *** LKW 6 FAHREN *************************************************************
sub LKW_6()
'
if FLAGGE_101% = 0  then goto Weiter_101
if FLAGGE_101% = 1  then goto Weiter_102
'
END
' *** Startzeit für Fahrt von Parking Zone nach rechts *************************
Weiter_101:
if FLAGGE_101% = 1  then goto Weiter_102
if S_ZEIT_101% < S_ZEIT_111% then goto STARTZEIT_06
if S_ZEIT_101% = S_ZEIT_111% then goto Weiter_102
'
END
' *** Fahrt aus Parkingzone ****************************************************
Weiter_102:
if FLAGGE_102% = 1  then goto Weiter_103
FLAGGE_101% = 1
if left(6) > left(191)-9    then goto NACHLINKS_06
if left(6) = left(191)-9    then goto Weiter_103
'
END
' *** Fahrt zum 1. Quer-Knoten nach oben aus Parkplatz *************************
Weiter_103:
if FLAGGE_103% = 1  then goto Weiter_104
FLAGGE_102% = 1
if top(6)  > top(190)      then goto NACHOBEN_06
if top(6)  = top(190)      then goto Weiter_104
'
END
' ******************************************************************************
' *** Fahrt nach oben **********************************************************
Weiter_104:
if FLAGGE_104% = 1  then goto Weiter_105
FLAGGE_103% = 1
if top(6)  > top(171)      then goto NACHOBEN_06
if top(6)  = top(171)      then goto Weiter_105
'
END
' *** Fahrt nach links *********************************************************
Weiter_105:
if FLAGGE_105% = 1  then goto Weiter_106
FLAGGE_104% = 1

if (left(31)+40) - (left(6)) > ABS(30) then delta6% = 5
if (left(31)+40) - (left(6)) < ABS(30) then delta6% = 1

if left(6) > left(40)+40    then goto NACHLINKS_06

if left(6) = left(40)+40    then goto Weiter_106
'
END
 ' *** Beladezeit links  *******************************************************
Weiter_106:
if FLAGGE_106% = 1  then goto Weiter_107
FLAGGE_105% = 1
if B_ZEIT_101% = B_ZEIT_111%  then goto Weiter_107
if left(6) = left(31)+40    then color 6,0,255,0
if left(6) = left(31)+40    then goto STANDZEIT_061
'
END
' *** Fahrt nach rechts außen **************************************************
Weiter_107:
if FLAGGE_107% = 1  then goto Weiter_108
FLAGGE_106% = 1

if (left(41)-55) - (left(6)) < ABS(30) then delta6% = 1
if (left(41)-55) - (left(6)) > ABS(30) then delta6% = 5

if left(6) < left(41)-55    then goto NACHRECHTS_06

if left(6) = left(41)-55    then goto Weiter_108
'
END
' *** Entladezeit rechts *******************************************************
Weiter_108:
if FLAGGE_108% = 1  then goto Weiter_109
FLAGGE_107% = 1
if B_ZEIT_102% = B_ZEIT_112%  then goto Weiter_109
if left(6) = left(41)-55    then color 6,255,0,0
if left(6) = left(41)-55    then goto STANDZEIT_062
'
END
' *** Fahrt nach links zur Mitte ***********************************************
Weiter_109:
if FLAGGE_109% = 1  then goto Weiter_110
FLAGGE_108% = 1

' if (left(6)) - left(180)-9  > -30 then delta6% = 5
' if (left(6)) - left(180)-9  < -30 then delta6% = 1

if left(6) > left(171)-9    then goto NACHLINKS_06
if left(6) = left(171)-9    then goto Weiter_110
'
END
' ******************************************************************************
' *** Fahrt zum 1. Quer-Knoten nach unten zum Parkplatz ************************
Weiter_110:
if FLAGGE_110% = 1  then goto Weiter_111
FLAGGE_109% = 1
if top(6) < top(190)    then goto NACHUNTEN_06
if top(6) = top(190)    then goto Weiter_111
'
END
' *** Fahrt nach unten zum Parkplatz *******************************************
Weiter_111:
if FLAGGE_111% = 1  then goto Weiter_112
FLAGGE_110% = 1
if top(6) < top(191)    then goto NACHUNTEN_06
if top(6) = top(191)    then goto Weiter_112
'
END
' *** Fahrt in Parkplatz *******************************************************
Weiter_112:
if FLAGGE_112% = 1  then goto Weiter_113
FLAGGE_111% = 1
if left(6) < SCREEN_X/2+75 then goto NACHRECHTS_06
if left(6) = SCREEN_X/2+75 then goto Weiter_113

END
' ******************************************************************************
Weiter_113:
if FLAGGE_113% = 1  then goto Weiter_114
FLAGGE_112% = 1
if E_ZEIT_101% < E_ZEIT_111%  then goto ENDZEIT_06
if E_ZEIT_101% = E_ZEIT_111%  then goto Weiter_114
'
END
' ******************************************************************************
Weiter_114:
text 546,Time$
timer_off_all : END_sub
'
' ******************************************************************************
' *** STARTZEIT FÜR LKW ********************************************************
STARTZEIT_06:
'
S_ZEIT_101% = S_ZEIT_101% + 1
caption 156,S_ZEIT_101%
end_sub
'
' *** LKW aus Parkzone *********************************************************
NACHRECHTS_06:
'
left 6,left(6) + delta6%
end_sub
'
' *** LKW fährt nach oben ******************************************************
NACHOBEN_06:
'
top 6,top(6) - delta6%
end_sub
'
' *** LKW fährt nach links *****************************************************
NACHLINKS_06:
'
left 6,left(6) - delta6%
end_sub
'
' *** Beladezeit links *********************************************************
STANDZEIT_061:
'
B_ZEIT_101% = B_ZEIT_101% + 1
caption 11,B_ZEIT_101%
end_sub
'
' *** Beladezeit rechts ********************************************************
STANDZEIT_062:
B_ZEIT_102% = B_ZEIT_102% + 1
caption 21,B_ZEIT_102%
'
end_sub
'
' *** LKW fährt nach UNTEN  ****************************************************
NACHUNTEN_06:
'
 top 6,top(6) + delta6%
 end_sub
'
' *** LKW fährt nach UNTEN  ****************************************************
ENDZEIT_06:
E_ZEIT_101% = E_ZEIT_101% + 1
caption 206,E_ZEIT_101%
'
end_sub
'
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
 sub LKW7()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7
S_ZEIT_07% = S_ZEIT_07% + 1
caption 157,S_ZEIT_07%
if S_ZEIT_07% = S_ZEIT_17% then goto AUSWAHL_7
end_sub
' ******************************************************************************
AUSWAHL_7:
 if (left(7)<SEITE_LINKS%) or (left(7)>SEITE_RECHTS%) then delta7% = 0 - delta7%
 left 7,left(7) + delta7%
 end_sub
' ******************************************************************************
 sub LKW8()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8
S_ZEIT_08% = S_ZEIT_08% + 1
caption 158,S_ZEIT_08%
if S_ZEIT_08% = S_ZEIT_18% then goto AUSWAHL_8
end_sub
' ******************************************************************************
AUSWAHL_8:
 if (left(8)<SEITE_LINKS%) or (left(8)>SEITE_RECHTS%) then delta8% = 0 - delta8%
 left 8,left(8) + delta8%
 end_sub
' ******************************************************************************
 sub LKW9()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9
S_ZEIT_09% = S_ZEIT_09% + 1
caption 159,S_ZEIT_09%
if S_ZEIT_09% = S_ZEIT_19% then goto AUSWAHL_9
end_sub
' ******************************************************************************
AUSWAHL_9:
 if (left(9)<SEITE_LINKS%) or (left(9)>SEITE_RECHTS%) then delta9% = 0 - delta9%
 left 9,left(9) + delta9%
 end_sub
' ******************************************************************************
 sub LKW10()
' *** Startzeit für Fahrt nach rechts ******************************************
if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10
S_ZEIT_10% = S_ZEIT_10% + 1
caption 160,S_ZEIT_10%
if S_ZEIT_10% = S_ZEIT_20% then goto AUSWAHL_10
end_sub
' ******************************************************************************
AUSWAHL_10:
 if (left(10)<SEITE_LINKS%) or (left(10)>SEITE_RECHTS%) then delta10% = 0 - delta10%
 left 10,left(10) + delta10%
 end_sub
' ******************************************************************************
 halt:
 timer_off_all
 terminate
' ******************************************************************************


Dernière édition par Severin le Dim 7 Juil 2013 - 3:25, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: game for practice   Sam 6 Juil 2013 - 9:30

Neu Version 6.7.13 8:29   oben

Neu Version 6.7.13 20:05   oben

Neu Version 7.7.13 02:05 oben


Dernière édition par Severin le Dim 7 Juil 2013 - 3:13, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5871
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: game for practice   Sam 6 Juil 2013 - 10:22

you make an conception error as you define your timer in the event proc "start" so when you clic again you try to create again the same object, so you have an error.

2 solutions:
Move the definition of your timer before the line end and stop timer
start timer when you clic on start.

So this make from line 340
Code:
 timer 9998 : timer_interval 9998,60 : on_timer 9998,main : timer_off 9998
end
'
' *** TIMER INITIALISIERUNG ***************************************************
start:
 timer_on 9998
return
'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: game for practice   

Revenir en haut Aller en bas
 
game for practice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Retour à l'auberge au lieu d'un game over
» Marion Game
» Life is a game. You can be a player or a toy.
» [Game Develop] - Texte, collision, sauvegarde et autre...
» Comprendre la logique Game Dev Tycoon

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: