osea yo encontre esto con otros amigos q me ayudaron pero estuvimos inventando ayi aunq en realidad no se q es lo q tengo q acer solo me dijeron programa q calcule los dias de la semana solo eso y ya

como haria un programa q calcule los dias de la semana seria algo como esto:

Codigo:

Private Sub Command1_Click()
Dia = Dia.Text
Mes = Mes.Text
Año = Año.Text
Mifecha = DateSerial(Año, Mes, Dia)
semana = Weekday(Mifecha, vbMonday)
dias = DateDiff("d", Mifecha, Now)
Diasvividos.Caption = dias
 
Select Case semana
Case 1
Dianaciste.Caption = "Lunes"
Case 2
Dianaciste.Caption = "Martes"
Case 3
Dianaciste.Caption = "Miércoles"
Case 4
Dianaciste.Caption = "Jueves"
Case 5
Dianaciste.Caption = "Viernes"
Case 6
Dianaciste.Caption = "Sábado"
Case 7
Dianaciste.Caption = "Domingo"
 
End Select
End Sub
 
 

si me pueden explicar o algo no se es si es asi solo me dijeron q era asi y asi lo ice pero no se es como calcular los dias de la semana???

muchas gracias!!!!!!!!

gracias aora tengo lio con un codigo por mas q le haga periqitos osea arreglos o sea lo q sea me da error se trata de llamar una imagen con los option button y mostrar su nombre en un label. ya nos e q acer!!!! por mas q le ponga las extansiones de jpg o bmp nada no muestra la imagen!!!

Private Sub Command1_Click()

If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj.bmp")
Label1.Caption = "ES UN DJ"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\mini.bmp")
Label1.Caption = "ES UNA MINITECA"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\cerw.bmp")
Label1.Caption = "ES UN CAJON CERWIN VEGA"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\car.bmp")
Label1.Caption = "ES CARIBBEAN"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ tri.bmp ")
Label1.Caption = "ES TRIDIMENSION"
End If

End Sub

-Programa que a través de una selección de imágenes  muestre la reconversión monetaria

Private Sub Command1_Click()
If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\1.bmp")
Label1.Caption = "un bolivar fuerte"
End If

If Option2.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\2.bmp")
Label1.Caption = "dos bolivares fuertes"
End If

If Option3.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\5.bmp")
Label1.Caption = "cinco bolivares fuertes"
End If

If Option4.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\10.bmp")
Label1.Caption = "dies bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 10.bmp ")
Label1.Caption = "veinte bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 50.bmp ")
Label1.Caption = "cincuenta bolivares fuertes"
End If

If Option5.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\ 100.bmp ")
Label1.Caption = "cien bolivares fuertes"
End If
End Sub

como ago un  osea como hago para q el programa haga esto: programa que lea 2 números enteros y sin multiplicarlos determine si su resultado es  positivo o negativo

weno panas disculpenme ice las cosas mal weno ya de todos modos los ice solo me faltan detalles como aora si pueden ayudarme aunq sea diciendome como llamo una  imagen ejemplo :

If Option1.Value = True Then
Image1.Picture = LoadPicture("C:\DOCUMENTOS FLI MARIN\DJ BLYDEX\IMAGE\dj")
Label1.Caption = "ES UN DJ"
end if

al yo correr el programa me dice run-time error 53 pueden ayudarme a llamar la imagen de esa manera con option button gracias
a por cierto  cΔssiΔnі me caes bien jeje
me darias tu correo?? jeje

Tu no estas pidiendo ayuda tu estas pidiendo que te hagan el trabajo 
[/quote]

mira pana yo no les pedia q me icieran los programas ni la tarea solo q me dijeran mas o menos donde podia conseguirlos q me AYUDAEN A CONSEGUIR ALGUNOS q pesados son solo q qaria q me mostraran algun lugar dond salgan esos ejercicios o parcidos

panas disculpenme peor son 20 ejercicios y los q no puse fue porq los ice ya disculpenme no importa no escriban mas ya no me ayuden de todos modos yo no lo veia de esa manera no se preocupen por decir mas nada dejenlo asi

 panas una profesora de mi colegio me qiere raspar la materia y me mando acer todos estos programas para el martes 28 de abril y necesito conseguir todos estos programas con sus codigos y todo en visual basic 6 me podrian ayudar a conseguir unos 
 
son estos:
-1 programa que permita calcular si un numero es primo o no y mostrarlo en una lista
 
-2 programa que permita calcular los dias de la semana
 
-3 calcular el menor de tres numeros y reflejarlos en una lista
 
-4 programa que permita leer la longitud de los lados de un triangulo y determine si es isoseles, equilatero o escaleno mostrando su imagen
 
-5 programa que lea 2 numeros enteros y sin multiplicarlos determine si su resultado es  positivo o negativo
 
-6 programa que calcule el promedio de calificaciones de un alumno  al leer la matricula y dos calificaciones del alumno calcule su promedio mustre la matricula las 2 calificaciones y el promedio de las calificaciones 

AYUNDEME SI PUEDN PORFAAAAAAAAA 

panas quisiera saber si no tienen algun cursillo de audio profesioal ya q qiero trabajar con sonido gracias