Text Problems

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

leeluna

Po,

Try this

Graphics 800,600 

planetmath=LoadImage("planetmath.bmp") 
beep=LoadSound("beep.wav") 
beeplow=LoadSound("beeplow.wav") 

SetBuffer BackBuffer() 

font=LoadFont("Impact",72,True,False) 
SetFont font 

While Not KeyHit(1) 
	Cls
	SeedRnd MilliSecs() 

	number1=Rnd(0,9) 
	number2=Rnd(0,9) 

	DrawImage planetmath,0,0 

	Color 0,255,0 
	Text 430,320,number1 
	Text 493,325,"+" 
	Text 557,320,number2 
	Text 609,325,"=" 

	Color 0,255,0 
	Locate 400,340 
	guess=Input("Input your guess using the top number keys:-") 

	If number1+number2=guess Then 
		Text 600,410,"Right" 
		PlaySound beep 
	Else 
		Color 255,0,0 
		Text 600,410,"Wrong" 
		PlaySound beeplow 
	EndIf 
	Color 0,255,0
	Locate 600,430
	again$=Input("Try Another? y / n ")
	If again$="n" 
		 End
	EndIf
	Flip
Wend

It seems to work if you enter your number from the top number row on your keyboard, so leave the number pad alone!!.

Luna.