Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - caroper

Pages: [1]
1
InForm Discussion / Re: An InForm review of sorts..........
« on: January 13, 2020, 03:10:14 pm »
I am not sure how much demand there would be for my code in these forums.
Most of my programming is on the bare metal twiddling bits to control external Electronics with PIC and AVR Microcontrollers.

Recently a need has arisen to find a way to talk to Windows for USB enabled devices as well as simple Serial and wireless communications.
Due to that nature of the GCBASIC audience a tool that can be used without the steep learning curve of the Microsoft Visual Studio and the .NET framework was desirable for a community of programmers with experience of BASIC but little else.

So far QB64 has proven the most reliable for communications and InForm hides a lot of the clutter that is exposed by most other form designers, hence my recommending it to the GCBASIC community.

I do have a couple of projects in mind but they are very Microcontroller centric and will need external hardware to make any use of.
But if there is interest I will certainly post here, even if it is just a description and link to the  Microcontroller Forums.

At the very least it will help show the diversity of applications for QB64 and InForm.

Cheers
Chris

2
InForm Discussion / Re: An InForm review of sorts..........
« on: January 12, 2020, 06:12:12 pm »
Thanks for the kind words and the update Fellippe, I am not sure what SF is doing with images but it is certainly their weakest link, both adding and displaying.

Here is a link to my Goggle DOC's Master copy of the article, the code is probably not formatted but the images should display.
https://docs.google.com/document/d/1k9vLux2oCPyn9ehy4F5TINiwjFdbc-Mn5F11fQr61iI/edit?usp=sharing

Cheers
Chris

3
InForm Discussion / An InForm review of sorts..........
« on: January 12, 2020, 04:45:50 pm »
Rather than cross post my review of InForm on both Forums here is a link to my introductory thread for QB64/InForm in the GCBASIC Microcontroller programming Forum.

https://sourceforge.net/p/gcbasic/discussion/projects%26guides/thread/9d00f65816/?limit=25

I Chose to paste it there as I have no Idea how many QB64 Users are also interested in Microcontroller programming where as many of the GCBASIC users are interested in talking to windows.

If you would rather I Post here as well then please say so and I will be happy to oblige.

Cheers
Chris

4
InForm Discussion / Re: Serial Comm's in InForm Project
« on: January 10, 2020, 05:36:37 pm »
Thanks Fellippe,

That works perfectly.

One more question if I may:

I have placed my SHARED variable (DIM SHARED PxStr AS STRING * 1 )  along with the system generated Variables, but it is lost on form edits.
Is there a better place to set up user variables that is non volatile?

Cheers
Chris

5
InForm Discussion / Re: Serial Comm's in InForm Project
« on: January 10, 2020, 04:30:27 pm »
In case it helps here is the Microcontroller Code that I can confirm works by attaching a terminal:

Code: [Select]
#chip 16f18855,32
#option explicit
#Config MCLRE_ON
'
#startup InitPPS, 85

Sub InitPPS
  'Module: EUSART
  RXPPS  = 0x0011    'RC1 < RX
  RC0PPS = 0x0010    'TX  > RC0
End Sub

#define NUL 0                          ' ASCII Null Character
#define DefaultUsartReturnValue = NUL  ' Overive default of nbsp
#define USART_BAUD_RATE 19200
Dir PortA.0 out
Dir PortA.1 out
Dir PortA.2 out
Dir PortA.3 out
Dir PortA.5 in

Dim InChar as Byte
Dim GhostA as Byte

GhostA = PortA

Do
  InChar = HSerReceive

  Select case InChar
    Case "1"
      PortA.0 = NOT PortA.0
    Case "2"
      PortA.1 = NOT PortA.1
    Case "3"
      PortA.2 = NOT PortA.2
    Case "4"
      PortA.3 = NOT PortA.3
  end select

  If GhostA.5 <> PortA.5 then
    GhostA = PortA
    InChar = "5"
    HSerSend InChar
  end if

Loop

Cheers
Chris

edit: Thanks odin but as GCBASIC and QB64 use the same keywords I purposely formated my code as to use the highlighting.
I will however leave it as edited by a Moderator.

6
InForm Discussion / Serial Comm's in InForm Project
« on: January 10, 2020, 04:24:10 pm »
I am new to QB64 and InForm but I cut my teeth in programing with BASIC back in the 80's so QB64 was like a breath of fresh air when I found it last week, especially as I use GCBASIC to program Microcontrollers. The Cherry on top was InForm with which I saw a chance to try my hand at Windows programming.

My test project is to try and create a Windows interface to a Microchip PIC Development board.
The Hardware is WIN7 Pro 64 Bit and a  Microchip Xpress 16f18855 development board - talking via USB as COM6:

I have the code working one way with Windows able to control the 4 LED's via Check Boxes RA0..RA3.

 
InForm01.png


But RA5 should reflect the state of the button on the board and is not responding.

The Microcontroller code is working as an attached terminal correctly received the string that InForm should receive.

The Relevant code snippets are:

Code: QB64: [Select]
  1. DIM SHARED XpressEvaluationBoard AS LONG
  8. DIM SHARED PxStr AS STRING * 1
  9. ': External modules: ---------------------------------------------------------------
  10. '$INCLUDE:'InForm\InForm.ui'
  11. '$INCLUDE:'InForm\xp.uitheme'
  12. '$INCLUDE:'QB64_Xpress_Com6.frm'
  13.  

Code: QB64: [Select]
  1. SUB __UI_OnLoad
  2.     OPEN "COM6:19200,N,8,1,BIN,CS0,DS0" FOR RANDOM AS #1
  4.  

This is the part that is not working - any suggestions would be welcome.
Code: QB64: [Select]
  1. SUB __UI_BeforeUpdateDisplay
  2.     'This event occurs at approximately 30 frames per second.
  3.     'You can change the update frequency by calling SetFrameRate DesiredRate%
  4.     IF LOC(1) THEN
  5.         GET #1, , PxStr
  6.         IF PxStr = "5" THEN
  7.             x = RA5CB.value
  8.             IF x <> 0 THEN
  9.                 x = 0
  10.             ELSE
  11.                 x = -1
  12.             END IF            
  13.             RA5CB.value = x
  14.         END IF
  15.     END IF
  17.  

and back to apparently working code:
Code: QB64: [Select]
  1. SUB __UI_BeforeUnload
  2.     'If you set __UI_UnloadSignal = False here you can
  3.     'cancel the user's request to close.
  4.     CLOSE #1

Code: QB64: [Select]
  1. SUB __UI_Click (id AS LONG)
  2.      PxStr = ""
  3.      SELECT CASE id
  4.         CASE RA0CB
  5.             PxStr = "1"
  6.  
  7.         CASE RA1CB
  8.             PxStr = "2"
  9.  
  10.         CASE RA2CB
  11.             PxStr = "3"
  12.  
  13.         CASE RA3CB
  14.             PxStr = "4"
  15.     END SELECT
  16.     PUT #1, , PxStr
  18.  

Everything else is just the Boiler plate code generated by InForm.

Any hints would be appreciated as being a novice at windows programming I have probably made a simple mistake that I am too inexperienced to see.

Thanks for QB64 and InForm, combined with Great Cow BASIC - the language I use to Program Microcontrollers - I can envisage a world of cooperative PC/Controller apps.

Cheers
Chris

Pages: [1]