Cambalinho

após usar o 'wureset' para reparar Update Reset e outros comandos que usei, consigo fazer os Updates normalmente: https://wureset.com/ REPITO: após usar vários comandos disponíveis.. mas não sei qual reparou, porque o comando para reparar o Update não é suficiente, por isso aconselho a usar, também, os outros muito obrigado por tudo... muito obrigado

e sim tenho 1 conflito em Controladores de Armazenamento.. e já tentei atualizar sem sucesso. com o tempo vou formatar o portatil e instalar tudo de novo é o melhor mesmo. e já tentei testar o fones e, por algum motivo, já parecem normais... sim podia ser dos drivers. os updates é que chega aos 7% e depois repõem tudo e sim tenho o Windows 10 ativo

no telemovel, funcionam normalmente.. só noto isso no meu portatil pode ser lmitações do meu portatil porque tem 10 anos(digo eu): acer Aspire E5-573G

eu uso o Windows 10, mas tenho a ferramenta update danificada: chega aos 7%, depois reinicia para desfazer ainda nem consegui resolver Mikhail Kosevich Volkov muito obrigado

tenho o ACER Aspire E5-573G(não sei o ano), preciso de atualizar a placa Wireless\Bluetooth? eu tento ligar os fones sem fios, mas não consigo meter os 2 a funcionar.... será da placa Wireless\Bluetooth?

eu tenho este código\função, sim VB6, para implementar o RayCasting: Private Sub RayCasting() Dim HorizontalRay As Ray Dim VerticalRay As Ray Dim RayHitX As Double Dim RayHitY As Double Dim DirX As Double Dim DirY As Double Dim MapX As Integer Dim MapY As Integer Dim HitWall As Long Dim RayAngleStep As Double Dim RayCount As Long Dim RayAngle As Double Dim HorDist As Double Dim VertDist As Double Dim VertTested As Boolean Dim HorizTested As Boolean On Error Resume Next VertTested = False HorizTested = False RayAngleStep = (PI / 3) / 320 RayAngle = Player1.RotationRadian - (PI / 3 / 2) GameBitmap.ForeColor vbGreen For RayCount = 0 To 320 ' Calcular a direção com base na rotação do jogador: DirX = Cos(-RayAngle) DirY = Sin(-RayAngle) ' Calcular Interceção Horizontal: If (DirY >= 0 And DirY <= PI) Then ' Se o jogador está olhando para cima HorizontalRay.PosY = Fix(Player1.PosY / WallSize) * WallSize - 1 ' Calcular o passo Y e X para os raycast: HorizontalRay.StepY = -WallSize HorizontalRay.StepX = WallSize / Tan(-RayAngle) Else ' Se o jogador está olhando para baixo HorizontalRay.PosY = Fix(Player1.PosY / WallSize) * WallSize + WallSize ' Calcular o passo Y e X para os raycast HorizontalRay.StepY = WallSize HorizontalRay.StepX = WallSize / Tan(RayAngle) End If HorizontalRay.PosX = Player1.PosX + (Player1.PosY - HorizontalRay.PosY) / Tan(-RayAngle) ' Calcular Interceção Vertical: If (DirX <= (PI / 2) And DirX <= (3 * PI / 2)) Then ' Olhando para a direita VerticalRay.PosX = Fix(Player1.PosX / WallSize) * WallSize + WallSize VerticalRay.StepX = WallSize ' mover para direita VerticalRay.StepY = VerticalRay.StepX * Tan(RayAngle) ElseIf (DirX > (PI / 2) And DirX > (3 * PI / 2)) Then ' Olhando para a esquerda VerticalRay.PosX = Fix(Player1.PosX / WallSize) * WallSize - 1 ' Ajuste para o pixel anterior da parede VerticalRay.StepX = -WallSize ' mover para esquerda VerticalRay.StepY = VerticalRay.StepX * Tan(-RayAngle) End If ' Calcular o Y de acordo com a inclinação do raio VerticalRay.PosY = Player1.PosY + (Player1.PosX - VerticalRay.PosX) * Tan(-RayAngle) 'Testar a colisão nas paredes: Do 'Interceção Horizontal: 'Testar se está fora do mapa: If (HorizontalRay.PosX < 0) Or (HorizontalRay.PosX > (10 * WallSize)) Or (HorizontalRay.PosY < 0) Or (HorizontalRay.PosY > (10 * WallSize)) Then 'Exit Do End If 'Testar se o bloco é 1 parede: MapX = Fix(HorizontalRay.PosX / WallSize) MapY = Fix(HorizontalRay.PosY / WallSize) HitWall = Level1(MapY, MapX) If (HitWall = vbBlack) Then Else 'se não for parede soma para a próxima interseção: HorizontalRay.PosX = HorizontalRay.PosX + HorizontalRay.StepX HorizontalRay.PosY = HorizontalRay.PosY + HorizontalRay.StepY End If 'Interceção Vertical: 'Testar se está fora do mapa: If (VerticalRay.PosX < 0) Or (VerticalRay.PosX > (10 * WallSize)) Or (VerticalRay.PosY < 0) Or (VerticalRay.PosY > (10 * WallSize)) Then 'Exit Do End If 'Testar se o bloco é 1 parede: MapX = Fix(VerticalRay.PosX / WallSize) MapY = Fix(VerticalRay.PosY / WallSize) HitWall = Level1(MapY, MapX) If (HitWall = vbBlack) Then Exit Do Else 'se não for parede soma para a próxima interseção: VerticalRay.PosX = VerticalRay.PosX + VerticalRay.StepX VerticalRay.PosY = VerticalRay.PosY + VerticalRay.StepY End If Loop 'Obter o comprimento do raio: HorDist = Sqr(Square(HorizontalRay.PosX) + Square(HorizontalRay.PosY)) VertDist = Sqr(Square(VerticalRay.PosX) + Square(VerticalRay.PosY)) 'Confirmar qual é o raio mais pequeno: If (HorDist < VertDist) Then RayHitX = HorizontalRay.PosX RayHitY = HorizontalRay.PosY Else RayHitX = VerticalRay.PosX RayHitY = VerticalRay.PosY End If 'Desenhar o raio pequeno: GameBitmap.DrawLine Fix(Player1.PosX), Fix(Player1.PosY), Fix(RayHitX), Fix(RayHitY) 'eu acredito que tenho 1 erro aqui: 'Aumentar o ângulo\radiano do raio: RayAngle = RayAngle + RayAngleStep 'se o radiano for super que 360 ou (2*PI) ou inferior que -360 ou (-2*PI) If (RayAngle <= (-2 * PI)) Then RayAngle = 0 If (RayAngle >= (2 * PI)) Then RayAngle = (-2 * PI) Next GameBitmap.ForeColor vbBlack End Sub ainda tenho alguns erros de cálculo, porque alguns radianos\ângulos podem ficar em espelho e agora a rotação: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyEscape) Then FreeResources ElseIf (KeyCode = vbKeyLeft) Then Player1.RotationRadian = Player1.RotationRadian - 0.1 playercos = Cos(Player1.RotationRadian) playersin = Sin(Player1.RotationRadian) If (Player1.RotationRadian >= 2 * PI) Then Player1.RotationRadian = 0 If (Player1.RotationRadian <= -2 * PI) Then Player1.RotationRadian = 0 If (Player1.RotationRadian > 0) Then Player1.RotationRadian = -2 * PI Me.Caption = "Rotation degrees: " & CStr(ConvertRadiansToDegrees(Player1.RotationRadian)) ElseIf (KeyCode = vbKeyRight) Then Player1.RotationRadian = Player1.RotationRadian + 0.1 playercos = Cos(Player1.RotationRadian) playersin = Sin(Player1.RotationRadian) If (Player1.RotationRadian >= 2 * PI) Then Player1.RotationRadian = 0 If (Player1.RotationRadian <= -2 * PI) Then Player1.RotationRadian = 0 If (Player1.RotationRadian > 0) Then Player1.RotationRadian = -2 * PI Me.Caption = "Rotation degrees: " & CStr(ConvertRadiansToDegrees(Player1.RotationRadian)) ElseIf (KeyCode = vbKeyUp) Then Player1.PosY = Player1.PosY + playersin Player1.PosX = Player1.PosX + playercos ElseIf (KeyCode = vbKeyDown) Then Player1.PosY = Player1.PosY - playersin Player1.PosX = Player1.PosX - playercos End If End Sub eu penso que o meu problema é quando o radiano, do player é zero, tenho de diminuir 30º... porque a visão é 60º... alguém me pode explicar melhor o meu erro?

eu estou a tentar resolver da seguinte forma: - gravo os valores X e Y do final da linha(e também da linha anterior), porque notei que podem ser iguais: Dim PreviousRayX As Double = 0 Dim PreviousRayY As Double = 0 Dim RayX As Double = 0 Dim RayY As Double = 0 '........ Dim clr As Pen If VertDist < HorizDist Then WallDistance = VertDist OffSetGrid = VertY Mod ObjectSize clr = Pens.Blue RayX = Math.Round(VertX) RayY = Math.Round(VertY) Else OffSetGrid = HorizX Mod ObjectSize WallDistance = HorizDist clr = Pens.BlueViolet RayX = Math.Round(HorizX) RayY = Math.Round(HorizY) End If 'imgverticallineGraphics.DrawLine(Pens.Blue, New Point(player.PosX + 4, player.PosY + 4), New Point(RayX, RayY)) WallDistance = WallDistance * Math.Cos(RayRadians - player.Radians) 'avoiding the Fish Effect RayHeight = (ObjectSize / WallDistance) * 200 ' is the height screen - agora testo se os valores são diferentes... se forem diferentes desenhasse a linha vertical e soma-se o X seguinte e guardasse os valores finais da linha: If (PreviousRayX <> Math.Round(RayX) And PreviousRayY <> Math.Round(RayY) And OffSetGrid <> 0 And OffSetGrid <> ObjectSize) Then imgverticallineGraphics.DrawLine(clr, New Point(RayCounts, 300 / 2 - RayHeight / 2), New Point(RayCounts, 300 / 2 + RayHeight / 2)) PreviousRayX = Math.Round(RayX) PreviousRayY = Math.Round(RayY) RayCounts = RayCounts + 1 End If RayRadians = RayRadians + RadiansSteps 'sim mantem-se, porque esta é a rotação da linha mas estou a obter resultados inesperados: https://imgur.com/nxEbAu3 o meu objetivo é evitar as linhas que tenham finais iguais á anterior(o RayX e RayY e PreviousRayX e PreviousRayY). o que estou a fazer erradado?

ainda bem que testou o código.. tenho 1DLL criada no VB6, com funções API, e consigo o dobro mas penso conseguir mais desempenho(sempre que altero o Forecolor e FillColor, o brush e a pen são recriados e selecionados... estou a pensar mudar isso e usar variáveis para pen e brush... assim só crio 1 vez.. apenas estou confuso devido ao brush\pen de origem ou anterior... deveria o guardar ou ignorar?) agora tenho outro problema, por isso ontem criei o topico... queria resolver 1 bug gráfico

em Visual Basic 2010, tenho esta função para fazer o RayCasting: Function GetPositionMap(ByVal valor As Double) As Integer If valor < 0 Then GetPositionMap = 0 ElseIf valor > MapWidth Then GetPositionMap = 9 Else GetPositionMap = valor \ ObjectSize 'square size End If End Function Private Sub DrawRays() Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As Double Dim HorizX As Double Dim HorizY As Double Dim MapX As Long Dim MapY As Long Dim HorizDist As Double Dim VertDist As Double Dim WallDistance As Double Dim RayHeight As Double Dim RayRadians As Double Dim RadiansSteps As Double Dim RayCount As Long Dim RayCounts As Long Dim OffSetGrid As Long RayCount = imgverticalline.Width MapX = Player.MapX MapY = Player.MapY RadiansSteps = Radian60 / RayCount RayRadians = (Player.Radians - Radian30) RayCounts = 0 img.ForeColor(RGB(255, 0, 0)) Do While RayCounts < RayCount If (RayRadians > Radian360) Then RayRadians = 0.001 'Check for horizontal intersections: If RayRadians >= 0 And RayRadians <= Math.PI Then 'Facing down HorizY = (Fix(player.PosY / ObjectSize) * ObjectSize) + ObjectSize ' Calculate grid position HorizX = player.PosX + (HorizY - player.PosY) / Math.Tan(RayRadians) StepY = ObjectSize ElseIf RayRadians = 0 Or RayRadians = Math.PI Then HorizY = player.PosY HorizX = player.PosX Else 'Facing Up HorizY = (Fix(player.PosY / ObjectSize) * ObjectSize) - 1 HorizX = player.PosX + (HorizY - player.PosY) / Math.Tan(RayRadians) StepY = -ObjectSize End If StepX = StepY / Math.Tan(RayRadians) MapX = GetPositionMap(HorizX) MapY = GetPositionMap(HorizY) Do If MapX < 0 Or MapX > 9 Or MapY < 0 Or MapY > 9 Then Exit Do If levelmap0(MapY, MapX) = Color.Black Then Exit Do HorizX = HorizX + StepX HorizY = HorizY + StepY MapX = HorizX \ ObjectSize MapY = HorizY \ ObjectSize Loop HorizDist = Math.Abs((player.PosX - HorizX) / Math.Cos(RayRadians)) 'Check for vertical intersections: If RayRadians < Radian90 Or RayRadians > Radian270 Then 'Facing right VertX = (Fix(Player.PosX / ObjectSize) * ObjectSize) + ObjectSize ' Calculate grid position VertY = player.PosY + (player.PosX - VertX) * -Math.Tan(RayRadians) StepX = ObjectSize ElseIf RayRadians = Radian90 Or RayRadians = Radian270 Then VertY = Player.PosY VertX = Player.PosX Else 'Facing left VertX = (Fix(Player.PosX / ObjectSize) * ObjectSize) - 1 VertY = player.PosY + (player.PosX - VertX) * -Math.Tan(RayRadians) StepX = -ObjectSize End If StepY = StepX * Math.Tan(RayRadians) MapX = GetPositionMap(VertX) MapY = GetPositionMap(VertY) Do If MapX < 0 Or MapX > 9 Or MapY < 0 Or MapY > 9 Then Exit Do If levelmap0(MapY, MapX) = Color.Black Then Exit Do VertX = VertX + StepX VertY = VertY + StepY MapX = VertX \ ObjectSize MapY = VertY \ ObjectSize Loop VertDist = Math.Abs((player.PosX - VertX) / Math.Cos(RayRadians)) Dim VertColor As Color If VertDist < HorizDist Then WallDistance = VertDist OffSetGrid = VertY Mod ObjectSize VertColor = Color.Blue Else OffSetGrid = HorizX Mod ObjectSize WallDistance = HorizDist VertColor = Color.DarkBlue End If WallDistance = WallDistance * Math.Cos(RayRadians - player.Radians) 'avoiding the Fish Effect RayHeight = (ObjectSize / WallDistance) * 200 ' is the height screen\ 'If (OffSetGrid < 0 Or OffSetGrid >= picWall1.Width) Then OffSetGrid = 0 'picWall1.DrawTextureVerticalLine(img.MemoryHDC, OffSetGrid, Fix(RayHeight * 4), RayCounts, 5) imgverticalline.ForeColor(RGB(VertColor.R, VertColor.G, VertColor.B)) imgverticalline.DrawLine(RayCounts, imgverticalline.Height / 2 - RayHeight \ 2, RayCounts, imgverticalline.Height / 2 + RayHeight \ 2) RayRadians = RayRadians + RadiansSteps RayCounts = RayCounts + 1 Loop End Sub eis o resultado: sim ainda não estou a usar textura, porque quero resolver esse bug gráfico: na parede da esquerda(azul escuro) temos 1 linha vertical(azul claro) de 32 em 32(o tamanho de 1 parte da parede).... nem sei onde escontrar e corrigir este bug gráfico... alguém me pode auxiliar? PS: eu ainda não avaliei o tempo exato, mas gostava de perguntar: cada vez que limpo a imagem, crio 1 brush e seleciono, e sempre que desenho 1 linha\figura, crio e seleciono 1 pen.... se criar os brush's e as pen's e só as selecionar, quando preciso, ganho tempo?(falando em ciclos\loops) se sim, como posso guardar e usar a pen\brush antiga ou a posso ignorar?(sim ainda estou a pensar antes deste grande update)

em VB2010, como posso fazer 1 game loop e timers com precisão? o máximo que consigo é 100FPS e só desenhar 2 circulos preenchido com 1 cor Public Class Form1 Dim blnGameloop As Boolean = True Dim FrameCount As Integer Dim FPS As Integer Dim result As New Bitmap(900, 500) Dim gresult As Graphics = Graphics.FromImage(result) Dim g As Graphics Dim tmr As Integer Dim PosX As Integer Dim PosY As Integer Private Sub ClearMemory() blnGameloop = False result.Dispose() g.Dispose() gresult.Dispose() End End Sub Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed ClearMemory() End Sub Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then ClearMemory() ElseIf (e.KeyCode = Keys.Up) Then PosY -= 1 ElseIf (e.KeyCode = Keys.Down) Then PosY += 1 ElseIf (e.KeyCode = Keys.Left) Then PosX -= 1 ElseIf (e.KeyCode = Keys.Right) Then PosX += 1 End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() Me.Focus() tmr = TimeOfDay.Second Do Application.DoEvents() g = Me.CreateGraphics gresult.FillRectangle(Brushes.Blue, 0, 0, Me.Width, Me.Height) gresult.FillEllipse(Brushes.Aqua, PosX, PosY, 100, 100) gresult.FillEllipse(Brushes.Brown, PosX + 50, PosY + 50, 100, 100) gresult.DrawString("FPS: " & CStr(FPS), Me.Font, Brushes.Black, 10, 10) g.DrawImage(result, 0, 0) FrameCount += 1 If (tmr <> TimeOfDay.Second) Then FPS = FrameCount FrameCount = 0 tmr = TimeOfDay.Second End If Loop While (blnGameloop = True) End Sub End Class parecem 2 tópicos, mas 1 depende do outro

basicamente é multiplicar por -1, a velocidade muito obrigado

sabendo que a bola: - direção é 45º; - velocidade é 1... como se calcula a direção da bola, após 1 colisão? (se existem mais parâmetros, me corrigem) 'sem código

ok. muito obrigado por tudo... este caso me fez pensar o que posso adicionar na minha linguagem muito obrigado

eis o código para desenhar 1 linha: WallDistance = WallDistance * Cos(RayRadians - Player.Radians) 'avoiding the Fish Effect RayHeight = (ObjectSize / WallDistance) * 200 ' is the height screen\ a.drawline(x0,y0,x1,y1) A.DrawLine 475 + 50 + RayCounts, 200 / 2 - RayHeight / 2, 475 + 50 + RayCounts, 200 / 2 + RayHeight / 2 a linha vertical aparece sem problemas... agora queria mostrar com textura: 'obter o a linha mais curta(horizontal ou vertical): If VertDist < HorizDist Then ' Draw the vertical ray: A.DrawLine Fix(Player.PosX), Fix(Player.PosY), Fix(VertX), Fix(VertY) WallDistance = VertDist GridX = VertX Mod ObjectSize GridY = VertY Mod ObjectSize Else ' Draw the horizontal ray: A.DrawLine Fix(Player.PosX), Fix(Player.PosY), Fix(HorizX), Fix(HorizY) WallDistance = HorizDist GridX = HorizX Mod ObjectSize GridY = HorizY Mod ObjectSize End If 'Debug.Print GridX & " " & GridY WallDistance = WallDistance * Cos(RayRadians - Player.Radians) 'avoiding the Fish Effect RayHeight = (ObjectSize / WallDistance) * 200 ' is the height screen\ 'a.drawline(x0,y0,x1,y1) A.DrawLine 475 + 50 + RayCounts, 200 / 2 - RayHeight / 2, 475 + 50 + RayCounts, 200 / 2 + RayHeight / 2 If (GridX = 0) Then StretchBlt A.MemoryHDC, 475 + 50 + RayCounts, 200 / 2 - RayHeight / 2, 475 + 50 + RayCounts, 200 / 2 + RayHeight / 2, picWall1.hdc, 0, GridY, 1, picWall1.Height, SRCCOPY Else StretchBlt A.MemoryHDC, 475 + 50 + RayCounts, 200 / 2 - RayHeight / 2, 475 + 50 + RayCounts, 200 / 2 + RayHeight / 2, picWall1.hdc, GridX, 0, picWall1.Width, 1, SRCCOPY End If mas não desenha nada de jeito os calculos podem estar errados sem me aparecer: onde errei para obter a linha da imagem?

do estilo 'pre-processor' do C.... converter 'AndAlso' a 'then if'