IDIVIDI forum Веб сајт
почетна страница почетна страница > Технологија > Хардвер и софтвер
  Активни теми Активни теми RSS - Програмирање со Visual Basic
  најчести прашања најчести прашања  Пребарувај форум   Настани   Регистрирајте се Регистрирајте се  Влез Влез

Програмирање со Visual Basic
 Внеси реплика Внеси реплика страница  123 5>
Автор
Порака Обратен редослед
  Тема Пребарувај Тема Пребарувај  Опции за темата Опции за темата
да бе Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
О’ Дабштајн

Регистриран: 10.Април.2009
Статус: Офлајн
Поени: 5367 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај да бе Цитирај  Внеси репликаОдговор Директен линк до овој коментар Тема: Програмирање со Visual Basic
    Испратена: 30.Март.2010 во 17:29
Vusual базик
¡ʎɐp ʎɯ ǝʞɐɯ 'pɐǝɥɐ oƃ
Кон врв
lakimens Кликни и види ги опциите
Нов член
Нов член


Регистриран: 30.Март.2010
Статус: Офлајн
Поени: 1 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај lakimens Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 30.Март.2010 во 17:09
Јас сум обожавател на VB иам 12 години и сум почетник иам направено 4 проекта:

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

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

Download Please!

Изменето од lakimens - 30.Март.2010 во 19:39
Кон врв
Ивона02 Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)

Регистриран: 13.Септември.2009
Статус: Офлајн
Поени: 1149 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај Ивона02 Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 07.Декември.2009 во 00:29
Edna od najednostavnite tehniki na opisnoto imenuvanje e koristenjeto prefiks od tri bukvi sto ja identificira referencatana kontrolata vo kodot. Ovde ce gi navedam poveceto kontrolnite prefiksi za Vb
  • ani - AnimationButton
  • cbo - ComboBox
  • ch3 - 3D CheckBox
  • chk - CheckBox
  • clp - PictureClip
  • cm3 - 3D CommandButton
  • cmd - CommandButton
  • com - communications
  • ctr - Control
  • dat - Data
  • db - ODBC Database
  • dbc - Data-Bound ComboBox
  • dbg - Data-Bound Grid
  • dbl - Data-Bound ListBox
  • dir - DirectoryListBox
  • dlg - CommonDialog
  • drv - DriveListBox
  • ds - ODBC dynaset
  • fil - FileListBox
  • fr3 - 3D Frame
  • fra - Frame
  • frm - Form
  • gau - Gauge
  • gpb - Group Push Button
  • gra - Graph
  • grd - Grid
  • hsb - Horisontal ScrollBar
  • img - Image
  • iml - Image List
  • key - KeyStatus
  • lbl - Label
  • lin - Line
  • lst - ListBox
  • lsv - ListView
  • mci - Multimedia MCI
  • med - Masked Edit
  • mnu - Menu
  • mpm - MAPI Pessage
  • mps - MAPI Session
  • ole - OLE Client
  • op3 - 3D OptionButton
  • opt - OptionButton
  • out - Outline
  • pic - PictureBox
  • pnl - 3D Panel
  • prb - ProgressBar
  • rtf - RichTextBox
  • shp - Shape
  • spn - SpinButton
  • sst - SSTab
  • tbs - TabStrip
  • tlb - Toolbar
  • tmr - Timer
  • trv - TreeView
  • txt - TextBox
  • vsb - Vertical ScrollBar
Кон врв
Ивона02 Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)

Регистриран: 13.Септември.2009
Статус: Офлајн
Поени: 1149 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај Ивона02 Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 06.Декември.2009 во 03:34
Originally posted by agent_007 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
Кон врв
да бе Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
О’ Дабштајн

Регистриран: 10.Април.2009
Статус: Офлајн
Поени: 5367 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај да бе Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 05.Јули.2009 во 10:01
Originally posted by agent_007 agent_007 напиша:

Moze li na Visual Basic da se programira igra kako sto e Counter Strike 1.6


мислиш на серверот или на клиентот?
¡ʎɐp ʎɯ ǝʞɐɯ 'pɐǝɥɐ oƃ
Кон врв
agent_007 Кликни и види ги опциите
Нов член
Нов член
Лик (аватар)

Регистриран: 21.Март.2009
Локација: Macedonia
Статус: Офлајн
Поени: 31 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај agent_007 Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 28.Јуни.2009 во 17:58
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 Кликни и види ги опциите
Нов член
Нов член
Лик (аватар)

Регистриран: 21.Март.2009
Локација: Macedonia
Статус: Офлајн
Поени: 31 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај agent_007 Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 27.Јуни.2009 во 21:55
Moze li na Visual Basic da se programira igra kako sto e Counter Strike 1.6
Кон врв
Flix Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
Клабинг

Регистриран: 14.Септември.2005
Статус: Офлајн
Поени: 9229 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај Flix Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 06.Јуни.2009 во 17:49
Originally posted by agent_007 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

Па средиси избриши ги тие финкции што не ти требаат
Кон врв
agent_007 Кликни и види ги опциите
Нов член
Нов член
Лик (аватар)

Регистриран: 21.Март.2009
Локација: Macedonia
Статус: Офлајн
Поени: 31 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај agent_007 Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 06.Јуни.2009 во 17:38
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
Кон врв
anakin Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
Unidentified Flying Object

Регистриран: 08.Август.2005
Локација: Machku Pichku
Статус: Офлајн
Поени: 18535 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај anakin Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 26.Мај.2009 во 21:42
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
SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas.
Кон врв
anakin Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
Unidentified Flying Object

Регистриран: 08.Август.2005
Локација: Machku Pichku
Статус: Офлајн
Поени: 18535 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај anakin Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 26.Мај.2009 во 21:39
да ти поклонам еден важен код
оти си ентузијаст
SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas.
Кон врв
R3DC00DE Кликни и види ги опциите
Нов член
Нов член
Лик (аватар)

Регистриран: 25.Мај.2009
Статус: Офлајн
Поени: 10 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај R3DC00DE Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 26.Мај.2009 во 21:30
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
Кон врв
anakin Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)
Unidentified Flying Object

Регистриран: 08.Август.2005
Локација: Machku Pichku
Статус: Офлајн
Поени: 18535 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај anakin Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 29.Март.2009 во 20:24
ene kako se otvara memerirana datoteka

preku Common dialog


Private Sub Command4_Click()
On Error GoTo 45

CommonDialog1.DialogTitle = "Otvaranje na PROFILI"
       
       
 
       CommonDialog1.Filter = "Memo Firmi (*.PRF)|*.PRF|Memo profil" & _
    "(*.PRF)|*.PRF|Memo profil (*.PRF)|*.PRF"


       
        CommonDialog1.FilterIndex = 2
      
        CommonDialog1.ShowOpen
      
        filen = CommonDialog1.FileName
       
 a$ = filen

Open a$ For Random As #1 Len = 100

Get #1, 1, RA1

Get #1, 2, RA2
Get #1, 3, KR1
Get #1, 4, KR2
Get #1, 5, KR3
Get #1, 6, VR1
Get #1, 7, VR2
Get #1, 8, VR3
Get #1, 9, TP1
Get #1, 10, TP2
Get #1, 11, AD1
Get #1, 12, AD2
Get #1, 13, AD3


Close

Text1.Text = RA1
Text2.Text = RA2

Text4.Text = KR1
Text3.Text = KR2
Text5.Text = KR3

Text7.Text = VR1
Text8.Text = VR2
Text6.Text = VR3

Text10.Text = TP1
Text11.Text = TP2

Text12.Text = AD1
Text13.Text = AD2
Text14.Text = AD3
                                           




   




GoTo 555
45 MsgBox "GRESKA", 0
555
End Sub
SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas.
Кон врв
Паланчански Кликни и види ги опциите
Сениор
Сениор
Лик (аватар)

Регистриран: 01.Декември.2007
Локација: Dubrovnik
Статус: Офлајн
Поени: 1655 		Опции за коментарот Опции за коментарот   Благодарам (0) Благодарам(0)   Цитирај Паланчански Цитирај  Внеси репликаОдговор Директен линк до овој коментар Испратена: 29.Март.2009 во 18:43
Изгледа и овој пат не успеав.

Изменето од Паланчански - 29.Март.2009 во 18:44
Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна.
Кон врв
 Внеси реплика Внеси реплика страница  123 5>
  Сподели тема   

Скок до Овластувања Кликни и види ги опциите

Forum Software by Web Wiz Forums® version 10.03
Copyright ©2001-2011 Web Wiz Ltd.

Страницата е генерирана за 0,172 секунди.