Wiindows 10

Windows specific questions.
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Post by fxm »

Less than one hour total, for such the full feature update, seems very short for a HDD disk.
srvaldez
Posts: 3373
Joined: Sep 25, 2005 21:54

Re: Wiindows 10

Post by srvaldez »

you are right, it's just a guess how long it took, being a VM I was doing other things in the host OS
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Post by fxm »

Example for the previous feature update version 1809:
How long does the Windows 10 October 2018 update (version 1809) take to install?

The biggest factor affecting the length of time it takes to install Windows 10 is whether the drive is an SSD (solid state drive) or HDD (hard disk drive). Installation on SSDs takes half or even one quarter of the time.

A high specification PC with a fast SSD might be able to do it in 30 minutes, but a low specification PC with a hard disk drive could take three hours. Most computers will be somewhere between, leaning towards the short SSD times or long HDD times depending on the specification.

Laptops usually have slower drives and less processing power than desktops, so they may take longer.
marcov
Posts: 3454
Joined: Jun 16, 2005 9:45
Location: Netherlands
Contact:

Re: Wiindows 10

Post by marcov »

Low memory devices (e.g. 4GB AND integrated graphics) are no picnic ether.

For 1709 update:

Core2 6600 (2.4GHz) 6GB with SSD: about 2.5 hrs.
(now has been junked)

1809 update
i7-3770 12GB SSD : 50min-1hr.
Ryzen 2600 24GB with (old) SSD: 35-40 minutes

added later: these are rough magnitude only figures without download, since that is connection dependent, and often done already in the background if Windows tries to force you into upgrading.
Last edited by marcov on May 23, 2019 9:13, edited 2 times in total.
fxm
Moderator
Posts: 12081
Joined: Apr 22, 2009 12:46
Location: Paris suburbs, FRANCE

Re: Wiindows 10

Post by fxm »

1809 update:
i7-7500U (2.9GHz), 6GB, HDD 930GB
about 4 hours not counting the download time (only installation + reboot)
deltarho[1859]
Posts: 4292
Joined: Jan 02, 2017 0:34
Location: UK
Contact:

Re: Wiindows 10

Post by deltarho[1859] »

1903 Update

This was done after the KB4497934.

Download: 14mins
Install: 33mins
Followed by quite a few restarts and final page configuring.

Total time from start to desktop: 57mins ( longer than the 1809 update )

72Mbps broadband, SSD, Intel i7 4/4 @ 3.9GHz.
badidea
Posts: 2586
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: Wi<s>i</s>ndows 10

Post by badidea »

If I extrapolate, then in 2023 the time to update will be longer then the time between updates :-)
dodicat
Posts: 7976
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Wiindows 10

Post by dodicat »

Might as well be on 1809 goatskin for all the good it is.

Code: Select all



'  FONTS
Function Filter(Byref tim As Ulong Pointer,_
    Byval rad As Single,_
    Byval destroy As Long=1,_
    Byval fade As Long=0) As Ulong Pointer
    #define map(a,b,_x_,c,d) ((d)-(c))*((_x_)-(a))/((b)-(a))+(c)
    If fade<0 Then fade=0:If fade>100 Then fade=100
    Type p2
        As Long x,y
        As Ulong col
    End Type
    #macro ppoint(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*4
    (colour)=*pixel
    #endmacro
    #macro ppset(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*4
    *pixel=(colour)
    #endmacro
    #macro average()
    ar=0:ag=0:ab=0:inc=0
    xmin=x:If xmin>rad Then xmin=rad
    xmax=rad:If x>=(_x-1-rad) Then xmax=_x-1-x
    ymin=y:If ymin>rad Then ymin=rad
    ymax=rad:If y>=(_y-1-rad) Then ymax=_y-1-y
    For y1 As Long=-ymin To ymax
        For x1 As Long=-xmin To xmax
            inc=inc+1
            ar=ar+(NewPoints(x+x1,y+y1).col Shr 16 And 255)
            ag=ag+(NewPoints(x+x1,y+y1).col Shr 8 And 255)
            ab=ab+(NewPoints(x+x1,y+y1).col And 255)
        Next x1
    Next y1
    If fade=0 Then
        averagecolour=Rgb(ar/(inc),ag/(inc),ab/(inc))
    Else
        averagecolour=Rgb(fd*ar/(inc),fd*ag/(inc),fd*ab/(inc))
    End If
    #endmacro
    Dim As Single fd=map(0,100,fade,1,0)
    Dim As Integer _x,_y
    Imageinfo tim,_x,_y
    Dim  As Ulong Pointer im=Imagecreate(_x,_y)
    Dim As Integer pitch
    Dim  As Any Pointer row
    Dim As Ulong Pointer pixel
    Dim As Ulong col
    Imageinfo tim,,,,pitch,row
    Dim As p2 NewPoints(_x-1,_y-1)
    For y As Long=0 To (_y)-1
        For x As Long=0 To (_x)-1
            ppoint(x,y,col)
            NewPoints(x,y)=Type<p2>(x,y,col)
        Next x
    Next y
    Dim As Ulong averagecolour
    Dim As Long ar,ag,ab
    Dim As Long xmin,xmax,ymin,ymax,inc
    Imageinfo im,,,,pitch,row
    For y As Long=0 To _y-1
        For x As Long=0 To _x-1 
            average()
            ppset((NewPoints(x,y).x),(NewPoints(x,y).y),averagecolour)
        Next x
    Next y
    If destroy Then Imagedestroy tim: tim = 0
    Function= im
End Function
Sub drawstring(Byval xpos As Long,Byval ypos As Long,Byref text As String,Byval colour As Ulong,Byval size As Single,Byref im As Any Pointer=0)
    Type D2
        As Double x,y
        As Ulong col
    End Type
    size=Abs(size)
    Static As d2 XY()
    Static As Long runflag
    If runflag=0 Then   
        Redim  XY(128,127)
        Screen 8
        Width 640\8,200\16
        Dim As Ulong Pointer img
        Dim count As Long
        For ch As Long=1 To 127
            img=Imagecreate(9,17)
            Draw String img,(1,1),Chr(ch)
            For x As Long=1 To 8 
                For y As Long=1 To 16
                    If Point(x,y,img)<>0 Then
                        count=count+1
                        XY(count,ch)=Type<D2>(x,y)
                    End If
                Next y
            Next x
            count=0
            Imagedestroy img
        Next ch
        runflag=1
    End If
    If size=0 Then Exit Sub
    Dim As D2 np,t
    #macro Scale(p1,p2,d)
    np.col=p2.col
    np.x=d*(p2.x-p1.x)+p1.x
    np.y=d*(p2.y-p1.y)+p1.y
    #endmacro
    Dim As D2 c=Type<D2>(xpos,ypos)
    Dim As Long dx=xpos,dy=ypos,f
    If Abs(size)=1.5 Then f=3 Else f=2
    For z6 As Long=1 To Len(text)
        Var asci=text[z6-1]
        For _x1 As Long=1 To 64*2
            t=Type<D2>(XY(_x1,asci).x+dx,XY(_x1,asci).y+dy,colour)         
            Scale(c,t,size)
            If XY(_x1,asci).x<>0 Then
                If size>1 Then
                    Line im,(np.x-size/f,np.y-size/f)-(np.x+size/f,np.y+size/f),np.col,bf
                Else
                    Pset im,(np.x,np.y),np.col
                End If
            End If
        Next _x1
        dx=dx+8
    Next z6
End Sub
Sub init Constructor
    drawstring(0,0,"",0,0)
    Screen 0
End Sub
Function Colour(Byref im As Any Pointer,Byval newcol As Ulong,Byval tweak As Long,Byval fontsize As Single) As Any Pointer
    #macro ppset2(_x,_y,colour)
    pixel2=row2+pitch2*(_y)+(_x)*dpp2
    *pixel2=(colour)
    #endmacro
    #macro ppoint(_x,_y,colour)
    pixel=row+pitch*(_y)+(_x)*dpp
    (colour)=*pixel
    #endmacro
    Dim As Long grade
    Select Case  fontsize
    Case 1 To 1.5:grade=205
    Case 2 :grade=225
    Case 2.5:grade=222
    Case 3 To 3.5:grade=200
    Case 4 To 4.5:grade=190
    Case 5 To 5.5:grade=165
    Case Else: grade=160
    End Select
    Dim As Integer w,h
    Dim As Integer pitch,pitch2,dpp,dpp2
    Dim  As Any Pointer row,row2
    Dim As Ulong Pointer pixel,pixel2
    Dim As Ulong col
    Imageinfo im,w,h,dpp,pitch,row
    Dim As Any Pointer temp=Imagecreate(w,h)
    Imageinfo temp,,,dpp2,pitch2,row2
    For y As Long=0 To h-1
        For x As Long=0 To w-1
            ppoint(x,y,col)
            Var v=.299*((col Shr 16)And 255)+.587*((col Shr 8)And 255)+.114*(col And 255)
            If v>(grade+tweak) Then
                ppset2(x,y,newcol)
            Else
                ppset2(x,y,Rgb(255,0,255))
            End If
        Next x
    Next y
    Return temp
End Function

Sub CreateFont(Byref myfont As Any Pointer,Byval fontsize As Single,Byval col As Ulong,Byval tweak As Long=0)
    fontsize=Int(2*Abs(fontsize))/2
    If fontsize=0 Then fontsize=.5
    Dim As Ubyte Ptr p
    Dim As Any Pointer temp
    Dim As Integer i
    temp = Imagecreate(FontSize*768,FontSize*16)
    myfont=Imagecreate(FontSize*768,FontSize*16)
    For i = 32 To 127
        drawstring ((i-32)*FontSize*8,1,Chr(i),Rgb(255,255,255),FontSize,temp)
    Next i
    If fontsize>1.5 Then
        For n As Single=0 To fontsize-2:temp=filter(temp,1,1,0):Next
        End If
        temp=Colour(temp,col,tweak,fontsize)
        Put myfont,(0,0),temp,trans
        Imageinfo( myfont,i,,,, p )
        p[0]=0:p[1]=32:p[2]=127
        For i = 32 To 127
            p[3+i-32]=FontSize*8
        Next i
        Imagedestroy(temp)
    End Sub
   
    Function Regulate(Byval MyFps As Long,Byref fps As Long) As Long
        Static As double timervalue,lastsleeptime,t3,frames
        frames+=1
        If (Timer-t3)>=1 Then t3=Timer:fps=frames:frames=0
        Var sleeptime=lastsleeptime+((1/myfps)-Timer+timervalue)*1000
        If sleeptime<1 Then sleeptime=1
        lastsleeptime=sleeptime
        timervalue=Timer
        Return sleeptime
    End Function
   
   
    Screenres 900,600,32
    Color ,Rgb(0,50,125)
    Dim As Integer xres,yres
    Screeninfo xres,yres
    Dim As Any Ptr i=Imagecreate(xres,yres)
   
    Dim As Any Ptr msg,speed,g(1 To 5)
    createfont msg,4.5,Rgb(200,200,200)
    createfont speed,2,Rgb(200,0,0)
    For n As Long=1 To 5
        createfont g(n),2,Rnd*Rgb(255,255,255)
    Next
   
    #define Intrange(f,l) int(Rnd*((l+1)-(f))+(f))
    For x As Long=0 To xres Step 16
        For y As Long=0 To yres Step 24
            Draw String i,(x,y),Chr(intrange(33,126)),,g(intrange(1,5))
           
        Next
    Next
   
    Dim As String s=String(24,0)
    For n As Long=0 To Len(s)-1
        Read s[n]
    Next
   
    Dim As Long k,fps
    Do
        k-=3
        Screenlock
        Cls
        Put(0,0),i,trans
     
        Draw String(20,20),"Framerate = "&fps,,speed
     
        Draw String(k,300),s,,msg
        Draw String(k+900,300),s,,msg
        If k<-900 Then k=0
        Screenunlock
       
        Sleep regulate(60,fps),1
      
    Loop Until Len(Inkey)
    Data 72,101,39,115,32,76,105,110,115,117,120,32,100,105,110,103,45,97,45,108,105,110,103,46
    imagedestroy i
screen 0
     
     
Last edited by dodicat on May 22, 2019 23:00, edited 1 time in total.
badidea
Posts: 2586
Joined: May 24, 2007 22:10
Location: The Netherlands

Re: Wiindows 10

Post by badidea »

dodicat wrote:Might as well be on 1809 goatskin for all the good it is.

Code: Select all

...
If that code is meant to run on Linux, then use double for timer variables :-p
dodicat
Posts: 7976
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Wiindows 10

Post by dodicat »

badidea wrote:
dodicat wrote:Might as well be on 1809 goatskin for all the good it is.

Code: Select all

...
If that code is meant to run on Linux, then use double for timer variables :-p
Done
It is a bit jumpy here on Linux.
srvaldez
Posts: 3373
Joined: Sep 25, 2005 21:54

Re: Wiindows 10

Post by srvaldez »

I have been running Windows 10 in a VM for years now and it works great, my only complaint is that my Mac uses the function keys and are therefore not available on Windows, sometimes that can be a hindrance.
today, inspired by a youtube video I installed Windows 10 1903 x64 on an external USB drive, and I am surprised at how well it works, sure disk access is going to be slower, but this version of Windows when clean installed, is a pleasant experience.
srvaldez
Posts: 3373
Joined: Sep 25, 2005 21:54

Re: Wiindows 10

Post by srvaldez »

does anyone use Windows Image Backup? https://www.windowscentral.com/how-make ... windows-10
I do and it works great, I was a bit nervous doing a restore because it formats the drive but the nervous part is that you need to check all the drives to exclude, but it worked and a 65 GB restore took only about 5 minutes
deltarho[1859]
Posts: 4292
Joined: Jan 02, 2017 0:34
Location: UK
Contact:

Re: Wiindows 10

Post by deltarho[1859] »

I use ToDo Backup. It wakes my Sleeping PC at 04:00. I use the lowest level of compression converting 45GB to 24GB taking just over three minutes for a full system backup. Restore takes about 12 minutes. If Windows 10 is completely crippled I shut down, stick in a recovery flash drive and power up. I have the last seven backups on an external SSD.

I have the Home version with lifetime upgrades but there is a free version; it does not do scheduling. Easeus have over ten million customers including Microsoft, IBM and NASA. They have some Black Friday deals on at the moment, just less than four days left.

I have now lost count on the number of times I have had to restore Windows 10 since it first came out.

A friend of mine uses ToDo Backup with 160Gb to back up. His machine is receiving data from the internet 24/7 but, like me, his backup is done in the early hours when he is asleep. He backs up to a 1TB external HDD, and he too has had to restore Windows 10 a few times since it came out. Windows 10 may be Microsoft's best to date but it is not as robust as Windows 7.

What amazes me is the number of people who do not backup their PC - it is so easy nowadays.
marcov
Posts: 3454
Joined: Jun 16, 2005 9:45
Location: Netherlands
Contact:

Re: Wiindows 10

Post by marcov »

How do you cripple a Windows 10?

The Windows 10 install I run, started life as an OEM Windows 8.0, though relatively late (just a few months before 8.1 came out)

Slowly I'm thinking a reinstall would be good (and a new SSD, since this one is from 2013), but that is more precaution than necessary.

And this is my primary workstation, seeing every day action.
srvaldez
Posts: 3373
Joined: Sep 25, 2005 21:54

Re: Wiindows 10

Post by srvaldez »

@deltarho[1859]
thanks for the suggestion, will a system backup also backup installed applications?
Post Reply