Comments by sora97 (Top 20 by date)

I am using MD5 to detect viruses, I cant do much anything in detecting viruses in VB.net, but I am still learning to program in C++, so is there a way to load up te virus datbase to textboxwithout consuming RAM o..

no i mean this is my homework in math (trial & error) and not in programming....

no i mean this is my homework in math (trial & error) and not in programming....

OK CONVERTER CODE GOT ERRORS:

ERRORS ON timer = ambigous
ERROD: _radar.imageupdate = cannot called as direct event
RESULT RADAR NOT MOVING...

CONVERTED CODE WITH ERRORS
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Namespace Blaney
Public Partial Class frmMain
Inherits Form
Private _radar As Radar
Private t As New Timer()
Private rnd As New Random()

Public Sub New()
InitializeComponent()
' internal item update timer
t.Interval = 60
' t.Tick += new EventHandler(t_Tick);
t.Enabled = True
End Sub

' RadarItem item1 = new SquareRadarItem(1, 8, 190, 60);
'RadarItem item2 = new CircleRadarItem(2, 8, 45, 45);
'RadarItem item3 = new TriangleRadarItem(3, 8, 30, 30);

Private Function GetDelta() As Integer
Dim i As Integer = rnd.[Next](0, 2)
If i = 0 Then
i -= 1
End If
Return i
End Function

' void t_Tick(object sender, EventArgs e)
' {
' // select which of the three items to update
' int i = rnd.Next(1, 4);
'
' switch (i)
' {
' case 1:
' item1.Azimuth += GetDelta();
' item1.Elevation += GetDelta();
' _radar.AddItem(item1);
' break;
' case 2:
' item2.Azimuth += GetDelta();
' item2.Elevation += GetDelta();
' _radar.AddItem(item2);
' break;
' case 3:
' item3.Azimuth += GetDelta();
' item3.Elevation += GetDelta();
' _radar.AddItem(item3);
' break;
' }
' }
'

Private Sub frmMain_Load(sender As Object, e As EventArgs)
_radar = New Radar(pictureBox1.Width)
pictureBox1.Image = _radar.Image
_radar.ImageUpdate += New ImageUpdateHandler(AddressOf _radar_ImageUpdate)
_radar.DrawScanInterval = 60
_radar.DrawScanLine = True
End Sub

Private Sub _radar_ImageUpdate(sender As Object, e As ImageUpdateEventArgs)
' this event is important to catch!
pictureBox1.Image = e.Image
End Sub

Private Sub pictureBox1_Click(sender As Object, e As EventArgs)

End Sub
End Class
End Namespace