Одоо орчин үед QB хэлийг сонирхон судалж байгаа хүн ер харагдахгүй болсон ба, уг хэлний дараагийн хувилбар болох Visual Basic хэл рүү орцгоосон.
Гэвч QB хэлийг сургалтын зорилгоор ашиглах боломжтой гэж хувьдаа бодож явдаг. Миний компьютерийн фолдерт 10 гаруй жил салхи оролгүй хадгалагдаж байгаа жишээ програмуудыг залуучуудад, тэр дундаа анхлан суралцагчдад хэрэг болж магадгүй гэсэн үүднээс энд татаж авах боломжтойгоор байршуулахаар шийдлээ.
Календарийн програм
CLS DIM SHARED a(12), sar(12) RESTORE l1 FOR i = 1 TO 12: READ a(i): NEXT RESTORE l2 FOR i = 1 TO 12: READ sar(i): NEXT INPUT "year ="; y 'y = 2004 IF y MOD 4 = 0 THEN sar(2) = 29 FOR m = 1 TO 12 CLS LOCATE 1, 58: COLOR 12, 0: PRINT USING "##### year"; y COLOR 10, 0 PRINT USING " #### month"; m LOCATE 3, 20: COLOR 5, 0 PRINT "mo tu we th fr sa su" ro = 4 FOR i = 1 TO sar(m) CALL gar(y, m, i, ga) IF ga = 0 THEN ga = 7 LOCATE ro, (ga - 1) * 5 + 19 q = 15 IF ga = 6 OR ga = 7 THEN q = 14 COLOR q, 0: PRINT i IF ga = 7 THEN ro = ro + 1 NEXT DO: LOOP WHILE INKEY$ = "" NEXT END l1: DATA 4,0,0,3,5,1 DATA 3,6,2,4,0,2 l2: DATA 31,28,31,30,31,30,31,31,30,31,30,31 SUB gar (y, m, d, w) q = y - 1999 s = INT(q / 4) + 1 md = y MOD 4 IF md = 0 THEN IF m < 3 THEN w = q + s - 1 w = w + a(m) + d w = w MOD 7 ELSE w = q + s w = w + a(m) + d w = w MOD 7 END IF ELSE w = q + s w = w + a(m) + d w = w MOD 7 END IF END SUB
No comments:
Post a Comment