Search found 228 matches

by Jawade
May 30, 2020 8:01
Forum: General
Topic: Start a program just one time
Replies: 59
Views: 1686

Re: Start a program just one time

Thanks, it works fine.
by Jawade
May 29, 2020 18:14
Forum: General
Topic: Start a program just one time
Replies: 59
Views: 1686

Start a program just one time

What is the best way to start a program not more than one time?
by Jawade
Mar 09, 2020 20:25
Forum: General
Topic: menu.bas
Replies: 0
Views: 582

menu.bas

In the examples dir is a programexplanation for pulldownmenu's. It is a nice program, but how can I write and/or graphics in the window? '' '' menu demo '' #include once "windows.bi" '' '' internal structs '' type TMENU hnd as HMENU end type type TMENUITEM title as string id as integer end...
by Jawade
Feb 27, 2020 14:35
Forum: Beginners
Topic: Custom Menu
Replies: 14
Views: 1880

Re: Custom Menu

I ve made a menu, it's just a begin without mouse. Press LMenu and arrows. Extern _CRT_glob Alias "_CRT_glob" As Integer Dim Shared _CRT_glob As Integer = 0 #INCLUDE "windows.bi" Dim Shared a As Integer Dim Shared alt As Integer Dim Shared alt1 As Integer Dim Shared b As Integer ...
by Jawade
Apr 18, 2019 9:17
Forum: General
Topic: Check if active
Replies: 4
Views: 662

Re: Check if active

Many thanks
by Jawade
Apr 17, 2019 11:19
Forum: General
Topic: Check if active
Replies: 4
Views: 662

Check if active

Is there a way to check if the program is the active window? And also too for graphics mode?
by Jawade
Apr 08, 2019 13:56
Forum: General
Topic: UEFI FreeBasic programming
Replies: 12
Views: 1438

Re: UEFI FreeBasic programming

I think that only opcode (machine code is) used at that level. So even an .exe is not possible.
by Jawade
Jan 13, 2019 14:55
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

Now complete with 3-mode size and 2-mode Insert: 'Choose 0, 1 Or 2 as parameter. #INCLUDE "windows.bi" Dim Shared mode As Integer Dim Shared big As Integer Dim Shared j As Integer Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s ...
by Jawade
Dec 30, 2018 19:45
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

OK, nice, but for passwords to 32 chars it is a bit starred. :-)

In the llast verion the following part must be removed:


If aa = Chr$(255, 134) Then
big = big Xor 3
ScreenRes 320*big, 240*big, 32: Width 80, 30: Color 0, -1:Cls
End If
by Jawade
Dec 30, 2018 16:55
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

Yes, that is right, but we can miss it. Nou I have the input routine extended with a big font. You have to choose mode 0, 1 or 2: 'Choose 0, 1 Or 2: Dim Shared mode As Integer = 2 Dim Shared big As Integer Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, ...
by Jawade
Dec 29, 2018 20:51
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

Now I have a length variable added. Now I think He 's ready. Now I go working with it with a larger font. Thanks for all the ideas and help. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer, l As integer) Main: ScreenRes 640, 48...
by Jawade
Dec 29, 2018 19:18
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

Okay, thanks. Now it works for tekst mode and graphics mode. Here i have the insertmode made all right, the only thing is the lengt limitation. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer) Main: ScreenRes 640, 480, 32: Widt...
by Jawade
Dec 29, 2018 2:08
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

I have never problems with String, Maybe I am a locky one.

If you will write between the letters, use Insert. It is not a bug.
I can make so he makes free space, 2 modes with Insert, but it
is a choice.
by Jawade
Dec 29, 2018 1:01
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

I have made a new one. Works good in textmode. ' Graphical mode is without cursor. Dim Shared nn As String Dim Shared pp As String Declare Sub xText(x As Integer, y As Integer, bb As String, s As Integer) Main: 'www ScreenRes 640, 480, 32: Width 80, 30: Color 0, -1 Cls Locate 5, 6: Print "Name:...
by Jawade
Nov 25, 2018 19:53
Forum: General
Topic: Is there existing an inputroutine?
Replies: 46
Views: 2987

Re: Is there existing an inputroutine?

Here is mine, it has only Backspace but everything is printable. What I want is also the use of Arrow left/right, Insert and Delete. But I know it's not simply. The best way I think is the use of a buffer. Dim Shared star As Integer Dim Shared i_ak As Integer Dim Shared i_ix As Integer Dim Shared i_...

Go to advanced search