Програмирање со Visual Basic

brat ti sto ja otvori temava jas rabotam so Visual basic i go obozavam ajde da napravime grupa na obozavateli :P dobra idea eve ti msn mozebi ce se dogovorime djole_te@hotmail.com

Label1.Caption = GetDriveSerialNumber


ова во некој прозор

а функцијата е

 Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long
     
          Dim fso As Object, Drv As Object
         
          'Create a FileSystemObject object
          Set fso = CreateObject("Scripting.FileSystemObject")
         
          'Assign the current drive letter if not specified
          If DriveLetter <> "" Then
              Set Drv = fso.GetDrive(DriveLetter)
          Else
              Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
          End If
     
          With Drv
              If .IsReady Then
                  DriveSerial = Abs(.serialnumber)
              Else    '"Drive Not Ready!"
                  DriveSerial = -1
              End If
          End With
         
          'Clean up
          Set Drv = Nothing
          Set fso = Nothing
         
          GetDriveSerialNumber = DriveSerial
         
      End Function



ова е еден од највазните кодови да не ти го крадат програмот



Изменето од anakin - 26.Мај.2009 во 21:43

agent_007 напиша: Moze li nekoj od vas da mi gi kaze kodovite za kalkulator pravenje?Imam problem so +;-;=;,;*;/ Ako mozete pratete mi gi kodovite Odnapred Blagodaram Kiko

Повели

http://www.engin.umd.umich.edu/CIS/course.des/cis400/vbasic/vbcalc.html

Па средиси избриши ги тие финкции што не ти требаат

Mi trebaat kodovi za da napravam nekoja igra neka bide koja bilo moze li nekoj od vas da mi gi prati eve go i mojot e-mail:
macedonia-eu@hotmail.com
Odnapred blagodaram Kiko

agent_007 напиша: Mi trebaat kodovi za da napravam nekoja igra neka bide koja bilo moze li nekoj od vas da mi gi prati eve go i mojot e-mail: macedonia-eu@hotmail.com Odnapred blagodaram Kiko

Ako te interesira pravenje igri bi ti preporacala Microsoft XNA Game Studio 2.0. Mozes da programiras vo VB.NET ali bolje ke ti ide ako pocnes so C# (poise poddrska ima za C#) a ako sakas epten hardcore da programiras fati C++ Eve ti link da go simnes

Јас сум обожавател на VB иам 12 години и сум почетник иам направено 4 проекта:

овде извадете: http://www.mediafire.com/?ymwiyoyozyy

Progress Bar нешто ми заебава ама нема врска.
Извинете ама Web Browser e .applicatoin и не може да се оклучи мора да се инсталира.

Download Please!

Изменето од lakimens - 30.Март.2010 во 19:39