en todo caso he creado un programa en VB 6.0 para ir encontrando numeros primos, os dejo el codigo, mirad teneis que poner un timer1 a intervalo 1, luego un timer2 a intervalo 30000, luego un text1 y un text2 ambos con scrollbar vertical y funcion multiline a true
Código
Private Sub Timer1_Timer() Dim x As Long 'un numero primo es un numero que solo se Static y As Long 'puede dividir por el mismo o por 1 así que Dim r As Integer 'tenemos que provar de dividirlo a partir de 2 y = y + 1 ' hasta un numero inferior al numero que estamos For x = 2 To (y - 1) 'provando, por tanto si la division de y entre x da If y Mod x = 0 Then 'decimales, r = r + 1 Else r = r + 0 ',no se si esta mal ya em corregireis End If 'el codigo. Next If r = 0 Then Text2.Text = Text2.Text & vbCrLf & y Else Text1.Text = Text1.Text & vbCrLf & y End If Text1.SelStart = Len(Text1.Text) Text2.SelStart = Len(Text2.Text) End Sub Private Sub Timer2_Timer() 'de tanto en tanto vacio los campos de texto Text1.Text = "" 'para que estos no se colapsen de tantos numeros Text2.Text = "" End Sub
lo he dejado hoy todo el dia de las 12 del medio dia hasta ahora que son la 1.29 de la noche, os pongo unos de los ultimos numeros primos, si esta mal el codigo avisadme por favor:
993121
993203
1005457
1005551
Sometimes you just feel tired, you feel weak, and when you feel weak you feel that you just wanna just give up!
ApOkAlizE