[resolu] en panne avec les bases du basic

print chr$(34)+"entre guillemets"+chr$(34)     :' BUG : les guillemets ne s'affichent pas !!!
'
print " "+chr$(34)+"entre guillemets"+chr$(34) :' de cette manière, ça fonctionne

      ' logiciel réalisé avec le soutien actif de Silverman, Marc,Minibug et Yannick





label object,imprime,raz,nouvpoint,fin
dim ligne$,caractere$,lecture$ , degre$,minute$ ,mnd$ ,LatD$,LonD$,Latmd$,Lonmd$,xml$,md$
dim ai, longueur,negatif,posecriture,longecriture,m,t,carac,Nordre,md,np,test,nl,x,y,choix
dim i,w,a,xm,ym ,proph,roph,b,c,a$,b$,aa$,ab$,ac$,ad$,ae$,af$,ag$,ah$,ai$,aj$,ak$,al$,am$,an$,ao$,ap$,aq$,
dim ba$,bb$,bc$,bd$,be$,bf$
dim ca$,cb$,cc$,cd$,ce$,cf$
dim lat$,lon$,alt$,pitch$,bank$,heading$,name$,scale$

file_open_read 1,"essaianalysemaps.txt"
file_delete "monfichierplacement.txt"
file_open_write 2,"monfichierplacement.txt"

aa$= "<?xml version="+chr$(34)+"1.0"+chr$(34)+"?>"
ab$= "<FSData"
ac$= "    version="+chr$(34)+"9.0"+chr$(34)+"xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'"
ad$= "    xsi:noNamespaceSchemaLocation="+chr$(34)+"bglcomp.xsd"+chr$(34)+">"
ae$= "<ModelData sourceFile="+chr$(34)
af$= ".MDL"+chr$(34)+"/>"

ba$= "FSXheolienne16"   :ca$="{9cab340c-b35b-465d-8393-a4f6abe8ec65}"
bb$= "FSXheolienne17"   :cb$="{85611a80-42b2-4696-910b-dcbd7bccad1d}"
rem bc$= "silo1"            :cc$="1"
rem bd$= "silo2"            :cd$="2"
rem be$= "silo3"            :ce$="3"
rem bf$= "fin"              :cf$="f"

file_writeln 2, aa$
file_writeln 2, ab$
file_writeln 2, ac$
file_writeln 2, ad$
file_writeln 2,""
file_writeln 2, ae$+ba$+af$
file_writeln 2, ae$+bb$+af$
rem file_writeln 2, ae$+bc$+af$
rem file_writeln 2, ae$+bd$+af$
rem file_writeln 2, ae$+be$+af$
rem file_writeln 2, ae$+bf$+af$
file_writeln 2,""

form 1 : left 1,100 :top 1,200 :height 1,500 :width 1,400 : caption 1,"DONNES de l'Objet" : command_target_is 1

  list 102 : left 102,20 :top 102,65 :height 102,100 :width 102,200
    item_add 102,ba$
    item_add 102,bb$

  on_click 102,object

  dlist 104
    item_add 104,ca$
    item_add 104,cb$
    item_add 104,cc$
    item_add 104,cd$
    item_add 104,ce$
    item_add 104,cf$

  edit 103:left 103,20:top 103,200:height 103,20:width 103,40  :check 123:left 123,230:top 123,200
  edit 106:left 106,20:top 106,230:height 106,20:width 106,40  :check 126:left 126,230:top 126,230
  edit 107:left 107,20:top 107,260:height 107,20:width 107,40  :check 127:left 127,230:top 127,260
  edit 108:left 108,20:top 108,290:height 108,20:width 108,40  :check 128:left 128,230:top 128,290
  edit 109:left 109,70:top 109,170:height 109,20:width 109,75
  edit 110:left 110,240:top 110,170:height 110,20:width 110,75

  print_target_is 1
     print_locate 70,204:print "Orientation"
     print_locate 70,234:print "Echelle"
     print_locate 70,264:print "Altitude"
     print_locate 70,294:print "banck,Choix automatique"
     print_locate 20,174:print "Latitude="
     print_locate 180,174:print "Longitude="
  print_target_is 0

  button 201 :left 201,50:top 201,350 :caption 201,"RAZ Données"
    on_click 201,raz
  button 202 :left 202,150:top 202,350 :caption 202,"Impression"
    on_click 202,imprime
  button 203 :left 203,260:top 203,350 :caption 203,"Pt suivant"
    on_click 203,nouvpoint
  button 204 :left 204,150:top 204,390 :caption 204,"FIN"
    on_click 204,fin
   np=0
   nl=0
   test=0
end

object:
b$= item_index$ (102)
  if b$=ba$
    name$=ca$
  end_if
  b$= item_index$ (102)
  if b$=bb$
    name$=cb$
  end_if
  if b$=bc$
    name$=cc$
  end_if
b$= item_index$ (102)
  if b$=bd$
    name$=cd$
  end_if
  if b$=be$
    name$=ce$
  end_if
b$= item_index$ (102)
  if b$=bf$
    name$=cf$
  end_if
return

raz:
  if checked(123)=0
    text 103,""
  end_if
  if checked(126)=0
    text 106,""
  end_if
  if checked(127)=0
    text 107,""
  end_if
  if checked(128)=0
    text 108,""
  end_if
return


imprime:
 alt$=text$(107)
 lat$=text$(109)
 lon$=text$(110)
 pitch$="0"
 bank$=text$ (108)
 heading$=text$(103)
 name$=name$
 scale$=text$(106)
ag$= "<sceneryObject"
ah$= "   lat="+chr$(34)+lat$+chr$(34)+"lon="+chr$(34)+lon$+chr$(34)
ai$= "   alt="+chr$(34)+alt$+chr$(34)+"pitch="+chr$(34)+pitch$+chr$(34)+"banck="+chr$(34)+bank$+chr$(34)+"heading="+chr$(34)+heading$+chr$(34)
aj$= "   imageComplexity="+chr$(34)+"SPARSE"+chr$(34)+" altitudeIsAgl="+chr$(34)+"TRUE"+chr$(34)+">"
ak$= "   <NoCrash/>"
al$= "   <LibraryObject name="+chr$(34)+name$+chr$(34)+" scale="+chr$(34)+scale$+chr$(34)+"/>"
am$= "</SceneryObject>"
an$= "</FSData>"
file_writeln 2, ag$
file_writeln 2, ah$
file_writeln 2, ai$
file_writeln 2, aj$
file_writeln 2, ak$
file_writeln 2, al$
file_writeln 2, am$
file_writeln 2,""
return

nouvpoint:
    while file_eof(1)<>1
        file_readln 1,ligne$
        if asc(ligne$)=40
           np=np+1
           print_target_is 1:print_locate 100,20:print "POINT NUMERO :":print_locate 200,20:print np
           choix = rnd(3):choix=int(choix)*120
           print_target_is 108 :print choix
           print_target_is 0
           y=40*np-40:x=5
           Nordre=1 :t=2
           analyse(ligne$)
           exit_while
        end_if
    end_while
return

fin:
  an$= "</FSData>"
  file_writeln 2,an$
  file_close 1
  file_close 2
  terminate
return

sub analyse(ligne$)
print_locate x,y:print np
  for ai=1 to 25
    caractere$= MID$ (ligne$,ai,1)  :carac= asc (caractere$)
    if carac=45 or carac=48 or carac=49 or carac=50 or carac=51 or carac=52 or carac=53 or carac=54 or carac=55 or carac=56 or carac=57
      lecture$=insert$(lecture$,caractere$,t)
      t=t+1
    end_if
    if carac=46
      degre$=mid$(lecture$,1,t):lecture$=""
      t=2
      if  Nordre=1
        LatD$=degre$
      end_if
      if Nordre=2
        LonD$=degre$
      end_if
    end_if
    if  carac=44   or  carac=41
      minute$=mid$ (lecture$,1,6)
      if Nordre=2
        traitement(md$)
        Lonmd$=mid$(minute$,1,7)
        Lon$= LonD$+"  " +Lonmd$
        print_x_locate 15:print Lon$
        Nordre=0
      end_if
      if Nordre=1
        traitement(md$)
        Latmd$=mid$(minute$,1,7)
        Lat$= LatD$+"  " +Latmd$
        print_x_locate 15 :print Lat$
        Nordre=2
      end_if
      ai=ai+1
      lecture$=""
    end_if
    if asc (caractere$)=41
      print_target_is 110 :print Lon$
      print_target_is 109 :print Lat$
      print_target_is 0
      exit_sub
    end_if
  next ai
end_sub


sub traitement(md$)
   md=val(minute$):md=md/1000000*60:minute$=str$(md)
   md=0
end_sub

label go
goto go
print "cette ligne ne s'affichera jamais"
go:   :' pas d'erreur dû au comentaire si l'apostrophe est précédé de :
print "Ca marche!"