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

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).

mikä ihmeen salaussysteemi?

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

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?

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

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?

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

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

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

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

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