FIFA World Cup Viewer

Moderatoren: Sleeπ, andymanone

Antworten
Benutzeravatar
MichaG
Beiträge: 380
Registriert: 14.10.2021 12:54
Has thanked: 383 times
Been thanked: 111 times
Kontaktdaten:

FIFA World Cup Viewer

Beitrag von MichaG »

Ich habe hier einen quick-and-dirty FIFA World Cup Viewer mit FujiNet's json parser gebastelt. Kein Meisterwerk in Design, Geschwindigkeit und Memory-Management, aber es funktioniert.

Mit A bis H kann man zwischen den Gruppen umschalten. Darstellung der Ergebnisse ist noch nicht eingebaut.

N:-Handler wird benötigt.
20221117_070407.jpg
WC22V08.BAS
(2.5 KiB) 36-mal heruntergeladen

Code: Alles auswählen

1 DIM NAME$(32),GRP$(1)
5 DIM RET$(256),N$(256),URL$(256)
10 GR=1
16 URL$="N:HTTPS://api.openligadb.de/getmatchdata/WM2022/2022/1"
30 GOSUB 1200
35 REM GOSUB 1400
40 OPEN #2,12,0,"K:":GET #2,KEY:CLOSE #2
50 GR=KEY-ASC("A")+1
55 IF GR<1 OR GR>8 THEN 40
60 GOTO 30
99 CLOSE #1:END 
100 REM FUNC QUERRY *****************
110 XIO ASC("Q"),#1,12,0,N$
130 INPUT #1,RET$
140 RETURN 
200 REM PROC MATCHDAY ***************
210 FOR I=0 TO 5
214 POSITION 1,I*2+4
215 ? I+1;")";
220 N$="N:/0/matchDateTime"
222 N$(4,4)=STR$(I)
224 POSITION 4,I*2+4
225 N$(4,4)=STR$(I)
228 GOSUB 100:? RET$(3,10)
240 N$="N:/0/team1/teamID"
242 N$(4,4)=STR$(I)
244 POSITION 14,I*2+4
245 GOSUB 100:GOSUB 2100:? RET$,
250 N$="N:/0/team2/teamID"
252 N$(4,4)=STR$(I)
254 POSITION 22,I*2+4
255 GOSUB 100:GOSUB 2100:? "-";RET$
260 N$="N:/0/matchIsFinished"
262 N$(4,4)=STR$(I)
264 POSITION 34,I*2+4
265 GOSUB 100
267 IF RET$="FALSE" THEN ? "_ : _":GOTO 290
290 NEXT I
295 RETURN 
1200 REM SCREEN *********************
1205 POKE 82,0:POKE 752,1
1210 ? "}     World Cup 22 for FujiNet 0.8":? "       by Michael Goroll (MichaG)"
1215 ? " GRP.";
1220 FOR G=1 TO 8
1225 AA=ASC("A")-1
1226 IF G=GR THEN AA=ASC("A")-1
1230 ? CHR$(AA+G);" ";
1250 NEXT G
1260 ? "I=AF J=QF K=HF L=F"
1270 POSITION 8,23:? "powered by openligadb.de";
1285 GOSUB 1300
1290 RETURN 
1300 REM DISPLAY GROUP GR ***********
1310 N$=URL$:N$(LEN(N$))=STR$(GR)
1320 CLOSE #1
1330 OPEN #1,12,0,N$
1335 XIO 252,#1,12,1,"N:"
1340 XIO ASC("P"),#1,12,0,"N:"
1345 GOSUB 200
1350 CLOSE #1
1390 RETURN 
2000 REM PROC Display all Teams
2010 RESTORE 3000
2020 FOR T=1 TO 32
2030 READ ID,NAME$,GRP$
2040 ? ID,NAME$,GRP$
2050 NEXT T
2100 REM PROC Get Teamname **********
2110 RESTORE 3000
2120 FOR T=1 TO 32
2130 READ ID,NAME$,GRP$
2140 IF STR$(ID)=RET$ THEN RET$=NAME$
2150 NEXT T
2160 RETURN 
3000 DATA 764,Argentina,C,750,Australia,D,2673,Belgium,F,753,Brazil,G,2669,Costa Rica,E,758,Denmark,D
3001 DATA 139,Germany,E,2670,Ecuador,A,755,England,B,144,France,D,754,Ghana,H,2672,Iran,B,749,Japan,E
3002 DATA 845,Cameroon,G,5588,Canada,F,4912,Qatar,A,146,Coatia,F,4629,Morocco,F,761,Mexico,C
3003 DATA 147,Netherl.,A,1410,Poland,C,149,Portugal,H,2408,Saudi Arabia,C,38,Switzerland,G,4630,Senegal,A
3004 DATA 1404,Serbia,G,170,Spain,E,751,S.Korea,H,1391,Tunisia,D,849,Uruguay,H,949,USA,B,5572,Wales,
ABBUC-Mitglied aus den 90ern/frühen 2000ern
Ex-WAF und Regionalgruppe Thüringen

Benutzeravatar
atarixle
Beiträge: 271
Registriert: 18.06.2021 21:19
Has thanked: 29 times
Been thanked: 51 times
Kontaktdaten:

Re: FIFA World Cup Viewer

Beitrag von atarixle »

Meine persönliche WM wird so aussehen:

Code: Alles auswählen

10 ? "boycotting event":END

Benutzeravatar
Mathy
Beiträge: 1135
Registriert: 18.06.2021 11:13
Wohnort: Heerlen, NL
Has thanked: 451 times
Been thanked: 256 times
Kontaktdaten:

Re: FIFA World Cup Viewer

Beitrag von Mathy »

.
Hallo Micha

Wieso hast du "Netherl." abgekürzt? "Saudi Arabien" ist zwei Buchstaben länger als "Netherlands", ist aber nicht abgekürzt.

Tschüß

Mathy

PS Ich hätte die gleiche Frage gestellt wenn ich kein NL-er währe!
Wer oder was hat denn da geblitzt?

Benutzeravatar
MichaG
Beiträge: 380
Registriert: 14.10.2021 12:54
Has thanked: 383 times
Been thanked: 111 times
Kontaktdaten:

Re: FIFA World Cup Viewer

Beitrag von MichaG »

Mathy hat geschrieben:
18.11.2022 01:05
Wieso hast du "Netherl." abgekürzt? "Saudi Arabien" ist zwei Buchstaben länger als "Netherlands", ist aber nicht abgekürzt.
Weil mir NL bei meinen ersten Tests den Screen zerschossen hatte (Gruppe A) und ich danach nicht weiter drauf geachtet hatte. Sorry, sollte keine Diskriminierung sein ;-)

Wie schon erwähnt, das ist eher als "Proof Of Concept" zu sehen als als voll durchgestyltes Programm.
ABBUC-Mitglied aus den 90ern/frühen 2000ern
Ex-WAF und Regionalgruppe Thüringen

Benutzeravatar
MichaG
Beiträge: 380
Registriert: 14.10.2021 12:54
Has thanked: 383 times
Been thanked: 111 times
Kontaktdaten:

Re: FIFA World Cup Viewer

Beitrag von MichaG »

Ergebnis-Anzeige ergänzt...
20221120_205806.jpg
WC22V09.BAS
(2.69 KiB) 31-mal heruntergeladen
ABBUC-Mitglied aus den 90ern/frühen 2000ern
Ex-WAF und Regionalgruppe Thüringen

Benutzeravatar
MichaG
Beiträge: 380
Registriert: 14.10.2021 12:54
Has thanked: 383 times
Been thanked: 111 times
Kontaktdaten:

Re: FIFA World Cup Viewer

Beitrag von MichaG »

Kleiner Bugfix
WC22V091.BAS
(2.69 KiB) 34-mal heruntergeladen
ABBUC-Mitglied aus den 90ern/frühen 2000ern
Ex-WAF und Regionalgruppe Thüringen

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast