PureBasic Forums - English

hi

i would to convert a c code to purebasic
this code make a DDE link between a extern program and autocad


HWND hwnd_Acad;
WORD wm_acad;

char *ac = "\3\3ligne 0.0,0.0 3.4,4.5 6.6,7.7 \n";

wm_acad = registerwindowmessage("WM_ACAD");
hwnd_Acad = FindWindow("AUTOCAD.gfx",NULL);

If (hwnd_Acad ...

another solution, with use of createimage... ending of problem with releasemouse()

modif of :

;
; ------------------------------------------------------------
;
; PureBasic - Image example file
;
; (c) 2001 - Fantaisie Software ...

hi,

This application opens a window with a graphic screen inside. I thus have a graphic cursor which is trotted with the mouse.

but the mouse hesitates much to return in the graphic screen.
would you have an idea to arrange that?
or a better solution...

thanks

patrick88


;- déclaration ...

this example code is getting from example code of smallbasic
it is writing with the langage smallbasic...

another basic is ddsbasic finding on web or in linux distrib ... it's writing in c an is it small (5kb) easy to traduc in pb

excuse my bad english, i'm french 8)

patrick

' TinyBASIC, by ...

ahhhh, that's work

( file sdl.res is in the new linux version 3.81 of pb )

thanks for help.

patrick

where can I find these file for pb ?

- a definition constante file for sdl
- a definition structure file for sdl
- all other needed stuff...

thanks

Patrick

hmmm...

i'm just modify the StringGadget and remove chr(13)+chr(10) on my return string... that's work ok , thanks...


If GetFocus_() = GadgetID(#EDIT)
buffer = GetGadgetText(#EDIT)
buffer = RemoveString(buffer,Chr(13)+Chr(10))

SetGadgetText(#EDIT,"")
;InterpreteBuffer()
ActivateGadget ...

* run code
* clic in stringgadget
* enter text and press enter key
a sound this fact of hearing

my question is :

how to not hearing this sound ?


Enumeration
#WIN_MAIN

#LISTE
#EDIT
EndEnumeration

#VERSION = "DDS BASIC WIN 4.1"

If OpenWindow(#WIN_MAIN, 1, 1, 600, 300, #PB_Window ...

that's work, with sometimes of the odd errors which do not arrive under win2k... but my config for work under win95, is Cyrix 586-100 and 8mb of ram....

see http://www.246.dk/pascals.html for details...

thanks for your answer,

GedB wrote: If you really need to use Pascal's typing then why not try FreePascal.

it's not my goal, i bought turbo pascal and delphi 2, a long time ago...
if I does that, it is that I desire to know how it goes an compiler/interpreter....

how to convert this pascal code to purebasic ???

type opcode = (add, neg, mul, divd, remd, div2, rem2, eqli, neqi, lssi,
leqi, gtri, geqi, dupl, swap, andb, orb,
load, stor, hhalt, wri, wrc, wrl, rdi, rdc, rdl, eol,
ldc, ldla, ldl, ldg, stl, stg, move, copy, addc, mulc,
jump, jumpz, call ...

the exact line is :

just the beginning... :oops:

patrick

#INFO = 1001
#BUT_LINE = 1100
#BUT_CIRCLE = 1101
#ENT_LINE = 20
#ENT_CIRCLE = 30
#DEFINITIF = 0
#ESQUISSE = 1

Structure stru_line
x1.w
y1.w
x2.w
y2.w
EndStructure

Structure stru_circle
x1.w
y1.w
r1.w
r2.w
EndStructure

; a revoir - ok pour les tests ...

arg ! i'm find problem ! i don't read the readme files !
i have the file "HighResTimer" in my UserLibraries directory...