الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Convert Basic To C

مغلق
بدأه 3lazizi في 2 مايو 2006 · 1 رد · 604 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

BCX is a powerful programming language for writing 32-bit windows programs. BCX converts a BASIC style syntax to C source code that can be compiled in LCC-Win32 and PellesC. The language is evolving constantly. The BCX language is one of it's own. Best of all BCX is FREE!!!!!

BCX_ScreenShot.gif

Package Includes:

Examples for Windows GUI, console, and dynamic libraries (assorted folders)

Complete documentation (bcxhelp.chm)

A Getting Started Guide (GS.chm)

The BASIC to C translator (bs.exe)

A resource compiler (rc.exe)

A GUI based BCX to .exe converter (Bcxtoexe.exe)

A GUI based MessageBox builder (mb.exe)

A GUI based Menu editor (makemenu.exe)

A simple dialog editor (dlgedit.exe)

A dialog starter that takes the code from the dialog editor and converts it to a framework to start from (ds.exe)

A dialog converter that converts the code from the dialog editor to pure BCX code (dc.exe)

A text editor with BCX syntax highlighting (Jfe.exe)

An Animated Cursor and an Image editor (Aniedit.exe, Imagedit.exe)

Assorted batch files that help automate the conversion and C compiling process (*.bat)

Plus several more utilities

Example Syntax:

GUI "Alert"

GLOBAL TimerID
GLOBAL Change
GLOBAL Form1 AS CONTROL
GLOBAL Label AS CONTROL


SUB FORMLOAD
  Form1 = BCX_FORM   ("Alert",0,0,75,50)
  Label = BCX_LABEL  ("Alert",Form1,0,0,0,75,50)
  TimerID = SetTimer (Form1, 1, 1000, NULL)
  MODSTYLE (Form1,0,WS_MINIMIZEBOX|WS_SIZEBOX|WS_MAXIMIZEBOX,0)
  MODSTYLE (Label,SS_CENTER OR SS_CENTERIMAGE)
  BCX_SET_FONT Label, "Garamond", 28
  CENTER (Form1)
  SHOW (Form1)
END SUB


BEGIN EVENTS
SELECT CASE CBMSG
'***************
  CASE WM_TIMER
'***************
  IF wParam = 1 THEN
	Change = NOT Change
	InvalidateRect ( Label,0,TRUE )     ' Force a redraw
  End If
'***************
  CASE WM_CTLCOLORSTATIC        ' Colorize our static text controls
'***************
  IF (HANDLE) lParam = Label THEN
	If Change Then
   BCX_SET_LABEL_COLOR (Label,QBCOLOR(12),QBCOLOR(15))
	ELSE
   BCX_SET_LABEL_COLOR (Label,QBCOLOR(15),QBCOLOR(12))
	END IF
  END IF
'***************
  CASE WM_DESTROY
'***************
  KillTimer(hWnd,1)
  PostQuitMessage(0)
  EXIT FUNCTION
'***************
END SELECT
END EVENTS

BCX_ScreenShot2.gif

BCX_ScreenShot_Tray.gif

BCX_ScreenShot_JFE.gif

the web site : http://www.bcxgurus.com/

http://www.rjpcomputing.com/programming/bcx/

CCU

(وقل ربي زدني علما)

#2

اخي انا اعي تماما ما يقال لكن المنتدى باللغة العربية وهناك من لغته الانكليزية ليست بالجيدة جدا كي يقرا الموضوع ويفهم محتواه مباشرة والغاية منه. لذا يفضل ان يتم وضع الشرح ولو ببضع كلمات عن الاستخدام واهم المزايا.

بالتوفيق

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

هذا الموضوع مغلق.

مواضيع مشابهة