Jump to content
PirateClub.hu

hajani

Veterán
  • Pontszám

    366
  • Csatlakozott

  • Utoljára itt járt

Minden tőle: hajani

  1. ilyen funkció szerintem nincs a winsock-ban, (MS VB 2008 Express-em van, abban nem találtam winsock component-et, de) ha le akarod mérni, akkor szerintem valami olyasmi kéne, hogy küldéskor tárolod a küldés időpontját másodpercben, és a winsock SendComplete event-ben lekérdezett másodpercekből kivonod. az elküldött byte-ok számát elosztod a küldés és idejével megkapod hogy hány byte/sec a sebesség, (ha elosztod az így kapott eredményt 1024-el, megkapod a kb/sec-ben a sebességet) (vagy elindítasz egy időzítőt a küldéskor, amikor elküldte leállítod) Public Function UnixTimeNow() As Long Dim TimeSpan As TimeSpan = DirectCast((DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)), TimeSpan) Return CLng(TimeSpan.TotalSeconds) End Function
  2. Public Function VeletlenKaraktersorozat(ByVal darab) As String Dim random As Random = New Random() Dim str As String = "" For i As Integer = 1 To darab str &= Chr(random.Next(65, 91)) Next Return str End Function egy karakter ha egy byte (mint most itt), akkor ha egy másodperc alatt elküldesz 1024-et, akkor 1kb/sec. a sebesség
  3. Select Case Int(Rnd() * 3) Case 0 MsgBox("egyik szín") Case 1 MsgBox("másik szín") Case 2 MsgBox("harmadik szín") End Select
  4. valami ilyesmi módon lehetne: kep = New Bitmap("C:\\kep2.jpg") Form1.Refresh()
  5. Public Class Form1 Dim kep As New Bitmap("C:\\kep.jpg") Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.DrawImage(kep, New Rectangle(0, 0, kep.Width, kep.Height)) End Sub Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick If e.X >= 0 And e.Y >= 0 And e.X < kep.Width And e.Y < kep.Height Then Dim szin As Color = kep.GetPixel(e.X, e.Y) MsgBox("R: " & szin.R & ", G: " & szin.G & ", B: " & szin.B) End If End Sub End Class
  6. Config-nál a sound setup-ban lehet olyat megcsinálni, (output résznél) hogy a master a front kimenet (zöld) a fejhallgató meg a hátsó hangszóró kimenet (fekete).
  7. hajani

    C# Aboutbox probéma

    pl. gombra kattintáskor: new aboutbox1().Show();
  8. hajani

    A Nagy Batch Tema (Otletek IDE)

    tud valaki olyat, hogy a hardveres hang gyorsítást kikapcsolja? (erre gondolok: vezérlőpult -> hangok és audioeszközök -> audió -> hanglejátszás résznél: speciális... -> teljesítmény fül -> hardvergyorsítás -> nincs) (lehet, hogy ezt csak simán registry módosítással meg lehet csinálni?) ha valakinek van erre ötlete és leírja azt megköszönném
  9. de az Olly Debugger nem hex editor, hanem debugger [Hidden Content]
  10. Public Class Form1 Private Sub kijeloltekTorlese() For i As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1 ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i)) Next End Sub Private Sub ListBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyUp If (e.KeyCode = Keys.Delete) Then kijeloltekTorlese() End If End Sub End Class
  11. hajani

    Milyen telefont vegyek?

    Üdv! Szerintetek melyiket lenne érdemes megvenni? (nem muszáj ezek közül de ár az kb 70-80e, nem lenne rossz benne bluetooth, wifi, (gps), 2-3 vagy több megapixeles kamera (fényképező )) Ilyenekre gondolok: (symbian-os vagy windows mobile-s nem lenne rossz, nem tudom mi a vélemény róla) Samsung GT-S8000, Samsung SGH-I900, (Sony Ericsson W960i), Samsung SGH-i8510, (SonyEricsson XPERIA X1)
  12. Nem tudom, erre gondoltál-e, de: Public Class Form1 Private Sub panelBitmapba() Dim panelBitmap As New Bitmap(Panel1.Width, Panel1.Height) Panel1.DrawToBitmap(panelBitmap, New Rectangle(0, 0, Panel1.Width, Panel1.Height)) panelBitmap.Save("C:\\fajlnev.png") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click panelBitmapba() End Sub End Class
  13. Public Class Form1 Private Sub LoadFile() Dim reader As New IO.StreamReader("c:\szovegfile.txt") Dim sor As String = "" Dim sorok As Integer = 0 ListBox1.Items.Clear() Do sor = reader.ReadLine() If Not sor Is Nothing Then ListBox1.Items.Add(sor) sorok = sorok + 1 End If Loop Until sor Is Nothing ListBox1.Items.Add("Összesen ez " & ListBox1.Items.Count & " ami ugyanannyi mint " & sorok) reader.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click LoadFile() End Sub End Class
  14. Üdv! Azt szeretném kérdezni, hogy hogyan lehetne a lehető legegyszerűbben fájlt beolvasni pascal-ban? Pl. szöveges fájlban számok szóközzel elválasztva... Én úgy csinálnám, hogy beolvasom soronként és val-lal meg copy-val számokká alakítom. De ez elég hosszadalmas, nincs erre valami egyszerűbb módszer? :S
  15. Köszi! Pont ilyenekre gondoltam! Nagyobbak jöhetnek még
  16. Valaki tudna készíteni/belinkelni/feltölteni olyan képet (vagy inkább animációt) ami olyan mint pl.: a winamp/media player képi megjelenítése (az ami zenére mozog). Esetleg olyat amin olyan csíkok ugrálnak. (Természetesen nem úgy hogy egy adott zenére kell megcsinálni ) Előre is köszi!
  17. hajani

    Parancsikon

    nem, hanem parancsikonra gondoltam (az asztalon) a célján az a programot értem ami megnyílik, ha rákattintasz 2x és az ikonja azt a képecske, ami megjelenik a név fölött
  18. Hogyan lehet megcsinálni azt, hogy egy adott parancsikon "célja" megváltozzon, de az ikonja ugyan az maradjon? (vbs-ben majdnem sikerült, de úgy kellene, hogy az ikon az eredeti program ikonja maradjon)
  19. hajani

    c++ gond

    A 14. sorban a sor végén ott van még hogy "<<" azt kellene leszedni (vagy utánaírni h endl)
  20. hajani

    c++ gond

    az if előtt amikor beolvasod az x változót, nem raktál ;-t a sor végére (az más kérdés, hogy nincs y változó)
  21. hajani

    c++ gond

    így próbáld: #include <iostream> (vagy <iostream.h>)
  22. hajani

    Melyik a hasznos nyelv?

    nem a programozásra értettem, hanem úgy, hogy a felhasználónak ne kelljen telepíteni semmit ahhoz, hogy tudja futtatni az adott programot... (akkor ezek szerint c#-t lenne jó tudni)
  23. hajani

    Melyik a hasznos nyelv?

    a c# előtt érdemes (vagy szükséges) tudni c-t vagy/és c++t? ill. miben íródnak azok a programok, melyekhez nem kell külön felrakni semmit? (vagy feltelepítik automatikusan a szükséges futtatási környezetet?)
  24. hajani

    Melyik a hasznos nyelv?

    ha windowsra szeretnék GUI-s alkalmazást írni (és a program .exe), akkor melyik nyelvet lenne érdemes megtanulni/használni? illetve, ha olyan alkalmazást, aminek szintén van grafikus felh.felülete, de a felhasználónak nem kellene letölteni hozzá semmit (pl. mint javánál le kell tölteni és az nem .exe)?
×
×
  • Create New...