hajani

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

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

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

valami ilyesmi módon lehetne: kep = New Bitmap("C:\\kep2.jpg") Form1.Refresh()

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

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).

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

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

de az Olly Debugger nem hex editor, hanem debugger [Hidden Content]

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

Ü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)

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

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

Ü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

Köszi! Pont ilyenekre gondoltam! Nagyobbak jöhetnek még