Visual Basic - Error de Compilacion "Main Sub no encontrado"

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Humberto
Val: 3
Ha aumentado su posición en 21 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de Compilacion "Main Sub no encontrado"

Publicado por Humberto (1 intervención) el 09/04/2021 21:56:15
Hola a todos su ayuda por favor, tengo el siguiente código que al momento de compilarlo, me arroja el error ya mencionado, me podrían ayudar por favor, también quisiera si son tan amables me pudieran ayudar dejándome saber cual es la instrucción o comando que tengo que utilizar para insertar la imagen de una estrella dentro de un picturebox que ya tiene una imagen insertada, lo que intento es que el programa al momento de que elige el random, aparezca una estrella sobre la imagen para ir descartando cada imagen hasta llegar a 54, disculpen mi ignorancia en este tema...son mis primeros pasos, de antemano muchas gracias a todos.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        contador2 = 54
        Lblres.Text = contador2
        Lblnum.Text = contenedor
 
        Liminf = 1
        Limsup = 54
        Randomize()
 
        contador = 1
 
        carta(1) = My.Resources._1_El_Gallo
        carta(2) = My.Resources._2_El_Diablito
        carta(3) = My.Resources._3_La_Dama
        carta(4) = My.Resources._4_El_Catrin
        carta(5) = My.Resources._5_El_Paraguas
        carta(6) = My.Resources._6_La_Sirena
        carta(7) = My.Resources._7_La_Escalera
        carta(8) = My.Resources._8_La_Botella
        carta(9) = My.Resources._9_El_Barril
        carta(10) = My.Resources._10_El_Arbol
        carta(11) = My.Resources._11_El_Melon
        carta(12) = My.Resources._12_El_Valiente
        carta(13) = My.Resources._13_El_Gorrito
        carta(14) = My.Resources._14_La_Muerte
        carta(15) = My.Resources._15_La_Pera
        carta(16) = My.Resources._16_La_Bandera
        carta(17) = My.Resources._17_El_Bandolon
        carta(18) = My.Resources._18_El_Violoncello
        carta(19) = My.Resources._19_La_Garza
        carta(20) = My.Resources._20_El_Pajaro
        carta(21) = My.Resources._21_La_Mano
        carta(22) = My.Resources._22_La_Bota
        carta(23) = My.Resources._23_La_Luna
        carta(24) = My.Resources._24_El_Cotorro
        carta(25) = My.Resources._25_El_Borracho
        carta(26) = My.Resources._26_El_Negrito
        carta(27) = My.Resources._27_El_Corazon
        carta(28) = My.Resources._28_La_Sandia
        carta(29) = My.Resources._29_El_Tambor
        carta(30) = My.Resources._30_El_Camaron
        carta(31) = My.Resources._31_Las_Jaras
        carta(32) = My.Resources._32_El_Musico
        carta(33) = My.Resources._33_La_Arana
        carta(34) = My.Resources._34_El_Soldado
        carta(35) = My.Resources._35_La_Estrella
        carta(36) = My.Resources._36_El_Cazo
        carta(37) = My.Resources._37_El_Mundo
        carta(38) = My.Resources._38_El_Apache
        carta(39) = My.Resources._39_El_Nopal
        carta(40) = My.Resources._40_El_Alacran
        carta(41) = My.Resources._41_La_Rosa
        carta(42) = My.Resources._42_La_Calavera
        carta(43) = My.Resources._43_La_Campana
        carta(44) = My.Resources._44_El_Cantarito
        carta(45) = My.Resources._45_El_Venado
        carta(46) = My.Resources._46_El_Sol
        carta(47) = My.Resources._47_La_Corona
        carta(48) = My.Resources._48_La_Chalupa
        carta(49) = My.Resources._49_El_Pino
        carta(50) = My.Resources._50_El_Pescado
        carta(51) = My.Resources._51_La_Palma
        carta(52) = My.Resources._52_La_Maceta
        carta(53) = My.Resources._53_El_Arpa
        carta(54) = My.Resources._54_La_Rana
 
        Btnsig.Enabled = False
        Btnant.Enabled = False
        Btnult.Enabled = False
        Btnbar.Enabled = False
 
    End Sub
 
    Private Sub Btnsac_Click(sender As System.Object, e As System.EventArgs) Handles Btnsac.Click
 
continuar:
        azar = Str(Int((Limsup - Liminf + 1) * Rnd() + Liminf))
 
        If contador = 1 Then
            PictureBoxBB.BackgroundImage = carta(azar)
            tarjeta(contador) = carta(azar)
            resumen = azar
            contenedor = 1
            recipiente(contenedor) = azar
            Btnbar.Enabled = True
 
            contador2 = contador2 - 1
            Lblres.Text = contador2
            contenedor = contenedor + 1
            Lblnum.Text = contenedor
            bandera = contador
            flag = bandera
 
        Else
            For i = 1 To contador
                If recipiente(i) = azar Then
                    GoTo continuar
                End If
            Next
 
        End If
 
        If contador >= 2 Then
            PictureBoxBB.BackgroundImage = carta(azar)
            tarjeta(contador) = carta(azar)
            resumen = azar
            recipiente(contenedor) = azar
            Btnant.Enabled = True
 
            contador2 = contador2 - 1
            Lblres.Text = contador2
            contenedor = contenedor + 1
            bandera = contador
            flag = bandera
        End If
 
        contador = contador + 1
 
        If contador = 55 Then
            Btnsac.Enabled = False
            PictureBoxAA.Image = Nothing
        End If
    End Sub
 
    Private Sub Btnant_Click(sender As System.Object, e As System.EventArgs) Handles Btnant.Click
 
        Btnsig.Enabled = True
        Btnult.Enabled = True
 
        If Not bandera = 1 Then
            bandera = bandera + 1
            PictureBoxBB.BackgroundImage = tarjeta(bandera)
            If bandera = 1 Then
                Btnant.Enabled = False
            End If
        End If
 
    End Sub
 
    Private Sub Btnsig_Click(sender As System.Object, e As System.EventArgs) Handles Btnsig.Click
 
        Btnant.Enabled = True
        bandera = bandera + 1
        If bandera = flag Then
            PictureBoxBB.BackgroundImage = tarjeta(flag)
            Btnsig.Enabled = False
            bandera = flag
 
        Else
            PictureBoxBB.BackgroundImage = tarjeta(bandera)
 
        End If
 
    End Sub
 
    Private Sub Btnult_Click(sender As System.Object, e As System.EventArgs) Handles Btnult.Click
 
        PictureBoxBB.BackgroundImage = carta(resumen)
        bandera = flag
        Btnsig.Enabled = False
        Btnant.Enabled = True
    End Sub
 
    Private Sub Btnbar_Click(sender As System.Object, e As System.EventArgs) Handles Btnbar.Click
 
        contador2 = 54
        Lblres.Text = contador2
        contador = 1
        contenedor = 0
        bandera = 0
        flag = 0
        resumen = 0
        azar = 0
        PictureBoxAA.Image = My.Resources.Screenshot_2021_03_31_TAROT_con_BARAJA_ESPAÑOLA_Gratis___Amor__Trabajo__Salud_Futooro
        PictureBoxBB.BackgroundImage = Nothing
        Btnsig.Enabled = False
        Btnant.Enabled = False
        Btnult.Enabled = False
        Btnbar.Enabled = False
        Btnsac.Enabled = True
 
    End Sub
 
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 125
Ha aumentado su posición en 7 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error de Compilacion "Main Sub no encontrado"

Publicado por Sah1d Ra (65 intervenciones) el 13/04/2021 19:32:11
la carga de imagen podría servirte la funcion
1
LoadPicture

y otra opción es tener un picurebox oculto con la
estrella cargada y pasarla picturebox que indicas

respecto al Main Sub, puedes agregarlo a un modulo
o ponerle en tu formulario un LOAD, espero con eso
se solucione.

saludos y
1
felices líneas de programac10n
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar