بسم الله الرحمن الرحيم ،

لأي استفسار عن الفيجوال بيسك الرجاء الكتابة..

و السلام عليكم و رحمة الله و بركاته ..

السلام عليكم ورحمة الله وبركاته

• هل يُمكن ربط الفلاش بالفيجوال بيسك؟

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

و عليكم السلام و رحمة الله و بركاته،،

Just go to the Project's menu
then choose components
then select Windows Media Player
[php]
Private Sub Form_Load()
'Either we can set the FileName from the Properties
'Window, Or we can set it using the code
MediaPlayer1.FileName = "C:\WINDOWS\Media\ringin.wav"
End Sub
[/php]

[php]
Dim x, y, w, m

Private Sub Form_Paint()
' Geting the mid-point of the form to be (x,y)
y = Me.Height / 2
x = Me.Width / 2
w = 1700

'Drawing the Circle
DrawWidth = 4
Me.Circle (x, y), w
' Drawing the Hour Scorpion
DrawWidth = 4
Me.Line (x, y)-(x + (900 * Sin(Hour(Now) * 3.1415 / 6)), _
y - (900 * Cos(Hour(Now) * 3.1415 / 6))), &HFFFF00
' Drawing the Minute Scorpion
DrawWidth = 3
Me.Line (x, y)-(x + (1200 * Sin(Minute(Now) * 3.1415 / 30)), _
y - (1200 * Cos(Minute(Now) * 3.1415 / 30))), vbYellow
' Drawing the Second Scorpion
DrawWidth = 1
Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), _
y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed

End Sub

Private Sub Timer1_Timer()
Me.Cls
'Drawing the Circle
DrawWidth = 4
Me.Circle (x, y), w
' Drawing the Hour Scorpion
DrawWidth = 4
Me.Line (x, y)-(x + (900 * Sin(Hour(Now) * 3.1415 / 6)), _
y - (900 * Cos(Hour(Now) * 3.1415 / 6))), &HFFFF00
' Drawing the Minute Scorpion
DrawWidth = 3
Me.Line (x, y)-(x + (1200 * Sin(Minute(Now) * 3.1415 / 30)), _
y - (1200 * Cos(Minute(Now) * 3.1415 / 30))), vbYellow
' Drawing the Second Scorpion
DrawWidth = 1
Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed
End Sub
[/php]

من هذا المثال نلاحظ أن سطر الكود إذا كان طويلا فيمكن تقسيمه إلى عدة أسطر
و ذلك باستخدام ال(Under Score)

مثال على ذلك:
[php]

Me.Line (x, y)-(x + (1500 * Sin(Second(Now) * 3.1415 / 30)), _
y - (1500 * Cos(Second(Now) * 3.1415 / 30))), vbRed[/php]
[attachmentid=73627 name=frmClock.frm]

Who to Run another App. using VB ?

We can use the Shell Command
Eg. we can run the ms calculator in one line like this:
[php]
Private Sub Command1_Click()
Shell "calc"
End Sub
[/php]

The Function Declaration
[php]Function Shell(PathName, [WindowStyle As VbAppWinStyle = vbMinimizedFocus]) As Double[/php]

.

It seems that no one have at least one Question.
So I will ask ?

How can I get the System info like Windows Type, version using VB.. ?

[php]Private Sub Form_Load()

Select Case SysInfo.OSPlatform
Case 0
lstInfo.AddItem "OS Platform = Unknown 32-Bit Windows"
Case 1
lstInfo.AddItem "OS Platform = Windows 95"
Case 2
lstInfo.AddItem "OS Platform = Windows NT"
End Select

lstInfo.AddItem "OSVersion = " & SysInfo.OSVersion
lstInfo.AddItem "OSBuild = " & SysInfo.OSBuild
End Sub[/php]
[attachmentid=73784 name=OSInfo.zip]

[php]Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = DateDiff("m", Now, TheDate)
MsgBox Msg[/php]

[php]Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = DateDiff("yyyy", Now, TheDate)
MsgBox Msg
[/php]

Start creating a new project and design the form as shown below.

Write the VB code for the following command buttons:

DISPLAY CAPTION: This command button will display any caption
in "Label2". You can set your own caption within the code.
Eg. "Welcome To Visual Basic"

SEND TITLE TO TEXTBOX: This command button will send or rather
display the title of the form "UNIVERSITY OF BAHRAIN" to the text box
(NAME)

PICTURE ALIGNMENT: this will align the picture on the form to any direction
you desire.

MSGBOX: This will display a message box with a message.
For example: "Welcome to Visual Basic"

[attachmentid=74086 name=lab5.zip]

Design the form as shown below. The buttons that you see on the form are
basically used to alter different properties for the title and the shape that you see on the form.

The functions of the buttons on the form are self-explanatory. Basically, you
have buttons that would alter properties for the title on the form, which is
"Visual Basic", and you also have buttons that would alter properties of the
shape on the form.

[attachmentid=74088 name=Lab6.zip]

[attachmentid=74089 name=FrmPriceChanger.frm]

Design another form as shown below. The user has to enter some values in
the textboxes. Then, when the user clicks on the command button, the position of the picture will change with respect to the values entered.

[attachmentid=74090 name=Lab7_2.zip]

السلام عليكم،،

شكراً جزيلاً أخي CPU على هذه المعلومات الجميلة

يبدو أنني سأقوم بتنصيب برنامج Visual Basic على جهازي لأجرّب معكم، وأتعلم

وإذا خطر ببالي أي استفسار، فلن أتوانى عن طرحه، وأنتم أهل للإجابة..

مع التحية،،

و عليكم السلام و رحمة الله و بركاته ،،،

:Design a project that contains the following form


:Then write the VB code to accomplish the following
When you press on "Calculate Average", a message box should appear to
inform you that the average is being calculated then the result will be
displayed in the text box.

[attachmentid=75875 name=FrmCalcAvg.frm]

with the same form try to use variables....

such as:

dim var1 as integer
dim text1,text2 as single

[php]Private Sub CmdCalcAvg_Click()
Dim var1 As Single
Dim var2 As Single

MsgBox "The average is being calculated", vbInformation, "VB wait..."

var1 = Val(TxtTest1.Text)
var2 = Val(TxtTest2.Text)

TxtAvg = (var1 + var2) / 2

End Sub

Private Sub CmdClose_Click()
End
End Sub
[/php]

--> Creat a project that consists of the following form:



The form should expect the user to enter employee's name, age,
nationality, company, and position.

"Next Employee" button should clear the form for the next employee
details.

"Employee Description" button should view all of employees details
in a message box.

"Exit" button should terminate the program.

Note:
. . . . . . . . All quantities should be assigned to variables

Example :

Ali Murad is an Advanced Programmer in VB Form. He is Bahraini and he is
21 years of age.

[attachmentid=75885 name=FrmEmployee.frm]

Start a new project, and design the following form. The project simulates a
cannon destroying countries. As you can see below, the boxes named x, y, z
are the countries.



The objective of the project is, when the user selects one of the 'Country',
a bullet is fired, and a country is destroyed. A label ( in the position were the country was) indicates that a particular country has been destroyed. Also
a bullet appears were the country was hit. See below for an example.



Further, the title on the form changes color every time a certain country
is selected. When all the countries have been destroyed, a message box should
appear with a message "All shapes destroyed. Game Over"

[attachmentid=75889 name=frmFireTheCountries.frm]

[php]' Description: This project allows the receptionist to
'select discount rate and then select services. The
'Calculate button calculates amount due.

Private Sub cmdCalculate_Click()

' Calculate the total amount due after each
'service is entered
Const curMakeoverAmt As Currency = 125
Const curMakeupAmt As Currency = 200
Const curHairStylingAmt As Currency = 60
Const curManicureAmt As Currency = 35
Dim curService As Currency

'Calculate the price of the service
If optMakeover Then
curService = curMakeoverAmt
ElseIf optHairStyling Then
curService = curHairStylingAmt
ElseIf optManicure Then
curService = curManicureAmt
ElseIf optMakeup Then
curService = curMakeupAmt
Else
MsgBox "Select a Service. ", vbQuestion, "Missing Data"
End If

'Calculate the discount, if applicable
If optTen Then
curService = curService * 0.9
ElseIf optTwenty Then
curService = curService * 0.8
End If

lblAmountDue = FormatCurrency(curService)
End Sub

Private Sub cmdClear_Click()
'Clear the controls
optMakeover.Value = False
optHairStyling.Value = False
optManicure.Value = False
optMakeup = False
optTen.Value = False
optTwenty.Value = False
lblAmountDue.Caption = ""
End Sub

Private Sub cmdExit_Click()
'End the form
End
End Sub

Private Sub cmdPrint_Click()
'Print the form
PrintForm
End Sub
[/php]

[php]
Create a project that have the following properties:
-> The progarm should expect the user (the Health Club visitor)
to define himself first, and if not, nothing is active.

-> If defined, the user will be asked to enter his height and weight.

-> There must be a command button, that if clicked a factor called
BODY MASS INDEX (B.M.I) is calculated according to the following
equation: B.M.I = weight(Kg) / height(m)^2
[/php]


[attachmentid=75893 name=FrmBMI.frm]

Open the falcon project and add a list box to enter video types and to
automatically compute the price.



according to the following data:

..............................................
Video Type_______Video Price
_ Kids _________ 0.99
_ Regular _______ 1.99
_ Classic ________ 2.99
..............................................

[attachmentid=75898 name=Falcon_Video.zip]

بااارك الله فيكم على هذا الابداع بالتوفيق لكم

[attachmentid=75967 name=until_example.zip]

[php]
' This is another answer
Private Sub Timer1_Timer()
Dim TimeIn As Date _
, TimeOut As Date _
, TimeDifferent As Date
'''''''''''''''''''''''''''''''
Dim HourDiff As Integer _
, MinuteDiff As Integer _
, SecondDiff As Integer
''''''''''''''''''''''''''''''
TimeIn = TimeValue(lblconnect.Caption)
''''''''''''''''''''''''''''''
TimeOut = TimeValue(lbltimenow.Caption)
''''''''''''''''''''''''''''''
TimeDifferent = (TimeOut - TimeIn)
HourDiff = Hour(TimeDifferent)
MinuteDiff = Minute(TimeDifferent)
SecondDiff = Second(TimeDifferent)

lblconnectiontime = HourDiff & " : " & MinuteDiff & " : " & SecondDiff

End Sub

Private Sub Timer2_Timer()
lbltimenow = Time
End Sub[/php]

بسم الله الرحمن الرحيم،
السلام عليكم و رحمة الله و بركاته،،

سؤال من أحد الزملاء الأعزاء:
كيف يمكن جعل البرنامج يظهر في شريط المهام ال(Task Bar) ،
كما يظهر المسنجر ؟

هذه المنطقة التي توجد بها الآيكونات في شريط المهام تسمى بالNotification Area
أو تسمى بال System Tray


System Tray
n. (in Windows operating systems) location on the taskbar in which the clock and other user-installed utilities reside, SYSTRAY
Babylon Dictionary


الدالة الوسيطية البرمجية (API (Application Program Interface
الوحيدة التي راح نستعملها هي :
Shell_NotifyIcon


و التعريف لها كالتالي:
Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

على كل ما راح أطول .. هذا هو الكود:
[php]' To create an Icon in System Tray

'declaration for putting the application to system tray
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

'declare constants
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

'The following constant is the message sent when a mouse event occurs
'within the rectangular boundaries of the icon in the taskbar status area.
Private Const WM_MOUSEMOVE = &H200

'The following constants are the flags that indicate the valid
'members of the NOTIFYICONDATA data type.
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

'The following constants are used to determine the mouse input on the
'the icon in the taskbar status area.

'Left-click constants.
Private Const WM_LBUTTONDBLCLK = &H203 'Double-click
Private Const WM_LBUTTONDOWN = &H201 'Button down
Private Const WM_LBUTTONUP = &H202 'Button up

'Right-click constants.
Private Const WM_RBUTTONDBLCLK = &H206 'Double-click
Private Const WM_RBUTTONDOWN = &H204 'Button down
Private Const WM_RBUTTONUP = &H205 'Button up

'Declare the API function call.
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

'Dimension a variable as the user-defined data type.
Dim nid As NOTIFYICONDATA

Private Sub C_Click()
Shell "Calc"
End Sub

Private Sub Form_Load()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon
'u can give a tool tip text here
nid.szTip = "My System Tray Message" & vbNullChar
'Call the Shell_NotifyIcon function to add the icon to the System Tray
Shell_NotifyIcon NIM_ADD, nid
MsgBox "In system tray"
End Sub

' Create a menu by using menu editor
'one main menu by Caption"Menu" name "M"
'one sub menu by name caption "Exit" name "Ex"
'make the Menu invisible by changing the "visibility" option in the Properties Window

' Write the following in MouseMove event
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
' Me.PopupMenu M 'if u want u can call the popup menu
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Me.PopupMenu M 'call the popup menu
Case WM_RBUTTONDBLCLK
End Select
End Sub

' Write the following in form_unload event
' Delete the icon when the form is unloaded
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End Sub

' Write the following for the sub menu
' Delete the icon when exit sub menu is selected
Private Sub Ex_Click()
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub
[/php]
[attachmentid=78183 name=frmSysIcon.FRM]

السلام عليكم ورحمة الله وبركاته
معلومات جميلة اشكرك عزيزي CPU والله يوفقك كثيرا
يصلح الموضوع ان يكون مرجع مفيد لما نريد نتعلم Visual Basic

شكرا جزيلا على التشجيع

السلام عليكم،،

الأخ الفاضل CPU شكراً جزيلاً لجهودك الكريمة

لقد استفدت كثيراً، وسأستفيد من الموضوع بكل تأكيد مستقبلاً

مع التحية،،

السلام عليكم و رحمة الله و بركاته،،