ابوخالد

الكود التالي يطبع جدول بداخله بعض القيم العشوائية ارجو أن يفيدك: Private Sub Sample01() Dim g As Single Dim i As Single Dim j As Single Dim t As String For i = 1440 To 1440 * 10 Step 720 Me.Line (1440, i)-(1440 * 7, i) Next i For i = 1440 To 1440 * 7 Step 1440…

الكود التالي يفترض انك قمت بحماية قاعدة البيانات بكلمة سر هي "abc"، وهذ يمكنك فعله عن طريق اكسيس. Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ "DataSource=" & App.Path & "db1.mdb;" & _ "UserID=Admin;Password=abc;"

Function ArcSin(ByVal x As Double) As Double ArcSin = Atn(x / Sqr(-x * x + 1)) End Function

لاستخدام هذا الكود قم بفتح مشروع جديد و أضف لل Form1: * ProgressBar, StatusBar, CommandButton [ALIGN=LEFT]Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function SetParent Lib "user32" _ (ByVal …