Kirjautuminen

Haku

Tehtävät

Koodivinkit: QB64: Windowsin kielen tunnistaminen

Kirjoittaja: terrist; viimeksi muokattu 22.09.2018.

Tagit: työpöytäohjelmat

En löytänyt QB64:stä komentoa jolla tunnistaa Windows-käyttäjän kieli, joten piti tehdä sellainen. Tästä hyötyä esim. peleissä, kielivalikon voi jättää pois. Suomen kielikoodi on 1035.

SCREEN 0
DIM Rivi$(20)
SHELL "PowerShell Get-Culture > kieli.txt"
OPEN "kieli.txt" FOR INPUT AS #1
DO WHILE (NOT EOF(1))
    c = c + 1: INPUT #1, Rivi$(c)
LOOP
CLOSE #1
PRINT Rivi$(7)
IF SCREEN(1, 2, 0) = 49 AND SCREEN(1, 4, 0) = 48 AND SCREEN(1, 6, 0) = 51 AND SCREEN(1, 8, 0) = 53 THEN Suomi$ = "HAVAITTU"
CLS
IF Suomi$ = "HAVAITTU" THEN PRINT "TORTILLA TAVATAAN!" ELSE PRINT "MEET TORTILLA!"
_DISPLAY

Kirjoita kommentti

Muista lukea keskustelun ohjeet.
Tietoa sivustosta