← Back to branch summary

~edutictac/+junk/easyinstall

« back to all changes in this revision

Viewing changes to src/easyinstall/FMain.class

  • Committer: Samuel Soriano
  • Date: 2011-06-08 15:35:47 UTC
  • Revision ID: sasogu@gmail.com-20110608153547-uerqvr2ypcqz2cxd
traducció anglés

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/easyinstall/FMain.class
18
18
'Modificat i adaptap per la Comunitat Edutictac
19
19
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
20
20
 
21
 
 
22
21
PUBLIC SUB Form_Open()
 
22
 
 
23
 
23
24
    DIM c AS String 
24
25
    DIM arr_cadenas AS String[] 
25
26
    DIM destino AS String
32
33
    ca = User.Home & ("/.easyinstall/ca")
33
34
    en = User.Home & ("/.easyinstall/en")
34
35
    
35
 
'copiamos los archivos en el directorio home
36
 
IF NOT Exist(User.Home &/ ".easyinstall/fonts.data" &/ ".easyinstall/jocs.data")
37
 
      TRY MKDIR User.Home &/ ".easyinstall"
38
 
      TRY COPY "data/educatius.data" TO User.Home &/ ".easyinstall/educatius.data"
39
 
      TRY COPY "data/fonts.data" TO User.Home &/ ".easyinstall/fonts.data"
40
 
      TRY COPY "data/graficos.data" TO User.Home &/ ".easyinstall/graficos.data"
41
 
      TRY COPY "data/jocs.data" TO User.Home &/ ".easyinstall/jocs.data"
42
 
      TRY COPY "data/musica.data" TO User.Home &/ ".easyinstall/musica.data"
43
 
      TRY COPY "data/pissarra.data" TO User.Home &/ ".easyinstall/pissarra.data"
44
 
      TRY COPY "data/programacio.data" TO User.Home &/ ".easyinstall/programacio.data"
45
 
      TRY COPY "data/ratolijclic.data" TO User.Home &/ ".easyinstall/ratolijclic.data"
46
 
      TRY COPY "data/utilitats.data" TO User.Home &/ ".easyinstall/utilitats.data"
47
 
      TRY COPY "data/video.data" TO User.Home &/ ".easyinstall/video.data"
48
 
      TRY COPY "data/ode.data" TO User.Home &/ ".easyinstall/ode.data"
49
 
       TRY COPY "data/desceducatius.data" TO User.Home &/ ".easyinstall/desceducatius.data"
50
 
      TRY COPY "data/descgraficos.data" TO User.Home &/ ".easyinstall/descgraficos.data"
51
 
      TRY COPY "data/descjocs.data" TO User.Home &/ ".easyinstall/descjocs.data"
52
 
      TRY COPY "data/descmusica.data" TO User.Home &/ ".easyinstall/descmusica.data"
53
 
      TRY COPY "data/descpissarra.data" TO User.Home &/ ".easyinstall/descpissarra.data"
54
 
      TRY COPY "data/descprogramacio.data" TO User.Home &/ ".easyinstall/descprogramacio.data"
55
 
      TRY COPY "data/descratolijclic.data" TO User.Home &/ ".easyinstall/descratolijclic.data"
56
 
      TRY COPY "data/descutilitats.data" TO User.Home &/ ".easyinstall/descutilitats.data"
57
 
      TRY COPY "data/descvideo.data" TO User.Home &/ ".easyinstall/descvideo.data"
58
 
      TRY COPY "data/descode.data" TO User.Home &/ ".easyinstall/descode.data"
59
 
      TRY COPY "data/descpropis.data" TO User.Home &/ ".easyinstall/descpropis.data"
60
 
      TRY COPY "data/propis.data" TO User.Home &/ ".easyinstall/propis.data"
61
 
   ENDIF 
 
36
 
62
37
   
63
38
   
64
39
   
147
122
     
148
123
     'inici descripció cuadres de texto -------------------->
149
124
     
150
 
      destino = User.Home &/ ".easyinstall/descmusica.data"
 
125
      
 
126
     IF Exist(es) THEN 
 
127
    destino = User.Home &/ ".easyinstall/descmusica.data"  
151
128
    arr_cadenas = Split(File.LOAD(destino)) 
152
 
    TextAreadescMusica.Clear() 
 
129
    ENDIF 
 
130
    IF Exist(ca) THEN 
 
131
    destino = User.Home &/ ".easyinstall/descmusicaCA.data"
 
132
    arr_cadenas = Split(File.LOAD(destino))
 
133
    ENDIF  
 
134
    IF Exist(en) THEN 
 
135
    TextAreadescMusica.Clear()
 
136
    destino = User.Home &/ ".easyinstall/descmusicaEN.data" 
 
137
    arr_cadenas = Split(File.LOAD(destino))
153
138
        FOR EACH c IN arr_cadenas 
154
139
    TextAreadescMusica.Insert(c)
155
140
     
241
226
     NEXT 
242
227
      ME.center
243
228
      
244
 
 
 
229
ENDIF 
245
230
END 
246
231
 
247
232
 
267
252
DIM lineasDataMusica AS String
268
253
DIM destinoMusica AS String
269
254
 
270
 
 
271
255
DIM lineasDataOde AS String
272
256
DIM destinoOde AS String
273
257
 
291
275
DIM lineasDataVideo AS String
292
276
DIM destinoVideo AS String
293
277
 
294
 
'declara descripciones
 
278
'declara descripciones----------------------------------->
295
279
 
296
280
DIM lineasDatadescjocs AS String
297
281
DIM destinodescjocs AS String
306
290
 
307
291
 
308
292
DIM lineasDatadescMusica AS String
 
293
DIM lineasDatadescMusicaCA AS String
 
294
DIM lineasDatadescMusicaEN AS String
309
295
DIM destinodescMusica AS String
 
296
DIM destinodescMusicaCA AS String
 
297
DIM destinodescMusicaEN AS String
 
298
 
310
299
 
311
300
 
312
301
DIM lineasDatadescOde AS String
382
371
File.Save(destinoUtilitats, lineasDataUtilitats)
383
372
File.Save(destinoVideo, lineasDataVideo)
384
373
File.Save(destinopropis, lineasDatapropis)
385
 
Message.Info("Configuración guardada correctamente")
 
374
Message.Info(("Configuración guardada correctamente"))
386
375
 
387
376
'descipciones -------------------------------------------->
388
377
 
393
382
destinodesceducatius = User.Home & "/.easyinstall/desceducatius.data"
394
383
destinodescgraficos = User.Home & "/.easyinstall/descgraficos.data"
395
384
destinodescmusica = User.Home & "/.easyinstall/descmusica.data"
 
385
destinodescmusicaCA = User.Home & "/.easyinstall/descmusicaCA.data"
 
386
destinodescmusicaEN = User.Home & "/.easyinstall/descmusicaEN.data"
396
387
destinodescOde = User.Home & "/.easyinstall/descode.data"
397
388
destinodescpissarra = User.Home & "/.easyinstall/descpissarra.data"
398
389
destinodescprogramacio = User.Home & "/.easyinstall/descprogramacio.data"
405
396
 
406
397
lineasDatadescjocs = TextAreadescJocs.Text 
407
398
lineasDatadescMusica = TextAreadescMusica.Text
 
399
lineasDatadescMusicaCA = TextAreadescMusica.Text
 
400
lineasDatadescMusicaEN = TextAreadescMusica.Text
408
401
lineasDatadescGraficos = TextAreadescGraficos.Text 
409
402
lineasDatadescEducatius = TextAreadescEdu.Text 
410
403
lineasDatadescOde = TextAreadecsOde.Text 
422
415
File.Save(destinodescEducatius, lineasDatadescEducatius)
423
416
File.Save(destinodescGraficos, lineasDatadescGraficos)
424
417
File.Save(destinodescMusica, lineasDatadescMusica)
 
418
File.Save(destinodescMusicaCA, lineasDatadescMusicaCA)
 
419
File.Save(destinodescMusicaEN, lineasDatadescMusicaEN)
425
420
File.Save(destinodescOde, lineasDatadescOde)
426
421
File.Save(destinodescPissarra, lineasDatadescPissarra)
427
422
File.Save(destinodescProgramacio, lineasDatadescProgramacio)
544
539
  DIM c AS String 
545
540
    DIM arr_cadenas AS String[] 
546
541
    DIM destino AS String
 
542
    
 
543
  DIM es AS String
 
544
    DIM ca AS String
 
545
    DIM en AS String
 
546
  
 
547
    
 
548
    es = User.Home & ("/.easyinstall/es")
 
549
    ca = User.Home & ("/.easyinstall/ca")
 
550
    en = User.Home & ("/.easyinstall/en")
 
551
    
 
552
    
547
553
    TabStrip1.Index = 2
548
 
    destino = User.Home &/ ".easyinstall/musica.data"
549
 
    arr_cadenas = Split(File.LOAD(destino)) 
550
 
    TextAreaMusica.Clear() 
551
 
        FOR EACH c IN arr_cadenas 
552
 
    TextAreaMusica.Insert(c)
553
 
     NEXT 
554
 
          destino = User.Home &/ ".easyinstall/descmusica.data"
555
 
    arr_cadenas = Split(File.LOAD(destino)) 
556
 
    TextAreadescMusica.Clear() 
557
 
        FOR EACH c IN arr_cadenas 
558
 
    TextAreadescMusica.Insert(c)
559
 
     NEXT 
 
554
    IF Exist(es) OR IF Exist(ca) OR IF Exist(en) THEN 
 
555
    ELSE
 
556
       destino = User.Home &/ ".easyinstall/descmusica.data"  
 
557
    arr_cadenas = Split(File.LOAD(destino)) 
 
558
     FOR EACH c IN arr_cadenas 
 
559
    TextAreadescMusica.Insert(c)
 
560
    NEXT 
 
561
    ENDIF 
 
562
           IF Exist(es) THEN 
 
563
    destino = User.Home &/ ".easyinstall/descmusica.data"  
 
564
    arr_cadenas = Split(File.LOAD(destino)) 
 
565
     FOR EACH c IN arr_cadenas 
 
566
    TextAreadescMusica.Insert(c)
 
567
    NEXT 
 
568
    ENDIF 
 
569
  
 
570
    IF Exist(ca) THEN 
 
571
    destino = User.Home &/ ".easyinstall/descmusicaCA.data"
 
572
    arr_cadenas = Split(File.LOAD(destino))
 
573
     FOR EACH c IN arr_cadenas 
 
574
    TextAreadescMusica.Insert(c)
 
575
    NEXT 
 
576
    ENDIF 
 
577
 
 
578
    IF Exist(en) THEN 
 
579
    TextAreadescMusica.Clear()
 
580
    destino = User.Home &/ ".easyinstall/descmusicaEN.data" 
 
581
    arr_cadenas = Split(File.LOAD(destino))
 
582
        FOR EACH c IN arr_cadenas 
 
583
    TextAreadescMusica.Insert(c)
 
584
 NEXT 
 
585
 
 
586
ENDIF 
560
587
 
561
588
END
562
589
 
1134
1161
File.Save(destinoUtilitats, lineasDataUtilitats)
1135
1162
File.Save(destinoVideo, lineasDataVideo)
1136
1163
File.Save(destinopropis, lineasDatapropis)
1137
 
Message.Info("Configuración guardada correctamente")
 
1164
Message.Info(("Configuración guardada correctamente"))
1138
1165
 
1139
1166
'descipciones -------------------------------------------->
1140
1167
 
1270
1297
 
1271
1298
END
1272
1299
 
 
1300
 
 
1301