Informations sur: CH1316.BAS

Publié par SFLPMEA le 02/05/2006

Description

Programme CH1316.BAS en Qbasic. Création de fichiers/datas pour les chiffres moyens en vue de chargements de tables pour les "PUT" d'affichage. Par SFLPMEA.

» Télécharger la source non formatée

Code source (langage qbasic)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141

'*********************************
'*  Cr‚ation des CHIFFRES 13/16  *  C:\\ALPHABET\\ALPH1316\\CH1316.BfAS
'*********************************
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: ACCES = "C:\\ALPHABET\\ALPH1316\\" ' *** R‚pertoire … CREER
    DIM G&(33) ' Chiffres de 13/16
    K% = 1   ' Couleur Fond (Modifiable)
    C% = 16  ' Couleur du CHIFFRE (Modifiable)
    X% = 96: Y% = 200
    LOCATE X% \\ 8, (Y% - 1) \\ 16: PRINT "--> Controle des PUT"
C0:  '*** 0 *****
    LINE (239, 34)-(251, 49), K%, BF
    LINE (244, 35)-(246, 35), C%, BF: LINE (243, 36)-(244, 36), C%, BF
    LINE (241, 39)-(241, 44), C%, BF: LINE (242, 37)-(243, 46), C%, BF
    LINE (243, 47)-(243, 47), C%, BF: LINE (247, 36)-(247, 47), C%, BF
    LINE (248, 37)-(248, 46), C%, BF: LINE (249, 39)-(249, 44), C%, BF
    LINE (244, 48)-(246, 48), C%, BF: GET (239, 34)-(251, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    'FOR a% = 1 TO 100: PRINT a%; G&(a%): NEXT a%
    CHIFFRE = "0": GOSUB FICHIER
C1: '*** 1 *****
    LINE (50, 34)-(62, 49), K%, BF
    LINE (56, 35)-(57, 35), C%, BF: LINE (54, 36)-(57, 36), C%, BF
    LINE (53, 37)-(57, 37), C%, BF: LINE (55, 38)-(57, 47), C%, BF
    LINE (53, 48)-(59, 48), C%, BF: GET (50, 34)-(62, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "1": GOSUB FICHIER
C2: '*** 2 *****
    LINE (71, 34)-(83, 49), K%, BF: LINE (73, 37)-(73, 37), C%, BF
    LINE (73, 36)-(79, 36), C%, BF: LINE (75, 35)-(78, 35), C%, BF
    LINE (77, 37)-(77, 37), C%, BF: LINE (78, 37)-(80, 39), C%, BF
    LINE (78, 40)-(79, 41), C%, BF: LINE (77, 42)-(78, 42), C%, BF
    LINE (76, 43)-(77, 43), C%, BF: LINE (76, 44)-(76, 44), C%, BF
    LINE (75, 45)-(75, 45), C%, BF: LINE (81, 45)-(81, 45), C%, BF
    LINE (74, 46)-(81, 46), C%, BF: LINE (73, 47)-(80, 48), C%, BF
    GET (71, 34)-(83, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "2": GOSUB FICHIER
C3: '*** 3 *****
    LINE (92, 34)-(104, 49), K%, BF: LINE (97, 35)-(100, 35), C%, BF
    LINE (95, 36)-(101, 36), C%, BF: LINE (94, 37)-(95, 37), C%, BF
    LINE (98, 37)-(101, 37), C%, BF: LINE (99, 38)-(101, 38), C%, BF
    LINE (99, 39)-(100, 39), C%, BF: LINE (98, 40)-(99, 40), C%, BF
    LINE (97, 41)-(101, 41), C%, BF: LINE (98, 42)-(102, 42), C%, BF
    LINE (99, 43)-(102, 43), C%, BF: LINE (100, 44)-(102, 45), C%, BF
    LINE (100, 46)-(101, 46), C%, BF: LINE (99, 47)-(100, 47), C%, BF
    LINE (94, 46)-(95, 46), C%, BF: LINE (94, 47)-(96, 47), C%, BF
    LINE (95, 48)-(99, 48), C%, BF: GET (92, 34)-(104, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "3": GOSUB FICHIER
C4: '*** 4 *****
    LINE (113, 34)-(125, 49), K%, BF
    LINE (119, 38)-(119, 38), C%, BF: LINE (119, 39)-(118, 40), C%, BF
    LINE (117, 41)-(117, 41), C%, BF: LINE (116, 42)-(116, 42), C%, BF
    LINE (115, 43)-(115, 43), C%, BF: LINE (121, 35)-(122, 36), C%, BF
    LINE (120, 37)-(122, 48), C%, BF: LINE (115, 44)-(123, 45), C%, BF
    GET (113, 34)-(125, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "4": GOSUB FICHIER
C5: '*** 5 *****
    LINE (134, 34)-(146, 49), K%, BF
    LINE (139, 35)-(144, 35), C%, BF: LINE (144, 36)-(144, 36), C%, BF
    LINE (138, 36)-(143, 37), C%, BF: LINE (137, 38)-(137, 38), C%, BF
    LINE (136, 41)-(136, 41), C%, BF: LINE (137, 39)-(140, 41), C%, BF
    LINE (141, 40)-(142, 42), C%, BF: LINE (143, 41)-(143, 43), C%, BF
    LINE (144, 42)-(144, 46), C%, BF: LINE (143, 47)-(143, 47), C%, BF
    LINE (139, 47)-(139, 47), C%, BF: LINE (136, 46)-(138, 47), C%, BF
    LINE (137, 48)-(142, 48), C%, BF: GET (134, 34)-(146, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "5": GOSUB FICHIER
C6: '*** 6 *****
    LINE (155, 34)-(167, 49), K%, BF
    LINE (163, 35)-(165, 35), C%, BF: LINE (161, 36)-(163, 36), C%, BF
    LINE (161, 37)-(161, 37), C%, BF: LINE (159, 37)-(160, 40), C%, BF
    LINE (158, 39)-(158, 40), C%, BF: LINE (157, 41)-(159, 45), C%, BF
    LINE (161, 40)-(163, 40), C%, BF: LINE (162, 41)-(164, 41), C%, BF
    LINE (163, 42)-(165, 45), C%, BF: LINE (158, 46)-(159, 47), C%, BF
    LINE (160, 47)-(160, 47), C%, BF: LINE (163, 46)-(164, 47), C%, BF
    LINE (160, 48)-(163, 48), C%, BF: GET (155, 34)-(167, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "6": GOSUB FICHIER
C7: '*** 7 *****
    LINE (176, 34)-(188, 49), K%, BF
    LINE (179, 35)-(186, 36), C%, BF: LINE (179, 37)-(185, 35), C%, BF
    LINE (178, 38)-(179, 39), C%, BF: LINE (185, 38)-(185, 39), C%, BF
    LINE (184, 40)-(184, 42), C%, BF: LINE (183, 43)-(183, 44), C%, BF
    LINE (182, 45)-(182, 47), C%, BF: LINE (181, 48)-(181, 48), C%, BF
    GET (176, 34)-(188, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "7": GOSUB FICHIER
C8: '*** 8 *****
    LINE (197, 34)-(209, 49), K%, BF
    LINE (201, 35)-(205, 35), C%, BF: LINE (200, 36)-(202, 36), C%, BF
    LINE (205, 36)-(206, 36), C%, BF: LINE (199, 37)-(201, 39), C%, BF
    LINE (202, 39)-(202, 39), C%, BF: LINE (206, 37)-(207, 39), C%, BF
    LINE (200, 40)-(206, 40), C%, BF: LINE (201, 41)-(205, 41), C%, BF
    LINE (201, 42)-(206, 42), C%, BF: LINE (200, 43)-(201, 43), C%, BF
    LINE (204, 43)-(207, 43), C%, BF: LINE (199, 44)-(200, 46), C%, BF
    LINE (205, 44)-(207, 46), C%, BF: LINE (200, 47)-(201, 47), C%, BF
    LINE (204, 47)-(206, 47), C%, BF: LINE (201, 48)-(205, 48), C%, BF
    GET (197, 34)-(209, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "8": GOSUB FICHIER
C9: '*** 9 *****
    LINE (218, 34)-(230, 49), K%, BF
    LINE (222, 35)-(225, 35), C%, BF: LINE (221, 36)-(222, 36), C%, BF
    LINE (225, 36)-(227, 36), C%, BF: LINE (220, 37)-(222, 41), C%, BF
    LINE (226, 37)-(227, 44), C%, BF: LINE (228, 38)-(228, 42), C%, BF
    LINE (221, 42)-(223, 42), C%, BF: LINE (222, 43)-(225, 43), C%, BF
    LINE (225, 44)-(225, 44), C%, BF: LINE (225, 45)-(226, 46), C%, BF
    LINE (224, 46)-(224, 46), C%, BF: LINE (222, 47)-(224, 47), C%, BF
    LINE (220, 48)-(222, 48), C%, BF: GET (218, 34)-(230, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "9": GOSUB FICHIER
CP: '*** Point *****
    LINE (267, 34)-(279, 49), K%, BF
    LINE (272, 46)-(274, 48), C%, BF: GET (267, 34)-(279, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "P": GOSUB FICHIER
CM: '*** Signe moins *****
    LINE (293, 34)-(305, 49), K%, BF
    LINE (296, 44)-(302, 45), C%, BF: GET (293, 34)-(305, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "M": GOSUB FICHIER
MINUTE: '*** Signe ' *****
    LINE (320, 26)-(332, 41), K%, BF
    LINE (325, 28)-(327, 31), C%, BF: LINE (326, 32)-(326, 34), C%, BF
    GET (320, 26)-(332, 41), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "MIN": GOSUB FICHIER
SECONDE: '*** Signe " *****
    LINE (339, 26)-(351, 41), K%, BF: LINE (342, 28)-(344, 31), C%, BF
    LINE (343, 32)-(343, 34), C%, BF: LINE (347, 28)-(349, 31), C%, BF
    LINE (348, 32)-(348, 34), C%, BF: GET (339, 26)-(351, 41), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "SEC": GOSUB FICHIER
    END
FICHIER: OPEN ACCES + "C_" + CHIFFRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 33: WRITE #1, G&(I%): NEXT I%
    CLOSE : RETURN
 
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,057 s - Crédits - Stats
1 connecté