Just nu i M3-nätverket
Gå till innehåll

F_Lähnn

Medlem
  • Antal inlägg

    12
  • Gick med

  • Senaste besök

  1. Jag kanske var lite oklar. Min tanke var om man kan använda sig av olika ljud i prgrammet. t.ex kan man få programmet att skriva C när det "hör" ett C.. /Lähnn
  2. Hej. Har fått en lite knasig idé som jag inte riktigt vet hur jag ska lösa... Jag skulle vilja hantera ljud i mitt program på så sätt att man t.ex skulle kunna ha olika händelser vid speciella ljud/toner. Är det någon som har någon bra idé hur man skulle kunna gå till väga eller är det inte möjligt? /Lähnn
  3. F_Lähnn

    Klocka

    Hallå! Använd en timer: Private Sub tmrTime_Timer() lblTime.Caption = Time End Sub /Feffe
  4. Hallå! Du kan använda dig av "Subben" Form_KeyDown Lägg sen in de värden du vill använda som KeyCode. Skickar ett litet exempel: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyDown cmdNer_Click Case vbKeyN tmrTimer1.Enable Case vbKeyD cmdExit_Click End Select End Sub Hoppas att detta hjälper dig... /Lähnn
  5. Såhär kan du göra: Private Sub rullaTarning_Click() If rullaTarning.Caption = "Slå om med TVÅ tärningar" Then Randomize lbl1.Caption = Int(Rnd * 6) + 1 lbl2.Caption = Int(Rnd * 6) + 1 If (lbl1.Caption = 6) Or (lbl2.Caption = 6) Then rullaTarning.Caption = "Slå om med TVÅ tärningar" Else rullaTarning.Caption = "Slå med en tärning" End If Else Randomize lbl1.Caption = Int(Rnd * 6) + 1 If lbl1.Caption = 6 Then rullaTarning.Caption = "Slå om med TVÅ tärningar" End If End If End Sub Det finns många sätt att lösa detta... /Lähnn
  6. Hallå! Jag har skapat ett spel i VB. Närspelet är över kommer det upp en ruta med poängen. Nu skulle jag vilja spara dessa i en 10-i-topp eller liknande. Hur gör jag lättast? Har skapat en "Highscore" lista med hjälp av label men det ända jag får den att visa är det senast spelade. /Feffe
  7. Hallå! Finns det något sätt att slumpa mellan olika alternativ utan att först omvandla dessa till siffror? ex. Slumpa en färg Röd, Grön, Gul, Blå, Antar att man inte kan använda Rnd Problemet är att jag har många olika alternativ och tycker att det blir mycket kod om man ska omvandla först till siffror och sedan tillbaka igen. Hur gör man om man t.ex. ska blanda en kortlek? /Lähnn
  8. Hallå! Jag blev inspirerad av din fråga och satte mig ock knappade ihop ett Yatzy. Nu ska ju erkännas att jag är nybörjare så det blev säkert mycket mer kod än det behövde bli... Hur som helst så hjälper jag dig gärna om jag kan. /Lähnn
  9. Jättebra! Nu funkar det som jag tänkt! Tack för hjälpen! /Lähnn
  10. Hallå! Jag lyckas inte få programmet att reagera när jag trycker på piltangenterna. Varken när jag skriver som Ascii-kod eller som text. Någon som vet vad jag gör för fel? Bifogar exempel på koden: Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = "37" Then lblTest.Left = 1000 End sub Private Sub Form_KeyPress(KeyAscii As Integer) Dim whatKey As String whatKey = Chr(KeyAscii) Select Case whatKey Case "vbKeyRight" lblTest.Left = 150 Case "{left}" lblTest.Left = 150 End Select End Sub /Tacksam för svar! /F_Lähnn
  11. Tack nu har jag fått det att fungera Märkligt nog så verkar det hela tiden dyka upp nya frågetecken;) Antar att det är så det är att programmera. /Lähnn81
  12. Hallå! Håller på och knåpar på en enkel texteditor men jag har stött på ett problem... Hur får jag programmet att förstå att det inte har öppnats genom att jag klickade på programfilen utan istället öppnas genom att jag klickade på t.ex. en textfil (- öppna som - mitt program)? Programmet startar men det visar inte filen. Tacksam för hjälp /F
×
×
  • Skapa nytt...