Keskustelu: Ohjelmointikysymykset: QB, VB6: BSAVE/BLOAD tiedosto

Gaxx [12.02.2004 21:54:26]

Eli tietääkö joku mistä sais tietää BSAVE:lla "tehdyn" tiedoston salaussysteemin? Vai onko se taas näitä M$:än salaisia juttuja? :)

Ja kieli oli sit QB(jos VB:ssä nyt tollasta on).

rndprogy [12.02.2004 21:58:07]

mikä ihmeen salaussysteemi?

Gaxx [12.02.2004 22:00:18]

No ku se tallentaa sen binäärinä. Eli tarkoitukseni olisi muokata tiedostoa käsin(tai no oikeastaan ohjelmalla).

Gaxx [12.02.2004 22:26:02]

No joo... toi voi olla kyllä vähän monimutkasta kaksoispuskuroinnin tekoon, mutta onkos kellään tietoo, että miten vois päästä muokkaamaan GET:llä otettuja kuvia?

rndprogy [12.02.2004 22:27:26]

tarkoitatko kenties miten se ladataan

DIM H(16000)
SCREEN 13
DEF SEG = VARSEG(H(0))
BLOAD "KUVA.IMG", 0
DEF SEG
PUT (0, 0), H

sitten vaan koodaat lisää grafiikkaa

Gaxx [12.02.2004 22:36:52]

Hmm... nyt ei ymmärrä kaikkea

DIM H(16000)
SCREEN 13
DEF SEG = VARSEG(H(0))  //epäselvä rivi
BLOAD "KUVA.IMG", 0
DEF SEG                 //epäselvä rivi
PUT (0, 0), H

Eli siis jos selittäisit noiden rivien merkityksen niin olisi hyvä

PS. Eikös pelkkä BLOAD "kuva.img", 0 lataa kuvan suoraan ruudulle? Vai mitä haet tuossa?

sqwiik [12.02.2004 23:00:03]

GET:llä otettuja kuvia voi muokata (erittäin) helposti, jos tietää miten ne on otettu... Olen laittanut vetämään koodivinkin GET:n muokkaukseen, mutta voin laittaa sen tähänkin.

Huom: saattaa olla hidas. Seuraava subbi piirtää get:llä otettuun kuvaan halutun värisen pisteen kohtaan x,y.

'Koodia ala Maestro Sqwiik - suoraan pohjattomasta hatusta!

''esim
DIM kuva(52)  AS INTEGER  '(10x10 / 2) + 2 = kuvan vaatima tila screen 13:ssa

SCREEN 13
LINE (0, 0)-(9, 9), 2, BF 'Hieman kuvaa
CIRCLE (5, 5), 4, 4       'piirrellään...
GET (0, 0)-(9, 9), kuva
PUT (100, 100), kuva, PSET 'kuva ensin...
ReTouchGet kuva(), 2, 5, 1 'piirretään (sininen)piste kohtaan 2,5
PUT (100, 120), kuva, PSET 'Vóila!



SUB ReTouchGet (mikakuva() AS INTEGER, x AS INTEGER, y AS INTEGER, vari AS INTEGER)
DIM w AS INTEGER, h AS INTEGER 'kuvan koko
DIM kohta AS INTEGER 'mihin kohtaan kuvadataa
  IF vari < 0 OR vari > 255 THEN EXIT SUB 'Väärä väri
  w = INT(mikakuva(0) / 8)
  h = mikakuva(1)
  IF x < 1 OR x > w OR y < 1 OR y > H THEN EXIT SUB 'Invalidit koordinaatit...
  kohta = y * w + x 'lasketaan kohta
  IF kohta AND 1 THEN 'pariton kohta eli uusi piste menee ylätavuun
    kohta = INT(kohta / 2) + 2 'monesko intti datassa
    mikakuva(kohta) = (mikakuva(kohta) AND 255) 'nollataan ylätavu
    mikakuva(kohta) = mikakuva(kohta) + (vari * 256) 'lisätään uusi ylätavu
  ELSE  'parillinen, eli alatavuun
    kohta = INT(kohta / 2) + 2 'monesko intti datassa
    mikakuva(kohta) = mikakuva(kohta) XOR (mikakuva(kohta) AND 255) 'nollataan alatavu
    mikakuva(kohta) = mikakuva(kohta) OR vari 'lisätään väri
  END IF
END SUB

Gaxx [12.02.2004 23:07:36]

Kiitti! Tollasta mää tossa yritin just kehitellä(lähinnä jotain kaavaa).

Hmm... miksköhän en tajunnu kattoo koodivinkkei :\

sqwiik [12.02.2004 23:09:09]

Et löytänyt, koska se ei ole vielä koodivinkeissä...

sqwiik [13.02.2004 00:54:13]

Damsn, muokkausaika ummessa... lähetin vinkin, tod. näköisesti tulee paikkoin. Siinä on 3 subbia, joilla voi käsitellä GET:llä otettuja kuvia, ja ne ovat Blit, Blit transparentilla ja tuo äskeinen Touch.
Saa nähdä koska tulevat esiin, nyt ovat nähtävissä tuolla:

https://www.ohjelmointiputka.net/koodivinkit/24195-qb-get-kuvien-muokkaus

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät