Code:
DIM MyScreen(199) as String * 320
Code:
Sub Dot(X%,Y%,Z%)ax& = x%ay& = y%Def Seg = Varseg(MyScreen(0))Offset& = VarPtr(MyScreen(0)) + ax& + ay& * 320& 'Be carefull With Overflow Error!Poke Offset&, Z%def segEnd SubFunction Pixel%(X%,Y%)ax& = x%ay& = y%'Returns The Pxiel ValueDef Seg = Varseg(MyScreen(0))Offset& = VarPtr(MyScreen(0)) + ax& + ay& * 320& 'Be carefull With Overflow Error!k%=Peek(Offset&)def segPixel = k%End Function
Code:
add& = 0For y% = 0 to 199For x% = 0 to 319def seg = &HA000p% = Pixel(x%,y%)add& = add& + 1poke add&, p%nextnextdef seg
Code:
Dim SHared Virmem(9) as String * 10 'we have 100 bytes ! 10-10-10...VirMem(0) = "TOLGAARCOK"'Now Lets Use The Function Abovek% = Pixel(0,5) 'Note That it means 1,6!!!Print K%Dot 0,5,66Print VirMem(0)
Statistics: Posted by Yazar — Sun Jun 01, 2008 12:16 pm
Statistics: Posted by burger2227 — Thu Apr 10, 2008 8:01 pm
Statistics: Posted by Codemss — Thu Apr 03, 2008 2:07 pm
Code:
DEFINT A-Zz = &H1000SCREEN 0, , 1, 1CLSCOLOR 15, 1PRINT "A"SCREEN 0, , 0, 0CLSCOLOR 7, 0PRINT "a"DEF SEG = &HB800PRINT HEX$(PEEK(0)), HEX$(PEEK(1))PRINT HEX$(PEEK(z)), HEX$(PEEK(z + 1))
I don't use QB 4.5, but if it's like anything else, the include file (like a .h file in C) is just a file that gets copied into your source at compile time.Is the .BI file nesessary?
Statistics: Posted by Michael Calkins — Wed Apr 02, 2008 10:58 pm
Statistics: Posted by LightBulb — Wed Apr 02, 2008 8:15 pm