امروز یه برنامه به زبان اسمبلی براتون آماده کردم. این برنامه نمره 10 درس یک دانشجو رو به همراه تعداد واحد هر یک رو دریافت میکنه و بعد معدل، واحدهای افتاده، قبولی و... رو نشون میده. البته این برنامه نمیتونه اعداد اعشاری رو دریافت کنه.
اینم لینکش
توجه: برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینهی Save Target As کلیک کنید.
برای اینکه بخواهید از اجرای مجدد یک برنامه جلوگیری کنید میتوانید از کد زیر استفاده کنید:
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
در این کد عنوان فرم خیلی تاثیر داره. باید سعی کنید از عنوانی برای فرم خود استفاده کنید، که در برنامهی دیگری استفاده نشده باشد.
این لینکی که در زیر میبینید لینک یک اسکرولبار خیلی خیلی ساده است که من خودم نوشتم. این برنامه به صورت یک کنترل اکتیوایکس باید استفده شود. این اسکرولبار را از اینجا دانلود کنید.
توجه: برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینهی Save Target As کلیک کنید.
در زیر شما جواب خودآزماییهای کتاب برنامهسازی یک(دوم هنرستان) را میبینید:
توجه: در صورت دانلود نشدن، برای دانلود فایل بر روی لینک دانلود راست کلیک کنید بعد روی گزینهی Save Target As کلیک کنید.
امیدوارم از این جوابها بتوانید استفاده کنید. البته دو سه تا از جوابها را ننوشتهام.