Програмирање со Visual Basic
Испечатено од: IDIVIDI forum
Категорија: Технологија
Име на форумот: Хардвер и софтвер
Опис на форумот: Матични плочи, монитори, оперативни системи, антивируси, интересни програмчиња ....
URL: http://forum.idividi.com.mk/forum_posts.asp?TID=10795
Датум на принтање: 28.Јануари.2025 во 19:49
Верзија на софтверот: Web Wiz Forums 10.03 - http://www.webwizforums.com
Тема: Програмирање со Visual Basic
Постирано од: stole
Наслов: Програмирање со Visual Basic
Датум на внесување: 08.Декември.2007 во 20:54
|
Бидејќи нема посебна тема за програмирање, одлучив оваа тема да ја поставам во рубриката Софтвер.
Ги повикувам сите програмери, особено оние што се почетници како мене, да соработуваме. Јас работам со Visual Basic. Немам некое големо искуство. но некои основни работи ги познавам добро. Ајде да отвориме клуб на обожаватели на Visual Basic. Две глави се попаметни од една, а да не зборувам за повеќе.  ------------- Дали човекот е создаден од Господ, или Господ е измислен од човекот?? 
Можеби и двајцата ги создал ѓаволот! |
Коментари:
Постирано од: Цаци Галапчарот
Датум на внесување: 09.Декември.2007 во 00:41
|
Ja sm obozavalac Bejzika ------------- Еј, гулаби, гулаби бели. |
Постирано од: stole
Датум на внесување: 10.Декември.2007 во 14:16
Дали само го обожавате, или и работите со него?  ------------- Дали човекот е создаден од Господ, или Господ е измислен од човекот??
Можеби и двајцата ги создал ѓаволот! |
Цаци Галапчарот напиша:Постирано од: Tattoo Beauty
Датум на внесување: 10.Декември.2007 во 14:18
|
а за бејзик што ?? Помош совети , финти????
------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: stole
Датум на внесување: 11.Декември.2007 во 07:59
Соработување! Малку знам јас, малку знаеш ти, малку знае тој... Кога се ќе се собере, ќе биде повеќе! ------------- Дали човекот е создаден од Господ, или Господ е измислен од човекот??
Можеби и двајцата ги создал ѓаволот! |
Постирано од: BSOD
Датум на внесување: 15.Декември.2007 во 02:57
|
Епа (ms,visual)basic е широк поим:)
Visual Basic 6 e мртов па сега е во ефект .НЕТ(ADO.NET,ASP.NET итн) технологијата. Можете да го симните Microsoft Visual studio express верзија бесплатно(за да сте легални): http://www.microsoft.com/express/download/ - Visual Studio 2005 express А е-книги колку што сакаш има:) Во истото visual studio можете да креирате Wеб Проекти со датабази итн(ама не во express верзијата за тоа можете да го симнете на пример WebMatrix). Можам да ви дадам едно примерче за ASP.NET(со малку VB.NET во него). |
Постирано од: anakin
Датум на внесување: 15.Декември.2007 во 03:07
kje vi kazam jas licno imam napisano ( so so raka so so copy paste i so izmeni na istite) najmalku milion programski redovi dosta e nekju vise  hahahhah picture1.picture=load("C:\dosta beshe:o).jpg") picture1.top=0 picture1.left=0 picture1.visible=False  ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: The Snow Prince
Датум на внесување: 15.Декември.2007 во 20:57
|
i jas sum taka pocetnik vo ova ali zoso false..anakin....... ------------- http://www.hpforums.net/ |
Постирано од: anakin
Датум на внесување: 15.Декември.2007 во 21:13
|
pa da ne sa gleda se razira da e nevidliva za da samo jas znam deka ja ima tamu na koordinatite 0,0 mozebi ima nacin nekade so clik da se vkluci naredba picture1.visible=True ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: anakin
Датум на внесување: 15.Декември.2007 во 21:17
|
edna zadaca za site entuzijasti lesna e DA SE NAPRAVI TEXT.BOX VO KOJ KOGA KJE SE NAPISE NESO DA IZLEGUVA OBRATNO naprimer ako iskucam prolet tamu da pise telorp zasto e potrebno??? pa za palindromi dajte tuka sintaxa za ova.............................. ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: The Snow Prince
Датум на внесување: 15.Декември.2007 во 22:23
|
izbrisana mi e programata a cd-to mi e volosa sostojba i plus dobro ke bide i obratno ali e komplicirano malce ------------- http://www.hpforums.net/ |
Постирано од: Tattoo Beauty
Датум на внесување: 16.Декември.2007 во 19:50
па пишете проблем па да го решаваме де  бар за бејзик не е толку страшно ипак е бејзик него со другиве што да се праи
------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: anakin
Датум на внесување: 16.Декември.2007 во 20:03
|
EDNA IGRA VO VISUAL IZGLEDA VAKA MOZE DA IZGLEDA KAKO SO SAKAS NO JAS SAKAV VAKA  ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: Tattoo Beauty
Датум на внесување: 16.Декември.2007 во 20:08
|
ах се игрица дај нешто посериозно
------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: anakin
Датум на внесување: 16.Декември.2007 во 20:48
|
slusaj koga programiras bili so i pri najglup program totalno neseriozen se pisuvat seriozni naregbi i uslovi ( sintaxi) ne si go znaela toa???????? ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: Tattoo Beauty
Датум на внесување: 16.Декември.2007 во 21:06
anakin ако ти си поискусен жал ми е премногу и неможам да се смирам ке идам у Врадар да се фрлам сеа знаеш  не си го сватил мојот пост ------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: anakin
Датум на внесување: 16.Декември.2007 во 21:10
|
milo ako odis kazi 10 minuti pred toa - koja e lokacijata zimi mama kje se frlam i jas i kje te spasam srekjno ni banjanjeto ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: Tattoo Beauty
Датум на внесување: 16.Декември.2007 во 21:20
незнам сеа ноќно бањање ме асоцира на др ствари ај ипак нема да се фрлам  а некој нека пише нешто за решавање поз
------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: anakin
Датум на внесување: 16.Декември.2007 во 21:34
|
steta a imam nov pojas za spasuvanje kje posluzel za dobra cel dobra cel e??? mozebi da ne treba da ginat programerive a be vardar barem da bese so stil. NIJAGARA naprimer- zvuci la romantic ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: Tattoo Beauty
Датум на внесување: 17.Декември.2007 во 00:26
|
ако ако ценам твојава идеја а ако не се удавам ондак ке идеме на кафе покрај кеш што гледаш толку песимистички ајде дај некоја задача да се потсетам на средно ------------- http://www.skin-artists.com" rel="nofollow - Skin-Artists.com http://www.tattoo-passion.org" rel="nofollow - TattooPassion |
Постирано од: anakin
Датум на внесување: 17.Декември.2007 во 00:36
|
vi postaviv zadaca no ti necitas citaj na prethodnata stranica da se napravi tex.box vo koj kje se ispisuva obratno na mesto tatoo da pise ootat ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: BSOD
Датум на внесување: 17.Декември.2007 во 02:39
|
Не дефинитивно не мислев да држам лекции. Секој почеток е важен па едноставно сакав да посочам луѓе кон бесплатен (алат)софтвер за web development со .NET. Сигурно не сакав да држам предавања, задачи итн.
Примерчето е модифицирано од е-книга(Visual Basic.NET.Beginning ASP.NET 1.1 with VB.NET 2003) kнигата е одлична а примерот добро ја претставува ASP.NET технологијата. овде симнете го: http://www.mediafire.com/?epnys2ztfjm - Дигитрон Прво треба да инсталирате miscrosoft.NET framework. Овде некаде: http://www.microsoft.com/downloads/details.aspx?FamilyID=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=en - .NET Framework Потоа ако имате XP professional ставете го фајлот во: C:\Inetpub\wwwroot фолдерот е без точка И на крај отворете го Explorer или FireFox и ставете ја адресата: http://localhost/calc_ver_2.aspx Ако немате XP Pro(односно имате XP home) тогаш инсталирајте го WebMatrix: http://www.asp.net/downloads/archived/web-matrix/ - Web MArtix Нормално ќе треба да иснталирате .NET framework И отворете го фајлот ииииии кликнете старт па сменете го порт бројот : 8080 или слично(да не е 80 - localhost во XP PRO) 
|
Постирано од: Паланчански
Датум на внесување: 29.Декември.2007 во 12:42
|
Visual Studio Expres веќе го има како 2008. Може легално да се симне. [/QUOTE] ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: stole
Датум на внесување: 29.Декември.2007 во 12:53
Извинете што подолго време не сум во форумот, но бев на терен без пристап до интернет. Ќе се обидам со палиндромите. На оние похрабрите и поискусните им предлагам со помош на Visual Basic да пронајдат на колку начини може да се распоредат осум шаховски дами на таблата, без да се напаѓаат една со друга. Инаку работев со VB 2005 Profesional, а сега се префрлив на VB 2008 Express. Што се однесува до Вардар, лесно ви е. Барем е длабок. Ако јас се фрлам во мојата река ќе направам голема глупост, бидејќи за едно обично давење ќе си ја скршам главата.(Реката е без вода.) ------------- Дали човекот е создаден од Господ, или Господ е измислен од човекот??
Можеби и двајцата ги создал ѓаволот! |
Постирано од: stole
Датум на внесување: 31.Декември.2007 во 06:49
|
Формуларот има едно командно копче и едно текстуално поле.
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim zbor, bukva As String zbor = TextBox1.Text TextBox1.Text = "" For a = Len(zbor) To 1 Step -1 bukva = Mid(zbor, a, 1) TextBox1.Text = TextBox1.Text & bukva Next End Sub End Class ------------- Дали човекот е создаден од Господ, или Господ е измислен од човекот??
Можеби и двајцата ги создал ѓаволот! |
Постирано од: Паланчански
Датум на внесување: 31.Декември.2007 во 06:58
|
Формулар со две текстуални полиња:
Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox2.Text = TextBox1.Text & TextBox2.Text If TextBox1.Text <> "" Then TextBox1.Text = "" End If End Sub End Class ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: kum
Датум на внесување: 16.Јануари.2008 во 22:48
|
1. Задача Да се пресмета нормата на матрицата А=[aij]m×n внесена преку тастатура, дефинирана со формулата ||A|| = maxi=1,m{Σj=1,n|aij|}. дали е ова решение на задачата? #include <stdio.h> #include <stdlib.h> int main(int argc, char *argv[]) { int a[10][10],maxr[10],maxs[10],i,j,n; printf("vnesi red na matrica\n"); scanf("%d",&n); printf("vnesi gi elementite na matricata\n"); for(i=0;i++) { printf("a[%d][%d]:",i,j); scanf("%d",&a[j]); } for(i=0;i++){ maxr=a[0]; maxs=a[0]; for(j=0;j++){ if(a[j]>maxr)maxr=a[j]; if(a[j]>maxs)maxs=a[j]; } } for(i=0;i++) { for(i=0;j++) printf("%d",a[j]); printf("\n"); } for(i=0;i++) printf("\n najgolem element vo redicata %d e %d",i+1,maxr); for(i=0;i++) printf("\n najgolem element vo kolonata %d e %d",i+1,maxs); system("PAUSE"); return 0; } ------------- JOIN THE FAMILY |
Постирано од: Паланчански
Датум на внесување: 18.Јануари.2008 во 06:34
|
Не сум сигурен, но овој код не ми личи на BASIC. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: којсумјас
Датум на внесување: 18.Јануари.2008 во 23:47
| Ова е Visual Basic код? Тешко! |
Постирано од: opasen_tt
Датум на внесување: 05.Мај.2008 во 23:44
|
Луѓе ми треба помош...
Не сакав да отворам нова тема бидејки веќе има тема за програмирање.. Ми треба код во С++ за претварање на бинарни броеви во декадни. Па ако знае некој нека го пише тука. Фала однапред. |
Постирано од: markoivanov
Датум на внесување: 02.Јули.2008 во 15:05
|
Imam Problemi So Visual Basic 6
Eve Slika http://img79.imageshack.us/my.php?image=vbfk7.png">  [/IMG]
|
Постирано од: anakin
Датум на внесување: 02.Јули.2008 во 15:22
|
isto ti pravi ako nemas kreirano nitu eden objekt???
------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: Паланчански
Датум на внесување: 10.Јули.2008 во 17:21
|
За Visual Basic можам да дадам некој совет. А за С++ баш ништо. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: superboy
Датум на внесување: 08.Август.2008 во 12:28
|
Ај пиши ми јавасцрипта или сл. кога ќе кликнам на линк и на едно место да ми пишува колку пати сум кликнал.Потоа да има ресет и така натаму.
------------- Работата го краси човекот а мрзата го гнаси. |
Постирано од: Maro
Датум на внесување: 24.Август.2008 во 18:32
|
eve vi edna igrica od mene :)! http://www.deviantart.com/download/87643062/Stress_Game_by_mario19.rar - http://www.deviantart.com/download/87643062/Stress_Game_by_mario19.rar ------------- |
Постирано од: zajcevmk95
Датум на внесување: 06.Февруари.2009 во 20:38
|
Кој ке ми казе тутуриал на македонски за Visual Bassic
|
Постирано од: Dark HaCkeR
Датум на внесување: 07.Февруари.2009 во 09:45
Симни го воа http://rapidshare.com/files/155542387/C___by_MaxAdsl__www.warez-mk.com_.rar.html pass:www.warez-mk.com ------------- |
Постирано од: Паланчански
Датум на внесување: 18.Март.2009 во 12:32
|
Симнав нешто, но излезе С++ наместо Visual Basic. Јас ли погрешив некаде или адресата е погрешна? ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 19:33
| Ve molam ako moze nekoj da mi gi dade kodovite na Visual Basic.Odnapred Vi blagodaram Kiko. |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 19:35
Ako sakas jas ke ti go pratam Visual Basic |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 19:52
| Imam eden problem moze li nekoj od vas da mi gi isprati kodovite na Visual Basic ili da mi ja kaze web stranata kaj da gi najdam.Odnapred blagodaram Kiko |
Постирано од: Flix
Датум на внесување: 21.Март.2009 во 20:32
Што когови бе дете искажи се убаво , имаш некоја задача не ти е јасна сакаш да ти ја решиме? -------------  |
Постирано од: anakin
Датум на внесување: 21.Март.2009 во 20:37
|
kodovi ne postojat samo jazikot a to e vo osnova bejzik pisi mi na lp so sakas kje ti napisam kodovi pa ti uci od niv ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 22:01
| Da napravam nekoja programa.Pocetnik sum sakam da napravam nekoja igra,nekoja programa.Ako mozete da mi poognete da mi gi ispratite kodovite.eve go i mojot msn macedonia-eu@hotmail.com Odnpred blagodaram Kiko |
Постирано од: Flix
Датум на внесување: 21.Март.2009 во 22:46
Вака значи за игра треба премногу :) за програма сега ќе ти пратам код како изгледаат некои почетнички програми. http://www.vbtutor.net/vbtutor.html - http://www.vbtutor.net/vbtutor.html Повели се е убаво објаснато чекор по чекор ------------- |
Постирано од: anakin
Датум на внесување: 21.Март.2009 во 22:53
|
ene ti eden program so sum go pravel pred mnogu godini za zaljubenici vo palindromni recenici kako kucas taka ti pisuje obratno Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Form_Load() For i = 1 To 920 Step 20 Form1.Line (i, 0)-(i, 800), &H4000& Form1.Line (0, i)-(800, i), &H4000& Next End Sub Private Sub Image1_Click() Beep End End Sub Private Sub Image2_Click() Beep End End Sub Private Sub Image3_Click() Beep a$ = Text1.Text B$ = Text2.Text For i = 1 To 100 u$ = Mid$(a$, i, 1) If u$ = " " Or u$ = "?" Or u$ = ":" Or u$ = "," Or u$ = ";" Or u$ = "." Or u$ = "!" Then GoTo 7 c$ = c$ & u$ 7 Next Label4.Caption = c$ For i = 1 To 100 uu$ = Mid$(B$, i, 1) If uu$ = " " Or uu$ = "?" Or uu$ = ":" Or uu$ = "," Or uu$ = ";" Or uu$ = "." Or uu$ = "!" Then GoTo 8 D$ = D$ & uu$ 8 Next Label5.Caption = D$ a$ = Label4.Caption B$ = Label5.Caption alu = 0 For i = 1 To 100 u$ = Mid$(a$, i, 1) uu$ = Mid$(B$, i, 1) If u$ = uu$ Then GoTo 71 Label6.Caption = "NO": Beep: alu = 1 71 If u$ = "" Then alo = i: GoTo 72 Next 72 S1.Left = 35 + i * 5.7 If alu = 1 Then GoTo 70 Label6.Caption = "OK" 70 End Sub Private Sub Image4_Click() Beep z1$ = Text1.Text z2$ = Text2.Text Text1.Text = z2$ Text2.Text = z1$ End Sub Private Sub Image5_Click() Beep Text1.Text = "" Label4.Caption = "" Label5.Caption = "" End Sub Private Sub Image6_Click() Beep CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Fontovi za palindrom" On Error GoTo 8 ' Set the Flags property CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth ' Display the Font dialog box CommonDialog1.ShowFont Text1.Font.Name = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = CommonDialog1.FontBold Text1.Font.Italic = CommonDialog1.FontItalic Text1.ForeColor = CommonDialog1.Color Text2.Font.Name = CommonDialog1.FontName Text2.Font.Size = CommonDialog1.FontSize Text2.Font.Bold = CommonDialog1.FontBold Text2.Font.Italic = CommonDialog1.FontItalic Text2.ForeColor = CommonDialog1.Color 8 End Sub Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Beep If Button = 1 Then Text1.Font.Size = Text1.Font.Size + 2 Text2.Font.Size = Text2.Font.Size + 2 Exit Sub End If If Button = 2 Then Text1.Font.Size = Text1.Font.Size - 2 Text2.Font.Size = Text2.Font.Size - 2 End If End Sub Private Sub Image8_Click() Beep On Error GoTo 8 CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Otvaranje na palindrom" ' If index = 2, the user chose Save As. ' Set filters. CommonDialog1.Filter = "Palindrom (*.pal)|*.pal|" ' Specify default filter. CommonDialog1.FilterIndex = 1 ' Display the Save As dialog box. CommonDialog1.ShowOpen FileName = CommonDialog1.FileName imen$ = FileName Open imen$ For Random As #1 Len = 600 Get #1, 1, texte$ Close Text1.Text = texte$ 8 End Sub Private Sub Image9_Click() Beep On Error GoTo 8 CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "Memoriranje na palindrom" ' If index = 2, the user chose Save As. ' Set filters. CommonDialog1.Filter = "Palindrom (*.pal)|*.pal|" ' Specify default filter. CommonDialog1.FilterIndex = 1 ' Display the Save As dialog box. CommonDialog1.ShowSave FileName = CommonDialog1.FileName imen$ = FileName Open imen$ For Random As #1 Len = 600 Put #1, 1, Text1.Text Close 8 End Sub Private Sub Text1_Change() a$ = Text1.Text For i = 100 To 1 Step -1 u$ = Mid$(a$, i, 1) B$ = B$ & u$ 4 Next Text2.Text = B$ End Sub ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 22:58
|
Da ve prasam nesto na internet dali go ima jazikot(kodovite)na Visual Basic.Na pdf go ima li jazikot na Basic?Blagodaram sto mi pisavte Kiko
|
Постирано од: Flix
Датум на внесување: 21.Март.2009 во 22:59
Па ете бе дете види во линкот што ти го пратив се имаш на интернет . ------------- |
Постирано од: agent_007
Датум на внесување: 21.Март.2009 во 23:27
| Kako mozam da napravam nekoj kviz na Visual Basic.Na pr. kako milioner so 7000 prasanja.Ve molam pomognete mi pocetnik sum.Pozdrav Kiko |
Постирано од: agent_007
Датум на внесување: 22.Март.2009 во 17:26
| Kako moze da se napravi kviz so poveke prasanja na Visual Basic.Ve molam objasnete mi. |
Постирано од: Паланчански
Датум на внесување: 23.Март.2009 во 12:36
Да не се разбереме погрешно. Барам книга (електронска) на македонски за VB. Ако имаш ќе ми биде добродојдена. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: Паланчански
Датум на внесување: 23.Март.2009 во 12:38
Ако имам време ќе ти напишам за утре една кратка програма за квиз. Сега сум на Linux. ПС Ако не заминам на терен. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: Паланчански
Датум на внесување: 24.Март.2009 во 10:51
Се обидов да ти испратам еден мој квиз на ПП. Ако сум успеал ќе го добиеш како компајлиран и во VB 2005 Professional, каде можеш да го преработуваш по свој вкус. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: agent_007
Датум на внесување: 27.Март.2009 во 14:21
| Ne go dobiv kvizot ako sakas prati uste ednas.Pozdrav Kiko |
Постирано од: Паланчански
Датум на внесување: 29.Март.2009 во 18:43
|
Изгледа и овој пат не успеав. ------------- Не знаев што е среќа, додека не се оженив. Но сега веќе е доцна. |
Постирано од: 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. |
Постирано од: 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
Датум на внесување: 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. |
Постирано од: 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 ова е еден од највазните кодови да не ти го крадат програмот ------------- SILATA NEKA E SO VAS a ako ne vi treba, neka, i taka ne e nekoj trosok, ja ima nasekade okolu nas. |
Постирано од: 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 |
Постирано од: Flix
Датум на внесување: 06.Јуни.2009 во 17:49
Повели http://www.engin.umd.umich.edu/CIS/course.des/cis400/vbasic/vbcalc.html Па средиси избриши ги тие финкции што не ти требаат ------------- |
Постирано од: agent_007
Датум на внесување: 27.Јуни.2009 во 21:55
| Moze li na Visual Basic da se programira igra kako sto e Counter Strike 1.6 |
Постирано од: 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 |
Постирано од: да бе
Датум на внесување: 05.Јули.2009 во 10:01
мислиш на серверот или на клиентот? ------------- http://www.youtube.com/watch?v=cG_uWZxKaoU - ¡ʎɐp ʎɯ ǝʞɐɯ 'pɐǝɥɐ oƃ |
Постирано од: Ивона02
Датум на внесување: 06.Декември.2009 во 03:34
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 http://www.microsoft.com/Downloads/details.aspx?familyid=DF80D533-BA87-40B4-ABE2-1EF12EA506B7&displaylang=en - simnes |
Постирано од: Ивона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
|
Постирано од: lakimens
Датум на внесување: 30.Март.2010 во 17:09
|
Јас сум обожавател на VB иам 12 години и сум почетник иам направено 4 проекта:
овде извадете: http://www.mediafire.com/?ymwiyoyozyy Progress Bar нешто ми заебава ама нема врска. Извинете ама Web Browser e .applicatoin и не може да се оклучи мора да се инсталира. Download Please! |
Постирано од: да бе
Датум на внесување: 30.Март.2010 во 17:29
|
Vusual базик
------------- http://www.youtube.com/watch?v=cG_uWZxKaoU - ¡ʎɐp ʎɯ ǝʞɐɯ 'pɐǝɥɐ oƃ |