Codigo Progra.docx

  • Uploaded by: Napoleon Berrios
  • 0
  • 0
  • June 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Codigo Progra.docx as PDF for free.

More details

  • Words: 136
  • Pages: 2
Private Sub Command1_Click()

A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) D = Val(Text4.Text) E = Val(Text5.Text) F = Val(Text6.Text) G = Val(Text7.Text) H = Val(Text8.Text) x=0 y=0

Dim i As Integer Dim x, y As Double For i = 1 To 12 fx1 = (x ^ 2) - (10 * x) + (y ^ 2) + 8 fx2 = (x * (y ^ 2)) + x - (10 * y) + 8 List1.AddItem x List2.AddItem y x = ((x ^ 2) + (y ^ 2) + 8) / 10 y = ((x * (y ^ 2)) + x + 8) / 10 Error = (((x - X1) ^ 2) + ((y - Y1) ^ 2)) ^ 0.5 List3.AddItem Error X1 = x Y1 = y Next i

End Sub

https://www.youtube.com/watch?v=yeygkb6-Jyk&vl=en https://www.youtube.com/watch?v=T70_E4w1azw https://www.youtube.com/watch?v=a4s0ZhWCLP4 https://www.youtube.com/watch?v=69Sj5yWHCGs https://www.youtube.com/watch?v=kj3Ed0503Uo

Related Documents

Codigo
November 2019 38
Codigo
November 2019 42
Codigo
November 2019 32
Codigo
December 2019 38
Codigo
November 2019 34
Codigo
December 2019 37

More Documents from ""