TheGameCreators - CodeBase - ozmoz calculator

Return to the CodeBase listing

Category: Math / Physics

Version: 1.0

Information

Uploaded: 24th Apr 2007 12:11

Modified: 1st Jan 1970 01:00

Author: ozmoz

Summary

ozmoz calculator is make a basic sum.

Full Description

ozmoz calculator is make a basic sum.But ozmoz calculator skin like a windows calculator .And open new window:)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : calculator

Rem * Author : Ozan EKÄ°NCÄ°

Rem * Date   : 24th April 2007

SET WINDOW ON

SET WINDOW SIZE 640,480

SET WINDOW POSITION 100, 100

SET WINDOW TITLE "Calculator"

bas:

yer=0

say=0

ysay=0

gir:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

ink rgb(0,0,0),1

x=mousex()

y=mousey()

c=mousez()

rem if mouseclick()=1 then cls:set cursor 10,10:print x;"    ";y

if x>480 and x<610 and mouseclick()=1

if y>400 and y<450 then gosub topla

if y>170 and y<220 then gosub bol

if y>250 and y<300 then gosub carp

if y>330 and y<380 then gosub cikar

endif

if y>170 and y<220 and  mouseclick()=1

if x>40 and x<170 then  dur=7

if x>220 and x<310 then  dur=8

if x>350 and x<480 then  dur=9

gosub yapa

endif

if y>250 and y<300 and  mouseclick()=1

if x>40 and x<170 then  dur=4

if x>220 and x<310 then  dur=5

if x>350 and x<480 then  dur=6

gosub yapa

endif

if y>330 and y<380 and  mouseclick()=1

if x>40 and x<170 then  dur=1

if x>220 and x<310 then  dur=2

if x>350 and x<480 then  dur=3

gosub yapa

endif

if y>400 and y<450 and  mouseclick()=1

if x>40 and x<170 then  dur=0:gosub yapa

if x>220 and x<310 then goto bas

if x>350 and x<480 then gosub esit

endif

if yer>8 then goto bas

loop

yapa:

if yer=0

set cursor 500,80

say=dur

print say

endif

if  yer=>1

set cursor 500,80

say=say*10+dur

print say

endif

repeat:until mouseclick()=0

if yer>9 then say=say

yer=yer+1

return

topla:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

if ysay=0 then ysay=say:say=0

if say<>ysay

top=say+ysay

ink rgb(0,0,0),1

set cursor 500,130

print top

say=0

endif

repeat:until mouseclick()=0

return

bol:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

if ysay=0 then ysay=say:say=0

if say>0 and say<>ysay

top=ysay/say

ink rgb(0,0,0),1

set cursor 500,130

print top

endif

repeat:until mouseclick()=0

return

carp:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

if ysay=0 then ysay=say:say=0

if say<>ysay

top=say*ysay

ink rgb(0,0,0),1

set cursor 500,130

print top

say=0

endif

repeat:until mouseclick()=0

return

cikar:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

if ysay=0 then ysay=say:say=0

if say<>ysay

top=say-ysay

ink rgb(0,0,0),1

set cursor 500,130

print top

say=0

endif

repeat:until mouseclick()=0

return

esit:

ink rgb(244,214,210),1

load bitmap "hesap.bmp"

ink rgb(0,0,0),1

set cursor 500,130

print top

repeat:until mouseclick()=0

return

Download

Please login to download

Comments

No comments yet.

Author Name:	ozmoz
CodeBase Entries:	11

CodeBase - ozmoz calculator

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments