یک برنامه به زبان اسمبلی(سه شنبه 91 خرداد 9 ساعت 8:39 عصر )

امروز یه برنامه به زبان اسمبلی براتون آماده کردم. این برنامه نمره 10 درس یک دانشجو رو به همراه تعداد واحد هر یک رو دریافت می‌کنه و بعد معدل، واحدهای افتاده، قبولی و... رو نشون میده. البته این برنامه نمیتونه اعداد اعشاری رو دریافت کنه.

اینم لینکش

توجه: برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینه‌ی Save Target As کلیک کنید.

جلوگیری کردن از اجرای مجدد برنامه در ویژوال بیسیک(جمعه 91 اردیبهشت 15 ساعت 2:30 عصر )

برای اینکه بخواهید از اجرای مجدد یک برنامه جلوگیری کنید میتوانید از کد زیر استفاده کنید:

Private Sub Form_Load()
   If App.PrevInstance Then
       MsgBox "This program already in use.", vbCritical
       End
   End If
End Sub

ولی کد بالا مشکلی که داره اینه که وقتی شما برنامه رو به یک پوشه یا شاخه دیگر کپی می‌کنید، و یا اسم آن را عوض میکنید برنامه باز هم اجرا میشه و کد کارایی نداره. برای حل این مشکل می‌توانید از کد زیر استفاده کنید. البته این کد، کد حرفه‌ای نیست. ولی برای جلوگیری کردن از اجرای مجدد مناسب است: 

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Dim haN As Long, l As Long, s As String

   If App.PrevInstance Then
       MsgBox "This program already in use.", vbCritical
       End
   End If

haN = Val(GetSetting("Project1", "Project1", "Project1"))

If haN <> Me.hwnd And haN <> 0 Then
    l = GetWindowTextLength(haN) + 1
    s = String(l, 0)
    GetWindowText haN, s, l
    s = Left(s, l - 1)

    If s = Me.Caption Then
       MsgBox "This program already in use.", vbCritical
       End
    End If

End If

SaveSetting "Project1", "Project1", "Project1", Str(Me.hwnd)

End Sub

در این کد عنوان فرم خیلی تاثیر داره. باید سعی کنید از عنوانی برای فرم خود استفاده کنید، که در برنامه‌ی دیگری استفاده نشده باشد.

یک اسکرول‏بار ساده(سه شنبه 90 مرداد 4 ساعت 8:20 عصر )

این لینکی که در زیر می‌بینید لینک یک اسکرول‌بار خیلی خیلی ساده است که من خودم نوشتم. این برنامه به صورت یک کنترل اکتیوایکس باید استفده شود. این اسکرول‌بار را از اینجا دانلود کنید.

توجه: برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینه‌ی Save Target As کلیک کنید.

خودآزمایی‏های کتاب برنامه‏سازی 1(دوم هنرستان)(پنج شنبه 90 تیر 23 ساعت 11:12 صبح )

در زیر شما جواب خودآزمایی‌های کتاب برنامه‌سازی یک(دوم هنرستان) را میبینید:

توجه: در صورت دانلود نشدن، برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینه‌ی Save Target As کلیک کنید.

   جواب خود آزمایی‌های فصل 2

   جواب خود آزمایی‌های فصل 3

   جواب خود آزمایی‌های فصل 4

   جواب خود آزمایی‌های فصل 5

   جواب خود آزمایی‌های فصل 6

امیدوارم از این جواب‌ها بتوانید استفاده کنید. البته دو سه تا از جواب‌ها را ننوشته‌ام.