Key coding

[JaketheDude]

I am not new to BASIC, but I am new to this type of BASIC. I used to use BlitzMax, but stuff happened, so I got KBasic.

Things I need to know:
How to do Types
Key coding and mouse coding
I may need to know other things, but the above is just for right now.

[Slowdown]

Hi,
Did you already installed KBasic ?
If so look at the examples and/or documentation.
I think you will find all you need to know.

[JaketheDude]

I did install KBasic.
The thing is, on Blitz, to give a function to a certain key I did something like this:
If KeyDown (KEY_RIGHT) Then
player.x = player.x + 5
EndIf
But I looked at the key codes and it didn't say how to establish a key IS being pressed, like KeyDown on Blitz.

For Types, I did this
Type TPlayer
Field x,y
End Type
but that doesn't do anything on KBasic. I couldn't find what I was looking for either.

[berndnoetscher]

Code: Select all

'http://www.kbasic.com/doku.php?id=control#key_codes

Private Sub Form_OnKeyPress(KeyCode As Integer, Shift As Boolean, Control As Boolean, Alt As Boolean)
  MsgBox(KeyCode)
  if KeyCode = Key.F5 Then
    Msgbox("F5")
  end if
End Sub


[Henning]

Try this

Type TPlayer
x As Integer
y As Integer
End Type

Dim player As TPlayer

If you need to access it outside the module where declared.
Public player As TPlayer

/Henning

[JaketheDude]

1) When I typed in the F5 thing, a KBasic icon appeared on my dock for not two seconds and disappeared.
2) How do I make the program's window 640x480 pixels?

[Henning]

Just a guess, do as in VB.

Code: Select all

    Private Sub Form_OnKeyPress(KeyCode As Integer, Shift As Boolean, Control As Boolean, Alt As Boolean)
      MsgBox(KeyCode)
      if KeyCode = Key.F5 Then
        Msgbox("F5")
        KeyCode = 0
      end if
    End Sub



The value in KeyCode will stay till removed. So other parts of the app, and maybe in the end the IDE, will also receive it, as if pressing F5.

/Henning

[Henning]

@JaketheDude

2) From an old post:
Sub Form_OnOpen()
Me.Width =640
Me.Height = 480
End Sub

/Henning