- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sto1911: Pinball FX3 PH! verseny
- sziku69: Szólánc.
- hdanesz: Hyundai Ioniq 28kWh - Első benyomások - második felvonás
- Napkollektor - csak úgy
- Gurulunk, WAZE?!
- Elektromos rásegítésű kerékpárok
- vrob: Az IBM PC és a játékok a 80-as években
Új hozzászólás Aktív témák
-
sonar
addikt
Sziasztok,
visual studio 2022-ben (.NET8)
Egy consol applikációt kellene átalakítanom dll-é (class library-nak hívják ebben ahogy megtudtam).
Valahogy nem akadok rá a megfelelő tutorial-ra.
Tudna valaki segíteni? HOgy mire keressek rá? Mert a használt kulcsszavak se googli-ban se duckduck-ban nem hoztak jó eredményeket.
-
sonar
addikt
Sziasztok,
A következő problémám lenne.
Adott egy type változó
Public Type PkData
PlayerName As String
PlayerID As Integer
Seat As String
...
end typemajd ezt használom tömbként
Dim Px(1 To 10) As PkDatailyen esetben hogyan tudom a px tömböt kiüríteni???
mert ugye Px.playername... stb változóim vannak. És kb 30 változó van a típusban definiálva.
Egyessével nagyon macerás lenne -
sonar
addikt
válasz
zsotesz81
#1169
üzenetére
Nekem megvan és olvastam is. Helyenként vannak benne hibák. De ha rendesen olvasod akkor megtalálod a megoldást. A fejezet végén a teljes progik viszont általában hibátlanok.
Viszont VB6-ot már szerintem nem érdemes komolyan megtanulni ha csak vmi oknál fogna nem szűkségszerű. Inkább javasolnám én is a egy VB.NET megtanulását.
Főleg, hogy az Expressz változat ingyenes fejlesztőkörnyezet biztosít.
-
sonar
addikt
válasz
martonx
#1125
üzenetére
Hát csak nem mindegy, hogy milyen könnyen lehet visszafejteni.
Pl.: egy UPX-el titkositod akkor azt még az upx vissza is tudja fejteni. De mondjuk egy Armadillo-val már keményen trükközni kell és ismerni az gépikódot...A kérdés mindig az, hogy kitől kell védeni a sw-t.
@dobozossör - esetleg még egy pendrive sn-t kiolvasni és kötni a kódhoz.
Igy nem indulna el másik pendrive-val. -
#1124
sonar
addikt
Dobozossör
#1123
sonar
addikt
válasz
Dobozossör
#1123
üzenetére
Hát .Net nem arról híres, hogy ne lehetne visszacompilálni
DotNet protector kulcsszóra keress rá a googliban.Többiben sajnos én sem vagyok jó, de ha találsz vmi jó megoldást ne felejsd el megosztani velünk is
-
sonar
addikt
Sziasztok,
Webes honlapon szeretnék automatizálni pár dolgot. A lényeg,hogy behozza az oldalt bizonyos mezőket kitölt és elküldöm vissza a szervernek.
Csak nem igazán tudom,hogy mivel oldjam meg. Webbrowserrel próbálom, de nem igazán tudom kezelni a dolgot. Be még csak behozza honlapot, de hogyan oldom meg az autómata kitöltést? Illetve visszaküldést.üdv
s -
#977
sonar
addikt
klozetkilinc
#976
sonar
addikt
válasz
klozetkilinc
#976
üzenetére
Hát vba-ba annyira nem merültem el, de nézzél szét és találsz ott mindent.
-
#975
sonar
addikt
klozetkilinc
#974
sonar
addikt
válasz
klozetkilinc
#974
üzenetére
Hajaj englishből van egy rakattal:
pl.:
Programming Excel® Services
by Alvin Bruney
Publisher: Microsoft Press
Pub Date: June 13, 2007
Print ISBN-10: 0-7356-2407-0
Print ISBN-13: 978-0-7356-2407-8Pages: 336
------------------------------------------------
Excel VBA Macro Programming
by Richard Shepherd ISBN:0072231440
McGraw-Hill/Osborne © 2004 (319 pages)
----------------------------------------------------
Apress.Beginning.PivotTables.in.Excel.2007.Sep.2007
----------------------------------------------------
.
.
.dobtam egy privátot...
-
#973
sonar
addikt
[CS]Blade2
#971
sonar
addikt
válasz
[CS]Blade2
#971
üzenetére
Microsoft did not create Visual Basic directly from the original BASIC
language. Although the BASIC language evolved through several stages over
its 35-plus year history, it kept its original structure in most of its incarnations.
When Microsoft decided to use BASIC as its primary programming language
supplied with the original MS-DOS operating system, however, it honed the
BASIC language and added functionality to BASIC by creating several
incarnations of BASIC with names such as MBASIC (for Microsoft BASIC),
GWBASIC (for, some say, Gee-Whiz BASIC), BASICA (for BASIC
Advanced), QuickBASIC, and QBasic (which is still supplied on Windows
operating system CD-ROMs).
Throughout BASIC’s evolution, the BASIC language kept its simple nature
while gaining powerful new commands along the way. The text-based nature
of languages such as QBasic helps new programmers get up to speed more
quickly than many nontext languages such as Visual C++ do. To maintain this
ease of use, Microsoft wanted to keep all its BASIC language versions
interpreted in nature as opposed to compiled. A programmer can execute a
program based on an interpreted language immediately and see results and
errors instantly. Such feedback is critical for beginners who need a quick
response when learning how to program. Compiled languages, although they
run faster and are better suited for commercial program development
environments, require much more effort to work with......Nekem még akad doksim angol nyelven
-
#972
sonar
addikt
[CS]Blade2
#971
sonar
addikt
válasz
[CS]Blade2
#971
üzenetére
Visual Basic’s Background
By understanding the background of Visual Basic, you’ll gain insight into Visual Basic 6
and you’ll be better equipped to use Visual Basic. Microsoft based Visual Basic on a
programming language written for beginners called BASIC. BASIC has been around for
more than 35 years in one form or another. The original language designers wanted to
develop a programming language that beginners could use. With BASIC, new
programmers could become proficient right away. Other programming languages of the
day, such as COBOL, FORTRAN, and Assembler, required much more study than BASIC
before one could use them effectively.BASIC stands for Beginner’s All-purpose Symbolic Instruction Code. That’s
some abbreviation!
A programming language is a set of commands and command options, called
arguments, that you use to give instructions to the computer. Computers cannot
(yet) understand human languages because people deal well with ambiguous
commands, and a computer cannot understand such ambiguity. A programming
language must be more precise than a spoken language.Although the BASIC language was designed for beginners, a BASIC program was still
rather cryptic and required study. Listing 1.1 shows a program written in BASIC. The
program’s goal is to print the mathematical squares for the numbers 1 through 10.
Although you can probably guess at many of the program’s logic and commands, the
program is certainly not the clearest piece of literature in the world and requires that you
understand BASIC before you can fully comprehend the reason for all of its elements. -
sonar
addikt
Mobilra Basic Interpreter CelluarBasic
Ezt ki fogom próbálni! -
#924
sonar
addikt
[HUN]Zolee
#923
sonar
addikt
válasz
[HUN]Zolee
#923
üzenetére
Szerintem ez is lehetséges... mondjuk ki kéne próbálni.
-
#922
sonar
addikt
[HUN]Zolee
#921
sonar
addikt
válasz
[HUN]Zolee
#921
üzenetére
Jha, hogy egy teljes dimenziót szeretnél átadni?
Más winapi leirása nincs vkinek? Illetve egy jó webcíme?
-
#920
sonar
addikt
[HUN]Zolee
#919
sonar
addikt
válasz
[HUN]Zolee
#919
üzenetére
Szerintem jó az elképzelésed. Bár ezt az egyszerre az egészet nem értem. Be kell rakni egy ciklusba (ahány eleműre lett definiálva a tömb) és annyiszor kell elvégeztetni.
-
sonar
addikt
Hát a karakter konverzión gondolkoztam egy keveset, de úgy oldottam meg hogy csináltam egy szöveges fájlt amibe vannak a megfeleltetések (így sokkal dinamikusabb a program modul és bármikor felhasználhatom máshol is) és akár lehet cserélgetni / bővíteni / szűkíteni a listát egyszerűen:
pl.:
a=b
á=a
ő=o
aztán csinálok egy tmp fájlt amibe elvégzem a konverziót és a folyamat végén letörlöm az eredetit és a tmp-t másolom a helyére
képet meg eccerüen. Mivel html alapu a megjelenítés a szintén szöveges fájlban megadott stringre keresek rá és kicserélem a szöveget.
pl:
smile=img src=mosoly.gif
kb ennyi
[Szerkesztve] -
-
-
sonar
addikt
Ki kommentezem hátha meg érted, megy ez fejből is, és nem nehezebb mint egy másodfoku egyenlet megoldása
Dim ch As String - ch szöveges változó deklarálása
Const basic As String = ''Basic'' - basic szöveges konstans megadása. basic konstans ''Basic'' stringet tartalmazza
Dim p As Integer - p integer változó deklarálása
For p = 1 To Len(basic) - p=1 től len(basic)- ig; len(basic)= a konstansban tárolt string hossza, ez itt 5
ch = Mid(basic, p, 1) - ch= az adott pozició betüje (mid parancs, (sting, kezdőpoz, hány karaktert adjon vissza))
s = s + Chr(Asc(ch) + 1); - összefűzi a stringet meg kicsit varázsol vele (egyel növeli)
Next p
ennyi
max 5 perc fejbe, lapon kevesebb
[Szerkesztve] -
sonar
addikt
válasz
palerNEW
#849
üzenetére
Nem tudom direkte nekem szól a leveled de szerintem nyugodtan olvassa el más is.
Én is csak hobbiból tanulom a programozást, meg néha jól jön a munkámhoz.
Magamat egyáltalán nem tartom profinak, inkább lelkes amatőr. Általában segítek is mindenkinek.
Viszont,hogy az ember tudjon kérdezni már az is igényel egyfajta felkészültséget, mert ha azt se tudja mit akar akkor a google se tud segíteni.
prog.hu - az más tészta, az a fórum nem a kezdőknek való. Ott tényleg a guru-k cserélnek eszmét. Bár minden érdeklődőnek ajánlom hogy olvasgasson bele. -
sonar
addikt
válasz
KissTboy
#842
üzenetére
Hogy ON legyek:
Private Sub Text1_KeyPress(KeyAscii As Integer)
' csak számokat lehet beírni
If (KeyAscii < 48) Then
If Not KeyAscii = 44 Then ' a '','' engedélyezése (tizedes)
If Not KeyAscii = 8 Then ' backspace engedélyezése
KeyAscii = 0
End If
End If
ElseIf (KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub -
#846
sonar
addikt
[HUN]Zolee
#845
sonar
addikt
válasz
[HUN]Zolee
#845
üzenetére
Azért ez már több mint durva, ha jól olvasom 5. éves és ennyit se tud.
Vmilyen szinten meglehet tanulni a dolgokat, csak időt kell rá szentelni.
Én se vagyok nagy programozó, de ami kell azzal foglalkozok.
Kiváncsi vagyok hogy az illető mennyit foglalkozott a témával.
No mindegy szerintem is egyszerübb megkérdezni, de azzal takarózni,hogy a tanár se tudja nevetséges.
bocs a kirohanásért és az offért -
sonar
addikt
válasz
KissTboy
#841
üzenetére
No most fejből nyomom, szal ha hibás lesz akkor debugolni kell.
ha vki már egyszer programozást tanul akkor vakarja meg azt a kis buksiját és kezdjen el gondolkodni ha meg nem akkor ne is jelenkezzen programozónak, a f@szom kivan hogy mindig tróger emberek miatt kell a cégnél is többlet munkát végeznem.
Most is jött egy frissdiplomás aztán egy shell scriptet kellett volna módosítania, de megfeküdt vele. Én meg egy másik sráccal akik életünkben nem linuxoztunk megcsinálltuk.
Itt van, a többit meg egyszerü logikával ki lehet találni.
sub text1 keypress(keyascii as integer)
if keyascii< asc(''0'') or keyascii > asc(''9'') then
keyascii=0
end if
end sub -
sonar
addikt
Ma olyat szivok amilyet még ember nem látott.
IDE-n belül simán futtatom a progit, de ha le akarom fordítani akkor ad egy üres hiba ablakot és leáll.
Egy sima ablak piros x el benne és nincs ott semmi szöveg!
Csak egy Ok meg sugó.
Természetesen sugóra nem jön be semmi
Ok-ra meg nem csinál semmit.
Ilyennel már találkozott vki? -
sonar
addikt
Erre varjatok gombot, már mindjárt szétütöm a gépet ezt miért csinálja
sub txtText_lostfocus
dim tmp as string
tmp=txtText
tmp=Format(tmp,''######0.00'')
txtText=tmp
end sub
és ha alapban 1.00 van benne akkor mikor lelépek vmi 35620.00 számot ad be
de miért?
Már variáltam több stringel átpakolom egyik változóból a másikba de hiába -
sonar
addikt
Igen és ha vki elüt egy betüt akkor micsinál?
Amugy a beolvasást egy rutinba irnám meg, rövidebb lenne
átláthatóbb később könnyebb módosítani
If Combo1.Text = ''Magyar'' Then
Open ''c:\1.txt'' For Input As #1
call beolvas
sub beolvas
Line Input #1, cimke1$
Line Input #1, lab1$
Line Input #1, lab2$
Line Input #1, lab3$
Line Input #1, txt1$
Line Input #1, txt2$ -
sonar
addikt
Sziasztok, ha vkinek szüksége lenne valaha a funkció gombok használatára akkor
mentse le ezt a forrást.
Az időzítőt én 100-200 ra szoktam állítani, lassúbb gépen elég a 200 is bár nem vettem
észre, hogy zabálná a procit. Kell egy Text box is (Text1 néven, a gyengébbek kedvéért)
és abba lehet figyelni,hogy éppen milyen funkció billentyű lett lenyomva.
üdv sonar
Option Explicit
Private Declare Sub keybd_event Lib ''user32'' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetAsyncKeyState Lib ''user32'' (ByVal vKey As Long) As Integer
'******************Function Key*******************
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Sub Form_Load()
Call FunctionClear
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
Text1 = ''F1'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F2) Then
Text1 = ''F2'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F3) Then
Text1 = ''F3'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F4) Then
Text1 = ''F4'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F5) Then
Text1 = ''F5'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F6) Then
Text1 = ''F6'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F7) Then
Text1 = ''F7'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F8) Then
Text1 = ''F8'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F9) Then
Text1 = ''F9'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F10) Then
Text1 = ''F10'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F11) Then
Text1 = ''F11'' & vbCrLf & Text1
ElseIf GetAsyncKeyState(VK_F12) Then
Text1 = ''F12'' & vbCrLf & Text1
End If
End Sub
Public Sub FunctionClear()
' Azért kell mert első induláskor néha marad bent vmi szemét és egy üres
' kiolvasással megszűnik ez a probléma
GetAsyncKeyState (VK_F1)
GetAsyncKeyState (VK_F2)
GetAsyncKeyState (VK_F3)
GetAsyncKeyState (VK_F4)
GetAsyncKeyState (VK_F5)
GetAsyncKeyState (VK_F6)
GetAsyncKeyState (VK_F7)
GetAsyncKeyState (VK_F8)
GetAsyncKeyState (VK_F9)
GetAsyncKeyState (VK_F10)
GetAsyncKeyState (VK_F11)
GetAsyncKeyState (VK_F12)
End Sub -
#739
sonar
addikt
[HUN]Zolee
#738
sonar
addikt
válasz
[HUN]Zolee
#738
üzenetére
pl csinálsz egy ilyet
Dim sor as string
sor= str(id) & '','' & nev...
aztán
open ''file'' for output as #1
output (sor, #1)
close #1
és ezt az egészet egy for ciklusba
vissza olvasni meg inputra nyitod meg a fájlt és szétdarabolod a stringet.
vkinek építő ötlete van?
Új hozzászólás Aktív témák
Hirdetés
- Új monitor állvány - csak össze lett szerelve
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- 115.000 ft -tól Országosan a legjobb BANKMENTES részletfizetési konstrukció! ASUS ROG Strix G18
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- Felújított laptopok Számlával, garanciával! Ingyen Foxpost!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest